mrmattllewellyn
New Member
- Joined
- Nov 26, 2021
- Messages
- 2
- Office Version
- 2016
- Platform
- Windows
Hi All,
Please can you help! I'm new to Macro/VBA I have made the below and I would like to have this repeat on each row that has data in the spreadsheet.
Please can you help! I'm new to Macro/VBA I have made the below and I would like to have this repeat on each row that has data in the spreadsheet.
VBA Code:
Range("F2").Select
Selection.Copy
Windows("Storage bin type calculator -Matt Copy.xlsm").Activate
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("17.11.2021 Matt - Do Not Delete.xlsm").Activate
Range("G2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Storage bin type calculator -Matt Copy.xlsm").Activate
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("17.11.2021 Matt - Do Not Delete.xlsm").Activate
Range("H2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Storage bin type calculator -Matt Copy.xlsm").Activate
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("17.11.2021 Matt - Do Not Delete.xlsm").Activate
Range("L2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Storage bin type calculator -Matt Copy.xlsm").Activate
Range("P7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("17.11.2021 Matt - Do Not Delete.xlsm").Activate
Range("M2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L3").Select
End Sub