G
Guest
I need some help! I have a workbook which has four sheets, the two that
matter are named work in progress and receipt. My problem is that I need to
copy the name, address, city, state, and zip code from the in progress sheet
to the receipt sheet, one at a time and place them in the proper order. The
problem with the macro is the range is set at the time of the recording, and
the cells change each time I use it.
This is the macro that I recorded. I’m NOT a programer, I can record a
macro and understand VERY little of visual basic. Can anyone help me???
Thank you
Don
Range("C8").Select
Selection.Copy
Sheets("Recipt form").Select
Range("E15").Select
ActiveSheet.Paste
Range("E16:I16").Select
Sheets("Bid - In progress").Select
Range("F8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recipt form").Select
Range("E16:I16").Select
ActiveSheet.Paste
Range("E17").Select
Sheets("Bid - In progress").Select
Range("G8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recipt form").Select
ActiveSheet.Paste
Range("G17").Select
Sheets("Bid - In progress").Select
Range("H8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recipt form").Select
ActiveSheet.Paste
Range("I17").Select
Sheets("Bid - In progress").Select
Range("I8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recipt form").Select
ActiveSheet.Paste
Range("E18:I18").Select
Sheets("Bid - In progress").Select
Range("E8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recipt form").Select
Range("E18:I18").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
matter are named work in progress and receipt. My problem is that I need to
copy the name, address, city, state, and zip code from the in progress sheet
to the receipt sheet, one at a time and place them in the proper order. The
problem with the macro is the range is set at the time of the recording, and
the cells change each time I use it.
This is the macro that I recorded. I’m NOT a programer, I can record a
macro and understand VERY little of visual basic. Can anyone help me???
Thank you
Don
Range("C8").Select
Selection.Copy
Sheets("Recipt form").Select
Range("E15").Select
ActiveSheet.Paste
Range("E16:I16").Select
Sheets("Bid - In progress").Select
Range("F8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recipt form").Select
Range("E16:I16").Select
ActiveSheet.Paste
Range("E17").Select
Sheets("Bid - In progress").Select
Range("G8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recipt form").Select
ActiveSheet.Paste
Range("G17").Select
Sheets("Bid - In progress").Select
Range("H8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recipt form").Select
ActiveSheet.Paste
Range("I17").Select
Sheets("Bid - In progress").Select
Range("I8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recipt form").Select
ActiveSheet.Paste
Range("E18:I18").Select
Sheets("Bid - In progress").Select
Range("E8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recipt form").Select
Range("E18:I18").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub