Witam zbyt krótki tytuł arkusza -F3. może pokrywać się z nazwą komorki, jeśli w F3 jego nazwę:
[syntax=vb]Sub lista() Dim r& r = 2 For Each sh In ThisWorkbook.Sheets If sh.Name <> "Lista" Then Sheets("Lista").Cells(r, 1) = sh.Name r = r + 1 End If Next End Sub [/syntax]
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?
[syntax=vbscript]Sub Arkusze() For x = 1 To Sheets.Count Set a = Sheets(x) a.Range("W2:W" & a.Cells(Rows.Count, "A").End(xlUp).Row) = a.Name Next End Sub [/syntax]
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))....
Czy jest coś takiego możliwe do zrealizowania? Tak :please: np tak jak na zrzucie 977452 i w załączniku :spoko: 977453
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...
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ć.
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ść...
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...
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.
każde kolejne sczytanie z czytnika do Arkusza "NAZWA ODDZIAŁU" A2 kolejno wklei dane do pustej komórki w Arkuszu "DANE" Jeśli skaner korzysta tylko z komórki A2 :?: to możesz wykorzystać makro jak w załączniku 1063586
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-...
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...
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]
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]
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...
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...
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'.
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...
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...
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...
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
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...
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 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...
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...
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...
Mam Makro, które pobierając dane z Arkusza zapisuje aktywny arkusz w lokalizacji określonej w komórce arkusza pod nazwą również pobieraną z komórki. Ograniczeniem jest to, że zapisywany jest aktywny arkusz. Co dopisać, aby do pdf były zapisywane arkusze, których nazwy również byłyby pobierane z komórki wskazanego arkusza? [syntax=vbscript]sub Export_to_pdf()...
wstawiłem nazwę arkusza do komórki, dalej funkcją poszło banalnie już.
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...
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...
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...
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")...
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
Ż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...
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...
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ę...
[syntax=vbscript]nazwa = ActiveCell.Value With ThisWorkbook .Sheets("wzor rodzinne").Copy ActiveWorkbook.SaveAs .Path & "\rodzinne\" & _ nazwa & ".xls" ActiveWorkbook.Close End With[/syntax]
Zerknij do załącznika. Kod w arkuszu + UserForm. Kod uruchamia dwuklik w zakresie E2-E22 ;)
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.
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...
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)
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...
Być może chciał [syntax=vb]karta = Range("A2") Sheets(karta).Visible = True ' itd. [/syntax]
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
Chciałbym w programie dodać możliwość eksportowania danych przez użytkowników bezpośrednio do ich własnych plików excela. Z wysyłaniem danych do pliku o znanej nazwie i do znanej lokalizacji nie mam problemu, ale w jaki sposób mogę przesłać dane do wybranej przez użytkownika komórki? Nie znam nazwy pliku, arkusza oraz adresu komórki. Próbowałem klasycznie...
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...
Możesz również pobawić się funkcją INDIRECT.EXT ale wiąże się to z zainstalowaniem dodatku.
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:...
WYSZUKAJ.PIONOWO, zdaje się, nie działa na zamkniętych plikach. Formułę masz źle zapisaną, ale to nie ma znaczenia. Funkcja KOMÓRKA zwróci informacje o pliku, w którym jest formuła (Thisworkbook), drugi argument jest zbędny. Jakimś wyjściem byłoby zapisanie zawartości obu kolumn (1 i 7 jak wynika z arg. VLOOKUP) do tablicy z wykorzystaniem ExecuteExcel4Makro...
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...
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...
Jedynie odwołując się do indeksów arkuszy zamiast do nazw. Np po kolejności komórek w kolumnie. [syntax=vb]Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) arg = Split(Target.SubAddress, "!") sh = Target.Parent.Row - 1 'link w 4 wierszu dot Sheets(3) adr = arg(1) With Sheets(sh) .Visible = True .Activate .Range(adr).Select End With End...
Z samy liczeniem tekstu nie ma problemy bo jest CZY.TEKST który świetni sobie z tym radzi. Chodzi o to by ten tekst liczony był z pewnej kolumny (np A) arkusza, którego nazwa będzie wyświetlona w pewnej komórce np A1
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...
Wystarczy użyć funkcji Wyszukaj(). https://obrazki.elektroda.pl/4530878600_... Oczywiście, jeże wyszukiwanie ma być w innym arkuszu to trzeba odpowiednio zmienić zakresy komórek (przed zakresami jest nazwa Arkusza np. =WYSZUKAJ(A1;Arkusz1!A1:A5;Arkusz1!B1:B5... ).
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...
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
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...
A jak zmienić kod aby do zmiany wartości była uwzględniana tylko kolumna C, ale skrypt był wyzwalany po zmianie w kolumnach B, C, D. Do tych kolumn wklejam jednocześnie dane, po wklejeniu danych do trzech kolumn skrypt nie działa. Wstępna ocena dostępnych informacji Witam ponownie, Zrozumiałem, że chce Pan zmodyfikować skrypt w Google Apps Script tak,...
Jeszcze nie działa... a nie powinienem dodać także nazwy arkusza?
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
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...
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
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...
Zamień linie [syntax=vbscript][ActiveWorkbook.Workshe... na [syntax=vbscript]Sheets(CStr([B1]))[/syn...
Witam, bardzo proszę o pomoc.W zakładce suma mam imiona osób. Chcę posortować całość po innych arkuszach tak aby każda osoba miała swój arkusz. Jeżeli w arkuszu suma w kolumnie A jest wpisane imię Dariusz to ta linia powinna zostać przekopiowana do arkusza o nazwie Dariusz. Aktualnie robię to funkcją Jezeli i Komórka. Gdy nazwa arkusza równa jest wartości...
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).
Wrzuć ten plik na elektrodę. Trzeba zobaczyć jak to wygląda i odwołać się do konkretnych komórek i nazw arkuszy.
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)...
Musisz wpisać coś takiego: ActiveWorkbook.XmlImport URL:="C:\Users\Humano\Downloads\" + Worksheets("Obliczenia").Range("D1").Val... _
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:
Czyli ustawiasz kursor w którymś z wierszy, naciskasz przycisk i ma się dodać wg wartości w tym wierszu? Oj, żebyś żonie nie uprzykrzył ;) Nie rozsądniej byłoby zrobić to za pośrednictwem formularza? Wybierasz z pól kombi (stan w podglądzie) i dodajesz pod przyciskiem. Update 7:50 Coś jak w załączniku. W ostateczności wykorzystaj makra...
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ć...
Odwołanie, tak aby przy zmianie danych w kolumnie pierwszego arkusza, zmieniały się dane w komórkach A1. Nazwy arkuszy: Arkusz pierwszy: "zestawienie" w tym są dane do kopiowania kolejne arkusze: 9A 01, 9A 02 itd do 9A 120. Czy tworzenie takiego makra nie jest bardziej pracochłonne od ręcznego wstawiania odwołania w każdym arkuszu?
bardzo dziękuję. poniżej jeszcze kilka pytań. ' w komórce B1 - nazwę arkusza wejściowego, np. Arkusz1, -arkusze nazwane są raport sprzedaży 1234 (może jakoś zawęzić że jeśli nazwa arkusza zaczyna się od: raport sprzedaży to żeby z tego brał ' w komórce C1 - zakres do skopiowania, np. A1:B10, - ten zakres jest różny (może coś z : Range("A2:N").Select...
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
Witam. Czy jest możliwe, aby Excel pobierał dane z arkusza, którego nazwa jest w innej komórce arkusza głównego? Przykłady: Jeżeli w arkuszu głównym w komórce A1 jest tekst "Arkusz2", to w komórce A3 ma się pojawić wartość z komórki A1 w "Arkusz2". Jeżeli w arkuszu głównym w komórce A1 jest tekst "Arkusz3", to w komórce A3 ma się pojawić wartość z komórki...
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()...
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...
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...
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...
Pewnie to proste ale nie mogę sobie poradzić. Mam makro umozliwiajce wstawiane zdjęć do komórki po wpisaniu nazwy zdjecia w komórce obok. Obecnie arkusz tego excela znajduje się w tym samym folderze co baza zdjęć ( np KATALOG 2019) sciezka = ThisWorkbook.Path & "/". Jak zapisac ściężkę aby arkusz znajdował sie w innym folderze ( np. OFERTY).
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...
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ć
Kiedyś robiłem taką funkcję ale gdzieś mi uciekła mam nadzieję że mi pomożecie w tym temacie. mam listę arkuszy chcę użyć nazwy i dodać komórkę odniesienia aby pobrać dane np. Arkusz1 ----> =Arkusz1!F9 Arkusz2---->=Arkusz2!f9 Dobrze by było jakby z 2 komórek pobierał dane lub używał funkcji wyszukaj.pionowo
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...
W przedstawionym przykładzie "grafik.xlsx" wykorzystana jest lista rozwijana z której alfabetycznie wpisywani są uczniowie wyznaczeni do pełnienia dyżurów (arkusz - lista uczniów). Czy można przerobić grafik w taki sposób aby w arkuszu "Grafik" w polu listy rozwijanej z nazwiskami, nazwisko podstawiało się automatycznie po wpisaniu 1-2-3 liter nazwiska...
Witam, właśnie to starałem się wytłumaczyć - kod, który istnieje rozlicza wszystkie elementy danego np. RZ-1111 (jeśli jest wpisane do komórki "G-1") czyli w tym przypadku rozlicza tak jakby we wszystkich komórkach zakresu "I21:I25" (tutaj - ogólnie "I2:I70 dla całej tabeli) było wpisane RZ-1111, a mi chodzi o taką modyfikację kodu aby rozliczało elementy...
Tak string był przyczyną, dziękuje za pomoc, działa. A jeszcze jedno pytanie ja, pobrać licznik od nazwy arkusza np akruksz1 (1) i wstawić w komórkę np B2 w danym arkuszu1? Dodano po 11 Ha ha niepomyśleniem że to może być tak proste funkcja wyświetla nazwę arkusza i nie tylko KOMÓRKA("filename")
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ę...
Nie wiem po co początek kodu ale kod: For Each ark In Worksheets If ark.Name <> "Zestawienie_ogólne" Then Range("A7:A1000").... Cells(i, 1).Value = ark.Name i = i + 1 End If Next należy na spokojnie przeanalizować. Pętla ma być na wszystkich arkuszach. czyść od A7 do A1000 w komórce A7 wpisz nazwę arkusz...
Ten plik działa prawie poprawnie. Jedyne, co mi się rzuciło w oko to brak nazwy magazynu na arkuszu. Powód: Range("J1").Select ActiveCell.FormulaR1C1 = x Range("H1:M1").Sel... "x". Wyszukiwanie arkuszy OK.
Czy rozwiązaniem jest tylko makra, czy jest możliwość zrobienia tego za pomocą funkcji?? Próbowałem z funkcją Wyszukaj, ale zostawało wtedy dużo wolnych pól gdyż każdy wiersz jest przeszukiwany dla każdego miasta, a właściwy rekord jest tylko dla jednego miejsca dostawy... Pewnie można ... :| ... Tylko wzory będą kosmiczne i będą zajmować dużą ilość...
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
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...
W arkuszu "Szafki" są podane nazwy szafek oraz ich wymiary. W arkuszu "Zabudowa" po wpisaniu nazwy szafki komórka A3 pojawiają się odpowiednio w komórkach C3, D3 i E3 wymiary dla danej szafki. W tych trzech komórkach tj. C3, D3 i E3 jest wpisana formuła WYSZUKAJ.PIONOWO która po wpisaniu nazwy szafki w komórce A3 automatycznie pobiera wymiary tej szafki...
Post pod postem, ale jakoś chcę zwrócić uwagę autora :) Tak z niedzielnych nudów zacząłem kombinować z tymi pętlami. A jak już jest (prawie) gotowe, to wrzucam. Może się przyda... Warunkiem jest umieszczenie pracowników w odpowiednich wierszach zgodnych z Nr ewidencyjnym i Lp. tzn jeśli Pani Monika ma NrEw. 2 i jest w 4 wierszu (Lp 3), to tak musi być...
nazwa komórka nazwa arkusz nazwa arkusz excel komórka excel nazwa arkusz komórka
rozebrać klapa pralka klapka megane seicento klema
maszyna minerva śmieszne obrazki
Brak reakcji na pedał gazu w silniku 1.6 TDI Wymiana odpowietrznika przy włączonej instalacji grzewczej