Koledzy dobrze radzą, ale to trzeba wdrażać od początku projektu. Więc na przyszłość trzeba to zaplanować inaczej. Tymczasem jednak potrzebne jest rozwiązanie doraźne, polegające na kopiowaniu tego co jest. Na razie to jest ilość danych, z którą Excel sobie poradzi, ale jak danych będzie przybywać, to kopiowanie będzie trwało coraz dłużej. Ponieważ...
Do powielania arkuszy i adaptacji formuł możesz wykorzystać makro z załączonego pliku :D - zaczyna pracę dopiero od arkusza 2.2 :!: i działa w ten sposób, że po wybraniu 1 arkusza w skoroszycie (tj. o najwyższej numeracji w nazwie :D ) - poprzez dwuklik myszką w ten arkusz - automatycznie kopiuje arkusz i ustawia nową nazwę i podmienia formuły :spoko:...
Niestety dalej zapisuje tylko z 01.YY do 43_01. Następnie otwiera 43_02 i koniec Dodano po 2 W plikach 43_02, 43_03... itd makro tylko je otwiera. makro musisz mieć umieszczone w każdym z plików 01.YY , 02.YY itp
następnie wykonywane jest w tym pliku skomplikowane działanie Na pewno można je z powodzeniem wykonać w VBA. Z drugiej strony: Dlaczego "w kolumnie obok" nie użyjesz tej formuły z "Zeszyt2"? Wydaje mi się, że zamiast opisywać zawartość arkuszy lepiej (wygodniej dla wszystkich) wrzucić plik z przykładem w postaci załącznika na forum :) Szybciej i precyzyjniej...
Przy założeniu, że arkusz składa się z nazwy stałej i daty, najprostsze makro wygląda mniej-więcej tak: nazwa_stala wpisz swój stały fragment nazwy. Dopisz sobie dodatkowe warunki które będą uwzględniały np. kilkukrotne uruchomienie makra tego samego dnia itp. aby nie wyskakiwały błędy
dane z wielu plików i wklejać je jako niesformatowane dane do jednego arkusza w oddzielnym skoroszycie... każda tabela z danymi ma inna liczbe wierszy . Zaczynają się zawsze w tym samym punkcie i liczba kolumna jest taka sama ale liczba wierszy zawsze inna. Różna jest także liczba arkuszy ale dane zawsze znajdują się w ostatnim . Wszystkie pliki z...
Witajcie Może się Wam to przyda
Jaką regułę zastosować, żeby w programie Excel dane z jednego arkusza kopiowały się do drugiego arkusza automatycznie ? Aby skopiować dane z jednego arkusza do drugiego w programie Excel w sposób automatyczny, możesz skorzystać z kilku różnych metod, w zależności od tego, jakiej funkcjonalności oczekujesz. Oto kilka przykładów: 1. Formuła odwołująca...
Ładny obrazek. To do testów w Paincie? Cześć, nie ma sensu pisać takich komentarzy, więc nie rób tego, jeżeli nie masz nic wartościowego do dodania. Dzięki. *Update* Dodaje załącznik oraz zdjęcie jak chciałbym aby to wyglądało po naciśnięciu "Copy" A jeżeli chodzi o przycisk "Clear" to ma on również swój kod, ale obawiam się, że skopiowany przycisk...
Dziękuje za pomoc Makro działa tylko 2 rzeczy nie do końca robi tak jak chciałem (może wcześniej się źle wyraziłem). Makro w komórkę J1 w zakładce Dane1 wstawia całą listę krajów, mi natomiast chodziło aby w komórkę J1 wstawiał nazwy wg kolejności z listy. Np. Komórka J2= Albania makro kopiuje wszystkie dane policzone dla Albanii do arkuszy Kraje1 i...
Trzeba będzie wprowadzić copy-paste w miejsce przypisania. Raczej nie obędzie się bez select'ów, ponieważ pliki mamy w różnych instancjach... Spróbuj (nie testowane) [syntax=vb]Dim myPath As String Dim myFile As String Dim myPass As String Dim mySfrom As String Dim mySto As String Dim oExcel As Excel.Application Dim k As Integer Dim i As Integer Dim...
Witam , mam problem . Otóż tworze proste makro robiące w arkuszu numer 1 , 3 wykresy i jeden wiersz ktory jest iloczynem 2 komórek , no i wszystko ładnie wychodzi , tylko ze kiedy to samo makro chce zastosowac do arkusza numer 2 to niestety nie dziala , poniewaz robi te same czynności w arkuszu numer 1 , pytanie brzmi , jak makro zrobione w arkuszu...
Witam, próbuję napisać makro które, będzie kopiowało na raz z kilku arkuszy dane do jednego. Obecnie wkleja mi się nazmiane raz z jednego a później pyta o zezwolenie na wklejenie nowych danych z innego arkusza. A potrzebuję aby dane były jedne pod drugim i aby się sortowały po nazwisku. Próbowałam z pętlą ale przeładowywało się i plik się wyłączał....
Witam. Próbuję napisać makro, które kopiuje pewien zakres danych z jednego arkusza do innego arkusza w zestawieniu. Problem polega na tym, że dane w zestawieniu z każdego arkusza powinny się pojawiać, bez względu na to ile jest arkuszy w zeszycie. Proszę o pomoc.
Witam serdecznie Jestem nowy na tym forum. Potrzebował bym pomocy przy makrze, które by kopiowało komórki z jednego głównego arkusza gdzie codziennie wpisuję dane do kilku innych arkuszy. Poszperałem troszkę w necie i znalazłem makro napisane przez pana Tomasza Gawęda które prawie odpowiada moim oczekiwaniom. [syntax=actionscript] Option Explicit Sub...
Poszukuję makra, które z 1 arkusza o nazwie "dane" wykopiuje dane do nowych arkuszy w takim samym formacie względem np. kolumny K - wynik działania makra powinien być podobny (tylko dla wszystkich unikatowych danych z kolumny K) jak w załączonym pliku w arkuszu P001 (makro powinno nadać nazwę dodawanym arkuszom
Witam, potrzebuję wkopiować kilka arkuszy o różnych nazwach z jednego skoroszytu do kilku odrębnych. Jestem nowicjuszką i zupełnie nie wiem, jak sobie z tym poradzić. Znalazłam takie makro, niestety nie wiem jak dopasować je do mojego zadania. Sub Splitbook() MyPath = ThisWorkbook.Path For Each sht In ThisWorkbook.Sheets sht.Copy '(I got...
Jednak szybciej było napisać makro:) W załączniku. Z tym, że w twoich danych (w załączonym pliku) dane, które chcesz kopiować znajdują się chyba w wierszu 8 a nie 37. Zrobiłem makro kopiujące dane z wiersza 8 pod warunkiem, że są mniejsze od zera. Ponadto, żeby data również się przepisała, musi znajdować się dokładnie 5 wierszy powyżej danych z których...
Przed 'Paste' wstaw linię wyszukującą pierwszy wolny wiersz. Przykładów ci u nas dostatek: [url=https://www.elektroda.pl/rtvforum/f... W ostateczności nagraj makro Ctrl+strzałka w dół.
witam, potrzebuje pomocy bo walcze z tym juz drugi dzien i nic nie wychodzi, a mianowicie potrzebuje zrobic takie makro (VBA) zeby w momencie uruchomienia, moze byc przycisk(np.export) na kazdym akruszu kopiowalo mi dane ktore sa wprowadzone ze skanera do osobnego pliku w ktorym bedzie cala baza danych. tak jak w pliku np. Arkusz 1- Laan 1 - zeby mi...
Witam, mam taki problem. Mam kilka arkuszy, których ilość może się zmieniać natomiast struktura będzie zachowana. Każdy arkusz zawiera dane osoby, projekt i ilość godzin przepracowanych na danym projekcie. Liczba projektów jest zmienna w miesiącu maksymalna wartość 30. Chciałbym żeby do arkusza wynikowego skopiować nazwisko, nazwę projektu, ilość godzin...
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...
Witam, mam problem. Na jednej ze stron znalazłem makro które działa w jednym arkuszu. Chciałbym je zastosować do kilku jednakowych arkuszy, nie mam doświadczenia z makrami i dlatego proszę o poradę jak to zrobić. Z góry dziękuje. Option Explicit Dim Zakres As Range Private Sub Workbook_Open() Call Ustal_zakres End Sub Private Sub Workbook_SheetChange(ByVal...
Chodzi o to, aby w pliku zbiorczym znalazły się wszystkie arkusze ze zbioru plików. Nie jest ściśle określona liczba plików. Wiadomo tylko, że znajdują się w jednym katalogu, a ich nazwy różnią się 2 znakami na końcu. Nie wiadomo ile dokładnie arkuszy zawiera każdy z plików (ta ilość z czasem rośnie) Ważne jest, aby przy kolejnych aktualizacjach pliku...
Witam Mam plik 1.xls. Jak napisać kod do makra, które otwierałoby plik z pulpitu (wskazany przeze mnie), kopiowałoby wszystko z pierwszego arkusza z kolumn A:N i wklejało wszystko do arkusza Dane do kolumn A:N w pliku 1.xls?
Witam, Stworzyłem plik generujący raporty z tabel przestawnych. Chciałbym teraz pierwsze kilka arkuszy (pierwsze arkusze to raporty, reszta to dane i tabele przestawne) skopiować do nowego pliku. Chciałbym także zachować formatowanie arkuszy ale przenieść jedynie wartości (zamiast formuł). Pomoże ktoś w stworzeniu takiego makra? :) Z góry dzięki!
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...
Witam zacne grono, jak z formułami sobie radzę tak już z makrami bywa kiepsko jeśli by mógł mi ktoś pomóc byłbym wdzięczny: Mam skoroszyt w excelu a w nim 21 arkuszy kalkulacyjnych nazwy od 1 do 20 i ostatni dane , potrzebuję makro które wywołane za pomocą skrótu klawiszowego przeniesie dane z komórek A1:A4 B1:B4 z arkusza w którym jestem do arkusza...
Witam Mam macro do kopiowania danych z jednego arkusza do drugiego i kopiuje dane ale tylko 3 razy. Przy kolejnym zatrzymuje się na poziomie (pogrubiona linia): Sub DoBazy() For i = 1 To 200 If Worksheets("Baza").Cells(1, i) = Cells(2, 3) Then kol = i Exit For End If Next i For i = 1 To 260 Worksheets("Baza").Cells(i, kol) = Worksheets("DoBazy").Cells(i,...
Cześć. Jest to mój pierwszy wątek na tym forum dlatego pragnę się przedstawić. Mam na imię Darek i troszkę bawię się excelem ale nie makrami. Stąd prośba o szczególną pomoc. Nie poradzę sobie z tym sam poradzę. Potrzebuję makro, które będzie mi kopiowało dane. Mianowicie: W Arkuszu1 znajduje się zakres komórek załóżmy od A1:A10 wpisane są nazwy. W kolumnie...
Proszę o przykładowe makro kopiujące pierwszy wyfiltrowany wiersz z listy do nowego arkusza. W nowym arkuszu wklejane wiersze muszą dodawać się jeden pod drugim wraz z datą ich kopiowania.
Witam serdecznie wszystkich. Mam takie pytanie, czy da się napisać makro tak żeby z kilku arkuszy automatycznie kopiowało się do jednego arkusza. Wiem że temat był już poruszany nie raz ale już od kilku tygodni szukam właściwego makra i nic. I tu wielka prośba do Was o pomoc. Potrzebuje gotowe makro bo ja jestem BARDZO słaby w tym temacie a dokładnie...
Witam! Przeszukałem forum, zastosowałem kilka zapisanych tutaj makr, ale niestety żadne nie odpowiada mi w 100% dlatego proszę o pomoc. Problem: Mam skoroszyt, w którym chce podsumować dane z innego skoroszytu, który ma kilkadziesiąt arkuszy. Chciałbym, aby makro przechodziło pomiędzy arkuszami i kopiowało odpowiednie komórki. Z jednej komórki pobrało...
Cześć. Bardzo proszę o pomoc. Mam plik excel w którym jest 150 arkuszy o nazwach liczbowych odpowiednio 1, 2, 3... 150. W każdym jednym arkuszu chciałbym aby było makro które kopiuje konkretne dane do nowego pliku (zawsze te same od S6:V6). Plik excel z makrami jest "matrycą" która co miesiąc powstaje nowa (służy do rozliczania zleceń) i zmienia się...
Potrzebuje pomocy w napisaniu makra w excelu, kopiowanie danych z jednego pliku excela do drugiego excela w petli gdzie jest wiele plików. Wyjaśniam o co mi chodzi. Mam plik excel nazwany np dane1.xls ( dane2.xls, dane3.xls itd tych plików mam ponad 200 w folderze) z kilkunastoma arkuszami oraz plik wzor.xls. ( Potrzebuje wyciągnąć z pliku dane1.xls...
Najlepsze przycisk. Nie należy wypełniać LP. Podczas skopiowania danych makro będzie wypełnić sam. Oznacza to jednocześnie może być kilka rekordów po kliknięciu na przycisk.
Przepraszam, faktycznie podałem mało informacji, ale pisząc post zakładałem, że problem jest już rozwiązany, nie szukałem pomocy, chciałem osobom, którym Excel sprawi podobne kłopoty zasugerować, co może pomóc. A to ma sens na dużym poziomie ogólności, wątpię, żeby kod tu wiele pomógł, zwłaszcza mało zaawansowanym użytkownikom makr, takim jak ja. Do...
Witam, Mam 2 problemy z jednym z arkuszy (plik załączam): 1) Aby nazwy przewoźników kopiowały się z nazw arkuszy w kolumnie "Przewoźnik" (lista rozwijana -> Przew. A, Przew. B, Przew. C). 2) Druga sprawa nieco bardziej skomplikowana. Wybieram trasę, wybieram przewoźnika i chciałbym, aby wartość z komórki odpowiadająca danej stawce danego przewoźnika...
Cześć, Mam plik z danymi, który zawiera 2 arkusze. Chce, aby makro: 1. w arkuszu 1 odfiltrowało unikatowe wartości z kolumny 4 i wartości z tablicy z kolumny 5 2. utworzyło nowe skoroszyty dla każdej unikatowej wartości z kolumny 4 i wkleiło tam dane i zapisało plik 3. przeszło do arkusza 2 4. odfiltrowało dane w arkuszu 2 po tych samych filtrach, co...
Witam Wszystkich; Za pomocą komendy Workbooks.Add tworzę nowy plik, chcę skopiować wszystkie arkusze z poprzedniego do nowo utworzonego. Próbuję zrobić to tak: [syntax=vb]Sub PRSONALZapisCustomerFile() ' Zapisuje plik estimate 'deklaracja zmiennych Dim wiersz As Long Dim z1 As Long Dim z2 As Long Dim myName As String Dim myPath As String Dim sh As Worksheet...
Fantastycznie! Makro robi dokładnie to co chciałem. :) Zmieniłem jeszcze miejsce, w które nowe arkusze są wklejane i reszta działa jak natura chciała. Wyślij mi na priv swój adres to przyślę konia z rzędem. :D
Jestem początkujacy. Moze ktos mi pomoze. w folderze "dane" mam wiele plików excelowych o róznych nazwach (np G12.xls,S-12 itd). W folderze "wzor" mam plik "wzór.xls". Potrzebuje aby makro skopiowało nazwe pliku z folderu "dane" pliku np G12.xls, kopiując plik "wzór.xls" zapisując w folderze docelowym "docel" z taka sama nazwa np G12.xls albo 2017-G12.xls....
chodzi mi chyba o coś innego. chciałbym aby formuły które mam w pliku wynikowym "czerpały dane" nie z arkuszy w tym samym pliku (arkusze kopiowanie z innych plików) ale bezpośrednio z innych plików. Wiem, że w formule mogę wpisać skąd ma czerpać dane ale problem w tym że co miesiąc pliki z danymi inaczej się nazywają i inaczej nazywają się arkusze w...
Bardzo proszę o pomoc w rozwiązaniu następującego problemu. W załączonym pliku mam pięć arkuszy. W arkuszach 2-5 w komórkach A1 są jakieś wartości. Potrzebuję napisać makro, które skopiuje mi wartości z komórek A1 Arkuszy od 2 do 5 do komórki A1 Arkusza1. Obecnie mam makro które: Wartość kom A1 z Arkusza 2 kopiuje mi do kom. A1 Arkusza1 Wartość kom...
Wystarczy podpiąć poniższe makro :) Sub Kopiowanie() ' ' Kopiowanie Makro ' Makro am 18.12.2009 von xbaj aufgezeichnet ' Dim i As Long, wiersz As Long wiersz = 1 For i = 2 To Worksheets.Count Worksheets(i).Activate Range("M25").Select Selection.Copy Worksheets(1).Activate Range("A" & wiersz).Select...
zawsze musi w tych obiektach być zachowana jakaś logika i powtarzalność Nie wiem czy jasno napisałem jeżeli nie to postaram się dopisać Jakkolwiek nie mogę zrozumieć logiki :cry: Twoich działań na danych zawartych w tych przykładowych plikach (który plik jest plikiem "wynikowym" - podsumowującym, czy agregującym dane z plików źródłowych; po co w plikach...
Podaj więcej szczegółów: Czy działasz na otwartym już pliku, czy makro ma je najpierw otworzyć? Ile plików znajduje się w lokalizacji? Co kryje się za: "plik formatka będzie zmieniał zawartość"? Czy będzie zmieniał się również układ danych w arkuszu, nazwa arkusza, ilość i kolejność arkuszy w pliku źródłowym?
Hej, czy mógłby ktoś mi pomóc poprawić poniższy kod, który ma pobierać do Arkusza "BAZA" dane ze wszystkich pozostałych arkuszy w tym skoroszycie, jeśli wiersze zaczynają się od niepustej komórki A. Problem polega na tym że jeśli w którymś arkuszu w kolumnie A jest pusty wiersz, to makro nie pomija tego pustego wiersza idąc do następnego wiersza w tym...
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]
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...
Witam, mam napisane makro na kopiowanie całych arkuszy z jednego pliku do nowego. Wszystko mi działa i funkcjonuje poza jednym. W pewnym momencie wyskakuje mi informacja, że zasoby fizyczne do obliczeń są za małe i wyskakuje błąd. Spowodowane to jest tym, że z pliku głównego, gdzie są kopiowane arkusze do nowego pliku podczas mojej procedury początkowo...
Spróbuj takiego makra. [syntax=vbscript] Sub Kopiowanie() Dim arkA As Worksheet, arkB As Worksheet, arkZest As Worksheet Dim OstA&, OstB&, GdzieWkleic&, PierwszyWiersz%, IleKolumn% Set arkA = ThisWorkbook.Worksheets("aaa") Set arkB = ThisWorkbook.Worksheets("bbb") Set arkZest = ThisWorkbook.Worksheets("Zestawienie") OstA = arkA.Cells(Rows.Count,...
Utworzyłem makro które kopiuje zakres danych z jednego skoroszytu "Dane" do drugiego "GOW" w pierwszy wolny wiersz kolumny B arkusza "GO1" i "GO2" Niestety formuła nie jest idealna, widzi wstawioną tabelę w arkuszach "GO1" i "GO2" jako zajęty wiersz i wkleja wszystkie dane pod tabelą. Właściwe działanie jakie powinna wykonać formuła to wklejenie zakresu...
Witam. Napisałem makro (excel 2010) które kopiuje pewien zakres (od A8 do kolumny E ostani zajęty wiersz) do komórki w kolumnie A pierwszy wolny wiersz w arkuszu w innym skoroszycie, problem polega na tym że chciałbym skopiować kilka zakresów (np A8 do kolumny E ostani zajęty wiersz, O8 do kolumny AK ostani zajęty wiersz, AM8 do kolumny BC ostani zajęty...
Dziękuję JRV :) Szczerze mówiąc trochę mnie przytkało że kilka linijek kodu może robić taką robotę, tym bardziej ochota na start nauki VBA. Przetestowałem kilka zmian które będę musiał wykonać i wszystko działa szybko i zgodnie z założeniem. W sumie nawet lepiej niż w pomyśle 1, bo makro kopiuje dane bezpośrednio z plików "zrodlo", plik zbiorczy służy...
Witam, Z góry proszę o wyrozumiałość, jestem początkującym użytkownikiem VBA. Mam następujący problem. Mam bazę w excelu, która składa się z kilku kolumn (klient, kolejne lata w podziale na kwartały), następnie w wierszach umieszczona jest nazwa klienta i dla każdego okresu w 4 wierszach przychody, koszty, marża (każda z tych wartości jest wyliczana...
Witam , Tworzę makro które kopiuje unikalne dane z Kolumny A od komórki A3 (w komórce A2 są nagłówki) i wkleja w nowo stworzonym arkuszu. Jednak Problem się zaczyna gdy chce skopiować do każdego z tych arkuszy nazwy z wiersza pierwszego (A1:A11) wkleja w nowo powstałym arkuszu tylko komórkę A1 a cała tabela się rozjeżdża . Oto kod: [syntax=vb]Sub Copy_To_WorkbooksB()...
Z VBA w Excelu mam do czynienia od niedawna i chciałbym prosić o pomoc z kodem jakim dysponuję. Powstał on poprzez rejestrację makra i skopiowanie pewnej części z sieci. Ta zarejestrowana część nie daje mi spokoju bo można to osiągnąć w bardziej uniwersalny sposób dla wszystkich arkuszy w pliku. Tak więc chciałbym aby zawartość komórek w zakresie od...
Jaky format w A1? Sprobuj Sheets(Range("A1").Text).Select
[syntax=vb]wiersz = 6 Sheets(1).Activate While Cells(wiersz, 1) <> "" Cells(wiersz, 2).Copy Sheets(Cells(wiersz, 1).Text).Range("C8") wiersz = wiersz + 1 Wend [/syntax]
Ok teraz masz kryteria w tablicach w kodzie VBA w razie jakbyś chciał dodać kryterium, musisz zwiększyć tablicę o 1 i dopisać do tego dodatkowego elementu kryterium z gwiazdkami. Jak zobaczysz kod to chyba będziesz wiedział o co kaman. Dodałem też zabezpieczenie przed kliknięciem dwa razy na makro
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...
W wolnej chwili wyklikałem na klawiaturze kilka linijek. Wydaje mi się, że wygodniej będzie Ci przystosować mój krótki kod. [syntax=vb]Sub Podziel() Dim a As String, a1 As Worksheet Set a1 = Sheets("Arkusz1") ow = Cells(Rows.Count, "D").End(xlUp).Row f = True Sheets("Arkusz1").Select For x = 5 To ow a = a1.Cells(x, 16) If f Then y = x f = False End...
Może wstaw plik z danymi dla ułatwienia temu, kto się za to weźmie.
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...
Spróbuj [syntax=vb]For Each kom2 In Sheets("Arkusz2").Range("A1:A500") If kom2 <> Empty Then For Each kom1 In Sheets("Arkusz1").Range("A1:A500") If kom1.Value = kom2.Value Then kom2.Offset(0, 13) = kom1.Offset(0, 13) kom2.Offset(0, 14) = kom1.Offset(0, 14) Exit For End If Next End If Next[/syntax]
[syntax=vbscript]Sub Makro() Sheets("Arkusz1").Select a = Application.Match("W", Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row), 0) nw = Sheets("Arkusz2").Cells(Rows.Count, "A").End(xlUp).Row + 1 If Not IsError(a) Then Sheets("Arkusz2").Range("A" & nw) = Range("B" & a) Rows(a).Delete End If End Sub [/syntax]
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
OK. Teraz mam pilne zadanie, w godzinach wieczornych coś do rozwiązania. ... Tu to jest [syntax=vb]Sub copyNumKs() Dim bd As Range, bs As Range, r& With Sheets(1) Set bd = .Cells(1, 5).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 1) End With With Sheets("wydruk") Set bs = .Cells(1, 2).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 2) End With For r = 2...
excel kopiowanie arkuszy makro kopiowanie wybranych arkuszy kopiowanie arkuszy zawierające makro
ekranowanie subwoofera ogrzewacz przepływowy biawar whirlpool pralka numer serwisowy
Licznik Kingway Euroboy 50 2T – awarie, naprawa, zamienniki, modernizacja Odbieranie rozmów WhatsApp na Xiaomi Redmi Note 12 Pro bez odblokowywania
