Hej !
Skulle behöva hjälp med följande.
Jag har en gammal kod som jag använt innan till liknande som jag bifogar, Koden stannar på Activesheet.Paste
Bifogar koden nedan !
Sub Makro1() |
|
Dim Sökväg As String |
Dim Fil As String |
Dim i As Integer |
Dim wb As Workbook |
|
'Kopierar valt område |
Range("K2").Select |
Selection.Copy |
|
Application.ScreenUpdating = False |
Sökväg = min väg.xls" |
i = 1 |
Fil = Dir(Sökväg) |
Do While Fil <> "" |
|
Set wb = Workbooks.Open(Left(Sökväg, InStr(1, Sökväg, "*") - 1) & Fil) |
|
Sheets("Sheet4").Select |
|
'Klistrar in värdet |
Range("K2").Select |
ActiveSheet.Paste |
|
Application.CutCopyMode = False |
Sheets("Blad1").Select |
ActiveWorkbook.Save |
|
wb.Close False |
Fil = Dir |
Application.StatusBar = i & " : " & Fil |
i = i + 1 |
Loop |
|
Application.StatusBar = False |
Application.ScreenUpdating = True |
|
End Sub |
Tacksam för hjälp :)
MVH