[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]
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))....
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]
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...
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...
Wstawiłem tabelę, włączyłem rejestrator makr, zmieniłem nazwę w 'Narzędzia tabel'. Nagrało się m/in: https://obrazki.elektroda.pl/2689543600_... Odpowiedź: Tak, można
ws to zmienna tymczasowa, w której pętla for each przechowuje Worksheet z kolekcji na którym akurat jest. To makro działa na arkuszach workbooka, na którym zostało uruchomione (ThisWorkbook.Worksheets), jego nazwa nie ma nic do rzeczy...
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
Witam. W arkuszu mam utworzone makro do odznaczania pola wyboru Sub czyszczenie_komórek() Worksheets("wydatki").CheckBoxes.Value = False End Sub Problem pojawia się gdy chcę zmienić nazwę arkusza (lub wykonać jego kopię - co również powoduje zmianę nazwy). Wówczas makro przestaje działać, bo w kodzie makra jest odwołanie do nazwy arkusza, która przecież...
Z arkusza1 robię raporty w osobnych arkuszach Efekt taki jak na zrzucie 1041538 automatycznego kopiowania wyfiltrowanych danych z arkusza1 do kilku arkuszy :idea: (z nazwami arkuszy wg filtrowanych danych :D ) można zrealizować przykładowo tak jak w załączonym pliku. 1041541 Makro można uruchomić skrótem klawiaturowym ctrl+r :!: , dla dowolnej (jeśli...
To sprawdź sobie takie rozwiązanie.
Oczywiście, przy założeniu, że wiesz co znaczy "ostatni dodany" i "następny". Jeżeli masz wyłącznie arkusze nazwane: 2020, 2021, ... to wszystko jasne, ale jeżeli są też Arkusz1, itp. to sam widzisz. Musisz zatem napisać procedurę wyznaczającą ostatni arkusz: przeglądasz wszystkie i (ewentualnie pomijasz niepasujące do wzorca - metoda dowolna, nawet...
Wywołaj w kodzie arkusza 'Kredyty' (makro 'ListaZb' w module) [syntax=vb]Private Sub Worksheet_Activate() ListaZb 'nazwa uruchamianego makra End Sub[/syntax]
Ale po co te .Activate i .Select? Należy tego unikać, bo przy większych zadaniach tylko zabiera czas i powoduje miganie (jak nie wyłączysz ekranu). Zanim uruchomisz swoje wielkie makro, które będzie robiło rzeczy trudne do cofnięcia (kopiowanie), zrób sobie taki jeden drobiazg: utwórz arkusz (albo wybierz jakiś już istniejący) i zrób w nim miejsce na...
Wykorzystaj dwie kolumny. W pierwszej nazwisko, w drugiej nazwa/indeks przydzielonego arkusza. Reszta w załączniku. Makro przy każdej aktywacji robi porządek z hiperłączami i ukrywa arkusze.
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...
Cóż. Tabela przestawna pokaże Ci wszystko, ale dalej trzeba bystrego oka, żeby zauważyć różnice. Można zastosować "konkurencyjne rozwiązanie" we wszystkich arkuszach. W ostateczności napisać makro, które "wydłubie" wszystkie unikatowe indeksy/nazwy towarów z 3 arkuszy, oznaczy różnice w cenach, etc. i wpisze do osobnego arkusza wynikowego.
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")....
nazwy firm w zależności od statusu tylko na dzień dzisiejszy :?: Jeśli ten warunek jest istotny :?: to te nazwy firm będą jedynie w jednym wierszu (dane dla dnia dzisiejszego :D ) np. tak jak na zrzucie i w załączonym pliku :ok: 1088589 1088592 Jeśli koleżanka preferuje rozwiązania oparte o VBA :?: to można tu zastosować kod, który przy otwarciu pliku...
Zrobiłem nagrałem makro które automatycznie odświeża 3 tabele (co 5 minut). Nie do końca. Makro "start" odświeża 3 tabele i planuje jednorazowe uruchomienie makra "button3". Żeby działało co zadany czas musisz wywołać procedurę "start" w "button3". Co może być nie tak? makro czasem działa, czasem nie. Wpisz jawnie nazwę arkusza, w którym znajduje się...
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ę...
Przy okacji trochę mi sie koncepcja zmieniła - gdybym musiał wykluczyć więcej niż jeden arkusz - to dałoby się? Można wykluczać arkusze, można też uwzględnić tylko te z listy... Wykluczanie generalnie można zrobić tak: - wykluczasz Arkusz1, Arkusz2 i Arkusz3, drukujesz pozostałe[syntax=vbscript]If ws.Name <> Arkusz1.Name And ws.Name <>...
[syntax=vbscript]nazwa = ActiveCell.Value With ThisWorkbook .Sheets("wzor rodzinne").Copy ActiveWorkbook.SaveAs .Path & "\rodzinne\" & _ nazwa & ".xls" ActiveWorkbook.Close End With[/syntax]
Makro jest w kodzie arkusza REJESTR - reakcja na zdarzenie Worksheet_SelectionChange (wybor kursorem dowolnej komorki w arkusze REJESTR). Makro pisze w N1 (nazwa 'wiersz') numer wiersza w ktorem zaznaczena komorka. Dalej w PROTOKOL'e formula INDEKS wybiera z tego wiersza dane(w przykladzie tylko wartosc PROTOKÓŁ ODWODNIENIA NR: , reszta dopasuj wg tego)...
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
Na pierwszym arkuszu umieszczamy listę Combo. Żeby wyświetlić listę arkuszy można to zrobić w makro, które ładuje listę Combo przy otwarciu skoroszytu, w obsłudze zdarzenia Workbook_Open: [syntax=vb] Option Explicit Private Sub Workbook_Open() Dim iWiersz As Integer Dim ws As Worksheet iWiersz = 1 'Utwórz listę arkuszy w pierwszym arkuszu od drugiego...
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")...
Nagraj makro (kopiuj arkusz i zmiana nazwy) i pod nazwę podstaw 8 od lewej & 1 od prawej + 1 nazwy aktywnego.
Witam, Czy ktoś jest w stanie pomóc mi w napisaniu makra które tworzyło by nowe arkusze w pliku każdemu z nich nadając nazwę z kolejnej komórki kolumny istniejacego arkusza (kolumna G dane zaczynąją się od G4). Z samym wstawieniem odpowiedniej ilości arkuszy byłbym wstanie sobie poradzić ale nadawanie nazw mnie przerosło. z góry dzięki. pozdrawiam,
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ć...
NO tak, nie zmieniłam nazwy arkuszy i mówię że nie działa. Działa. Makro przechodzi pięknie i zapisuje pliki we wskazanej lokalizacji. Ale w skoroszytach które makro tworzy są tylko arkusze przekopiowane, nie ma danych przefiltrownaych wg klucza. Powinnam coś jeszcze zmienić w tym makrze? Używam makra na przykładzie wyżej. Zmieniłam tylko nazwę arkuszy.
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)
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)
Super dziękuje bardzo za pomoc wszystko super płynnie działa w kilku arkuszach na końcu wystarczy zaktualizować makrem. Makro zmieniające nazwy kodowe arkuszy według kolejności działa faktycznie nie miałem włączonej opcji zaufania obiektowego. Teraz wszystko wygląda jak trzeba zmodyfikowałem formułę dotyczącą nazw kodowych arkuszy zmieniając w kodzie...
Można zdefiniować tablicę z nazwami arkuszy w których mają być dokonywane zmiany i przejść pętlą po arkuszach wpisanych do tej tablicy: [syntax=vb]Sub zz() Dim tblArkusze() Dim i& Dim rngTmp As Excel.Range tblArkusze() = Array("I L", "II L", "III L") 'nazwy arkuszy w których mają być wykonane zmiany For i = LBound(tblArkusze()) To UBound(tblArkusze())...
I jak tu nie wierzyć w 13-go ... nikt się nie odezwał ... "Pomysł" porzucony ?
Dopisałem definicję formatowania warunkowego w VBA. Formatowanie odtwarza się automatycznie przy otwieraniu skoroszytu. Szerokość zakresu formatowania jest określona przez zawartość trzeciego wiersza w każdym arkuszu. Wiersze zakresu formatowania są ustalone na stałe. Skoroszyt nie może zawierać innych formatowań warunkowych. Gdyby zawierał, trzeba...
Tak, oczywiście jest możliwe. Najprościej używając funkcji Dir w pętli Do Until , jednocześnie zmieniając nazwy kopiowanym arkuszom wg. aktualnie otwartego, pliku źródłowego.
Pętlę możesz utworzyć na różny sposób, np. Sub Kopia_co_5() Application.ScreenUpdating = False Dim x As Long For x = 1 To 1000 ' na początek wstaw np. 50 zamiast 1000 Sheets("Arkusz1").Select Rows(5 * x).Select Selection.Copy Sheets("Arkusz2").Select Rows(x).Select ActiveSheet.Paste Sheets("Arkusz1").Select Next x Range("A" & x).Select Application.CutCopyMode...
Witam. Mam problem z makrem, które w Excelu ma za zadanie przenosić arkusze do nowego skoroszytu (każdy arkusz do odrębnego) i zapisać plik w podanej lokalizacji z nazwą tego przeniesionego arkusza. Na potrzeby tego zadania zarejestrowałem, a następnie zmodyfikowałem makro, które wygląda następująco: Sub Rozdziel() ' Rozdziel Makro Dim arkusz As Worksheet...
Nie jest potrzebne makro. Wystarczyłaby funkcja SUMA.WARUNKÓW, gdyby nazwy z listy "typ_aktywności" były zgodne z nagłówkami tabeli (wiersz Nr2 arkusza "Rozliczenie tygodniowe"). Chodzi o Np "spotkania" / "spotkanie" etc.
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 kliknięciu komórki np. C16 ma się utworzyć arkusz o tej nazwie tj. "C16"? Czy raczej arkusz z nazwą projektu? Jeżeli to drugie, to zamiast używać tabeli przestawnej proponuje: 1. utworzyć arkusz z polem/formantem kombi dla którego źródłem danych będzie pole (kolumna) "nazwa" z arkusza Dane. Po wybraniu elementu z listy zwraca się pozycję tego elementu...
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ść...
W pliku "uzupełnianie" mamy arkusze o nazwach BAZA I RAPORT. Makro ma zadanie uzupełnić dane w arkuszu BAZA z arkusza RAPORT. Porównujemy kolumnę A miedzy tymi arkuszami. widać to we wzorze jaki zrobiłem -arkuszu WZOR
Naduś przycisk [Utwórz kolejny coś tam]. Przeanalizuj makro w module.
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...
Teraz działa wszystko jak w zegarku, a to jeszcze jedno pytanko czy można kopiować dane z ukrytego arkusza?, a jeszcze jedno czy część nazwy pliku może być pobrana z nazwy arkusza ?
gdy w zestawieniu brakuje danego miasta W którym miejscu jest nazwa miasta? Tutaj? Arkusz = Cells(Wiersz, KOLUMNA)
Bardzo ciekawie zrobiona aplikacja. Przesyłam wzór wydruku etykiety. Prześlę makro do wydruku ale jest pewien problem. Niejednoznaczne są używane nazwy wyrobów, na jednym arkuszu jest to np.Sałatka drobiowa a na drugim Drobiowa. Należy stworzyć słownik nazw wyrobów i tylko takimi się posługiwać. Zrobię swoją propozycję zmian do przedyskutowania.
W komórce b1 wpisz =wyszukaj.pionowo(a1;... dalej nich zaciąga z innego arkusza). Zapytanie wpisujesz w a1 i w b1 pojawia się Tobie wynik.
Proponuję, żeby Kolega (zakładając, że nie ma Kolega pojęciu o VBA) zaczął od zarejestrowania makro, w którym doda sobie Kolega arkusz, określi jego nazwę i kliknie sobie w dwie komórki po sobie. Potem może sobie Kolega obejrzeć kod makro, które zostało nagrane i wszystko powinno być jasne. Jeśli będzie miał Kolega problem z jakimś fragmentem kodu -...
A Twoje makro mi nie poszło, mam info "subscript out of range". Masz otwarte obydwa pliki? Nie zmieniałeś ich nazw, ani nazw arkuszy?
Przedstawione makro nie do końca tylko "zapisuje jako" plik. Ono tworzy nowy plik kopiuje odpowiednie dane (arkusze) zapisuje go pod pewna nazwa i go zamyka. Przy czym, ponieważ jest wyłączony "podgląd", nie widzisz wszystkich kroków. Też tak chcesz stworzyć plik? Czy wystarczy ci "zwykłe" zapisz jako - czyli plik nazwijmy go źródłowym, na którym włączysz...
Jeśli dobrze "odczytałem" Twoje rysunki i opisy :crazyeyes: to efekt taki jak na zrzucie :spoko: 979159 można uzyskać poprzez makro powiel w załączonym pliku 979160 Jeśli będziesz chciał mieć plik "wielokrotnego" użytku :please: to każdorazowo musisz go "odświeżyć" poprzez oczyszczenie makrem Usun :!: z poprzednich arkuszy (bo nie może być 2 arkuszy...
Worksheets("nazwa arkusza") Taki zapis będzie stosowany do istniejącego arkusza o nazwie 'nazwa arkusza', którego zapewne nie ma w skoroszycie.
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...
Witam, Proszę o pomoc w napisaniu Makra. Informacje: Docelowy plik posiada 10 arkuszy z nazwami miast (załącznik4) Założenia: Makro powinno kopiować nazwiska z arkuszy z nazwami miast (kolumna H) wybierać unikaty, oraz kopiować je do co drugiej kolumny arkusza "Podsumowanie" począwszy od wiersza 9 (czyli pierwsza kolumna od A9, duga od C9 itd.) Przykładowy...
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ę...
Witam! Nagrałem makro do sortowania danych według wartości rosnących. Makro przypisane jest do przycisku. W jaki sposób muszę je zmodyfikować aby arkusz w którym ma sortować dane wybierało na podstawie wartości w komórce B1? Obecnie ma "na sztywno" dopisany arkusz o nazwie a38, a chciałbym aby po skopiowaniu arkusza i nadaniu mu nowej nazwy np a39 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...
Cześć, potrzebuję stworzyć makro które będzie usuwało kolumny po nazwie nagłówka. Liczba kolumn w arkuszu może się zmieniać ale nazwy kolumn będą te same. Dodaję przykładowy plik w którym chciałbym usunąć kolumny o nazwie "warunek" i "licznik". Myślałem o takim kodzie ale może można zrobić coś prostszego? Nie za bardzo też wiem jak poprawnie tym sposobem...
:arrow: adamas_nt Jak analizuje twoje kody to widzę że bardzo daleko mi jeszcze do pisania makr. Dzięki twojej wiedzy można było skrócić czas obliczeń (przynajmniej za pierwszym razem o parę sekund :) a nie milisekund,a drugie rozwiązanie też jest ciekawe) Adamas_nt 'owi należy się wielokrotne pomógł- a może nawet więcej] Ja już tylko skromnie dołożyłem...
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...
Dzięki, makro jest bardzo dobre. Niestety przeszukuje tylko ten arkusz w którym je uruchomię. Bardzo proszę o jeszcze jedną modyfikację: Aby makro przeszukało arkusz pierwszy o nazwie 2010, później arkusz drugi o nazwie 2011 i arkusz trzeci o nazwie 2012. Po przeszukaniu każdego arkusza niech kopiuje wiersze jeden pod drugim do arkusza o nazwie RAZEM,...
A nie lepiej (szybciej) jest zrobić kopię pliku abc.xls i go tylko inaczej nazwać? Przecież na to samo wychodzi. Na kopiowanie pełnych arkuszy z formatami nie ma funkcji. Da się to zrobić jedynie za pomocą makra [tylko nie wiem po co - patrz kopiowanie pliku]. No ale ludzie różnych chcą rzeczy. Dodatkowe pytanie do głównego "zadania" czy jest ustalona...
Jeśli makro zdarzeniowe ma działać w konkretnym arkuszu, to powinno być zdefiniowane w module kodu tego arkusza. Jeśli takie samo makro ma działać w kilku arkuszach, to można alternatywnie zdefiniować makro skoroszytu w module Ten_skoroszyt (ThisWorkbook). Te makra mają trochę inne nazwy, trzeba wybrać odpowiednie makro z listy.
Proszę o konkrety: - nazwy folderów, - nazwy plików, - nazwy arkuszy. Jeżeli Kolega ma na przykład foldery z nazwami miesięcy, a w nich pliki z nazwami magazynów, a w takim pliku arkusze z nazwami magazynierów, to trzeba napisać nowe makro.:) Obecne makro działa dla wielu plików z różnych lokalizacji, ale zakłada, że w każdym z plików źródłowych istnieje...
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...
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()...
Pewnie makro masz w kodzie arkusza. Musi być w module... Jeśli to procedura zdarzeniowa, wywołaj je po nazwie (Call NazwaMakraInModule)
Musisz dodać jeszcze pętle sprawdzającą nazwy arkuszy. A co jak klikniesz makro w danym dniu 3x razy?
Witaj. Bez względu na to, co potem już liczbą będzie tekstem(1,5s)? Makro należy znać nazwy arkuszy i werszy-kolumny źródłowe i docelowy. w przeciwnym razie sam cos takiego: [syntax=vb] For r=pierwszWersz To OstatWersz If Cells(r,2) >1500 then ' Tu kopiowanie, dzieląc wartość przez 1000, a przypisanie s. End If Next [/syntax]
Witaj Alt+F11 Menu - Insert - Module Kliknij dwukrotnie na Modul1 Skopiować makro(post#1). Po prawej stronie wklej. W Excel Alt+F8 Uruchamiając makra Splitbook
Witam, Od niedawna zacząłem przygodę z VBA i napotkałem problem, z którym nie mogę sobie sam poradzić, w związku z tym zwracam się do Was z prośbą o pomoc w tym temacie. Otóż próbuje stworzyć makro, które aktywuje arkusz, który znajduję się po prawej stronie względem już aktywnego, tzn. np.: w moim skoroszycie znajdują się arkusze "Menu "A", "B", "C"......
Witam! Mam arkusze o nazwach 1,2,3,4,5,6 itd Czy da sie zrobić makro które dodaje kolejny arkusz z kolejnym numerem? ostatni arkusz to "n" kolejny bedzie "n+1" Pozdrawiam! kosa
Bardzo bardzo dziękuję! Praktycznie o to mi chodziło. Natomiast jeszcze 2 pytania: 1) Czy duża byłaby zmiana w kodzie gdyby dla braku nazwy czy braku numeru w arkuszu config, makro nie wyświetlałoby komunikatu tylko pozostawiało stare wartości w kolumnie z nazwą? (Arkusz1) Po prostu żeby wtedy przechodziło dalej do kolejnej linijki nic nie robiąc.....
Jak już pisałem, plik zrobiony był jakiś czas temu. Dzisiaj pewnie bym to uprościł. Zapuść krokowo Np makro "Filtr1" i obserwuj co się dzieje. Kluczowe jest kopiowanie listy z kolumny AA do ukrytego arkusza "Arkusz3" gdzie odbywa się "układanie" list i przypisywanie do nazwy. Fakt, trochę by tam trzeba pozmieniać.
Załączam przykładowe rozwiązanie z użyciem makr. Raczej jako ciekawostkę. Koder ze mnie marny, ale działa jak chciałem. Plusy: - sprawdzanie poprawności nazwy pokoju - sprawdzanie, czy przydzielona liczba osób zmieści się w pokoju - można przydzielić dwa nazwiska do jednego pokoju - makro działa na dowolnej liczbie pokoi zdefiniowanej w arkuszu (max...
With Arkusz1 jest dobrze, to jest nazwa kodowa arkusza. Na pierwszy rzut oka błędu nie widać. Ale nie widać też w którym wierszu ten błąd się pojawia. Wykonaj program krokowo i po ustaleniu miejsca błędu wykonaj jeszcze raz, zatrzymując się przed błędem i sprawdź wtedy co zawierają poszczególne zmienne. Np. Jaką wartość ma zmienna SelRow?
Tutaj For Each c In Worksheets(" Masz.600+NEW S .").Range(" G4:G23 ") podstaw swoje argumenty (nazwa arkusza z rozpiską, zakres), zamknij w dodatkowej instrukcji warunkowej [syntax=vbscript]If c.Value <> "" Then 'dopisz to tutaj If Not Zawiera(c.Value, arkusze) Then End If End If 'oraz toto[/syntax]i powinno działać.
Ktoś mógłby pomóc? Ok, to tylko wyjaśnij: - skąd będziesz kopiował ? czy na pewno z tego arkusza Raport gdzie są przyciski ? - gdzie chcesz wklejać te dane ? gdzie jest słownik wiążący używane kody i zupełnie inne nazwy arkuszy ? skąd makro :D ma wiedzieć gdzie Ty masz ochotę wkleić aktualne dane ? - jakie jeszcze niespodzianki przygotowałeś dla osób...
potrzebowałbym makro które łączy ze sobą pliki excel w jednym katalogu na pulpicie i zmienia nazwy arikuszy na arkusz 1.[nazwa 1 pliku] , arkusz 2.[nazwa 2 pliku] a jeżeli arkusz jest pusty to go nie łaczy
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...
Mam makro, które wykonuje zapytanie SQL na pewnym arkuszu i to działa. Zamieniam Arkusz na nazwany obszar i ... nie działa. Nazwa istnieje, mogę wykonać Select, ale motor bazy go nie widzi. Dotyczy to tylko tego jednego obszaru, inne działają. Co może być nie tak? Całego pliku niestety nie mogę pokazać.
automatyczne nadawanie nazw plikom tak aby po zapisaniu bazowego pliku generował się jego kolejny numer (x+1)+nazwa z komórki a1
Witam serdecznie. Zwracam się z wielką prośba o pomoc w edytowaniu makra. Mam folder o nazwie"aaaa" w nim jest podpięte makro o nazwie "bydło". W tym folderze mamy nazwy arkuszy: "Dane", "Ksiega", Ksiega1", "wzor ksiegi". Jak uruchomimy makro"bydło" to idealnie działa w arkuszu o nazwie "księga". Osoba która będzie mi chciała pomoc, niech uruchomi makro...
Witam, potrzebuję funkcję, która będzie zliczać teks (z tym problemu nie ma CZY.TEKST) w arkusz, którego nazwa będzie zapisane w pewnej komórce. Przykład W Aruszu1 komórce A1 zostaje zapisana nazwa nowo utworzonego Arkusza np 10 o nazwie np "GŁÓWNY". W arkuszu tym będą zapisywane nazwy różnych podzespołów. Chciałbym by funkcja odnalazła Arkusz po nazwie...
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...
Nie nazywałbym tego hobby. Potrzebuję, aby jakikolwiek laik mógł zajrzeć do odpowiedniego arkusza nie przeglądając, gdzie on się znajduje. Wszystko mi działa, lecz problemem jest pobranie wszystkich nazw arkuszy do listy. Chcę, aby działo się to automatem. Uruchamiam plik, uruchamia się makro, pobiera nazwy arkusuzy, umieszcza je w liście, ja ją przeglądam...
Problem polega na tym, ze nazwy w kolumnie A czasami sa dłuższe niż 31 znaków i wywala mi bład w tej linijce: temp.name = ark.Cells(i, 1) Wystarczy zrobić: Run _ time erroe '9'. Subscript out of range. A całe makro zatrzymuje się na linijce With Workbooks(cleanName & ".xls") Wydaje mi się, że chcesz osiągnąć inny efekt, niż próbujesz. Chcesz wysyłać...
Arkusze mogą mieć zmienną ilość kolumn, nie zmieniają się nazwy ani ustawienie. Będę wdzięczna za jakiekolwiek rozwiązanie.
żeby ilość zaznaczanych wierszy pobierana była z tabeli 2 Z tekstu makra wynika, że usunąć wierszy z tabeli 2 Jeśli można dołączyć przykład pliku, makro powinno wiedzieć co najmniej nazwy arkuszy lub ich kolejność.
1) Lista musi mieć ciągły zakres. Najlepiej wykorzystać do tego osobny arkusz. Trochę można zautomatyzować (patrz załącznik). Założyłem, że nazwa firmy w Arkusz1 występuje co 13 wierszy. 2) W przykładzie wykorzystałem VBA (Select Case) i ukrywanie/odkrywanie wierszy 3) j.w.
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")...
Przede wszystkim powinnaś załączyć plik Excela a nie obrazek. Na obrazku nie da się nic policzyć ani sprawdzić. A merytorycznie - po co tu makro? To ma być jakaś wprawka w pisaniu makr? Do tego typu obliczeń służą funkcje lub formuły - wystarczą funkcje wbudowane, ale jeśli ktoś woli, to może sobie napisać własną funkcję w VBA, tzw. funkcję UDF (user...
Oto projekt. Początkowo Pan otworzyć i odczytać z makrami.(na otwarcie i zamknięcie książki) i poprawi stałych (bo nie mogę odgadnąć nazwy plików). Następnie skopiuj makra do prawdziwych plików Interesuje mnie jak długo potrwa pracy makro, ponieważ kopiowanie w komórki z formatowaniem (kolor, czcionki) zajmuje znacznie więcej czasu niż w komórki niesformatowany....
Jak byś wytłumaczył wszystko spokojnie na początku to by teraz nie było tej dyskusji. Po prostu co chwila zmieniasz założenia. Albo my nie nadążamy za twoją myślą. Kolega adamas wskazał ci błąd z "search" Owszem nazwałeś zmienne search i search2 ale nigdzie nie wykorzystujesz search2 a zmienna search jest zaraz po określeniu jej w pierwszym okienku...
Można umieścić kod w ThisWorkbook przy zdarzeniu Open. Żeby zabezpieczyć plik przed otwarciem bez makr można ustawić na kluczowe arkusze atrybut VeryHidden (z poziomu edytora VB) a widoczny zostawić dodatkowy pusty arkusz. Przy starcie jeśli warunki są spełnione wystarczy zamienić atrybuty. Tu konieczne hasło ochrony VBA. Przy zamknięciu ustawić na...
Witam! Nie potrafię znaleźć rozwiązania problemu. W pliku A chciałabym dodać makro, które otworzy plik B znajdujący się w innej lokalizacji, następnie w pliku B aktywuje ostatni arkusz (jest wiele arkuszy o nazwach 111, 112, 113... itp, możliwe, że w chwili zapisu użyty będzie np 111 mimo, że utworzone są kolejne), a po aktywowaniu ostatniego arkusza...
excel makro nazwa arkusz makro zmienia nazwa arkusz makro zwraca nazwa arkusz
szpara drzwi amica wymiana pompy schemat gniazdo zapalniczka
strefa gracza suszarka samsung
VPMS3SM Samsung - Przetwornica DC-DC, Dokumentacja Jak zakodować nowy pilot do Toyoty Yaris Hybrid?