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