Proszę jaśniej. Nazwa arkusza ma być pobierana z komórki, czy w komórce ma być odwołanie do nazwy arkusza? W jakim celu?
Powinieneś załączyć przykładowy plik Excela, bo za dużo jest niejasności w tym, co napisałeś. Przykładowy kod, który działa wg Twojego opisu: [syntax=vbscript]Sub AddSheets() ' zakładamy, że nazwy nowych arkuszy ' są w komórkach od B5 w dół Dim ostw As Long, w As Long ostw = Arkusz1.Cells(5, 2).End(xlDown).Row For w = 5 To ostw Sheets.Add(After:=Sheets(Sheets.Count))....
Witam zbyt krótki tytuł arkusza -F3. może pokrywać się z nazwą komorki, jeśli w F3 jego nazwę:
Z ActiveX nie trzeba aktywowac arkuszy i zaznaczyc checkBox,[może mieć taką samą nazwę (na różnych arkuszach)]
Można to zrobić również formułami. Kluczową sprawą jest odczytanie numeru wagonu z nazwy arkusza, bo - o ile mogłem się zorientować - nigdzie w arkuszu nie jest ona wpisana. Jest to wyliczone w komórce D2. Oczywiście postać formuły jest dostosowana do nazw używanych w skoroszycie. Potem, gdy mamy już numer wagonu, dalej wystarczy WYSZUKAJ.PIONOWO (komórka...
Pomogę w ten sposób: Tak przypisujesz nazwę z danej komórki Nazwa_z_komorki = Worksheets("KON").Cell... 1).Value i podobnie ilość Ilosc_z_komorki = Worksheets("KON").Cell... 2).Value Do powyższego cells(nr wiersza,nr kolumny) dodanie arkusza: Sheets.Add Nadanie nazwy arkuszowi: ActiveSheet.Name...
Nie pomogło - ale dziękuję za pochylenie się nad tematem. Drukuje dobrze czyli tylko te arkusze, w których w komórce d21 jest wartość > 0 (pomijając wskazane arkusze), ale problemem jest zapis tych arkuszy wg nazwy z komórki F7 (nazwa inna w każdym arkuszu). Aktualnie zadziałało to w ten sposób, że wydrukowało OK, zapisało tyle pików w ilu jest wartość...
Witam ,chociaż już po Świetach to życzę zdrówka wszystkim. A co do problemu z jakim się zwracam to potrzebuję do pliku załączonego aby dołożył ktoś makro lub formułe, w zależności czym będzie lepiej uzyskać efekt ,który przydałby mi się na co dzień. Mianowicie w skoroszycie mam kilka arkuszy z nazwą powtarzającą się w kolumnach "B". Po otwarciu skoroszytu...
Kręcisz się w kółko. Zrozum, że w komórce nie zapiszesz danych jako VBComponent, Object, etc. W związku z tym nie uda Ci się ich pobrać i przekazać do funkcji w taki sposób. Możesz zapisać w tablicy nazwy obiektów, ale w odwołaniu musiałbyś używać jej indeksu w tablicy (liczby), nie nazwy. Metodę pobrania nazwy arkusza (Properties.Item) znając nazwę...
To trzeba wykonywać program krokowo i gdy wystąpi błąd sprawdzić wartości wszystkich zmiennych. Opis błędu wskazuje, że nie ma arkusza o wskazywanej nazwie, więc trzeba dokładnie sprawdzić jakie są nazwy arkuszy, a co jest w komórkach. Jeśli nie znajdziesz sam przyczyny błędu, załącz przykładowy plik, bo tak to można tylko zgadywać.
No to wygląda, że i tak masz dwa razy zdarzenie Workbook_Open. I to ma być 'Ten_skoroszyt', nie 'Ten arkusz'. Ten komunikat o kontrolce jest niezrozumiały. Masz tam jakieś ukryte kontrolki? "Front page" to oczywiście nazwa arkusza. Jeśli takiego arkusza nie masz, to to jest bez sensu i może generować błąd 'Subscript out of range'.
Chcę wydrukować tylko te arkusze, które spełniają mój warunek Opisz to dokładniej. Jaki warunek mają spełniać arkusze do drukowania? W zacytowanym kodzie sprawdzasz kolor komórek, ale nie bardzo wiadomo, dlaczego tak. Sprawdzanie koloru kilku komórek naraz może być nieskuteczne. Nie wystarczy jedna komórka? Poza tym linia kodu [syntax=vbscript]If shArkusz.Name...
Witam, Mam taki problem. Mam plik gdzie jest kilka arkuszy. Chciałem żeby makro pewnie jakaś pętla pobierało nazwę arkusza i wklejała tą nazwę w odpowiednie komórki. Załączam plik. Czyli wynik miał by być taki: W arkuszu "Tab1" nazwa Tab1 pojawi się w komórkach W2,W3 i W4 (czyli tylko w rekordach gdzie są dane). W arkuszu "Tab2" nazwa Tab2 pojawi się...
Tak jak w tytule Czy jest możliwe ? aby program VBA zmieniał automatycznie nazwę tabeli znajdującej się w komórkach arkusza A1:F10. na nazwę arkusza Nazwa arkusza np. Janek - nazwa tabeli Janek. pozdrawiam
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...
Ale nie rozumiem jak jest z zapisem liczby z kalkulatora do jakieś komórki w arkuszu Jak można nie rozumieć, że ty sam napisałes? To znaczy: Z pierwszego arusza "Sheets(1)" odczytaj komórkę A1 i dodaj do niej liczbę z TextBox1 ("TextBox1.Value" = przekształć tekst na liczbę). Wynik zapisz do pierwszego arkusza "Sheets(1)" do komórki A1 = "Range("A1")...
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)
Zakładając, że komórka A4 zawiera nazwę "STR2", a komórka B4 nazwę "RAPORT", to tak: [syntax=vbscript]Sheets(Array(range("A4"... te nazwy są w innym arkuszu niż aktywny, to można dodać kwalifikator.
Nie jestem pewien, czy dobrze zrozumiałem Twoje oczekiwania, ja bym to ułożył w postaci skoroszytu zawierającego kilka prawie identycznych arkuszy (arkusz1 i arkusz2) oraz trzeciego arkusza sprawdzającego zgodność analogicznych komórek w dwóch pierwszych arkuszach (czyli np. komórki A1 w arkuszu1 z komórką A1 w arkuszu drugim). Możesz tu użyć nieco...
z kilku innych arkuszy Z arkuszy, czy ze skoroszytów? Jeśli z arkuszy (w tym samym skoroszycie) to wstawiasz nazwę arkusza, wykrzyknik i odnosisz się do jego zakresu/komórki. Np. w ten sposób odwołasz się np. do A1: [syntax=vb]=Arkusz1!A1[/syntax] Jeśli ze skoroszytów, to tutaj wyjaśnienie: http://office.microsoft.com/pl-pl/excel-...
Czy jest coś takiego możliwe do zrealizowania? Tak :please: np tak jak na zrzucie 977452 i w załączniku :spoko: 977453
Moim zdaniem wychodzisz z błędnego założenia. Sugeruję kolejność: 1. Kliknięcie przycisku w arkuszu otwiera formularz (i nic więcej). 2. Wypełnienie formularza przez użytkownika. Koniecznie zablokuj kontynuowanie bez wypełnienia kluczowych pól. Po wypełnieniu formularza można pobrać wartości potrzebne do przede wszystkim nadania nazwy wstawianego, nowego...
[syntax=vbscript]nazwa = ActiveCell.Value With ThisWorkbook .Sheets("wzor rodzinne").Copy ActiveWorkbook.SaveAs .Path & "\rodzinne\" & _ nazwa & ".xls" ActiveWorkbook.Close End With[/syntax]
W miejsce 'Sheets("Sheet2").Select' umieść wstawianie arkusza (Sheets.Add) i nadanie nazwy (Activesheet.Name). Jeśli wartości w kopiowanych komórkach nie są unikatowe, musisz najpierw sprawdzić czy arkusz z taką nazwą istnieje.
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...
Użyłem tego makra we wszystkich od 01.YY do 13.YY i tylko pierwszy skopiował dane. W załączniku przesyłam cały plik, może będzie łatwiej rozwiązać zagadkę Już z tego miejsca pragnę bardzo podziękować za pomoc, ale chciałbym sprawę doprowadzić do końca. tak czy siak nie we wszystkich skoroszytach ci to zadziała musisz trzymać się jednej nazwy arkuszy...
Może być takie proste rozwiązanie bez VBA - patrz załącznik. W komórce B1 jest zwykła lista rozwijana kontroli poprawności. Dane można wpisać wprost do okienka kontrolki. W komórkach B2:B3 definiujemy kontrolę poprawności z listą zdefiniowaną za pomocą formuły nazwanej (w Menedżerze nazw). Zestaw odpowiedzi musi być zakresem w arkuszu. Jeśli są to te...
Dzień dobry, Opis dość nieprecyzyjny, nie wiadomo czy listy są tej samej długości, gdzie miałyby być kopiowane po wpisaniu nazwy, i gdzie ta nazwa ma być. Spróbuję coś napisać ogólnie. To rozwiązanie dotyczy Excela w którym pracuję na co dzień, myślę że w OpenOffice można stosować podobne rozwiązania. Jeśli kolumny mają nagłówki dogodnie byłoby nadać...
Bez załącznika, w którym można to sprawdzić, to trudno mieć pewność, ale jeśli nazwa arkusza była w komórce [syntax=vbscript]Sheets("Data").Range("L... arkusz będzie [syntax=vbscript]Sheets(Sheets("Data").R... jeszcze konkretna komórka: [syntax=vbscript]Sheets(Sheets("Data").R...
A co tak? [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").Copy ActiveWorkbook.SaveAs fileSaveName Application.OnKey "~", "SomeActions" ActiveWorkbook.Close End Sub [/syntax]
A jak dokładnie są nazwane arkusze? Cała data, czy tylko numer dnia? Jeżeli cała data to: Sub NazwaArkusza() Range("a2") = ActiveSheet.Name End Sub przy numerze dnia: Sub NazwaArkusza() Range("a2") = ActiveSheet.Name & ".02.2011" End Sub To jest tylko dla jednego arkusza. Dla większej ilości...
Witam, jako, że raczkuję (wcale się nie orientuję) w VBA proszę o pomoc. Mianowicie, potrzebuje w pliku z zał. : Arkusz "NAZWA ODDZIAŁU" - kolumna A - po sczytaniu na daną komórkę w kolumnie A tj. A2 z czytnika kodów kreskowych powoduje skopiowanie danych z tej komórki do Arkusza " DANE " komórka A2 i skasowanie danych w Arkuszu "NAZWA ODZIAŁU" , a...
Żeby zadziałało, musisz najpierw gdzieś zapisać plik - taki ledwo stworzono i niezapisany nie będzie miał nazwy. Tak więc najpierw plik gdzieś zapisz, a potem do wybranej komórki wpisz: =KOMÓRKA("filename") Pokaże się nazwa pliku razem z całym adresem dostępowym. Nazwa arkusza: =FRAGMENT.TEKSTU(KOMÓRKA("filename");ZNA...
Spróbuj nagrać makro i wprowadź kilka poprawek: zamiast: PivotTables("Nazwa tabeli1") można użyć: nazwa=Worksheets(1).Range("A1") PivotTables(nazwa) Gdzie Np. w komórce A1 pierwszego arkusza można wpisywać nazwę tabeli przestawnej (bez cudzysłowów) lub zastosować 'poprawność danych>lista' i zdefiniować listę nazw.
W D3 nic nie ma to nie działa, miałeś to na sztywno ustawić, przecież chcesz stałą komórkę A1. Poniżej formuła z ustawionym na sztywno C2 (A1), bez C3. [syntax=actionscript]=HIPERŁĄCZE("#"&""&... Opis analogiczny jak wcześniej z C1, C2, C3: C1 - w tej komórce umieść nazwę arkusza C2 - tu wpisałem na sztywno A1 C3 - to pominąłem
Czemu nie ma załącznika? Niby to proste, ale niejasne. Komórka A1 w którym arkuszu? w aktywnym? w określonym z nazwy? w pierwszym, w którym komórka A1 jest wypełniona? W sąsiednim arkuszu należy rozumieć: w następnym czy w poprzednim? Poszukiwane słowo "białe" lub "czarne" ma stanowić pełną zawartość komórki czy fragment zawartości komórki? Czy wielkość...
(...) wo wartość "aaa" na wartość "bbb". Wartość miała by być wyszukiwana i zamieniana w kolumnie C. Najlepiej jakby się uruchamiało po edycji danych właśnie w kolumnie C. Ważne żeby było tylko przypisane do jednego arkusza tak aby po zmianie danych w innym arkuszu w kolumnie C się nie uruchamiało. Dziękuje. Wstępna ocena dostępnych informacji Witam,...
Dzień dobry, Jeżeli położenie komórek jest stałe, to znaczy w kolejnych komórkach ma Pan tekst oryginalny (w przykładzie A1), wynik (w przykładzie B1) i położenie "X" w tekście wynikowym (w przykładzie C1) może Pan nadać nazwy swojej formule oraz jej parametrom (zgodnie z zasadami Excela). Można to zrobić w Menedżerze Nazw (Excel >= 2007) lub przez...
Nie, w komórkach są nazwy arkuszy, ale te nazwy są wyświetlane przez wzorce Dodano po 2 Kolego jak mogę to podeślę plik na PRIW, nie chcę go tu umieszczać bo są w nim dane które nie powinny się tu raczej pojawić
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...
to makro do "zabawy" Dodano po 2 jeszcze dwie wersje.... Pierwsza ile_wierszy, to może być niemal dowolna liczba sprawdzonych wierszy , można wpisać nawet tyle ile wierszy ma cała kolumna (zależy od wersji Excela) Chodzi o to by nie sprawdzać całej kolumny bo to może potrwać.... Skopiowane zostaną tylko niepuste komórki. [syntax=vba] Sub copy_cells()...
Powiem tak na szybko: :) Znaj moje dobre serce :) W załączeni przykład z różnymi układami. Wybierz który ci pasuje ewentualnie połącz w jedno. Ponieważ jest możliwość wielu wystąpień jednego tematu na chwilę obecną nie wiem jak to ugryźć bez wiersza pomocniczego (wiersz 2 - ukryty w arkuszu1 [komórka kopiowana w bok - w prawo]) I druga rzecz w w funkcji...
Witam, załóżmy że mam skoroszyt z dużą ilością arkuszy które noszą nazwę od 1 do 100. Chciałbym dodać jeszcze jeden który nosiłby nazwę np. Szukaj, w którym po wpisaniu załóżmy w komórkę A1 nazwy jednego z arkuszy excel przeniósł mnie do tego arkusza. Chciałbym również aby po wpisaniu nazwy arkusza który nie istnieje wyskoczył komunikat że arkusz o...
Cześć. Potrzebuję pomocy przy stworzeniu makra, które będzie zapisywało bazowy plik pod nazwami wskazanymi w komórkach do lokalizacji również wskazanych w komórkach arkusza. Przykładowo: A1: nazwa1 B1:lokalizacja1 A2: nazwa2 B2: lokalizacja2 A3: nazwa3 B3: lokalizacja3 Po uruchomieniu makra plik zapisze się w lokalizacji1 pod nazwą nazwa1, w lokalizacji2...
Witam, mam problem z excelem... Mianowicie mam 4 arkusze, każdy z różną nazwą. W każdym z nich znajduje się tabela z danymi. Chciałabym w piątym arkuszu stworzyć formułę, która po wpisaniu w danej komórce nazwy arkusza automatycznie przypisze mi wartość z np. komórki B5 tego arkusza. Jednocześnie przy zmianie nazwy w tejże komórce, wartość z komórki...
Dziękuję a może jest po prostu jeszcze coś prostszego np kiedy napotka błąd niech przerwie operacje realizuje to tak [syntax=vb] Dim nazwa_arkusza As String ' zmienna do nazwy arkusza nazwa_arkusza = TextBox1.Value ' pobrane nazwy arkusza z komórki A1 Sheets.Add After:=Sheets(Sheets.Count) 'dodaj arkusz po wszystkch If nazwa_arkusza = "" Then 'jesli...
Witam, potrzebuję funkcję, która będzie zliczać teks (z tym problemu nie ma CZY.TEKST) w arkusz, którego nazwa będzie zapisane w pewnej komórce. Przykład W Aruszu1 komórce A1 zostaje zapisana nazwa nowo utworzonego Arkusza np 10 o nazwie np "GŁÓWNY". W arkuszu tym będą zapisywane nazwy różnych podzespołów. Chciałbym by funkcja odnalazła Arkusz po nazwie...
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...
Dzień dobry, Problem można rozwiązać za pomocą formantu ActiveX typu Obrazek. Należy wstawić formant do arkusza (robi się to różnie zależnie od wersji Excela) i zapamiętać jego nazwę. Jeśli jest to pierwszy obrazek, będzie miał nazwę Image1 (nazwę widać w polu nazwy). Teraz trzeba przygotować plik do wstawienia do formantu. W zależności od tego jak...
Witam, Parę godzin szukania i nic, więc postanowiłem się poradzić. Potrzebuję stworzyć następujący arkusz: W Arkuszu1 w poszczególnych komórkach będą znajdowały się nazwy kolejnych arkuszy. Na Arkuszu1 będzie przycisk, który po przyciśnięciu przejdzie do tego arkuszu, którego nazwa będzie 'podświetlona'. Czyli po kliknięciu na komórkę z nawą arkusza...
Nie jest dla mnie to jasne. O ile kryteria stworzenia arkusza są jasne (bo jest on tworzony na podstawie formularza - i podejrzewam że arkuszy może być kilka) - to na jakiej podstawie ma być wybierany arkusz? Też na podstawie nazwy z formularza? W każdym razie FormulaR1C1 albo Value możesz zastosować do komórki w dowolnym arkuszu, nie tylko bieżącym:...
Niestety z tego co napisałeś i pokazałeś w pliku nie wynika, jak chcesz tego używać. W załączonym pliku nie ma Arkusza1a, a arkusze 2 i 3 są puste. Więc nie wiem, czy to ma być używane w jednym arkuszu, czy w kilku. Generalnie proponowałbym nadanie nazw zakresom i odwoływanie się do tych nazw w makrach. Gdy rozszerzasz taki zakres przez dodanie wiersza...
Musisz zrozumieć podstawy VBA, najlepiej coś na ten temat przeczytaj. Każdy zapis w VBA musi albo coś deklarować albo coś wykonywać. Twoja pierwsza linijka kodu ani nic nie deklaruje, ani nie wykonuje. Od drugiej powinno być dobrze pod warunkiem, że arkusz SPR jest aktywny. Nie możesz tak chaotycznie używać Range poprzedzonego nazwą arkusza i bez tej...
Zerknij do załącznika. Kod w arkuszu + UserForm. Kod uruchamia dwuklik w zakresie E2-E22 ;)
Sprawdz czy aby na pewno stosujesz odpowiednią nazwę arkusza. Czy nie ma literówki itp. Jeżeli prawidłową nazwę arkusza ujmiesz w cudzysłowiu to musi działąć nawet ze spacjami i innymi znakami które pozwolą się wpisać w nazwie. Chyba że błąd dotyczy czegoś innego np. arkusz jest ukryty lub komórka chroniona
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
Witam Problem mam taki ze chciałbym aby poprzez kliknięcie przycisku excel skopiowały 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. Drugiego dnia excel miałby robić to samo (kopiuje arkusz) ale już tylko nadpisuje plik który stworzył wczoraj...
W załączniku przykład listy z podpowiedzią zrobiony formułami. Dwie formułki w Menedżerze nazw. Możliwe są 2 warianty. Odpowiednie formuły są pokazane w Arkuszu2. Albo wyszukiwanie po dowolnym fragmencie albo po początku nazwy. Do komórki z listą wpisać hasło i wtedy rozwinąć listę (nie trzeba naciskać Enter).
No, w takiej formie to można już coś tam pokombinować... Zobacz pliki z załączników. Po kliknięciu przycisku "Import order" możesz wybrać plik z zamówieniem - ważne, żeby miał taki układ danych, jak w testowym zamówieniu. Plus wszystkie rzeczy, o których wcześniej mówiłem - wyjątkiem jest lista klientów w pliku produkcyjnym - jednak nie musi być taka...
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...
Dzień dobry, Musi Pan sobie w arkuszu wpisać te nazwy (etykiety) do komórek, a następnie przy pytaniu o zakres etykiet osi podać ten zakres z arkusza.
Pozwolę sobie odpowiedzieć: zmień deklaracje typu zmiennych i będzie ok. Dim Nazwa_1 As Integer Dim Nazwa_2 As Integer Na Dim Nazwa_1 As String Dim Nazwa_2 As String Integer to liczby całkowite a String to ciąg tekstowy do którego też można zaliczyć "wizualnie" liczby (czyli liczby i cyfry jako tekst). I jeszcze jedno jak zmienić aby nazwy arkuszy zmieniały...
A więc tak. Tworzysz nowy plik xls. Masz tam 3 arkusze. Jeden arkusz nazwij sobie np.słownik, 1.tam jedną komórkę wpisz YES w drugą(inną)komórkę wpisz NO. 2.zaznacz obie komórki 3.wybierz z menu:Wstaw->Nazwa->Definiuj zdefiniuj nazwę np.coś_tam w skoroszycie i wciśnij OK. 4.Przejdź do drugiego arkusz 5.zaznacz całą kolumnę 6.Wybierz z menu:Dane->Sprawdzenie...
Jeśli to wszystko jest w jednym skoroszycie, to możesz użyć też funkcji ADR.POŚR. Jej argument podaje się w formie tekstu, więc można go złożyć z kawałków. Ale użycie tego spowalnia trochę działanie funkcji, więc zależy ile masz tych danych do przeliczenia. Mogłoby to wyglądać np. tak: [syntax=text]=WYSZUKAJ.POZIOMO(D3;ADR.PO... " & A1 & "'!36:62");2;FAŁSZ)[/syntax]...
W komórce jest tekst dokładnie to słowo -kadm Kod ma porównać czy nazwa komórki jest taka sama jak nazwa arkusza (arkuszy). Jeżeli tak to ma wykonać podprogram LastLine a jeżeli fałsz to podprogram Nazwa. Dodano po 15 Zmajstrowałem taki Kod If Sheets("IIA").Range("B15") = Sheets("Nafta").Name Then GoTo LastLine Else: GoTo Nazwa Działa Ale po co mi on...
Jeśli chcesz mieć te listy w osobnych arkuszach, to można to zrobić np. formułami tak jak w załączonych plikach. Są tam dwa warianty rozwiązania. W pliku z numerem 1 wariant z odczytem nazwy arkusza (w komórce D1) i odszukiwaniem położenia tej nazwy w tabeli źródłowej. W tym wariancie kolejność nazwisk może być dowolna, byle się dokładnie zgadzała nazwa...
bo skasowałem je i nie widzę różnicy żeby coś źle działało. Samo skasowanie nazwy (metodą DELETE) nic nie zmieni, ten obszar nadal nazywa się "owoc", chyba, że podświetlisz wszystko i zrobisz "wyczyść wszystko". To zdefiniowanie nazwy listy jest potrzebne, jeśli w tworzeniu listy rozwijanej odwołujesz się do danych w innym arkuszu. Aby zmienić nazwę...
To jak ten kod bym całkiem uprościł. Jeżeli staniesz na dowolnej komórce a makro "cos" podepniesz pod przycisk (lub kod ze środka procedury cos przekleisz do procedury przycisku) to po przyciśnięciu albo ci napisze że nie ma arkusza albo przerzuci do danego arkusza. Wtedy też funkcja "Last" nie jest potrzebna. Sub cos() Dim Nazwa As String Nazwa...
Mam prośbę o kod dla nazwy arkusza danych - z komórki zmieniającego się pola Kombi. Chodzi o to- by nazwa wyszukiwanego numeru faktury - automatycznie (dynamicznie) zmieniała nazwę arkusza do momentu kiedy tej faktury nie zapiszę w określonej bibliotece w formacie PDF. Niestety przerasta to moją wiedzę - więc ze skruchą wyznaję, że liczę na działający...
Proponuję rozwiązanie jak w załączniku. Najwygodniej będzie nazwać używane zakresy: użyłem nazwy "lista" na określenie kolumny nazwisk (długość listy trzeba dopasować do potrzeb - edycja w Menedżerze nazw), "dane" to zakres danych liczbowych - w przykładzie zaczyna się w komórce C4 arkusza "dane", "rok" to oznaczenie roku, które umieściłem w komórce...
Makra włączone? Może problem z nazwa/indeks. Spróbuj Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo byk If Target.Column = 1 Then Sheets(Trim(Str(Target.Row... = Target.Value End If Exit Sub byk: If Target.Value <> "" Then MsgBox "Brak arkusza o...
Dziękuję za szybką pomoc. Zmodyfikowałem ten kod zmieniając adres komórki z nazwą. Po przekierowaniu do innego arkusza niż ten, w którym znajduje się przycisk "zapisz" pojawia się okno zapisu, ale nie wczytuje się nazwa ze wskazanej komórki. Kod po zmianie wygląda tak: [syntax=vbscript]Private Sub CommandButton1_Click() plik = Application.GetSaveAsFilename(Sheets("il...
Jeszcze nie działa... a nie powinienem dodać także nazwy arkusza?
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:
Nie rozumiem skąd błąd.... w komórce C2 jest dobra nazwa. Nie spojrzałem wcześniej na rysunek. [syntax=vbscript]Set wsDocelowy = wbDocelowy.Sheets(Range("C2").Value)[/sy... Będziesz mieć błąd bo, gdy otwierasz skoroszyt staje się aktywny i w tym aktywny w C2 pewnie nic nie masz. Jak nazywa się ten arkusz z załączonego obrazka? wtedy [syntax=vbscript]Set...
Można to zrobić na wiele sposobów - mniej lub bardziej elegancko. Np. obszary danych w arkuszach źródłowych oznaczasz nazwami, powiedzmy Z1_A1, Z1_A2, Z1_A3, Z2_A4, Z2_A5, Z2_A6 (zaznaczyć obszar, później Wstaw/Nazwa/Definiuj). Tworzysz pusty skoroszyt Zeszyt3.xls z arkuszami Arkusz1 .. Arkusz6. W kolejnych arkuszach wstawiasz w pierwszej komórce obszaru...
W komórce b1 wpisz =wyszukaj.pionowo(a1;... dalej nich zaciąga z innego arkusza). Zapytanie wpisujesz w a1 i w b1 pojawia się Tobie wynik.
Wybierz gdzieś komórka dla nazwy arkusza. (np. arkusz3!Z1) [syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) Range("arkusz3!Z1") = ActiveSheet.Name End Sub Private Sub Workbook_Open() Sheets(Range("arkusz3!Z1")).Activate End Sub [/syntax]
Po kliknięciu komórki np. C16 ma się utworzyć arkusz o tej nazwie tj. "C16"? Czy raczej arkusz z nazwą projektu? Jeżeli to drugie, to zamiast używać tabeli przestawnej proponuje: 1. utworzyć arkusz z polem/formantem kombi dla którego źródłem danych będzie pole (kolumna) "nazwa" z arkusza Dane. Po wybraniu elementu z listy zwraca się pozycję tego elementu...
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...
Witam, mam makro, które usuwa arkusz po wpisaniu jego nazwy lub wskazaniu danej komórki po wyświetleniu Box-a. Mam pytanie jak przerobić mechanizm aby usunięcie arkusza z nazwą w komórce E7 odbyło się automatycznie po naciśnięciu CommandBoxa ? Pozdrawiam: keszybz
Szkoda, że nie masz nowego Excela - byłoby prościej. Ale trzeba używać tego co jest. Jak już pisałem, funkcja ADR.POŚR tu nie wystarczy. Można wykorzystać np. starą funkcję makr XLM o nazwie SZACUJ. Ale w starszych wersjach Excela jest to trochę uciążliwe, bo nazwa funkcji musi być użyta w definicji formuły nazwanej. Istotą działania funkcji SZACUJ...
Witam Ponownie. Postanowiłem zmodernizować (usprawnić) obliczenia i w związku z tym mam kilka prostych pytań "jak to zrobić" ? Arkusz "EWID jest to typowa EWIDENCJA KSIĘGOWA - zwana "amerykanką" Na jednym przelewie bankowym bywa kilka wpłat - (wpłaca czynsz kilka osób) -zostają one zsumowane i wpisane w jednej pozycji. Do tej pory wszystkie wpisy i...
Na podstawie tego opisu i makra "do przerobienia" nie sposób odgadnąć co asia.asia ma na myśli i co ma być skopiowane. Same nazwy plików/arkuszy nie wystarczą (wystarczy "zapisz jako") lub copy. MAM PLIK EXCELA - DED i nazwa arkusza "DED" z którego są kopiowane dane. Kopiowanie odbywa się do pliku "DEDD1" nazwa arkusza "DEDD1". Kopiowanie do nazwy...
wstawiłem nazwę arkusza do komórki, dalej funkcją poszło banalnie już.
Piszesz, że dane są kopiowane z faktury do arkusza "Raport zbiorczy" ale z kodu wynika, że operujesz cały czas na jednym arkuszu - odwołujesz się do Range niepoprzedzonego innymi nazwami arkuszy... Najpierw przypisujesz jakieś wartości komórek do zmiennych, a potem te zmienne wypisujesz na inne komórki - nigdzie tu nie widać zmiany arkusza. To jak to...
Podany przeze mnie kod działa też prawidłowo ze skrótem klawiszowym. Musisz się jednak określić, gdzie zapisujesz dane adresowe zdjęć. Z opisu Twojego pierwotnego projektu wynika, że Sheet1 B2 mamy nazwę podfolderu. Sheet2 kolumna A od wiersza 2 do 10 nazwy plików w kolejnych wierszach, które są pobierane w pętli FOR. Rozumiem, że teraz chcesz w kolejnych...
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...
same polskie, klawiaturowe Ś, Ź, Ć, itp. - jest to polskie, wstaw w VBA - jak wyświetla? Latwiej porownanie userName na arkuszu(działa Unicode) np. If Application.CountIf(Range("users"), Lcase(Environ("UserName")))=0 Then Application.Calculation = xlManual users - nazwa zakresu gdzie te 4 osoby, np. Z1:Z4
Dzień dobry, Lepiej gdyby Pan załączył plik, a nie obrazek. Ma Pan dość nietypową konfigurację: polskiego Excela z amerykańskimi ustawieniami regionalnymi. Daty muszą być w formacie akceptowanym w Pana konfiguracji, a więc w tym przypadku miesiąc/dzień/rok, czyli jeśli chce Pan odliczyć drugi dzień Świąt, więc musi być albo "4/21/2014", albo odwołanie...
Zmień na: [syntax=vb] Option Explicit Private Sub Workbook_Open() If ThisWorkbook.Name = "wzór.xlsm" Then With ThisWorkbook.Sheets("Arkusz1") '<--Tu nazwa twojego arkusza .Range("E18").ClearContents '<--czyści tylko wartości zostawia formatowanie .Range("E18").Clear '<--- czyści i wartości i formatowanie 'Range("E18").Value = "" wstawia do...
FORMUŁA.TEKST - ? musisz użyć odpowiednio =FORMULATEXT(B2) :cunning: Działam na arkuszach google'a No to życzę powodzenia :D i radzę jak masz takie kłopoty z tłumaczeniem nazw funkcji :cry: to zaimportuj arkusz excela do Google Sheets :arrow: Google na ogół radzi sobie z tłumaczeniem :idea: :D
wykorzystaj formułę wyszukaj.pionowo() w komórce B2 w drugim arkuszu wpisz: [syntax=excel]=WYSZUKAJ.PIONOWO(A2;Arkus... Arkusz1 w formule to nazwa pierwszego arkusza.) Daj enter a potem przeciągnij formułę w dół i już. Ewentualnie możesz wpisać warunej jeżeli gdy nie będzie danej z kolumny A drugiego arkusza w arkuszy pierwszym:...
Szukam funkcji dla rozwiązania takiego problemu. W pliku excela mam kilka arkuszy - są to różne listy. Chciałbym teraz zrobić niezależny arkusz, w którym znalazły by się dwie kolumny: nazwa arkusza oraz ilość elementów na liście - czyli ilość zajętych komórek w kolumnie. Arkuszy jest może koło 10, więc nie muszę wpisywania nazw zautomatyzować - mogę...
Tommy82 chodzi w wstawienie zdjęcia do Arkusza1 w wolne komórki w kolumnie A; zdjęcie z arkusza zdjęcia ma swoją "nazwę" w kolumnie A; "nazwa" ta pojawia się w Arkuszu1 w kolumnie D
Noo, jak by to powiedzieć... napisałem ;) Kliknij prawym klawiszem w zakładkę arkusza i wybierz 'Wyświetl kod' Znajdziesz tam procedurę zdarzeniową arkusza. Z prawej u góry jest lista wszystkich dostępnych procedur. Wybierz sobie którąś i pokombinuj. Do niemal wszystkich, jak można zauważyć, przekazywany jest argument 'Target'. To zmienna obiektowa...
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...
Wszystko się da, no ok prawie wszystko. :) Kolumny są oznaczane w Excelu literą lub numerem, więc jeżeli chcesz je kopiować to nie widzę problemu. Wystarczy opanować metodę range.Copy. Jeżeli musi to być po nazwie to zapisz gdzieś (inny arkusz?) listę nazw w pętli i rób range.Find w wierszu w którym są zapisane nazwy i pobierz Column znalezionej komórki...
Wyszło mi coś takiego[syntax=vb]Sub Pobierz() Dim nazwa As String Dim ark As Worksheet Dim wrs As Long, j As Integer, i As Long nazwa = "Arkusz2" 'nazwa arkusza docelowego 'tutaj 2 dla porównania z 1 ThisWorkbook.Activate 'gdyby nie był Sheets(nazwa).Range("A2:H65536").ClearCo... 'czyścimy wrs = 2 '1-szy wiersz docelowy j = 3 '1-sza kolumna źródłowa...
W takim razie w arkuszu z tą komórką wstaw taki fragment: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$9" Then Call myCopy End If End Sub[/syntax] Nazwa makra - copy() - nie jest zbyt fortunna, bo pokrywa się z poleceniem VBA o takim samym tytule. Lepiej zmień ją np. na myCopy
nazwa arkusz komórka arkusz nazwa nazwa arkusz excel komórka
airlive reset akumulator skuter elektryczny blokada regulacji głośności
płytka spawarki naprawa płytka spawarki naprawa
Odwrócony obraz kamery cofania w radiu Android - jak naprawić? Lokalizacja zaworu upustowego turbo w Mercedes W639