ZED - Need a short macro fix
Dim iRow As Long
With Sheets("Tab 2")
iRow = .Cells(.Rows.Count, "A").End(xlUp).Row
If iRow 1 Or .Range("A1").Value < "" Then
iRow = iRow + 1
End If
ActiveSheet.Range("A64:J64").Copy .Cells(iRow, "A")
End With
--
HTH
Bob Phillips
(replace somewhere in email address with gmail if mailing direct)
wrote in message
ps.com...
Hello,
I am basically trying to write a macro in excel, it should be quite
simple really, all i am trying to is copy a range from one spreadsheet
to another, but need the range dropping down into a new row each time,
basically i have a standard form with drop down lists, so a user
accesses the form and fills it in, at the bottom of the form i have a
range which copies the data i need to populate my log on another tab,
basically the log just needs to be updated each time the form is used,
i have written a short macro, and added a button on the form to write
the new data accross, but cant get the data to appear on a new row each
time without manually having to point to a blank row first, i have
included the macro below, and would appreciate any help
Range("A64:J64").Select
Selection.Copy
Sheets("Tab 2").Select
activeCells = xllastrow + 1 + 1
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
|