VBA copy specifc cells in sheet1 to specific cells sheet 2

[JMC57]

I am looking to modify the following code so that only B and D are copied from sheet 2 AND the results are pasted in c and d in sheet 3. Any help will be apprecaited. Thanks

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("sheet2").Range("b1:d10000").Copy _
Sheets("sheet3").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Sheets("sheet3").Select
End Sub

 

[Mytå]

Hi

Something like this

Sheets("sheet2").Range("B1:B100,D1:D100").Copy Sheets("sheet3").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0)

Mytå

 

[JMC57]

Perfect! Thank you very much

 

[JMC57]

Hi

Something like this

Sheets("sheet2").Range("B1:B100,D1:D100").Copy Sheets("sheet3").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0)

Mytå

Hi thank you for the response. To make data consistent with a downloaded report format is there a way to copy the contents of D in sheet 2 to C sheet 3 and B in sheet 2 toD sheet 3 ?

Thanks again.

 

[Mytå]

Hi

With two lines of code.

Sheets("Sheet2").Range("D1:D100").Copy Sheets("sheet3").Cells(Rows.Count, 3).End(xlUp).Offset(1)
Sheets("Sheet2").Range("B1:B100").Copy Sheets("sheet3").Cells(Rows.Count, 4).End(xlUp).Offset(1)

Mytå