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...
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,...
Zamiast przerabiać było napisać nowe makro, bo np. po co ci pętle. Najpierw musisz "pobrać" nazwę arkusza z A1 potem nr wiersza z B1 A potem wprowadzić dane w arkusz o nazwie zapisanej w zmiennej "nazwa" w wierszu zapisanym w zmiennej "wiersz". C1 w kolumnie 2 a D1 w kolumnie 3 Private Sub CommandButton1_Click() nazwa = Worksheets("Arkusz1")....
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...
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...
Podbijam, Mam też podobny problem. Chciałbym by makro porównywało wartości dla danego produktu z dwóch plików, jeżeli się rożnią to by wstawił obok np. do kolumny C A to nazwa produktu B to ilość W dwóch plikach taki sam układ. W kolumnie A i B mogą być puste wiersze. Poratuje ktoś ? :) Pozdrawiam Paweł Dodano po 1 Cześć, Dziękuję, Ale mam jeszcze jeden...
A co z nagłówkami, powtarzanymi wielokrotnie ? Ma być tylko jeden, czy ileś tam za każdym razem nowy i w wyniku nagłówkowy przekładaniec ? Edycja: Nie przyjrzałem się ... kopiujesz bez nagłówka ... Ale może przy pierwszym kopiowaniu powinien on być przenoszony jednorazowo ? Ręczie go wklepujesz/kopiujesz ? Edycja: Sprawdź: [syntax=vba] Option Explicit...
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...
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...
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...
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...
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()...
Dzieje się tak, ponieważ każda zmienna jest domyślnie widoczna tylko w obrębie danej procedury. Nie możesz w CommandButton1_Click() przypisać Set wb = Workbooks.Open(sciezka), a próbować ją odczytać w innej: CommandButton2_Click(). Żeby nie kombinować ze zmiennymi globalnymi: 1. Albo w CommandButton1_Click() w miejscu komentarza '.......dalsza część...
Najlepiej by było gdybyś w załączniku podpiął twój przykładowy arkusz. Wtedy łatwiej będzie znaleźć ten błąd. I jeszcze jedno - na chwilę obecną to makro sprawdza wszystkie kolory z palety więc nie trzeba nic definiować. Wklej ten kod między Private Sub ...() a End Sub Dim kom As Range, i As Integer Application.ScreenUpdating = False Range("AB5:AC60")....
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...
To sprawdź sobie takie rozwiązanie.
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ę...
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...
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ę...
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 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...
Dzień dobry, Mam plik Excela w którym każdy z arkuszy zawiera podobną tabelę. Szukając na forum znalazłem makro kopiujące wybrany arkusz wzorcowy i zmieniające jego nazwę na kolejną o 1 wyższą. W tym przypadku wygląda to tak: [syntax=vbscript]Sub AddRecipe() Dim Sh As Worksheet Dim intName As Integer Dim shName As String Dim strNazwa As String Sheets("P000").Copy...
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...
Hej, potrzebuję pomocy w przekształceniu makra, tak aby dzieliło mi wskazane arkusze wg klucza i zapisywało wszystko do nowego skoroszytu. De facto mam: 5 arkuszy o nazwach :dane1, dane2, dane3, dane4, dane 5 oraz 4 arkusze o nazwach: arkusz1, arkusz 2, arkusz3, arkusz 4 Potrzebuję makra które podzieli mi 5 arkuszy [dane1 ... dane2] wg klucza z arkusza...
Ad 1. Tu należy zwrócić uwagę, że każdy arkusz ma w VBA dwie nazwy, tzw. nazwę "zakładkową" - widoczną na zakładce arkusza i nazwę kodową - dostępną tylko w VBA. Te nazwy są początkowo identyczne, ale użytkownik może je zmieniać niezależnie, więc mogą później się różnić. Jeśli piszemy odwołanie: Jaka jest różnica pomiędzy: ActiveCell.FormulaR1C1 / ActiveCell.Formula...
Z ActiveX nie trzeba aktywowac arkuszy i zaznaczyc checkBox,[może mieć taką samą nazwę (na różnych arkuszach)]
jak zapisać dla zmiennych nazw arkuszy Jeśli zadeklarujesz jako stringi i będziesz tworzył funkcjami tekstowymi nowe nazwy arkuszy to możesz to zrealizować np [syntax=vbscript]Sheets("dest").Copy After:=Sheets(4) Sheets("dest (2)").Select Sheets("dest (2)").Name = nazwa dWb.Save[/syntax]
Problem jest taki że makro w Excelu nie zaciąga danych z komórek odnoszących się do innego arkusza. Przypominam, że na prośbę autora postu kod został dostosowany do ściągania danych tylko z pierwszego arkusza wszystkich plików ze wskazanego folderu :D Kod jak widać działa tak, że ściąga wpierw wszystkie dane ze wszystkich pierwszych arkuszy , a dopiero...
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?
1. Każdy plik ma unikalną nazwę. 2. W każdym pliku są 2 arkusze o nazwach (ORYGINAL i KOPIA). Chciałbym, żeby nazwa arkusza była taka sama jak pliku. Czyli dla pierwszego skoroszytu: Arkusz1 = nazwa pliku Arkusz 2 = nazwa pliku(2) lub nazwa pliku(K)
(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...
Dzień dobry, Nie wiem dokładnie co to makro miałoby robić, jeśli odwołuje się do obiektów z docelowego arkusza to można całość objąć instrukcją With: With Worksheets("Arkusz2") 'tu nazwa docelowego arkusza ' .... kod makra End With W kodzie makra nazwy tych obiektów, które odnoszą się do arkusza docelowego należy poprzedzić kropką, to znaczy np. .Range("A2")...
Witam, wiem że był podobny temat, jednak tamten mi nie pomógł a ciężko znaleźć jakiekolwiek informacje w internecie. Od kilku dni męczę się z tym kodem, chciałbym aby po kliknięciu przycisku dodawał się nowy arkusz z nazwą pierwszego + kolejny numer po prawej stronie według kolejności, mam makro tworzące kolejny arkusz, lecz pusty oraz mam makro kopiujące...
Witam, chciałabym utworzyć raport z automatycznym filtrem który posortuje dane według kryterium wybranego z listy rozwijanej a następnie przeniesie dane do nowego pliku pod nazwa wybranego kryterium czyli np kryterium to „market” „EMEA” i zapisze w tej samym katalogu gdzie plik z którego filtruje „bazowy”. Problem...
Witam, Szukam rozwiązania, które zmniejszy ilość ręcznego kopiowania danych pomiędzy raportami. W pierwszym pliku mam dane w kolumnach od A do HH które muszą zostać skopiowane do innego pliku jeśli nazwa kolumny w pliku X zgadza się z nazwą kolumny w pliku Y (kolumny z nazwami w wierszu nr 1 od A-IA. Nazwa Arkusza w pliku X to "Dane" a w pliku Y Details....
Dzięki bardzo ale mógłbyś wyjaśnić czy mam to umieścić na początku kodu? [syntax=vbscript]Rows(Target.Row).Copy Sheets("Inny").Cells(nw, 1)[/syntax] Czy tutaj zamiast "Inny" ma być nazwa arkusza czyli Venture Capital i ma to być powtórzone dla wszystkich trzech arkuszy (z wyjątkiem arkusza "All")?
Witam! Czy możliwe jest zaprogramowanie makrem wydruku dwustronnego, tak aby pierwsza strona pochodziła z "plik1" a druga z "plik2"? Obydwa pliki .xlsm znajdują się w różnych lokalizacjach. Docelowo każdorazowo potrzebuje wydrukować 4szt domyślnego obszaru wydruku z plik1 i na 2 z nich chciałabym aby z drugiej strony był domyślny obszar wydruku z plik2....
Cześć, Czy istnieje możliwość pobierania danych z Accessa do Excela za pomocą VBA? Chciałbym usprawnić sobie pracę w taki sposób. Chodzi o to by np. za pomocą Vba, makro odczytywało nazwę klienta, w tym przypadku Hurtownia Jan i kierując się nazwą klienta, albo NIPem pobierało dane tego klienta z bazy danych Access do drugiego arkusza pliku w Excelu....
Witam, Mam makro które stosuje filtr zaawansowany w arkuszu „baza” wg parametrów z arkusza „parameters” - zakres zdefiniowany jako nazwa „parametry”. Stosuje filtrowanie zaawansowane gdyż plik musi być shared wiec nie mogłem zastosować formatu tabeli i obiektów slicer. Makro przestaje działać gdy włączę opcje shared....
Witam Bardzo proszę o pomoc. Niestety moje umiejętności z vba nie są na najwyższym poziomie, a poniższe makro bardzo przyspieszyło by mi pracę. Często muszę tworzyć raport z wszystkich lat, dla szukanej przeze mnie nazwy ulicy. W załączeniu przesyłam plik z czterema arkuszami. Potrzebuję makro, które wyszukuje wiersze po nazwie ulicy. Nazwa ulicy znajduje...
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...
Faktycznie działa - bardzo dziękuję za odpowiedź i pomoc :-) Makro prawidłowo dodaje z każdego nowego pliku ostatni arkusz. Potrzebuję jeszcze aby z każdego pliku źródłowego poza skopiowaniem całego ostatniego arkusza "wyniki" dodatkowo z pierwszego arkusza "Dane" kopiowało A18:B18 i wklejało w "Lista plików" w arkuszu "podsumowanie" w kolumnie F w...
Nie sądzę ... podsumujmy zatem, na podstawie kodu, co mamy: 1. Arkusz zbiorczy nazywa się "Aktywność" 2. Tabela zbiorcza znajduje się w zakresie "B18:O2000" 3. Nagłówki tabeli zbiorczej znajdują się w zakresie "B18:O18" 4. Tabele źródłowe w plikach dawców znajdują się w arkuszach nazwanych "Aktywność" 5. Tabele źródłowe w plikach dawców mają nagłówek...
Cześć! Mam pewien problem z którym borykam się od dłuższego czasu. Na VBA się nie znam... potrafię jedynie nieco dostosowywać kody, do swoich potrzeb, ewentualnie łączyć kilka w jeden. Ale z tym tematem sobie nie radze. Może mi pomożecie... Mam pliki o różnych nazwach. W każdym z plików są 3 arkusze- zawsze tak samo nazwane. każdy arkusz zawiera różny...
W przedstawionej procedurze eksportujesz (czy raczej usiłujesz ? :D ) do PDF dwa pliki komputer.xlsx i porto.xlsx :?: Planujesz zmieniać nazwy tylko plików komputer ? poprzez wprowadzenie do nazwy daty eksportu - formatowanej właśnie w takim stylu "yy.mm.dd" :?: czy też koniecznie oznaczyć datą z komórki A1 arkusza z makrem ? Proszę o wyjaśnienie
Jeśli będziesz uruchamiał makro zawsze na tym arkuszu, możesz się do niego odwołać przez ActiveSheet. Jeżeli arkusz jest tylko jeden lub zawsze na tej samej pozycji - wówczas przez Worksheets(x) - gdzie x = numer arkusza
Cześć, mam do napisania Makro, które będzie tworzyło nowy plik Excel i wstawialo w nim tabele, której elementami będa konkretne wartości z pierwszwgo excela oraz spis jego arkuszy, powiem szczerze,że makro wywala mi się na odwołaniach do oryginalnego Excela (nazwa "Zadania"). nie jestem niestety ekspertem VBA i chyba moja wiedza sie wyczerpała. dzieki...
Witaj Cóż został otwarty. Po pierwsze - w makro i nazwa arkusza są różne. Napisz je tylko w języku łacińskim, a najlepiej bez spacji, na przykład: Wyniki_pomiarow Wymieniłem aż, że błędy nie widać. Pproblem był z ó p.s. te dziwne pomiary tak powinno być? 7RW 5RF Dodano po 2 jedynie gdy bym w tym momencie chciał wyjść z tabelki przyciskiem NIE - nie...
tylko że nie mam pojęcia większego o VBA i nie wiem jak zrobić lub jakiego hasła poszukać dla wyboru lub dodawania arkusza pytanie czy makro z openoffica zadziała: Sub WstawNazwanyArkusz() Dim Nazwa As Variant Nazwa = InputBox("Wpisz nazwę dla nowego arkusza:", "Nazwa nowego arkusza") If Nazwa = "" Then GoTo brak Else Sheets.Add.Name = Nazwa Exit Sub...
excel makro nazwa arkusza makro nazwa arkusza excel nazwa arkusza
samsung smart control pilot głowica la1185 odpowietrzenie beretta
Zworki na dyskach SATA 3,5" w RAID1 – konfiguracja RAID1 na HDD Seagate, WD, Toshiba Schemat podłączenia syreny alarmu Kia Cee'd ED JD CD – kolory przewodów, lokalizacja, pinout
