close

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(quot;C8quot;).Select
Selection.Copy
Sheets(quot;Recipt formquot;).Select
Range(quot;E15quot;).Select
ActiveSheet.Paste
Range(quot;E16:I16quot;).Select
Sheets(quot;Bid - In progressquot;).Select
Range(quot;F8quot;).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(quot;Recipt formquot;).Select
Range(quot;E16:I16quot;).Select
ActiveSheet.Paste
Range(quot;E17quot;).Select
Sheets(quot;Bid - In progressquot;).Select
Range(quot;G8quot;).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(quot;Recipt formquot;).Select
ActiveSheet.Paste
Range(quot;G17quot;).Select
Sheets(quot;Bid - In progressquot;).Select
Range(quot;H8quot;).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(quot;Recipt formquot;).Select
ActiveSheet.Paste
Range(quot;I17quot;).Select
Sheets(quot;Bid - In progressquot;).Select
Range(quot;I8quot;).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(quot;Recipt formquot;).Select
ActiveSheet.Paste
Range(quot;E18:I18quot;).Select
Sheets(quot;Bid - In progressquot;).Select
Range(quot;E8quot;).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(quot;Recipt formquot;).Select
Range(quot;E18:I18quot;).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Which cells change, and how do they change. Can you specify how one would
objectively determine which cells are to be affected, or is it purely
subjective?

Provide a little detail and you may get some help. Otherwise, this is too
vague a request.

quot;DonTquot; wrote:

gt; I need some help! I have a workbook which has four sheets, the two that
gt; matter are named work in progress and receipt. My problem is that I need to
gt; copy the name, address, city, state, and zip code from the in progress sheet
gt; to the receipt sheet, one at a time and place them in the proper order. The
gt; problem with the macro is the range is set at the time of the recording, and
gt; the cells change each time I use it.
gt; This is the macro that I recorded. I’m NOT a programer, I can record a
gt; macro and understand VERY little of visual basic. Can anyone help me???
gt; Thank you
gt; Don
gt;
gt; Range(quot;C8quot;).Select
gt; Selection.Copy
gt; Sheets(quot;Recipt formquot;).Select
gt; Range(quot;E15quot;).Select
gt; ActiveSheet.Paste
gt; Range(quot;E16:I16quot;).Select
gt; Sheets(quot;Bid - In progressquot;).Select
gt; Range(quot;F8quot;).Select
gt; Application.CutCopyMode = False
gt; Selection.Copy
gt; Sheets(quot;Recipt formquot;).Select
gt; Range(quot;E16:I16quot;).Select
gt; ActiveSheet.Paste
gt; Range(quot;E17quot;).Select
gt; Sheets(quot;Bid - In progressquot;).Select
gt; Range(quot;G8quot;).Select
gt; Application.CutCopyMode = False
gt; Selection.Copy
gt; Sheets(quot;Recipt formquot;).Select
gt; ActiveSheet.Paste
gt; Range(quot;G17quot;).Select
gt; Sheets(quot;Bid - In progressquot;).Select
gt; Range(quot;H8quot;).Select
gt; Application.CutCopyMode = False
gt; Selection.Copy
gt; Sheets(quot;Recipt formquot;).Select
gt; ActiveSheet.Paste
gt; Range(quot;I17quot;).Select
gt; Sheets(quot;Bid - In progressquot;).Select
gt; Range(quot;I8quot;).Select
gt; Application.CutCopyMode = False
gt; Selection.Copy
gt; Sheets(quot;Recipt formquot;).Select
gt; ActiveSheet.Paste
gt; Range(quot;E18:I18quot;).Select
gt; Sheets(quot;Bid - In progressquot;).Select
gt; Range(quot;E8quot;).Select
gt; Application.CutCopyMode = False
gt; Selection.Copy
gt; Sheets(quot;Recipt formquot;).Select
gt; Range(quot;E18:I18quot;).Select
gt; ActiveSheet.Paste
gt; Application.CutCopyMode = False
gt; End Sub

