Automation, Excel Howtos, Learn Excel, VBA Macros

VBA Move data from one sheet to multiple sheets

Last updated on May 14, 2012

Vijay Sharma

This is a guest post by Vijay, our in-house VBA Expert.

Suresh sent an email with interesting problem.

There is one data entry sheet where all the data needs will be entered, however once done we want the data to be stored separately in multiple sheets designated by the Employee code.

In this article we will learn how to use VBA to help in resolving the problem Suresh was facing at work.

We will do this using VBA and the below procedure illustrates how this was done.
Sub copyPasteData() Dim strSourceSheet As String Dim strDestinationSheet As String Dim lastRow As Long

strSourceSheet = "Data entry"

Sheets(strSourceSheet).Visible = True Sheets(strSourceSheet).Select

Range("C2").Select Do While ActiveCell.Value <> "" strDestinationSheet = ActiveCell.Value ActiveCell.Offset(0, -2).Resize(1, ActiveCell.CurrentRegion.Columns.Count).Select Selection.Copy Sheets(strDestinationSheet).Visible = True Sheets(strDestinationSheet).Select lastRow = LastRowInOneColumn("A") Cells(lastRow + 1, 1).Select Selection.PasteSpecial xlPasteValues Application.CutCopyMode = False Sheets(strSourceSheet).Select ActiveCell.Offset(0, 2).Select ActiveCell.Offset(1, 0).Select Loop End Sub

Let’s understand the code

We start by defining 2 variables which will hold the Source and destinations sheet names, source will be one sheet only however there will be multiple destinations sheets.

A simple Do While loop is utilized to complete this data transfer from one sheet to the others.

However the most interesting line in the code is :
ActiveCell.Offset(0, -2).Resize(1, ActiveCell.CurrentRegion.Columns.Count).Select
Since we start our work on Column C in the loop, we need to ensure the data from Column A and B is also selected to be copied and pasted on the relevant sheets, this is accomplished using the above line.

Once we have selected the entire data set on the current row, we copy the same and select the relevant sheet and then paste the data as values on the same.

At the end of the code once we switch back to the Source sheet, we need to ensure that we select Column C again. The reason for that is, when we select the entire data set we activate the first column and we need to come back to column C for our loop and the rest of the code to work.

Download Excel File

Click here to download the file & save it on your system and use it to understand this technique.

More on VBA & Macros

If you want to learn more about using VBA to automate reporting & email tasks, read these:

Join our VBA Classes

If you want to learn how to develop applications like these and more, please consider joining our VBA Classes. It is a step-by-step program designed to teach you all concepts of VBA so that you can automate & simplify your work.

Click here to learn more about VBA Classes & join us.

Share this tip with your colleagues

74 Comments
Ask a question or say something...
Tagged under advanced excel, do while loop, downloads, howto, Learn Excel, macros, split, VBA
Category: Automation, Excel Howtos, Learn Excel, VBA Macros

Want an AWESOME
Excel Class?

Overall I learned a lot and I thought you did a great job of explaining how to do things. This will definitely elevate my reporting in the future.

Rebekah S

Reporting Analyst

FREE Goodies for you...

Related Tips

Excel Challenges

26 Responses to “Get busy this weekend, with OR XOR AND [Excel Homework]”

Stef@n says:

July 29, 2011 at 11:48 am

first solution for AND
The two numbers are in A1 and B1
= SUBSTITUTE (SUBSTITUTE (A1+B1*9*9, 9, 1), 8, 0)
regards
Stef@n

Reply
Stef@n says:

July 29, 2011 at 11:50 am

next solution for OR
=1*SUBSTITUTE (A1+A2;2;1)

regards
Stef@n

Reply
Stef@n says:

July 29, 2011 at 11:52 am

last solution for XOR
=1*SUBSTITUTE (A1+A2;2;0)

regards
Stef@n

Reply
Irvine says:

July 29, 2011 at 12:26 pm

Or you could make use of the VBA logical operators!

Define the following as custom functions
Public Function BITXOR(x As Long, y As Long)
BITXOR = x Xor y
End Function

Public Function BITAND(x As Long, y As Long)
BITAND = x And y
End Function

Public Function BITOR(x As Long, y As Long)
BITOR = x Or y
End Function

and then use them such:
A B =BITOR(A,B) =BITAND(A,B) =BITXOR(A,B)
0101 0100 0101 0100 0001

Reply
Stef@n says:

July 29, 2011 at 12:46 pm

an another solution for AND
=1*SUBSTITUTE (SUBSTITUTE (A1+A2;1;0);2;1)

note:
the binary numbers are in A1 and A2 !
regards
Stef@n

Reply
Shair says:

July 29, 2011 at 2:22 pm

I was obviously playing hooky at the beach during the bit-wise math lesson – you lost me at “Understanding bit-wise operations” 🙂

Reply
Anup Agarwal says:

July 30, 2011 at 8:46 am

After looking at the above solutions, I find my solution silly, but still:

For the following formulae,
Row 1: headers,
Row 2: OR
Row 3: AND
Row 4: XOR

