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]
[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...
Doszedłem do takiej formuły: =ADR.POŚR("'C:\TEST\[&q... & $A1 & ".xlsx]Arkusz1'!$AO$75"... I to prawie działa, bo działa tylko wtedy gdy plik, z którego należy poprać dane jest otwarty. Jak go zamknę formuła zwraca błąd #ADR!...
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...
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"...
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...
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...
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]
[syntax=vbscript]nazwa = ActiveCell.Value With ThisWorkbook .Sheets("wzor rodzinne").Copy ActiveWorkbook.SaveAs .Path & "\rodzinne\" & _ nazwa & ".xls" ActiveWorkbook.Close End With[/syntax]
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...
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:=...
No i jak zrobić żeby wyszukał z kilku arkuszy??? Zrobiłbym tak: Wyszukiwanie i składanie stringu dla etykiety umieściłbym w osobnej funkcji, do której z głównej procedury zdarzeniowej przekazywało by się argumenty: tekst wyszukiwania i nazwa arkusza, a która zwracałaby string dla etykiety. W zależności od tego ile masz magazynów (arkuszy) zastosowałbym...
Proponuję: 1) Zamiast formuły z funkcją JEŻELI zastosować formułę z funkcją MAX. Uniknie się w ten sposób dwukrotnego odwołania do tych samych danych. 2) Jeżeli będziesz przestrzegał zasady, że nowe arkusze są dodawane zawsze na początku (a nie na końcu, jak robi się zazwyczaj), to będziesz potrzebować zawsze odwołań do następnego arkusza w kolejności....
Dobry wieczór, Nie wiem, ile jest tych wzorów i czy będą w nich w danej chwili identyczne ścieżki czy różne. Ale można spróbować tak. W edytorze Visual Basica wpisać sobie proste makro wstawiające do aktywnej komórki albo do komórki o określonym adresie formułę z funkcją WYSZUKAJ.PIONOWO. [syntax=vb]Sub WstawWzor() ActiveCell.FormulaLocal = _ "=WYSZUKAJ.PIONOWO(J6;'C:\Users\user\Des...
Pomijając literówkę w przypisaniu, zamienione argumenty w Cells(row, column), zakręcony wybór kontrolki w pętli, to zdaje się coś za dużo tych pętli. Po modyfikacji http://obrazki.elektroda.pl/3585684200_1...
A może trzeba zamienić: ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\rw\Pulpit\Jan Kowalski.xls", FileFormat:= _ na: ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\rw\Pulpit\"&AQ3, FileFormat:= _ ? Przy odrobinie chęci można znaleźć rozwiązanie tego problemu na Elektrodzie. :D
Zakładając, że makro uruchamiasz przy aktywnym arkuszu wynikowym, konstrukcja powinna wyglądać mniej więcej tak ostWrs = tu szukamy ostatniej niepustej komórki w arkuszu wynikowym For Each sht In ThisWorkbook.Worksheets If sht.Name <> "tu nazwa arkusza wynikowego" Then ostWrsArk = tu szukamy ostatniej niepustej komórki w arkuszu źródłowym...
Co do przycisku wywołujacego makro. Jeżeli masz więcej arkuszy i będzie to w nich wykorzystywane to kod umieść w module. Menu - Widok - paski narzędzi - Visual Basic. Na tym pasku wciśnij Edytor Visual Basic. Otworzy ci się edytor makr. Po lewej stronie będzie okienko "project -VBA project" . Znajdź pogrubioną nazwę twojego skoroszytu i prawokliknij...
Osobiście wolę korzystać z funkcji Dir . FileSerch potrzebuje referencji i lubi stwarzać problemy. Poniżej przykład z pętlą. Jeśli daty w nazwach są w stałym formacie można sobie ułatwić podstawiając dzisiejszą datę. Dla wczoraj będzie to Date-1, itd Oczywiście dla wielu plików przypisanie nazwy odbywać się będzie wewnątrz pętli bez wychodzenia, ale...
np. w komorce A4 = B1 format "dddd" Dodano po 3 dlaczego jak ukryję komórki tam gdzie są dane to nic mi nie działa ?? jak to? dokładnie ktorze wiersze, aby ukryć?
... było pieknie, ładnie dopóki był "Maj", a teraz jesrt "Czerwiec" a mi sie log uzupełnia znowu na maj... Ale jest pięknie ... dość ładna pogoda przecież ... :) ... przynajmniej w Polsce Wschodnio-Środkowej-Północnej ... :) ... no i na Karaibach oczywiście ... : Form ' - i wtedy sprawdzanie byłoby podwójne: i po miesiącu wpisanym w arkuszu ' log '...
Nie wiem czy o to chodzi, a jeśli tak to pewnie da się ładniej/lepiej, ale na przykład można to zrobić tak: W drugim zestawie danych można zrobić dodatkową kolumnę pomocniczą (i nawet ją ukryć), w której będzie wydobywana nazwa po kropce. Mając tę kolumnę można operować funkcjami PODAJ.POZYCJĘ oraz INDEKS aby wydobyć szukane dane. Na moim przykładzie...
Powyższa procedura działa, jak sama nazwa wskazuje, w momencie zmiany zawartości komórki w arkuszu. Jak chcesz zrobić, żeby sprawdzane były wcześniej wpisane daty, to skorzystaj z tego kodu: [syntax=vb]Sub SprawdzTermin() ow = Cells(Rows.Count, "B").End(xlUp).Row For x = 2 To ow Step 2 If Date - Cells(x, 2) > 30 Then Cells(x - 1, 5) = "" Cells(x, 5)...
Chodzi mi o to aby w tabelce w pierwszej kolumnie maja byc wypisane kontynenty.W drygiej-tereny leśne-to ma się dzielic na dwie koumny-nie wiem jak to się robi:mln ha,%zasobów światowych,następnie wtrzeciej kolumnie-zwarte tereny leśne i też ma się dzielic na dwie:mln ha,%terenów leśnych.W czwartej-lesistość poszczegolnych kontynentów.Dane te oczywiście...
Hej, makro w obecnym kształcie działa prawidłowo - zapisuje dwa pliki (testowe docelowo będzie ich znacznie więcej) w podanej lokalizacji w formacie pdf ;) Co do nazwy to opcja numer jeden: czyli dodawanie daty w wyżej opisanym formacie też wchodzi w grę, nie musi zaciągać jej koniecznie z komórki. Próbowałem obu scenariuszy niestety w obu przypadkach...
https://obrazki.elektroda.pl/5949275600_... (Miniaturka przedstawia zrzut ekranu z mojego prywatnego pliku Excela z projektami; zrealizowany jest on metodą którą opiszę poniżej) Witajcie moi drodzy Zapraszam do lektury mojego nietypowego tematu przeznaczonego dla elektroników amatorów i hobbystów wykonujących własne projekty. Przedstawię...
Poszukuje możliwości dopisywania (uzupełniania) do komórki inf z innej komórki. Np jeżeli w kom B2 jest nazwa firmy a w kom K2 jest miasto Makro powinno uzupełnić nazwę firmy o miasto i to w ok 600 komórkach od B2 do ok K600.Jezeli jest jakiś sposób w Excel vba to proszę o pomoc. Z poważaniem Krzysztof B
Po prostu otwórz "dany plik" i w arkuszu Dane_1 w wybranej komórce dajesz = i klikasz myszką na odpowiednią komórkę w "danym pliku" to utworzy hiperłącze do niego. Nie o to mi chodzi. Potrzebuję aby po wpisaniu nazwy pliku w kolumnie PROTOKÓŁ arkusz automatycznie pobrał dane do wybranych komórek z pliku, którego nazwa została podana. Taka operacja...
clubs: tak na pewno jest to dobra ścieżka wysypało się na: plik_1 = Workbooks("glowny_plik.xls").Sheets("dan... pisze, ż eplik = empty lanzul: masz rację, może przybliże trochę działanie maka, myślałem, ze nie będzi eto konieczne, ale jednak. Trochę pewnie teraz namieszam, bo pokaże całe główne makro, wiem, że nie jest idealnie napisane...
nagrałem takie makro które otwiera nowy skoroszyt, kopiuje zawartość całego pliku do nowego skoroszytu, usuwa niepotrzebne dane, zapisuje nowy skoroszyt pod nazwą którą sam wpisałem, zamyka nowy plik, wraca do pliku pierwotnego i tworzy w nim hiperłącze do pliku który właśnie zapisałem. I teraz potrzebowałbym aby nazwa pliku zapisywanego była brana...
Hej. Mam plik Excel z dużą ilością danych. Nad dwiema kolumnami zrobiłam sumę częściową, która sumuje mi te kolumny. Obok tych sum mam formułę sprawdzającą czy te dwa wyniki są sobie równe, dostaje info prawda lub fałsz. Dane te chcę filtrować po kluczowej kolumnie (np. nazwa jakiegoś oddziału) i sprawdzać kiedy te sumy zwrócą prawdę. Jeśli na danym...
witam, potrzebuje pomocy (kodu) w zrobieniu takiej funkcjonalności tabeli by VBA/excel: 1. tworzył nowy folder w określonej lokalizacji tj. na pulpicie w folderze o nazwie ABC po wpisaniu wartości do komórki A1 w tabeli. Nazwa nowego folderu jak wartość komórki A1. I tak dalej w kolumnie A2; A3; ... 2. po wpisaniu wartości w komórce B1 wycinało folder...
Nie wiem, czy dobrze zrozumiałem, ale chyba chodzi o wykorzystanie nazw. Można zdefiniować nazwy D i N (nazwy nie mogą kolidować z adresami komórek). W Excelu 2007 i nast. Formuły/Definiuj nazwę i tym nazwom można przypisać dowolne wartości. Można również wykorzystać komórki arkusza i im nadać nazwy. Gdy nazwa jest zdefiniowana można jej używać w wyrażeniach...
Te arkusze mają za każdym razem te same nazwy w jakiś powtarzalny sposób czy losowe? Tak,docelowo chciałbym,żeby nazwe zlecenia z komórki pobierało do nazwy arkusza + zawsze powtarzalna nazwa do danego arkusza.:) np. B2 + Obróbka_naczepa (czyli A/15684 Obróbka_naczepa.pdf)
Witam! Nakazano mi zrobić arkusz zamówienia. Mam już praktycznie gotowy. Niestety jestem zielony z Excela, całkiem, jeśli chodzi o jego zaawansowane funkcje. Czytałem trochę po forach, na tym również, jednak tam już ludziska mają pojęcie o tworzeniu makr, ja niestety nie wiem jak się do tego zabrać. Mam w formularzu zamówienia komórkę "Zamawiający",...
Witajcie, Może ktoś ma rozwiązanie takiego problemu, a mianowicie.. Mam plik xls z 3ma arkuszami (nazwy miesiąca) w powiedzmy 4rtym arkuszu chcę zdefiniowac polę "nazwa" , gdzie będzie ono nazwą arkusza z którego chce skopiować wartość, oraz "wartość" - wartość pobrana z arkusza o nazwie zdefiniowanej w polu "nazwa". chodzi o jakiś sposób aby formuła...
Dzień dobry, Z zakresami sklejonymi zawsze są problemy, lepiej tego unikać. Ale zawsze jakoś można sobie poradzić, czasem drogą okrężną. Ale ja już się trochę pogubiłem w tym Pana problemie: czy Pan chce kopiować z zakresu sklejonego do pojedynczej komórki czy odwrotnie z komórki do zakresu sklejonego? Poza tym ważne jest w jakiej kolejności Pan skleja...
W rozwiązaniu wykorzystałem dwie formuły nazwane pocz i koni określające zakresy dat początkowych i końcowych urlopów. pocz [syntax=text]=ADR.POŚR("'"&Konflikty... koni [syntax=text]=ADR.POŚR("'"&Konflikty... wprowadzaniu tych definicji komórką aktywną była Konflikty!B6. Proszę...
To zielone pole to, jak wcześniej napisałem TextBox10 Przecież to wszystko jedno. TextBox10.Value= Range() albo Label10.Caption=Range() TextBox domyślnie edytowalny (należy wyłączyć), Label nie. Ważna tylko właściwa nazwa kontrolki...
Czy da się coś z tym zrobić czy nazwa klienta po prostu musiałaby być bez znaków interpunkcyjnych? Kropki nie kolidują - błąd będzie przy przecinkach, łamańcach, dwukropku, gwiazdce, pytajniku, nawiasach ostrych. kopiować dane z jednego pliku do drugiego za pomocą vba Po co kopiować wszystkie komórki arkusza, skoro można kopiować cały arkusz z danymi...
Chodzi mi o to, żeby wartość aktywnej komórki wyświetlała się w innej, wybranej komórce. Znowu post bez przykładowego pliku, czy choćby ilustracji :cry: Literalnie odpowiadając na Twoje pytanie - najprościej zastosuj formułę dla "wybranej komórki" : =aktywna_komórka , gdzie "aktywna_komórka" to nazwa dla bezwzględnego adresu Twojej aktywnej komórki...
wiem, ale rejestrator nie zapisuje tego polecenia, a poza tym nazwa pliku ma być z automatu - jedno kliknięcie w przycisk i plik powinien zapisać się jako PDF z określoną nazwą, pobraną z komórki . Inne makro, które działa juz na tym formularzu automatycznie zmienia numerację i z tym nie ma problemu, Problem, by przenieść to teraz jako nazwę pliku......
No tak zgadza się. Pętla nie jest mi potrzebna. Ale taki kod działa więc jest ok. Plik będzie generowany raz na jakieś dwa dni, dlatego nazwa generowanego pliku zawiera formułę aktualnej daty z komórki "B3". Bardziej zależy mi aby za każdym użyciem makra generował się w katalogu "wyniki" nowy plik. Wówczas w katalogu "wyniki", po jakimś czasie mam kilka...
W Twoim makrze w miejscu gdzie jest nazwa na sztywno zastosuj funkcję INPUTBOX. Wpisaną wartość (1 lub 2 lub 3 itd) wprowadzasz do nazwy pliku wg schematu" Folder_plików + stałay_przedrostek_nazwy + wprowadzana_wartość + ".xlsx" Jeśli chodzi o kopiowanie komórki to raczej nie pomogę bo ja stosuję VBA do innej aplikacji. Ale możesz zrobić rekording makra...
Słaby pomysł z tym oknem dialogowym - trzeba się naklikać i to niepotrzebnie chyba, bo kolega napisał, że ma już otwarte pliki. Z innej beczki: 1. Jak wybrać te pliki? Mają może jakąś charakterystyczną część nazwy? Nie może to być taka sama nazwa jeżeli są jednocześnie otwarte. 2. Jak zidentyfikować arkusz do kopiowania? Może być stała nazywa, albo...
Witam W bardzo prosty sposób możesz to wykonać, ale obszary będą miały kształt tabel. Zaznaczasz taki obszar - tabelę i w polu adresu komórek nadajesz swoją nazwę. Nie wiem ile nazw można tak zdefiniować. Nazwa musi być jednym ciągiem znaków. Można też skorzystać z Menu - Wstaw - Nazwa - Zdefiniuj Później rozwijasz pole z adresem komórki i wybierasz...
Dzień dobry, Można zdefiniować funkcję użytkownika działającą analogicznie do funkcji FORMUŁA.TEKST. Przykładowo treść funkcji można zdefiniować tak: [syntax=vb]Function TekstFormuły(kom As Range) As String TekstFormuły = kom.FormulaLocal End Function[/syntax] Argumentem funkcji jest adres lub nazwa komórki z formułą, wynikiem jest tekst formuły w wersji...
Witam. Mam taki kod w makro. Workbooks("nazwa").Act... Wiersz ten aktywuje plik: nazwa, jeśli zmienię nazwę to muszę znów wchodzić w makro i zmieniać kod. Chciałbym żeby nazwa była pobierana z komórki H26. Napisałem coś takiego, ale nie działa, co jest nie tak? Próbowałem na różne sposoby Workbooks = Range("H26").Activate....
Napisz dokładnie jakie dane są wprowadzane krok po kroku, które kolumny, a nie itp... bo to ma znaczenie Wtedy można sprawdzić czy istnieje wiersz z tymi danymi i do niego skoczyć. Wzorem jest załączony plik - kolumny, które będą do przeszukania to: IdKod TowaruNazwaKod paskowyStary kod PLHMKod towarowy dostawcy Po znalezieniu własciwego wiersza w...
Cześć, mam do napisania Makro, które będzie tworzyło nowy plik Excel i wstawialo w nim tabele, której elementami będa konkretne wartości z pierwszwgo excela oraz spis jego arkuszy, powiem szczerze,że makro wywala mi się na odwołaniach do oryginalnego Excela (nazwa "Zadania"). nie jestem niestety ekspertem VBA i chyba moja wiedza sie wyczerpała. dzieki...
nazwa arkusza excel komórki excel makro nazwa arkusza komórki nazwa komórki nazwa arkusza
kliknięciu drukuj zapowietrzony układ chłodzić licznik skakać
brother zaciecie papieru kluczyk mercedes rybka
Buderus GB062-24KW V2 czy Logamax plus GB172i.2-25 WH – wybór kotła jednofunkcyjnego do domu Doc Green ESA 5000: Brak reakcji na manetkę gazu po wymianie baterii
