VB Code Question

[Guest]

Can someone assist me with some Excel VB code?

In the example below, I want to cut the date from the current worksheet
(Sheet1) and paste it into multpile cells in another worksheet (Sheet2)
within the same workbook.

What is the best way to reference each worksheet? I tried Sheet2! but that
didn't work for me.

Range("A1").Select
Selection.Cut Destination:=Range("A1,B1,C1") 'this needs to be pasted in
a new worksheet within the same workbook.


Many thanks if you can help!

 

[Gord Dibben]

Stan

Try this.

Sub foo()

ActiveSheet.Range("A1:C1").Cut _
Destination:=Sheets("Sheet2").Range("A1")

End Sub

You could use Sheets("Sheet1").Range("A1:C1") and run it from any sheet.


Gord Dibben MS Excel MVP

 

[Don Guillett]

try this from anywhere in the workbook.

Sub copycutcell()
With Sheets("sheet4").Range("a1")
.Copy Sheets("sheet3").Range("a1:c1")
.Clear
End With
End Sub