Column 1: Input 1
Column 2: Input 2
Column 3: Result

OR
{=SUM(IF(MID(A2,ROW(OFFSET($A$1,0,0,LEN(A2),1)),1)+MID(B2,ROW(OFFSET($A$1,0,0,LEN(B2),1)),1)>0,1,0)*10^(LEN(A2)-ROW(OFFSET($A$1,0,0,LEN(B2),1))))}

AND
{=SUM(IF(MID(A3,ROW(OFFSET($A$1,0,0,LEN(A3),1)),1)+MID(B3,ROW(OFFSET($A$1,0,0,LEN(B3),1)),1)=2,1,0)*10^(LEN(A3)-ROW(OFFSET($A$1,0,0,LEN(B3),1))))}

XOR
{=SUM(IF(MID(A4,ROW(OFFSET($A$1,0,0,LEN(A4),1)),1)+MID(B4,ROW(OFFSET($A$1,0,0,LEN(B4),1)),1)=1,1,0)*10^(LEN(A4)-ROW(OFFSET($A$1,0,0,LEN(B4),1))))}

Reply
Hui... says:

July 31, 2011 at 11:57 pm

@Anup
Please don't consider your solution silly
Firstly, You are the 3rd person to submit an answer
Secondly, The best formula/function is the one that you know and understand.

Reply
Michael Azer says:

August 1, 2011 at 1:40 pm

I think I have a very tedious solution, which people won't have the patience to do except in small numbers.

I used the same problem setup as "Anup Agarwal"

AND =IF(AND(MID(B2,1,1)="1",MID(C2,1,1)="1"),1,0)&IF(AND(MID(B2,2,1)="1",MID(C2,2,1)="1"),1,0)&IF(AND(MID(B2,3,1)="1",MID(C2,3,1)="1"),1,0)&IF(AND(MID(B2,4,1)="1",MID(C2,4,1)="1"),1,0)

OR =IF(OR(MID(B3,1,1)="1",MID(C3,1,1)="1"),1,0)&IF(OR(MID(B3,2,1)="1",MID(C3,2,1)="1"),1,0)&IF(OR(MID(B3,3,1)="1",MID(C3,3,1)="1"),1,0)&IF(OR(MID(B3,4,1)="1",MID(C3,4,1)="1"),1,0)

=IF(OR(AND(MID(B4,1,1)="1",MID(C4,1,1)="0"),AND(MID(B4,1,1)="0",MID(C4,1,1)="1")),1,0)&IF(OR(AND(MID(B4,2,1)="1",MID(C4,2,1)="0"),AND(MID(B4,2,1)="0",MID(C4,2,1)="1")),1,0)&IF(OR(AND(MID(B4,3,1)="1",MID(C4,3,1)="0"),AND(MID(B4,3,1)="0",MID(C4,3,1)="1")),1,0)&IF(OR(AND(MID(B4,4,1)="1",MID(C4,4,1)="0"),AND(MID(B4,4,1)="0",MID(C4,4,1)="1")),1,0)

Reply
Michael Azer says:

August 1, 2011 at 1:43 pm

Sorry my last post was totally messed up

AND
=IF(AND(MID(B2,1,1)="1",MID(C2,1,1)="1"),1,0)&IF(AND(MID(B2,2,1)="1",MID(C2,2,1)="1"),1,0)&IF(AND(MID(B2,3,1)="1",MID(C2,3,1)="1"),1,0)&IF(AND(MID(B2,4,1)="1",MID(C2,4,1)="1"),1,0)
OR
=IF(OR(MID(B3,1,1)="1",MID(C3,1,1)="1"),1,0)&IF(OR(MID(B3,2,1)="1",MID(C3,2,1)="1"),1,0)&IF(OR(MID(B3,3,1)="1",MID(C3,3,1)="1"),1,0)&IF(OR(MID(B3,4,1)="1",MID(C3,4,1)="1"),1,0)
XOR
=IF(OR(AND(MID(B4,1,1)="1",MID(C4,1,1)="0"),AND(MID(B4,1,1)="0",MID(C4,1,1)="1")),1,0)&IF(OR(AND(MID(B4,2,1)="1",MID(C4,2,1)="0"),AND(MID(B4,2,1)="0",MID(C4,2,1)="1")),1,0)&IF(OR(AND(MID(B4,3,1)="1",MID(C4,3,1)="0"),AND(MID(B4,3,1)="0",MID(C4,3,1)="1")),1,0)&IF(OR(AND(MID(B4,4,1)="1",MID(C4,4,1)="0"),AND(MID(B4,4,1)="0",MID(C4,4,1)="1")),1,0)

Reply
Stephen says:

August 1, 2011 at 1:45 pm

@stefan,
I just couldn't get your solutions to work.
01010101010 + 01010101110 = 02020210120
what am i doing wrong?

Reply
Stephen says:

August 1, 2011 at 1:56 pm

@anup
...I got yours to work!

Reply
Rich says:

August 1, 2011 at 8:17 pm

