Witam zbyt krótki tytuł arkusza -F3. może pokrywać się z nazwą komorki, jeśli w F3 jego nazwę:
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=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]
[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
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ć.
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...
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ść...
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
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ść...
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]
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.
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...
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-...
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
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'.
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]
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...
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...
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...
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...
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...
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...
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...
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")...
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...
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...
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...
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()...
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...
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...
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ę...
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...
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)
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
[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...
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]
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... ).
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...
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...
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:...
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...
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...
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...
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...
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
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...
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...
Jeszcze nie działa... a nie powinienem dodać także nazwy arkusza?
Proszę o pomoc w makrach Stworzyłem arkusz do obliczeń. Makro które zarejestrowałem importuje mi do "Arkusz1" dane z pliku o określonej nazwie. Nie wiem jak stworzyć makro by nazwa tego pliku była pobierana z komórki o adresie np: D1 arkusza "Obliczenia" znajdującego się w tym samym skoroszycie Moje makro: Sub pobieranie_danych() ' ' pobieranie_danych...
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
Zamień linie [syntax=vbscript][ActiveWorkbook.Workshe... na [syntax=vbscript]Sheets(CStr([B1]))[/syn...
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...
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)...
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ć?
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...
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
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...
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...
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...
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).
próbowałem najpierw wkleić kod Gdzie próbowałeś wkleić kod? Zobacz w projekcie makra, że kod jest "bezpośrednio" w arkuszu a nie w module. U mnie działa: Nowy arkusz, wstawiam wykres, kopiuje kod makra do arkusza (nie do modułu) i zmieniam wartość w tabeli ... tatam. Na marginesie jeżeli już masz "coś" w tym arkuszu w którym chcesz ten kod wykorzystać:...
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...
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...
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...
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, 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
Cześć, Proszę o pomoc ponieważ nie potrafię sobie z tym poradzić, a nie jestem biegły w temacie makr. Otóż pilnie potrzebuję skonstruować plik, który pełniłby rolę programu do generowania prostych faktur. Plik zrobiony według rzeczywistych potrzeb, miał zostać jedynie zautomatyzowany tak, by po kliknięciu w przycisk "Generuj wydruki" odbywał się zapis...
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...
W załączonym pliku w arkuszu jest Combobox 1 utworzony z poziomu arkusza. Zależy mi na Combobox nazwa "CH", który został utworzony z poziomu makra -VBA.
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.
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ć...
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
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...
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...
Lista kontrahentów w zasadzie jest stała, chociaż dobrze by było gdyby listę można było powiększyć w przyszłości, bo różnie to bywa. co do punktu pierwszego: w arkuszu NUMERY KONT BANKOWYCH: kontrahent to: MASARNIA. Ale z tej masarni w ciągu roku mam przykładowo 200 faktur gdzie w tytule przelewu wpisuję za każdym razem inny numer Cały problem polega...
Witam, Mam problem, chciałbym żeby makro robiło natępujace rzeczy: a)zaznaczyło wszystkie arkusze w skoroszycie b)każdy arkusz zapisało pod nazwa zawartosci komórki A2 w komorce A2 tekst w arkuszu1(ala), w arkuszu2(basia), w arkuszu3(marysia) w folderze w którym znajduję się skoroszyt.
Witam, jestem całkiem zielony w arkuszach kalkulacyjny jeśli chodzi o makra i potrzebuję pomocy. Utworzyłem skoroszyt w którym są trzy arkusze. Pierwszy to tabela przestawna, drugi to arkusz zbiorczy a trzeci to raport o nazwie '01'. Potrzebuję napisać następujące makro po włączeniu którego wartości z komórek od AS5 do BU5 z raportu będą kopiowane do...
nazwa komórki nazwa arkusza nazwa arkusza excel komórki nazwa arkusza
głowica próżniowy zrobić przenośne radio konto messenger
lombardini wtrysk lombardini wtrysk
Schemat instalacji elektrycznej Fiat Seicento 1.1 Sporting SPI MPI – opis, różnice, typowe usterki Eltra 7006 – migająca czerwona dioda, radio nie działa, brak reakcji po podłączeniu zasilania