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?
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...
Musisz jakoś wskazać z którego arkusza chcesz usunąć dane. Excel (makro) to nie jasnowidz. Albo ustawisz stałą nazwę abo jak radził kolega walek wykorzystasz indeks arkusza (lub jego nazwę w VBA) Czyli zastąp Sheets("1").Select Sheets(2).Select (ale wtedy arkusz z którego usuwamy musi być drugi w kolejności) lub Arkusz2.Select (Arkusz2 to nazwa obiektu...
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"...
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:
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...
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...
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...
W Twoim kodzie było: [syntax=vbscript]ActiveWorkbook.Close[/s... tę linijkę po prostu przepisałem. Gdy zapisuje się plik pod nową nazwą przez SaveAs, otwarty skoroszyt przyjmuje nazwę zmienioną pod którą był zapis. Nie wiem, czy można zmienić nazwę otwartego skoroszytu inaczej niż przez zapisanie go. Zatem w tym przypadku proponuję ponowny zapis...
Jak zrobić odwołanie do arkusza w innym skoroszycie_2 gdzie nazwa arkusza to pozycja "A2" ze skoroszytu_1? =[skoroszyt2.xlsx]nazwa_arkusza!... nazwa_arkusza = pozycja A2 z dowolnego arkusza skoroszytu_1 Użyj funkcji [syntax=vb]=ADR.POŚR(A2)[/syntax] A dokładniej [syntax=vb]=ADR.POŚR("[skoroszyt2.xlsx]"...
Po pierwsze: z którym fragmentem nagranego kodu masz problem? Po drugie: Nagraj makro kopiowania całego arkusza do nowego pliku ze zmianą jego (pliku) nazwy. Masz 100% gwarancji zachowania formatowania. Jeśli w arkuszu jest nadmiar danych można dopisać usuwanie. Jeśli jesteś początkujący, to nagrywarka jest podstawą. Przykład: To jest nagrane makro...
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...
Niby proste, a bez szczegołów to nadźgać tu można tyle różności, jak do tobołka ... Założenia: 1. Weryfikacja (jakakolwiek) kopiowanych danych 2. Plik zestawienia w tym samym katalogu co Wz-wzór, jeśli nie to ścieżkę trzeba wpisać "ręcznie" do zmiennej 3. Sprawdzanie, czy plik zestawienia nie jest przypadkiem już otwarty 4. Nazwa pliku zestawienia wpisana...
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...
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....
Nie precyzujesz co ma być zapisane w nowym pliku. Zakładam, że arkusz "dane". Wklej kod do modułu standardowego, zdefiniuj ścieżkę zapisu i podepnij pod przycisk [syntax=vb]Sub Zapis() sc = "C:\" 'wpisz path jako string, koniecznie z ukośnikiem na końcu nazwa = Range("B1") If Cells(1, 2) & Cells(2, 2) <> Empty Then With Sheets("dane2") ostWrs...
po co w niej jest to: & "_Szychtownice" ? to chyba jest raczej niepotrzebne To nie mój wymysł. Tak miałeś w oryginale. w zakresie Sheets("Menu").Range("A6:A15") również są cyfry od 1 do 10 To skąd to? W s i nazwa jest *=2. Poniższy kod działa tylko, gdy nazwa arkusza jest poprawna. [syntax=vbscript]Private Sub CommandButton2_Click() Dim Sciezka As...
Gotowe makro napisane pod Excel 2003: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-09-22, autor sidsysunia ' ' Klawisz skrótu: Ctrl+q ' Sheets("zestawienie").Select p = Range("c1") 'tu sprawdza ile masz pozycji Range("a2:b" & p).Select ' tu zaznacza wszystkie pozycje bez nagłówka Range("a2:b" & p).Copy 'kopiowanie Sheets("przeliczanie").Select...
Witam Pracuję codziennie z takim samym plikiem excell posiadającym jeden arkusz, aczkolwiek za każdym razem nazwa tego arkusza się zmienia. Aby zautomatyzować sobie dalszą obróbkę danych potrzebuję makra, które zmieniałoby tę nazwę na nazwę wybraną przeze mnie. Dzieki
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...
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...
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...
Podmieniłem pętle i opisałem co najistotniejsze. Nie sprawdziłem działania.[syntax=vb]Sub testit() dato = Range("B3") ' nazwa folderu z plikami do pobrania danych myvar = ThisWorkbook.Path & "\" & dato 'wywołanie funkcji If TypeName(myvar) <> "Boolean" Then For i = LBound(myvar) To UBound(myvar) ' otwieram 1 odnaleziony skoroszyt (a w...
... 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 '...
Mam tylko problem u mnie nazwa arkusza jest zawsze inna ( różne piliki są otwierane) Zamiast I jest jeszcze problem z zakresami, w pliku docelowym ma on być kopiowany w pierwszy wolny zakres. Więc tam, gdzie teraz jest przykładowo[syntax=vb]wswyn.Range("A2:D2... = wsSrc.Range("A2:D2").Value[/syntax] wstaw [syntax=vb]ost_w = wswyn.Cells(Rows.Count,...
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...
Najprościej byłoby zastosować jakąś pętlę w VBA, ale można próbować po "excelowskiemu". Np dołożyć jeden arkusz roboczy, w którym tworzymy tabelę i szukamy wyniku, a w głównym dać tylko odwołanie... Całość oparta jest o funkcję ZNAJDŹ i jeśli nie ma tekstu z kolumny A w dowolnym wierszu kolumny B, to funkcja zwróci #ND! Na podanych przez Ciebie danych...
Excel - Dynamiczna nazwa arkusza, definiowana przez komórkę z polem kombi (rozwijanalista) Cały dzień próbuje utworzyć formułę która pozwoli mi zmieniać arkusze wraz ze zmianą wartości w komórce na liście, niestety cały czas pojawia się jakiś błąd w formule. O co chodzi: Terminy.jpg - Widzimy tu główny plik excel zarządzający bazą danych. http://obrazki.elektroda.pl/4456116100_1...
Potrzebne będą dwie zagnieżdżone pętle. W przykładzie poniżej, makro porównuje nazwę arkusza z fragmentem ciągu w komórkach kolumny 'A'. Urozmaiciłeś nieco różną wielkością liter, dlatego LCase . Do modułu wklej [syntax=vb]Sub Kopiuj() Dim wk As Workbook, ark As Worksheet, myFile As String, wrs As Long myFile = "c:\Statystyka.xlsx" 'ścieżka i nazwa...
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
Witam, problem polega na tym, że posiadam dwa spore pliki w programie excell 64 Mb i 66 Mb. W każdym z plików, w każdym z wierszy znajdują się w osobnych komórkach NAZWA i szereg odpowiadających im wartości liczbowych. W jednym pliku mam 27 tys. wierszy na 102 kolumny, w drugim podobnie, przy czym niektóre nazwy w obrębie danego pliku się powtarzają,...
Witam wszystkich. Jaka jest możliwość zmiany ścieżki dostępu do komórki w określonym skoroszycie i danym a arkuszu na zmienną? Mam takie odwołanie: ='D:\URLOPY 2010\[URLOP 2010.xls]STYCZEŃ'!AL68*8 jak zmienić segment tej ścieżki odpowiedzialny za nazwę arkusza STYCZEŃ na zmienną żebym mógł sobie w innej komórce wpisać nazwy innych miesięcy bez potrzeby...
...ListView, który jest inną kontrolką niż ListBox (ma inne właściwości i inaczej się do niego ładuje dane). Ten sposób ListView2.ListItems = "'BAAN 3'!G8:K97" ładowania danych NIE JEST poprawny dla ListView, zapomnij o nim. To działa tylko z ListBox'em. USUŃ z formy wszystkie ListBoxy które tam miałeś... Zamiast nich wstaw i skonfiguruj...
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...
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ę...
Już Ci pisałem w poprzednim wątku, że jeśli oczekujesz pomocy, powinieneś załączyć plik z danymi i kodem, żeby można było przetestować, co się dzieje. Mało kto ma taką wyobraźnię, żeby przewidzieć wszystkie Twoje ustawienia i układ danych. Bez pliku to jest tylko zgadywanie. Niektóre zwyczaje użyte w tym programie są niezbyt dobre, np. używanie nazwy...
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)
Dzień dobry, Czy jest możliwość aby z 1 arkusza wyszukiwało firmę i w 2 arkuszu uzupełniało automatycznie dane z kolumny przypisanej do tej firmy z 1 arkusza. Gdy dane wpisywane są w 1 arkuszu w skrócie ciągiem znaków, a w 2 zakładce pełna nazwa ? Konkretnie tak jak w załączniku W arkuszu 1 dane FirmaWrocław dostarczyla mORI - 2szt, mHD-55, dHD-1 a...
Super bardzo fajnie to działa sprawdziłem dodałem kolejne zdublowane makro ze zmienioną nazwą arkusza i działa. Jest jeszcze pytanie jeśli zmieniłem nazwy wszystkich arkuszy makrem na podstawie listy z arkusza1 poprzez dodanie w menadżerze nazw pod nazwą ListaArkuszy formułę [syntax=vbscript]=ZASTĄP(O.SKOROSZYCIE(1...
Bardzo dziękuję za pomoc, wszystko działa :). pp1 to nazwa głównego arkusza, który ma być kopiowany, nazwę taką ustawiłem ręcznie.
A gdzie ma być to makro zapisane? Tak jak miałeś zrobione, to wszystkie arkusze zostałyby przeniesione do nowych skoroszytów (bez makr), a ten skoroszyt źródłowy zniknąłby wraz z makrem, bo nie byłoby w nim arkuszy. Musisz mieć przynajmniej 1 arkusz (ja go nazwałem Ostatni), który zostanie w skoroszycie i wraz z nim makro. Ten skoroszyt możesz sobie...
Tak przy zapisie pobiera część nazwy z komórki np. dane październik 2014.xlsm i ta nazwa podkreślona by była zmienną, co do tych ukrytych arkuszy mogę użyć polecenia sheets(25) czy muszę podać nazwę arkusza?
Witam, Szczerze mówiąc zupełnie nie kumam VBA, a potrzebuje napisać makro, które bardzo ułatwi mi życie. Dla kogoś kto cokolwiek z tego rozumie to pewnie pestka, a ja będę wdzięczny za pomoc w tym zakresie. Potrzebuję makro które będzie się uruchamiać na żądanie (np skrót klawiszowy) w otwartym arkuszu excel, który ma kilkanaście arkuszy. Nazwa arkusza...
Może opiszę konkretniej o co chodzi - mam np. plik Zestawienie (nazwa pliku będzie się zmieniać), do którego mają się pobierać dane np. z Arkusza 1 kom. A1 pliku o nazwie Dane wejściowe (ta nazwa także będzie się zmieniać).
(at)dt1 Jak dla mnie to porady na forum ELEKTRODA odnośnie Excela VBA nie powinny mieć miejsca. Jest to w pewny sposób wykorzystywanie umiejętności informatycznych ludzi, którzy kiedyś musieli nauczyć się od zera VBA, a teraz maja podawać kawę na ławę zatrudnionym pseudo informatykom pracującym w biurze i przeważnie na posadach państwowych lub w dużych...
Excel vba usunięcie arkuszy o początkowej nazwie Arkusz*. Mam w Skoroszycie kilkanaście arkuszy i chciałbym usunąć kilka, których nazwa zaczyna się np. ArkuszXX, gdzie XX to kolejny numer arkusza i tródno zdefiniować jaki. Pozostałe mają inną nazwę np. Imię. Prosiłbym o jakieś uniwersalne rozwiązanie.
Hej, Dzięki PRL za zainteresowanie i pomoc. Dalej mam problem z tym plikiem przy zastosowaniu Twojego kodu z uwagi na inną nazwę pliku : https://obrazki.elektroda.pl/5185835600_... Myślałem, czy nie można by było kodu napisać pod nazwę danego arkusza, a nie skoroszytu ? Miałby sczytać nazwę i jeśli pasuje to by zadziałał ? Nazwa arkusza...
Witam chciałbym by w komórce nazwa szukanego elementu po wpisaniu pierwszych liter samo się uzupełniało z arkusza baza jeśli wpisałbym pierwsze litery np. BOD to pojawiały by się pod spodem wszystkie elementy z tej kategorii BOD. Druga sprawa jeżeli w arkuszu "baza" zaznaczyłem kolorem żółtym komórkę C2 to czy wyszukiwaniu w "wyszukiwarka" także pokaże...
Cześć, Mam taki problem. Chciałbym kopiować dane z jednego pliku do drugiego za pomocą vba. Program ma dopisywać arkusz z datą kwitu wagowego do tzw. "pliku łącznego" w innym folderze. (nazwa piku łącznego jest taka sama jak nazwaklienta na kwicie wagowym) Napisałem krótki kod, który miałby to robić, jednak problem jest wtedy gdy w nazwie klienta "pliku...
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...
Użyj funkcji [url=http://office.microsoft.com/pl-pl/e... i wytnij z jej wyniku nazwę arkusza.
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...
A gdzie przykładowy plik? Próbowałem sobie odtworzyć tę sytuację i błędu nie stwierdziłem. Spróbuj jeszcze raz. Wpisz formułę gdy plik źródłowy jest otwarty. Formuła działa? Teraz zamknij plik źródłowy. Nadal działa? Otwórz ponownie. Teraz pojawia się błąd? A po zamknięciu znika? Dość dziwne to jest. Może nazwa arkusza jest jakaś nietypowa?
Mój kod sprawdza czy w skoroszycie istnieje arkusz o nazwie takiej jak nazwa użytkownika i jeśli ten warunek jest spełniony to zostaje odkryty taki arkusz a wszystkie pozostałe są ukrywane. Jeśli w skoroszycie nie ma arkusza o nazwie takiej jak nazwa użytkownika to zostaje odkryty jedynie arkusz o nazwie "Arkusz1". Innych warunków nie przedstawiłeś.
Witam mam problem z nazwami arkuszy a używaniem funkcji worksheets mianowicie np: worksheets("nazwa").Cells(1,1) powyższa funkcja działa ale tylko jeżeli nazwa arkusza nie zawiera spacji. Co zrobić żeby działała gdy nazwa arkusza ma spację. Tylko proszę nie pisać żeby zlikwidować spację w nazwie :)
nazwa arkusza excel makro nazwa arkusza nazwa arkusza excel komórki
dioda piszcze zamienniki tranzystorów katalog instrukcja wojskowa
17ips62 schemat telewizor 32lb550b
Yamaha RX-V750 vs Denon DRA-825R: Porównanie Cofnięcie Minecraft Bedrock na Xbox do starszej wersji