@Stephen - I get the same, but Stef@an's second solution for AND does work (at least for the test cases I used)

Reply
Stef@n says:

August 2, 2011 at 9:09 am

@ Stephen / Rich
yes , you are right ! - only this works:

OR
=1*SUBSTITUTE (A1+A2;2;1)
XOR
=1*SUBSTITUTE (A1+A2;2;0)
AND
=1*SUBSTITUTE (SUBSTITUTE (A1+A2;1;0);2;1)

Reply
Michael Azer says:

August 3, 2011 at 1:36 pm

@Stef@n - You're answer is really smart, I never knew about the substitute function before. Great Work!

Reply
Stef@n says:

August 3, 2011 at 2:45 pm

Thx Michael 🙂
yes - it is simply easy 😉
if you add 1 and 1 - excel calculate 2
and then you have to substitute the 2 - new = 0 respectively 1

Reply
Rob says:

September 11, 2011 at 4:16 pm

Here is a good resource for people wanting to learn binary and hexadecimal.
http://justwebware.com/bitwise/bitwise.html

Reply
Kyle McGhee says:

January 29, 2012 at 3:57 pm

Three that weren't asked for:
NOT
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1+A2,0,3),1,0),3,1)

EQV
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1+A2,0,3),2,3),1,0),3,1)

IMP
=SUBSTITUTE(SUBSTITUTE(A1+SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2,0,3),1,0),3,1),0,1),2,0)

(was using Daniel Ferry's bitwise file to verify against)

Reply
Q says:

February 27, 2012 at 9:05 am

@ Kyle

Not only takes one parameter and inverts 0 -1 and 1-0

Took out the +A2
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,0,3),1,0),3,1)

Reply
Richard Tallent says:

November 1, 2012 at 3:57 pm

Great solutions!

I'll add two:

NAND =1*SUBSTITUTE (A1+A2,2,0)

NOR=1*SUBSTITUTE(SUBSTITUTE (SUBSTITUTE(A1+A2,0,2),1,0),2,1)

Reply
John Fuller says:

August 29, 2014 at 4:15 pm

This will work for binary numbers of any size (although the text format mask will have to have as many zeroes as there are digits in the longest addend)

Assume binary #s are in C35 & C36, then add and format as text in C37:
=TEXT(C36+C35,"000000000000")
-sum- = 101112211112

AND - SUBSTITUTE 0s for 1s in -sum-, then sub 1s for 2s
=SUBSTITUTE(SUBSTITUTE(C37,"1","0"),"2","1")

OR - sub 1s for 2s in -sum-
=SUBSTITUTE(C37,"2","1")

XOR - sub 0s for 2s in -sum-
=SUBSTITUTE(C37,"2","0")

Reply
Shane says:

September 21, 2014 at 3:47 am

Just wandered by:

AND:

=SUBSTITUTE(A1+A2,1,0)/2

Reply
- xlpadawan says:
  
  September 22, 2014 at 2:22 pm
  
  Clever, Shane. I like that.
  
  Reply
How do I perform a XOR calucation of two binary numbers in excel 2007 - QuestionFocus says:

December 9, 2017 at 2:27 pm

[…] post http://www.excelhero.com/blog/2010/01/5-and-3-is-1.html for examples using Sumproduct, and http://chandoo.org/wp/2011/07/29/bitwise-operations-in-excel/ for examples using Text […]

Reply
Ronald Vonk says:

December 6, 2018 at 12:00 pm

Hi Chandoo,

I am not (yet) really into bitwise calculation, but I am looking for a way to speed up my vba calculation with very big numbers. Would is ben convenient to use bitwise notation for this?

Best regards,

Ronald (the Netherlands)
p.s. love your country!

Reply
- Hui... says:
  
  December 7, 2018 at 4:25 am
  
  @Ronald
  
  I'd suggest asking this in the Chandoo.org Forums
  https://chandoo.org/forum/
  
  Attach a sample file with an example of some data and describe what you want to achieve
  
  Reply

VBA Move data from one sheet to multiple sheets

Vijay Sharma

Let’s understand the code

Download Excel File

More on VBA & Macros

Join our VBA Classes

Get FREE Excel + Power BI Tips

Welcome to Chandoo.org

Mandatory Trainings: Are we doing them? [Data Analysis Challenge – 002]

FREE Calendar & Planner Excel Template for 2026

Who is my boss’s boss? [Data Analytics Challenge – 001]

New Zealand GST Calculation with Excel [Free Template]

Make a Pivot from Another Pivot Table in Excel

Related Tips

Mandatory Trainings: Are we doing them? [Data Analysis Challenge – 002]

Who is my boss’s boss? [Data Analytics Challenge – 001]

New Zealand GST Calculation with Excel [Free Template]

Make a Pivot from Another Pivot Table in Excel

How to use XLOOKUP with two sheets?

26 Responses to “Get busy this weekend, with OR XOR AND [Excel Homework]”

Leave a Reply

Get FREE Excel & Power-BI Newsletter

Get Started

Online Classes

About

Downloads