copy the values of three cells to other worksheet

[ccruz]

every day I need copy the values of three cells F2, J2 and N2 from worksheet call "input" to a worksheet named "Board" same columns but in next empty cell rows

somebody could help me on that ? .

 

[Hui]

CCruz


Firstly, Welcome to the Chandoo.org Forums


Copy the VBA Code below into a Code Moduile in VBA (Alt F11)

Then link it to a shape or Button on the Input Sheet

[pre]

Sub CopyCells()

Worksheets("Board").Select

Worksheets("Input").Range("F2").Copy
Range("F1000000").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Worksheets("Input").Range("J2").Copy
Range("J1000000").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Worksheets("Input").Range("N2").Copy
Range("N1000000").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

[/pre]

When you click on the Shape/Button the code will do what you want