Buton

%3CLINGO-SUB%20id%3D%22lingo-sub-1576514%22%20slang%3D%22en-US%22%3EButon%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1576514%22%20slang%3D%22en-US%22%3E%3CP%3EHi%20all%26nbsp%3B%3C%2FP%3E%3CP%3EI%20need%20around%2040%20micros%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ESub%20CopyAndPaste1()%3CBR%20%2F%3E'%3CBR%20%2F%3E'%20CopyAndPaste4%20Macro%3CBR%20%2F%3E'%3C%2FP%3E%3CP%3E'%3CBR%20%2F%3ERange(%22C2%22).Select%3CBR%20%2F%3ESelection.Copy%3CBR%20%2F%3ESheets(%22Outbound%20A%22).Select%3CBR%20%2F%3EActiveSheet.Paste%3CBR%20%2F%3ESheets(%22LIST%22).Select%3CBR%20%2F%3ERange(%22C2%22).Select%3CBR%20%2F%3EEnd%20Sub%3CBR%20%2F%3ESub%20CopyAndPaste2()%3CBR%20%2F%3E'%3CBR%20%2F%3E'%20CopyAndPaste2%20Macro%3CBR%20%2F%3E'%3C%2FP%3E%3CP%3E'%3CBR%20%2F%3ERange(%22C3%22).Select%3CBR%20%2F%3ESelection.Copy%3CBR%20%2F%3ESheets(%22Outbound%20A%22).Select%3CBR%20%2F%3EActiveSheet.Paste%3CBR%20%2F%3ESheets(%22LIST%22).Select%3CBR%20%2F%3ERange(%22C2%22).Select%3CBR%20%2F%3EEnd%20Sub%3CBR%20%2F%3ESub%20CopyAndPaste3()%3CBR%20%2F%3E'%3CBR%20%2F%3E'%20CopyAndPaste4%20Macro%3CBR%20%2F%3E'%3C%2FP%3E%3CP%3E'%3CBR%20%2F%3ERange(%22C4%22).Select%3CBR%20%2F%3ESelection.Copy%3CBR%20%2F%3ESheets(%22Outbound%20A%22).Select%3CBR%20%2F%3EActiveSheet.Paste%3CBR%20%2F%3ESheets(%22LIST%22).Select%3CBR%20%2F%3ERange(%22C2%22).Select%3CBR%20%2F%3EEnd%20Sub%3CBR%20%2F%3ESub%20CopyAndPaste4()%3CBR%20%2F%3E'%3CBR%20%2F%3E'%20CopyAndPaste4%20Macro%3CBR%20%2F%3E'%3C%2FP%3E%3CP%3E'%3CBR%20%2F%3ERange(%22C5%22).Select%3CBR%20%2F%3ESelection.Copy%3CBR%20%2F%3ESheets(%22Outbound%20A%22).Select%3CBR%20%2F%3EActiveSheet.Paste%3CBR%20%2F%3ESheets(%22LIST%22).Select%3CBR%20%2F%3ERange(%22C2%22).Select%3CBR%20%2F%3EEnd%20Sub%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3Esome%20thing%20like%20this%26nbsp%3B%3C%2FP%3E%3CP%3Eis%20there%20any%20ease%20way%20to%20do%20it%20then%20writing%20them%20all%20%3F%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-1576514%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EDeveloper%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EMacros%20and%20VBA%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1577431%22%20slang%3D%22en-US%22%3ERe%3A%20Buton%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1577431%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F722142%22%20target%3D%22_blank%22%3E%40beikme%3C%2FA%3E%26nbsp%3BNot%20sure%20what%20you%20are%20trying%20to%20achieve%20her%2C%20but%20the%20macros%20just%20copy%20whatever%20is%20in%20cell%20C2%2C%20C3%2C%20C4%20etc.%20(presumably%20from%20the%20LIST%20sheet)%20into%20the%20%3CSTRONG%3Eactive%20cell%3C%2FSTRONG%3E%26nbsp%3Bon%20the%20%22Outbound%20A%22%20sheet.%20So%2C%20if%20that%20is%20cell%20B10%2C%20after%2040%20times%2C%20%26nbsp%3BB10%20on%26nbsp%3B%22Outbound%20A%22%20will%20show%20the%20value%20of%20C41%20from%20LIST.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EIf%20your%20intention%20is%20to%20copy%20a%20range%20from%20LIST%2C%20like%20C2%3AC41%20and%20paste%20it%20e.g.%20in%20A1%20and%20down%20on%26nbsp%3B%22Outbound%20A%22%2C%20use%20something%20like%20the%20following%3A%3C%2FP%3E%3CPRE%20class%3D%22lia-code-sample%20language-visual%22%3E%3CCODE%3ESub%20CopyAndPaste1()%0A%0A%20%20%20%20Sheets(%22LIST%22).Select%0A%20%20%20%20Range(%22C2%3AC41%22).Select%0A%20%20%20%20Selection.Copy%0A%20%20%20%20Sheets(%22Outbound%20A%22).Select%0A%20%20%20%20Range(%22A1%22).Select%0A%20%20%20%20ActiveSheet.Paste%0A%0AEnd%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1577508%22%20slang%3D%22de-DE%22%3ESubject%3A%20Buton%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1577508%22%20slang%3D%22de-DE%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F722142%22%20target%3D%22_blank%22%3E%40beikme%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CSPAN%20class%3D%22tlid-translation%20translation%22%3E%3CSPAN%20class%3D%22%22%3EHope%20with%20permission%20%20from%20Riny_van_Eekelen%20%3CLI-EMOJI%20id%3D%22lia_slightly-smiling-face%22%20title%3D%22%3Aslightly_smiling_face%3A%22%3E%3C%2FLI-EMOJI%3E%3C%2FSPAN%3E%3CBR%20%2F%3E%20%3CSPAN%20class%3D%22%22%3EI%20have%20completed%20this%20simple%20workbook%20for%20you.%3C%2FSPAN%3E%20%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%3CSPAN%20class%3D%22tlid-translation%20translation%22%3E%3CSPAN%3EThere%20is%20a%20built-in%20module%20that%20can%20be%20called%20up%20as%20a%20macro%20in%20every%20page%20via%20a%20button.%3C%2FSPAN%3E%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CSPAN%20class%3D%22tlid-translation%20translation%22%3E%3CSPAN%3E%3CSPAN%20class%3D%22%22%3EI%20would%20be%20happy%20to%20know%20if%20we%20could%20help%20you.%3C%2FSPAN%3E%3C%2FSPAN%3E%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ENikolino%3C%2FP%3E%3CP%3EI%20know%20I%20don't%20know%20anything%20(Socrates)%3C%2FP%3E%3C%2FLINGO-BODY%3E
Contributor

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

@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

 

@beikme 

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)