In my workbook there is four sheets, the two that matter are named work in
progress and receipt. My problem is that I need to copy the customer’s name
from in progress and put it on receipt, then copy the address, then city,
then state, and then zip code from the in progress to the receipt, placing
them in the proper order. Each customer’s name is on a row, the first one may
start at C4 for the name, the address is F4, state is G4 and so on. The next
customer’s name that I need may start at C8 for the name , address F8, state
G8. The problem with the macro that I recorded is it is set at C8, I need to
be able to pick which customer’s name and address.
This is the macro that I recorded.
Thank you
Donquot;Duke Careyquot; wrote:

gt; Which cells change, and how do they change. Can you specify how one would
gt; objectively determine which cells are to be affected, or is it purely
gt; subjective?
gt;
gt; Provide a little detail and you may get some help. Otherwise, this is too
gt; vague a request.
gt;
gt; quot;DonTquot; wrote:
gt;
gt; gt; I need some help! I have a workbook which has four sheets, the two that
gt; gt; matter are named work in progress and receipt. My problem is that I need to
gt; gt; copy the name, address, city, state, and zip code from the in progress sheet
gt; gt; to the receipt sheet, one at a time and place them in the proper order. The
gt; gt; problem with the macro is the range is set at the time of the recording, and
gt; gt; the cells change each time I use it.
gt; gt; This is the macro that I recorded. I’m NOT a programer, I can record a
gt; gt; macro and understand VERY little of visual basic. Can anyone help me???
gt; gt; Thank you
gt; gt; Don
gt; gt;
gt; gt; Range(quot;C8quot;).Select
gt; gt; Selection.Copy
gt; gt; Sheets(quot;Recipt formquot;).Select
gt; gt; Range(quot;E15quot;).Select
gt; gt; ActiveSheet.Paste
gt; gt; Range(quot;E16:I16quot;).Select
gt; gt; Sheets(quot;Bid - In progressquot;).Select
gt; gt; Range(quot;F8quot;).Select
gt; gt; Application.CutCopyMode = False
gt; gt; Selection.Copy
gt; gt; Sheets(quot;Recipt formquot;).Select
gt; gt; Range(quot;E16:I16quot;).Select
gt; gt; ActiveSheet.Paste
gt; gt; Range(quot;E17quot;).Select
gt; gt; Sheets(quot;Bid - In progressquot;).Select
gt; gt; Range(quot;G8quot;).Select
gt; gt; Application.CutCopyMode = False
gt; gt; Selection.Copy
gt; gt; Sheets(quot;Recipt formquot;).Select
gt; gt; ActiveSheet.Paste
gt; gt; Range(quot;G17quot;).Select
gt; gt; Sheets(quot;Bid - In progressquot;).Select
gt; gt; Range(quot;H8quot;).Select
gt; gt; Application.CutCopyMode = False
gt; gt; Selection.Copy
gt; gt; Sheets(quot;Recipt formquot;).Select
gt; gt; ActiveSheet.Paste
gt; gt; Range(quot;I17quot;).Select
gt; gt; Sheets(quot;Bid - In progressquot;).Select
gt; gt; Range(quot;I8quot;).Select
gt; gt; Application.CutCopyMode = False
gt; gt; Selection.Copy
gt; gt; Sheets(quot;Recipt formquot;).Select
gt; gt; ActiveSheet.Paste
gt; gt; Range(quot;E18:I18quot;).Select
gt; gt; Sheets(quot;Bid - In progressquot;).Select
gt; gt; Range(quot;E8quot;).Select
gt; gt; Application.CutCopyMode = False
gt; gt; Selection.Copy
gt; gt; Sheets(quot;Recipt formquot;).Select
gt; gt; Range(quot;E18:I18quot;).Select
gt; gt; ActiveSheet.Paste
gt; gt; Application.CutCopyMode = False
gt; gt; End Sub

arrow
arrow
    全站熱搜
    創作者介紹
    創作者 software 的頭像
    software

    software

    software 發表在 痞客邦 留言(0) 人氣()