Adding Data to Next Available Line

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have written a macro that allows me to input a line of data on a sheet and hit a button and allow it to be added to the next open line on another sheet. This works fine, but I now need to be able to skip cells in between the ones I am adding, like add "A20:G20, M20:AB20" Here is what I am using right now to add this line of data

Private Sub CommandButton1_Click(

' Macro3 Macr
' Macro recorded 12/8/2003 by Brian McGuir

Sheets("input").Range("A20:M20,Q20:AG20").Copy Destination:=
Sheets("electrical").Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0
Worksheets("input").Range("A20:AG20").ClearContent
End Su

But as I have it written now, it replaces the entire data line, which I can't do anymore. Any input on how to get around this would be greatly appreciated. Thanks in advance

Brian
 
change
Worksheets("input").Range("A20:AG20").ClearContents

to
Sheets("input").Range("A20:M20,Q20:AG20").ClearContents

?????

--
Regards,
Tom Ogilvy


Brian McGuire said:
I have written a macro that allows me to input a line of data on a sheet
Click to expand...
and hit a button and allow it to be added to the next open line on another
sheet. This works fine, but I now need to be able to skip cells in between
the ones I am adding, like add "A20:G20, M20:AB20" Here is what I am using
right now to add this line of data:
Private Sub CommandButton1_Click()
'
' Macro3 Macro
' Macro recorded 12/8/2003 by Brian McGuire

Sheets("input").Range("A20:M20,Q20:AG20").Copy Destination:= _
Sheets("electrical").Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0)
Worksheets("input").Range("A20:AG20").ClearContents
End Sub

But as I have it written now, it replaces the entire data line, which I
Click to expand...
can't do anymore. Any input on how to get around this would be greatly
appreciated. Thanks in advance.
 
When I did that it shifted the data in the right cells 3 places over (the amount of cells I am attempting to skip). I think the problem comes in with the copy destination command

Sheets("input").Range("A20:M20,Q20:AG20").Copy Destination:= _
Sheets("electrical").Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0)

By its nature I think it takes the last open space in the first column and fills in the data in order. If anyone knows anyway to modify this (I didn't write it so I am not sure how the commands work) I think that would probably solve my problem. Thanks.

Brian

----- Tom Ogilvy wrote: -----

change
Worksheets("input").Range("A20:AG20").ClearContents

to
Sheets("input").Range("A20:M20,Q20:AG20").ClearContents

?????

--
Regards,
Tom Ogilvy


Brian McGuire said:
I have written a macro that allows me to input a line of data on a sheet
Click to expand...
and hit a button and allow it to be added to the next open line on another
sheet. This works fine, but I now need to be able to skip cells in between
the ones I am adding, like add "A20:G20, M20:AB20" Here is what I am using
right now to add this line of data:
'
' Macro3 Macro
' Macro recorded 12/8/2003 by Brian McGuire
Sheets("electrical").Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0)
Worksheets("input").Range("A20:AG20").ClearContents
End Sub
Click to expand...
can't do anymore. Any input on how to get around this would be greatly
appreciated. Thanks in advance.
 
Back
Top