X
ďťż

Mefisto...diabeł czy anioł?

Witam,
Takim kodem zapisuję:

Sub zapisz_kopie()
' pobranie wartości z arkusza
biezacy_katalog = ThisWorkbook.Path
katalog_pliku = ActiveSheet.Range("o16").Value
Nazwa = Format(ActiveSheet.Range("c11").Value, "dd.mm.yyyy") & "_" & Format(ActiveSheet.Range("l15").Value, "0000") & "_" & Format(ActiveSheet.Range("w3").Value, "sc") & "_" & Format(ActiveSheet.Range("w4").Value, "mag") & "_" & Format(ActiveSheet.Range("o338").Value)

On Error Resume Next
' utworzenie katalogu, jeśli już istnieje wystapi błąd i pominięcie tej linii
MkDir biezacy_katalog & "\" & katalog_pliku
On Error GoTo 0
' zapisanie kopii
ActiveWorkbook.SaveCopyAs biezacy_katalog & "\" & katalog_pliku & "\" & Nazwa & ".xls"
MsgBox "Zapis zakończony    "

Application.Quit
Application.DisplayAlerts = False

End Sub

Chcę aby zapisywało tylko wartości w odkrytych wierszy i kolumn, bez makr, filtrów, formuł. Ale z formatowaniem (szerkość kolumn, wyskość wiersza, czcionka itd).
Próbowałem nagrać takie makro ale kwiatki mi wychodziły więc piszę

Pozdrawiam,
Piotr

Ps. A jeszcze lepiej żeby była możliwość wyboru, zapisuje tak jak w powyższym kodzie lub tak jak piszę czyli tylko wartości.
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • katkaras.opx.pl

    • Drogi uzytkowniku!

    W trosce o komfort korzystania z naszego serwisu chcemy dostarczac Ci coraz lepsze uslugi. By moc to robic prosimy, abys wyrazil zgode na dopasowanie tresci marketingowych do Twoich zachowan w serwisie. Zgoda ta pozwoli nam czesciowo finansowac rozwoj swiadczonych uslug.

    Pamietaj, ze dbamy o Twoja prywatnosc. Nie zwiekszamy zakresu naszych uprawnien bez Twojej zgody. Zadbamy rowniez o bezpieczenstwo Twoich danych. Wyrazona zgode mozesz cofnac w kazdej chwili.

     Tak, zgadzam sie na nadanie mi "cookie" i korzystanie z danych przez Administratora Serwisu i jego partnerow w celu dopasowania tresci do moich potrzeb. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

     Tak, zgadzam sie na przetwarzanie moich danych osobowych przez Administratora Serwisu i jego partnerow w celu personalizowania wyswietlanych mi reklam i dostosowania do mnie prezentowanych tresci marketingowych. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

    Wyrazenie powyzszych zgod jest dobrowolne i mozesz je w dowolnym momencie wycofac poprzez opcje: "Twoje zgody", dostepnej w prawym, dolnym rogu strony lub poprzez usuniecie "cookies" w swojej przegladarce dla powyzej strony, z tym, ze wycofanie zgody nie bedzie mialo wplywu na zgodnosc z prawem przetwarzania na podstawie zgody, przed jej wycofaniem.