Loop code med VBA
Hvordan kan jeg køre loop på denne code.Det coden gør er at kopier data fra en fil (Filepath)
Jeg har et Range/"D7:D37") med stier til de excel ark jeg gerne vil kopier fra.
Sub Copy()
Dim wbk2 As Workbook
Dim wsSheet2 As Worksheet
With Sheets("Oversigt").Select
filepath = Range("D7")
If filepath = False Then
End If
Set wbk2 = Workbooks.Open(filepath)
End With
With wbk2.Sheets("Aktuelle aftaler").Activate
lastrow1 = Range("A3").End(xlDown).Row
Range("B3:AG" & lastrow1).Copy
End With
Workbooks(MyName).Activate
With Sheets("Aftaledatabase").Select
lastrow2 = Range("A2").End(xlDown).Offset(1, 0).Row
Range("A" & lastrow2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End Sub
