Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 64034 Skopiuj do schowka Zapisz wybrany arkusz
Autor Wiadomość
Lukasz125 
Fan Excela


Pomógł: 2 razy
Posty: 65
Wysłany: 04-02-2019, 20:19   Zapisz wybrany arkusz

Witam mam problem z makrem które ma zapisać wybrany arkusz do nowego dokumentu i stworzyć hiperłącze. Makro zapisywało cały skoroszyt i działało ale jak zacząłem szukać opcji zapisania tylko 2 arkusza to otwiera co prawda nowy zeszyt z 2 arkuszem ale nie zapisuje go w określonej lokalizacji i określonej nazwie.
Kod:
Sub skopiuj()
    Dim nazwa As String
    Dim path As String
    Dim ZL As Variant
    Dim hiper As String

    ZL = Workbooks("Zlecenie produkcji.xlsm").Sheets(1).Range("A2").Value
    nazwa = Workbooks("Zlecenie produkcji.xlsm").Sheets(1).Range("F6").Value
    hiper = Workbooks("Zlecenie produkcji.xlsm").Sheets(1).Range("A2").Value
    nazwa = Range("F6").Value
    path = "D:\"
    fileSaveName = path & nazwa & ".xlsm"
   
    Workbooks("Zlecenie produkcji.xlsm").Sheets(2).Copy
   
    'znajdź miejsce na hiper łącze
    Workbooks("REJESTR ZLECEŃ").Worksheets("ZLECENIA 2018").Activate
    Workbooks("REJESTR ZLECEŃ").Worksheets("ZLECENIA 2018").Range("A2:R10000").Find(ZL, lookat:=xlPart).Select
    Workbooks("REJESTR ZLECEŃ").Worksheets("ZLECENIA 2018").Hyperlinks.Add Anchor:= _
    Selection, Address:=fileSaveName, TextToDisplay:=hiper
   
 
End Sub
ID posta: 361947 Skopiuj do schowka
 
 
Tajan


Pomógł: 4258 razy
Posty: 9475
Wysłany: 04-02-2019, 20:57   

Po:
Kod:
 Workbooks("Zlecenie produkcji.xlsm").Sheets(2).Copy
dodaj:
Kod:
ActiveWorkbook.SaveAs fileSaveName
ID posta: 361952 Skopiuj do schowka
 
 
Lukasz125 
Fan Excela


Pomógł: 2 razy
Posty: 65
Wysłany: 04-02-2019, 21:06   

Działa idealnie, musiałem tylko zmienić rozszerzenie pliku z xlsm na xlx ale tak może być.
ID posta: 361953 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe