Macro to Copy non-congruent Cells to congruent Cells

[FrankMcNally]

Hey,

What is the Code for Copying Cells: A1 and C1 from Sheet 1 to A1 and B1 on Sheet 2 in one command? By one Command I mean rather than:

Sheets(Sheet1).Range(A1).Value.Copy
Sheets(Sheet2).Range(a1).paste
Sheets(Sheet1).Range(c1).Value.Copy
Sheets(Sheet2).Range(b1).Paste

I actually need to copy them from one Workbook to another, but one problem at a time

 

[pgc01]

Hi Frank

Try:

Worksheets("Sheet1").Range("A1,C1").Copy Destination:=Worksheets("Sheet2").Range("A1")

 

[FrankMcNally]

That's kind of what I was doing (See Code Below), but my results pasted all three cells. I just decided to do one at a time, which is O.K. for this purpose, I just have to make the entries six times

                    Range("A" & CDR_Count, "C" & CDR_Count).Copy                    Sheets("Sheet2").Range("A" & CDR_Count).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=True, Transpose:=False

 

[pgc01]

That's kind of what I was doing (See Code Below) ...

No, what you were doing is completely different.

Range("A1","J1")

means all the cells between A1 an J1, in this case 10 cells (A1,B1,C1,...J1)

whilst

Range("A1,J1")

means 2 cells, the cell A1 and the cell J1.

 

[FrankMcNally]

O.K. but if I this theory: Range("A1,J1") the how do I use it with my variable 'CDR_Count'?

Range("A&CDR_Count, C&CDR_Count")

Thanks

 

[pgc01]

Hi

This is a simple example, using your code modified

Sub Test()
Dim CDR_Count As Long

CDR_Count = 3

Worksheets("Sheet1").Range("A" & CDR_Count & ",C" & CDR_Count).Copy
Worksheets("Sheet2").Range("A" & CDR_Count).PasteSpecial Paste:=xlPasteValues
                
End Sub

 

[FrankMcNally]

O.K. Excellent!! I'm kind of a try-fail programmer, I understand it but I'm not great at getting all the Logic. It didn't even cross my mind that the '&' was separating the CDR_Count variable, I thought it was part of putting the CDR_Count variable into the Cell???

Thanks again.

 

[pgc01]

You're welcome. Thanks for the feedback.