S
SteveS
I have a workbook that I am trying to use 2 option buttons that use macros to
copy and paste data in one cell in a separate worksheet to 7 other cells in a
row in the same worksheet.
One option button is named CASH and the other is named CREDIT and I want the
macro to copy cell N10 in worksheet 'Markup Calculator' to cells F10:M10 when
the CASH option button is pushed in worksheet 'Print Me - Retail' and then
return to the 'Print Me - Retail' worksheet.
The same for the second options button named CREDIT. I want the same thing
to happen except I want cell N11 to be copied to cells F10:M10 and also
return to the 'Print Me - Retail' worksheet.
Any help would be appreciated. I have tried to recorded the macro sequence
but it seems to get stuck at Range("N10").Select when I try to copy the code
into the:
Sub MacroCash()
'
' MacroCash Macro
' CASH
'
'
Sheets("Markup Calculator").Select
Range("N10").Select
Selection.Copy
Range("F10").Select
ActiveSheet.Paste
Range("G10").Select
ActiveSheet.Paste
Range("H10").Select
ActiveSheet.Paste
Range("I10").Select
ActiveSheet.Paste
Range("J10").Select
ActiveSheet.Paste
Range("K10").Select
ActiveSheet.Paste
Range("L10").Select
ActiveSheet.Paste
Range("M10").Select
ActiveSheet.Paste
Range("F20:G20").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("A1").Select
End Sub
copy and paste data in one cell in a separate worksheet to 7 other cells in a
row in the same worksheet.
One option button is named CASH and the other is named CREDIT and I want the
macro to copy cell N10 in worksheet 'Markup Calculator' to cells F10:M10 when
the CASH option button is pushed in worksheet 'Print Me - Retail' and then
return to the 'Print Me - Retail' worksheet.
The same for the second options button named CREDIT. I want the same thing
to happen except I want cell N11 to be copied to cells F10:M10 and also
return to the 'Print Me - Retail' worksheet.
Any help would be appreciated. I have tried to recorded the macro sequence
but it seems to get stuck at Range("N10").Select when I try to copy the code
into the:
Sub MacroCash()
'
' MacroCash Macro
' CASH
'
'
Sheets("Markup Calculator").Select
Range("N10").Select
Selection.Copy
Range("F10").Select
ActiveSheet.Paste
Range("G10").Select
ActiveSheet.Paste
Range("H10").Select
ActiveSheet.Paste
Range("I10").Select
ActiveSheet.Paste
Range("J10").Select
ActiveSheet.Paste
Range("K10").Select
ActiveSheet.Paste
Range("L10").Select
ActiveSheet.Paste
Range("M10").Select
ActiveSheet.Paste
Range("F20:G20").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("A1").Select
End Sub