Forum Discussion
Buton
Hi all
I need around 40 micros
Sub CopyAndPaste1()
'
' CopyAndPaste4 Macro
'
'
Range("C2").Select
Selection.Copy
Sheets("Outbound A").Select
ActiveSheet.Paste
Sheets("LIST").Select
Range("C2").Select
End Sub
Sub CopyAndPaste2()
'
' CopyAndPaste2 Macro
'
'
Range("C3").Select
Selection.Copy
Sheets("Outbound A").Select
ActiveSheet.Paste
Sheets("LIST").Select
Range("C2").Select
End Sub
Sub CopyAndPaste3()
'
' CopyAndPaste4 Macro
'
'
Range("C4").Select
Selection.Copy
Sheets("Outbound A").Select
ActiveSheet.Paste
Sheets("LIST").Select
Range("C2").Select
End Sub
Sub CopyAndPaste4()
'
' CopyAndPaste4 Macro
'
'
Range("C5").Select
Selection.Copy
Sheets("Outbound A").Select
ActiveSheet.Paste
Sheets("LIST").Select
Range("C2").Select
End Sub
some thing like this
is there any ease way to do it then writing them all ?
2 Replies
Hope with permission from Riny_van_Eekelen 🙂
I have completed this simple workbook for you.There is a built-in module that can be called up as a macro in every page via a button.
I would be happy to know if we could help you.
Nikolino
I know I don't know anything (Socrates)
beikme Not sure what you are trying to achieve her, but the macros just copy whatever is in cell C2, C3, C4 etc. (presumably from the LIST sheet) into the active cell on the "Outbound A" sheet. So, if that is cell B10, after 40 times, B10 on "Outbound A" will show the value of C41 from LIST.
If your intention is to copy a range from LIST, like C2:C41 and paste it e.g. in A1 and down on "Outbound A", use something like the following:
Sub CopyAndPaste1() Sheets("LIST").Select Range("C2:C41").Select Selection.Copy Sheets("Outbound A").Select Range("A1").Select ActiveSheet.Paste End Sub
