Solved: VBA Copy

[08mcrisp]

Hi,

I need to make a macro that cuts range ("C1:E57") and pastes it to ("Sheet1") in the active cell and then moves the active cell one place to the right so that the next time the macro is run, the data that is in ("C1:E57") can be pasted next to the last set of data in ("Sheet1").

I am a complete beginner at macro but I had a go at it:

Sub NewYear()
'
' NewYear Macro
'
' Keyboard Shortcut: Ctrl+n
'

Range("C1:E57").Select
Selection.Copy
Sheets("Sheet1").Select
Offset(0, 1).Select.ActiveSheet.Paste

End Sub

This (of course) did not work but I have no idea what to try now!

Please help me!

Thanks and regards
08mcrisp

[CatDaddy]

example workbook please?

[08mcrisp]

Sorry!

What does that mean?

Apologies for my idiocy!

08mcrisp

[CatDaddy]

hahaha no problem, can you attach a dummy of your workbook so i can see what you are trying to do?

[08mcrisp]

Here it is.

I need to copy the cells that I specified earlier to sheet1 and then each time the macro is run, copy the new set of data in those cells next to the old set that is in sheet1.

Just thought if I rephrased my query it might make more sense.

Thanks for helping

Regards
08mcrisp

[CatDaddy]

[vba]Sub moveColumns()
ActiveWorkbook.Sheets("Results").Activate
Range("A1").Activate
Dim cell As Range
Dim destCell As String
For Each cell In Range("A2:AZ2")
If cell.Value = "" Then
destCell = cell.Offset(-1, 0).Address
Exit For
End If
Next cell
ActiveWorkbook.Sheets("Sales").Activate
Range("A1").Activate
Range("C1:E57").Select
Selection.Copy
ActiveWorkbook.Sheets("Results").Activate
Range(destCell).Activate
ActiveSheet.Paste
End Sub
[/vba]

works just fine for me

[08mcrisp]

Thank you! That worked amazingly! You are a legend!!!!!!!

Brilliant!!
I can't thank you enough!!!


08mcrisp

[CatDaddy]

geez...how dare you make a black man blush? Just mark it as solved and pass it on!

[08mcrisp]

How do I mark it as solved?

[CatDaddy]

Top of the thread > Thread Tools > Marked Solved

[08mcrisp]

I still can't find it!!

[mancubus]

open with ie, if not already.