[Insiders]

#excel #vba

Siema!

Bede miał dziś kolka pytań bo kiedyś jak miałem czas to zrobiłem kumplowi małe makro do jego pliku ale trzeba je przerobić i tu zwracam się do Was z prośbą o pomoc.

Obecnie mam takie makro jak poniżej i to mi kopiuje z aktywnego arkusza do nowego pliku i go zapisuje pod jakas tam nazwa.

Potrzebuje zeby kopiowało mi wszytskie 3 arkusze do nowego pliku. Reszta bez zmian.

Możecie cos doradzić?

Nie jestem aż takim mózgiem. Kiedyś miałem czas to wiecej siedzialem i czytalem a teraz mam go mniej i prosilbym o pomoc i naprowadzenie ewentualnie gotowca :)

Thx

Sub Makro2()
'
' Makro2 Makro
'
Dim tekst As String, sPath As String
sPath = ActiveWorkbook.Path & "\"

 Columns("A:L").Copy
 Workbooks.Add
 ActiveSheet.Paste
 Range("A1").Select
 tekst = InputBox("Wprowadź nazwę pliku!")
 ActiveWorkbook.SaveAs sPath & tekst & ".xlsx"
 ActiveWindow.Close
 Range("A1").Select

Application.ScreenUpdating = True

End Sub

[DarkAlchemy]

@Insiders:

Sheets(Array("Sheet1","Sheet2","Sheet3")).Select
Sheets(Array("Sheet1","Sheet2","Sheet3")).Copy
ActiveWorkbook.SaveAs Filename:="ścieżka",

[Insiders]

@DarkAlchemy: a powiedz mi tylko bo mam w tym głownym pliku przyciski do makro, one też sie skopiują? Bo wolalbym włąśnie nie dlatego tam wcześniej zrobiłem sobie że kolumny od A do L.. W ogole nie chce zeby makro kopiowalo tylko same wartości ze tak powiem :)

Thx

[DarkAlchemy]

@Insiders: a, dobra, reszta bez zmian, to zamiast Filename dajesz swój wybór ścieżki :)

[DarkAlchemy]

@Insiders: tak, skopiuja się, jak Ci nie zależy na automatyzacji w 100% to możesz zostawić jak jest, rozszerzenie xlsx i użytkownik będzie musiał kliknąć raz "Tak" i guziki zostaną, ale nie będą działać

[DarkAlchemy]

@Insiders: i wtedy z FileFormat usuwasz MacroEnabled ( ͡° ͜ʖ ͡°)