Najprawdopodobniej zaznaczasz >1 komórkę. Dopisz warunek: [syntax=vb]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Index > 10 Then If Target.Cells.Count = 1 Then If Target.Address(0, 0) = "A1" And Target.Value <> "" Then Sh.Name = Target.Value End If End If End If End Sub[/syntax]
knc = Format(Date -1, "rrrr-mm-dd") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\ateresko\Desktop\New folder\Green Raport" & knc & ".pdf"
Tak ma być?
[syntax=vb]Dim przed Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long With Target If .Cells.Count > 1 Then Exit Sub If .Column > 5 Or .Column < 3 Then Exit Sub End With If Target.Value = przed Then Exit Sub Application.EnableEvents = False i = Target.Row Range("A" & i).Value = Environ("Username") Range("B" & i).Value...
Zrobiłem tak, jak to zwykle robią zawodowcy ;) 1. Nagrałem sobie makro przy zapisywaniu. Wyszło takie coś: [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Adam\Desktop\Zeszyt1.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=...
[syntax=vbscript]Pthnm = ActiveWorkbook.Path Workbooks.Open Pthnm & "\" & Sheets("nazwa_arkusza").Range("Y1")[/syn... Założenie jak wcześniej. Oba pliki umieszczone w tym samym folderze. W komórce Y1 znajduje się dokładna nazwa pliku łącznie z rozszerzeniem. Powinno działać.
[syntax=vbscript]For i = 2 To lastrowA nazwa = Cells(i, 2) Workbooks.Add ActiveWorkbook.SaveAs ("C:\Users\Uzytkownik\Desktop\FOLDER\" & "nowy" & nazwa & ".xls") ActiveWorkbook.Close Next i[/syntax]
Wszystko mi działa... Jeśli wszystko oprócz sortowania, to nie mamy wielkiego pola manewru. Spróbuj to wykonać bez apostrofów dla sortowanego pola. Potem - jeśli dalej nic, usuń słowo kluczowe ASC. I koniecznie sprawdź, czy pole nazwa rzeczywiście zapisałeś jako nazwa.
Przykład korzystania z okna zapisywania z filtrem ZapiszJako = Application.GetSaveAsFilename(fileFi... Excel (*.xls), *.xls") I jeśli domyślna ścieżka i nazwa z komórki to sciezka = Application.DefaultFilePath & "\" nazwa = Range("A1").Value ZapiszJako = Application.GetSaveAsFilename(Initia...
Do zmiennej dato powinna być przypisana nazwa podfolderu.
W pełni zgadzam się z kolegą adamas_nt co do znaków, które może zawierać nazwa pliku. Chcę tylko zwrócić uwagę na drobny błąd, który zakradł się do jego kodu: ActiveWorkbook.SaveAs Filename:=ActiveCell.Value & ".xlsx", FileFormat:=xlOpenXMLWorkbookMacroEn... Aby to działało prawidłowo wystarczy zamienić "Value" na "Text". Różnica...
[syntax=vb]Sub sciezki() Dim sciezka As Variant 'opcja1 - na tablicy sciezka = "c:\moje dokumenty\wiesiek\plik 123.xlsx" sciezka = Split(sciezka, "\") nazwa = sciezka(UBound(sciezka)) ReDim Preserve sciezka(UBound(sciezka) - 1) 'obcinamy ostatnią część tablicy sciezka = Join(sciezka, "\") 'kleimy na nowo MsgBox nazwa MsgBox sciezka 'opcja2 - na pozycji...
Musisz jakoś wskazać z którego arkusza chcesz usunąć dane. Excel (makro) to nie jasnowidz. Albo ustawisz stałą nazwę abo jak radził kolega walek wykorzystasz indeks arkusza (lub jego nazwę w VBA) Czyli zastąp Sheets("1").Select Sheets(2).Select (ale wtedy arkusz z którego usuwamy musi być drugi w kolejności) lub Arkusz2.Select (Arkusz2 to nazwa obiektu...
przy każdym zamknięciu w kodzie skoroszytu(zeszytu)[syntax=vb] Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.SaveCopyAs "Z:\kopia " & Date & " " & Time 'tu lokalizacja, nazwa End Sub[/syntax]
Tu jest szczęście[syntax=vb] Sub KopiaRobocza() Dim nazwa As String Dim path As String nazwa = Range("H19").Value path = "C:\" fileSaveName = path & nazwa & ".xlsx" ThisWorkbook.Worksheets("Kopia robocza").Range("A1:D45").Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteValues ActiveWorkbook.SaveAs fileSaveName Application.OnKey "~", "SomeActions"...
Propozycja z obszarem pomocniczym wydaje mi się rozsądna, bo można łatwo sprawdzić, co oznacza to "najwięcej", bo w jednym przypadku może to być 1, a w innym 4. Ponadto gdy kilku sprzedawców ma tyle samo, to formuła wskazuje pierwszego na liście. Gdyby miała wskazywać wszystkich, to byłoby to dużo bardziej skomplikowane, nie mówiąc już o tym, gdzie...
Przedstawione makro nie do końca tylko "zapisuje jako" plik. Ono tworzy nowy plik kopiuje odpowiednie dane (arkusze) zapisuje go pod pewna nazwa i go zamyka. Przy czym, ponieważ jest wyłączony "podgląd", nie widzisz wszystkich kroków. Też tak chcesz stworzyć plik? Czy wystarczy ci "zwykłe" zapisz jako - czyli plik nazwijmy go źródłowym, na którym włączysz...
Jak zrobić odwołanie do arkusza w innym skoroszycie_2 gdzie nazwa arkusza to pozycja "A2" ze skoroszytu_1? =[skoroszyt2.xlsx]nazwa_arkusza!... nazwa_arkusza = pozycja A2 z dowolnego arkusza skoroszytu_1 Użyj funkcji [syntax=vb]=ADR.POŚR(A2)[/syntax] A dokładniej [syntax=vb]=ADR.POŚR("[skoroszyt2.xlsx]"...
arkusz i zapisał go w tym samym skoroszycie ale pod nazwa wzięta z komórki. Następnie zapisał by plik w określonym miejscu z nazwa rownież z określonej komórki. Napisz do wyjaśnienia adresów tych komórek. Ponadto sciezku dla zapisu Dodano po 1 [syntax=vb] Sub Kolejny_dzen() Sciezka = "D:\tmp\" '- to dopasuj do swoich potreb plik = Sciezka & Format(Int((Date...
W B2 sama nazwa bez rozszerzenia, pilik będzie na C: [syntax=vbscript]Sub elka() Open "c:\" & Range("B2") & ".dxf" For Output As #1 For Each c In Range("A7:A30") Print #1, c Next Close #1 End Sub[/syntax]
chciabym uniknąć duplikowania się wartości (nazwisk) wstawianych w jednej kolumnie za pomocą listy A może w ogóle wykluczyć z listy już użyte? W przykładzie lista dynamiczna jako nazwa + kolumny pomocnicze.
jednakże z każdym nowym dniem zmienia się nazwa samego pliku ... i pewnie jest jakaś zależność tej nazwy, prawda?
Dobry wieczór, Pierwsze pytanie, czy to ma być rozwiązanie w Excelu, czy w Visual Basicu? Jeżeli w Excelu, to można wykorzystać iteracje, żeby w ciągu znaków znaleźć pierwszą literę. Zakładam, że pierwsza litera to początek nazwy miasta. Aby zrealizować obliczenia iteracyjne, należy w opcjach Excela zezwolić na iteracje. Potrzebna też będzie komórka...
lecz widoczny wynik to sam wiersz Sumy A jaki zakres komórek obejmuje nazwa Cena :?: :D Jeśli chcesz sumować "tylko widoczne" - zmień formułę na =SUMY.CZĘŚCIOWE(9;[Cena]) :idea:
W złym miejscu miałeś to dopisane. Przecież to chodziło o metodę GetSaveAsFilename, a nie o SaveAs. [syntax=vbnet]Private Sub CommandButton1_Click() Dim plik plik = Application.GetSaveAsFilename(Sheets("il... & ".xls", "pliki excel (*.xls), *.xls") If plik <> False Then ActiveWorkbook.SaveAs plik End Sub[/syntax]
xlOpenXMLWorkbook - ma byc .xlsx, byc moze juz jest ta nazwa pliku Dodano po 4 Sprobuj ActiveWorkbook.Saveas "nazwa", xlOpenXMLWorkbook
Jesli tak: [syntax=vb]Arkusz1.Cells(w, kol).Copy Arkusz21.Cells(poz, kol_doc)[/syntax] Ponadto czy istnieje Arkusz21 ? Nie nazwa wkladki, tylko kodowa nazwa(widoczna w edytorze VBA)
[syntax=vbscript]nazwa = ActiveCell.Value With ThisWorkbook .Sheets("wzor rodzinne").Copy ActiveWorkbook.SaveAs .Path & "\rodzinne\" & _ nazwa & ".xls" ActiveWorkbook.Close End With[/syntax]
Nie wiem, czy dobrze zrozumiałem, bo opis jest średnio zrozumiały i tylko jeden przykład, ale sprawdź w załączniku. Nazwa 'ww' oznacza wybrany wiersz i jest zdefiniowana w Menedżerze nazw, żeby formuła była bardziej czytelna. Kolorami zaznaczyłem typowe i skrajne przypadki, żeby łatwiej zweryfikować, czy takich oczekiwałeś wyników. Nie napisałeś też...
Przypisz nazwę dla zakresu np. A2:A20 w arkuszu '2' Dla A4 użyj 'Poprawność danych' - lista, żródło - nazwa zakresu Dla B4, E4 - funkcja WYSZUKAJ.PIONOWO
Dla twojego przypadku z załącznika. *dane aktualizowane są w arkusz 1 Tworzysz arkusz roboczy z całą aktualną bazą *niech będzie to w arkusz 2. Kolumny J K L uzupełniasz tak jak chcesz.*Najlepiej by było jakby wartości z kolumny M były przed J K L *czyli z przodu W arkusz 1 w kolumnach J K L używasz formuły wyszukaj.pionowo: Jeżeli będziesz miał problemy...
że DEST_COORD może się kilka razy powtórzyć [syntax=vbscript]SelectSingleNode[/synta... jak sama nazwa wskazuje daje ci tylko jedno wystąpienie musisz użyć [syntax=vbscript]selectnodes[/syntax]
Masz dwa przykłady, wybierz sobie pasujący lub skoryguj pod własne potrzeby. 912573 Przyjrzyj się nazewnictwu przycisków, ale nie temu na samych przyciskach, tylko ich nazwom kodowym - w nazwie każdego z nich znajduje się nazwa tabeli, której dotyczy - to identyfikator: 912574
Powinieneś dodać własny skoroszyt jako przykład, co chcesz osiągnąć, bo w Excelu różne drogi prowadzą do celu. W każdym razie jeśli używasz funkcji ADR.POŚR, to jej pierwszy (a często jedyny) argument musi być w cudzysłowie - jeśli oznacza adres, z którego chcemy pobrać dane. Natomiast bez cudzysłowu - jeśli to jest komórka, która dopiero zawiera potrzebny...
Istnieje kilka sposobów zapisu odwołań do zakresów komórek w różnych arkuszach. Odwołanie bezpośrednie w stylu Excela: [syntax=vbscript]Range("'Samochód części automatic (2)'!B2#")[/syntax]Nazwa arkusza jest fragmentem adresu zakresu. Nazwę arkusza umieszczamy w apostrofach jeśli zawiera spacje, znaki specjalne lub jest liczbą; oddzielamy od adresu...
W Twoim kodzie było: [syntax=vbscript]ActiveWorkbook.Close[/s... tę linijkę po prostu przepisałem. Gdy zapisuje się plik pod nową nazwą przez SaveAs, otwarty skoroszyt przyjmuje nazwę zmienioną pod którą był zapis. Nie wiem, czy można zmienić nazwę otwartego skoroszytu inaczej niż przez zapisanie go. Zatem w tym przypadku proponuję ponowny zapis...
chce żeby wyświetlił się msgbox lecz nie zatrzyma on czytania kodu Taka już rola MsgBox'a , żeby zatrzymywał i czekał na decyzję użytkownika. jak powstrzymać otwieranie nowego arkusza jak jego nazwa się powtórzy?? Excel z pewnością nie pozwoli na dublowanie nazw arkuszy. Jeśli chodzi o nadawanie nazw musiałbyś najpierw wykonać porównanie i dopiero...
Pole tekstowe, jak sama nazwa wskazuje, zwraca w wyniku tekst. Jeśli taki tekst wpisujemy do komórki arkusza, czasem Excel na podstawie formatowania potrafi rozpoznać właściwy typ danych (np. rozpoznaje czas), ale nie zawsze tak będzie. Jeśli Excel nie potrafi samodzielnie dokonać konwersji, trzeba mu dopomóc i zastosować w kodzie VBA jedną z funkcji...
Polecenie Name powinno działać poprawnie. Nie wiem jaką ma Pan strukturę plików. Możliwe przyczyny błędu: 1. Plik docelowy już istnieje 2. Folder docelowy nie istnieje 3. Plik źródłowy jest otwarty 4. Nazwa pliku zawiera znaki wieloznaczne "*" lub "?"
W Excelu 2016 na lokalnym dysku wszystko działa z tym xls :!: :D Faktycznie w wersjach wcześniejszych trzeba zmienić ten fragment kodu (zacinający się :cry: ) na [syntax=vbscript]ActiveSheet.PivotTables... przestawna1").ChangePivotCache ActiveWorkbook. _ PivotCaches.Create(SourceType:=xlDatabas... SourceData:= _ "'" & Mypath & "\[" & Wbname & "]"...
Po pierwsze: z którym fragmentem nagranego kodu masz problem? Po drugie: Nagraj makro kopiowania całego arkusza do nowego pliku ze zmianą jego (pliku) nazwy. Masz 100% gwarancji zachowania formatowania. Jeśli w arkuszu jest nadmiar danych można dopisać usuwanie. Jeśli jesteś początkujący, to nagrywarka jest podstawą. Przykład: To jest nagrane makro...
Gotowe makro napisane pod Excel 2003: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-09-22, autor sidsysunia ' ' Klawisz skrótu: Ctrl+q ' Sheets("zestawienie").Select p = Range("c1") 'tu sprawdza ile masz pozycji Range("a2:b" & p).Select ' tu zaznacza wszystkie pozycje bez nagłówka Range("a2:b" & p).Copy 'kopiowanie Sheets("przeliczanie").Select...
Funkcja przecież działa. W arkuszu trzeba ją wywołać rows dla zmiennej nie jest najlepszym pomysłem, bo ta nazwa ma swoje specjalne znaczenie w VBA.
Excel potrafi rozróżnić liczbę od tekstu i... to wszystko. W podanym przykładzie wyszukuję słowa kluczowego: nazwa (Chleb, Bułka) i zakładam , że rodzaj jest w następnej kolumnie. Jeśli chcesz to doprowadzić do ideału, musiałbyś zdefiniować tabele z wszystkimi możliwymi wartościami, następnie porównywać z wartościami z wszystkich kolumn. Raczej nie...
A czy dana nie ląduje czasem w innym arkuszu niż zakładasz? Sheets(1) to arkusz o indeksie jeden. Jeśli "1" to nazwa arkusza, to posługuj się nazwą Sheets("1") Poza tym Workbook s ("jeden.xls")
Zdaje się, że przypisujesz źle do newName . Nazwa różni się od newPath , pod którą zapisujesz plik. Sprawdź krokowo. Nie będzie prościej zapisać plik (me.SaveAs) z inną nazwą? Zawartość ma być przecież identyczna. P.S. Kod umieszczaj w znacznikach syntax. Post poprawiłem [mod].
Dopisałem definicję formatowania warunkowego w VBA. Formatowanie odtwarza się automatycznie przy otwieraniu skoroszytu. Szerokość zakresu formatowania jest określona przez zawartość trzeciego wiersza w każdym arkuszu. Wiersze zakresu formatowania są ustalone na stałe. Skoroszyt nie może zawierać innych formatowań warunkowych. Gdyby zawierał, trzeba...
[syntax=vbscript]Private Sub CommandButton2_Click() Sciezka = ActiveWorkbook.Path If MsgBox("Wydrukować wszystkie szychtownice?", vbQuestion + vbYesNo, "Drukowanie") = vbYes Then For x = 6 To 15 s = Sheets("Menu").Cells(x, 1) If s <> "" Then Nazwa = s & "_Szychtownice" Sheets(s).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Sciezka &...
ark = ActiveWorkbook.Sheets(1).Name trzeba bylo po Nazwapliku = ActiveWorkbook.Name Dodano po 1 myslalem ze to logicznie dojdziesz Dodano po 2 bo po ThisWorkbook.Worksheets(1).Activate bedzie nazwa pierwszej wkladki w pliku, w ktorzem makro
Dawno nie zaglądałem na forum i nie spojrzałem że autor założył już temat. A ponieważ zasugerowałem się dawnym (z 2012 roku :) ) kodem kolegi adamas_nt czuję się w obowiązku dołączyć do wątku. :) Przerzucę informację z PW jak przedstawił mi to autor: -- ... Może w skrócie opisze o co mi mniej więcej chodzi: Chciałbym żeby załączony arkusz zaczął żyć...
nazwa arkusz excel nazwa zakres excel nazwa arkusza excel
lodówki bosch opinie system navigation peugeot nierówno
subaru forester edith eberspacher
Instrukcja serwisowa pilota Rotel RSP-976/RR-969 Średnica drutu przy przewijaniu prądnicy – wpływ na rezystancję, napięcie i sprawność
