VBA Newbie Needs help.

[wrightyrx7]

Hi all,

I recorded a macro and wanted some help, as recording it will never show the VBA i need

Sub Test()

Range("A4").Select
Selection.Copy
Sheets("Advance Payment").Select
Range("B6").Select
ActiveSheet.Paste
End Sub

As you can see this selects cell A4 to copy.
When i run this macro I want this to select and copy the data that is in column A of the activerow.

Can any help?

Thanks

 

[njimack]

Sub Test()
Cells(ActiveCell.Row, 1).Copy Cells(6, 2)
End Sub

 

[wrightyrx7]

Thank you very much for the reply.

As im only just learning VBA can i ask what the Cells(6,2) does?

Thanks

 

[njimack]

Thank you very much for the reply.

As im only just learning VBA can i ask what the Cells(6,2) does?

Thanks

You're welcome. Cells(6,2) is just another way of writing Range("B6")

 

[wrightyrx7]

Oh right just tested it an it pastes it to the same worksheet. I wanted it to paste to another worksheet Name="Advance Payment" (sheet5)

how would i do that?

Thanks again
Chris

 

[njimack]

Oh right just tested it an it pastes it to the same worksheet. I wanted it to paste to another worksheet Name="Advance Payment" (sheet5)

how would i do that?

Thanks again
Chris

Sub Test()
Cells(ActiveCell.Row, 1).Copy [COLOR=Red]Sheets("Advance Payment").[/COLOR]Cells(6, 2)
End Sub

 

[wrightyrx7]

Thanks you have been a great help, can i push my luck and ask.

If i wanted to copy lets say column A and B from the active row and paste them in the same cell on the other sheet with a space. Can this be done?

This is for the first name and second name you see.

Thanks
Chris

 

[njimack]

Thanks you have been a great help, can i push my luck and ask.

If i wanted to copy lets say column A and B from the active row and paste them in the same cell on the other sheet with a space. Can this be done?

This is for the first name and second name you see.

Thanks
Chris

No problem, thanks for the feedback. Try this:

Sub Test()

Sheets("Advance Payment").Cells(ActiveCell.Row, ActiveCell.Column) = Cells(ActiveCell.Row, 1) & " " & Cells(ActiveCell.Row, 2)

End Sub

 

[wrightyrx7]

Worked like a charm thank you so much for your help

 

[njimack]

You're welcome.