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...
Dodano po 3 [syntax=vb]Sub Copy() For Each cell In Sheets(2).Range("A:A") If cell.Text = "" Then Exit For Rows(cell.Row & ":" & cell.Row).Copy Sheets(cell.Value).Cells(Rows.Count, 1).End(xlUp).Offset(1) Next End Sub [/syntax] tak dobrze
Witam Czy ktoś miałby chwilkę i mógłby mi pomóc? (może być makro lub jeśli się da to funkcje z arkuszem pomocniczym). Mam problem z kopiowaniem wierszy i ich dublowaniem do gotowego arkusza. Mam skoroszyt, który zawiera 3 arkusze robocze: "Re_1", "Re_2" , "Re_3" oraz arkusz wynikowy "Wynik". Do "Re_1", "Re_2" , "Re_3" dopisywane są nowe wartości. Potrzebuje...
Witam ponownie, Wracam z tematem, bo pojawił się problem, którego nie przewidziałem. Ma on związek z tym tematem: https://www.elektroda.pl/rtvforum/topic3... Kopiowanie zestawów do sąsiedniego formularza działa świetnie, ale skrypt w drugim skoroszycie, do którego wczytywane są wartości z arkusza "karta", opracowanego w tym poście, bazuje na...
Witam Mam taki problem posiadam arkusz1 i chciałbym za pomocą przycisku skopiować wiersz 1 do arkusza2 pod ostatni wypełniony wiersz. Problem w załączniku. Dzięki za pomoc
witam, mecze sie straszliwie z makrem, ktorego zadaniem jest skopiowanie wiersza z jednego arkusza, zindentyfikowanie przy pomocy numeru ID pozycji tozsamego wiersza w drugim arkuszu i doklejenie do istniejacego juz wiersza w tym drugim arkuszu. proobuje rozmaitych rzeczy ciagle wychodzi mi runtime error. [syntax=vbscript]Dim MIP1, MIP2 Dim i As Long...
Witam Mam problem potrzebuję kopiować wiersze z jednego arkusza do drugiego, niby proste bo wysarczyłoby właczyć auto filtrowanie i fitrować po jednej kolumne w moim przypadku 3 gdzie wartość jest "polecony" i ręcznie wkopiować do innego arkusza, ale sprawa jest bardziej skąplikowana i systematyczne dopisując dane w arkuszu wyjściowym trzeba by reczne...
Zobacz, czy o to chodziło. Makro do kopiowania: [syntax=vbscript]Sub Kopiuj() Dim b As Worksheet Dim ow As Long Set b = Sheets(ActiveSheet.Index - 1) ow = b.Cells(Rows.Count, "A").End(xlUp).Row - 1 Dim CopyRng As Range, PasteRng As Range b.Range("A4:B" & ow).Copy ActiveSheet.Range("A4").PasteSpecial Paste:=xlPasteValues b.Range("N4:O" & ow).Copy ActiveSheet.Range("N4").PasteSpecial...
Cześć, chciałbym żeby mój kod kopiował dane z jednego workbooka do drugiego workbooka. W pierwszym workbooku jest wiele arkuszy i w drugim workbooku również. Z każdego arkusza z pierwszego workbooka kopiuje dane do konkretnego arkusza w drugim workbooku. Z racji tego że dane mogą się zmieniać zastosowałem lRow i lCol żeby liczył dla każdego arkusza...
Tu masz kod tego makra. Procedurę SzukajUlicy() podepnij pod jakis przycisk. Myślę, że z resztą sobie poradzisz. [syntax=vb] Option Explicit Sub SzukajUlicy() Dim ws As Worksheet Dim lWiersz As Long Const lKolumnaUlicy As Integer = 5 'E lWiersz = 4 'początkowy wiersz zawierający dane Dim sNazwaUlicy As String Dim Znalazlem As Boolean sNazwaUlicy = InputBox("Podaj...
no prawie zamiast Arkusz1 mam inna nazwe test nie mam Arkusza2 wiec musze go jakos tworzyc Usuwa mi te wiersze ale nie kopijue pomimo ze utworzyłóem Arkusz2
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,...
Witam, Dużo pracuję z danymi, które najczęściej ściągam z jednej bazy Eurostat. Dane zawsze mają taki sam układ (plik w załączeniu). Bardzo ułatwiłoby mi pracę uniwersalne makro, które dane dla jednego kraju skopiowałoby do nowego arkusza (przykład ręcznie przeniesionych danych w załączeniu). Rozumiem, że najlepiej to zrobić pętlą FOR ale nie bardzo...
Bez zbędnych selectów [syntax=vb]Sheets("Arkusz1").Range("G20"... Destination:=Sheets("Arkusz2").Range("G2...
Witam Chodzi o to podam przykład działania makra Z Arkusza kraje1 program kopiuje nazwę jednego kraju z listy- pierwszego i wstawia nazwę tego kraju w komórkę J1 w arkuszu Dane1, następnie kopiuje dane do 2 arkuszy , następnie przechodzi do następnego kraju z listy drugiego i wstawia nazwę w komórkę J1 (kasując poprzednia) dane się przeliczają dla drugiego...
Dane z niepustych komórek kolumny D w arkuszu 'WROWADZANIE...' mają być kopiowane do odpowiednich wierszy w arkuszu '2020'. Dokładny sposób opisałam właśnie zmiennymi, bo inaczej trudno mi to wyjaśnić. Np. D7 (arkusz 2)- kolumna J (arkusz 1) D8 (arkusz 2)- kolumna L (arkusz 1) D9 (arkusz 2)- kolumna N (arkusz 1) ... To w którym wierszu ma być wpisane...
Zerknij do załącznika. Kod zoptymalizowałem przy okazji... Zrobiłem przykładowe kopiowanie z trzech kolumn, aby było łatwo połapać się przy modyfikacji.
witam mam problem a przyznam że makr/vba do tej pory nie używałem mam raporty które generują się codziennie, w zależności od miesiąca 30-31 raportów jeden raport składa się z 3 arkuszy, nazwy arkuszy są niezmienne, chciałbym automatycznie kopiować całą zawartość wierszy które w 2 kolumnach spełniają różne warunki. dodatkowa trudnosc jest taka ze 1 warunek...
Witajcie, Mam taki przykład. Handlowcy, region, punkty. Potrzebuję aby z arkusza "dane" kopiowały się wiersze w zależności od regionu. Tj wszyscy handlowcy z południa do arkusza "południe", ci we wschodu do "wschód" itd. Mam takie makro. Sub CopyWhenConditionMet() a = Worksheets("dane").Cells(Rows.Count, 6).End(xlUp).Row For i = 2 To a If Worksheets("dane").Cells(i,...
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...
... Potrzebuję przekopiować każdy z wierszy z arkuszy Teryt Gminy, Teryt Mapy. itd i wkleic go do odpowiedniej kolumny w arkuszu "Polaczone dane z gmin" 21 razy 828643 ... 'cóś tu sie' kopiuje, ale czy o to chodziło (?) ... jak zrozumiałem, tak napisałem ... :D
Witam. Nie mogę uporać się z kopiowaniem zmiennego zakresu z jednego arkusza do drugiego. Sytuacja wygląda następująco. Z arkuszua1 kopiuję zakres np. A2:M20 (ilość kolumn jest zawsze stała, ilość wierszy się zmienia) i musze go wkleić do arkusza2 od kolejnej niepustej komurki w kolumnie A. Z góry dzięki za wszelką pomoc. Pozdrawiam MałyLesiu
Cześć, W jaki sposób mógłbym przenieść dane z jednego arkusza w tym wypadku Nowe dane do arkusza obliczenia odpowiednio dostosowując formatowanie komórek do arkusza docelowego i ustawiając odpowiednią kolejność danych. W arkuszu Obliczenia w kolumnie rachunek dane są przechowywane jako tekst natomiast w Nowych danych jako numer lub ogólne. Dodam, że...
Witam Szanowni forumowicze w załączeniu plik z fikcyjnymi danymi. W arkuszu1 mam dane z których z kolumny C kopiuję do arkusza2 do kolumny A jeżeli spełnione są dwa warunki. Jeden warunek to taki aby zgadzały się indeksy z akrusza1 kolumna B z arkuszem2 kolumna D. Drugi używa pomocniczej kolumny I z arkusza2 i ona ma się zgadzać z danymi z arkusza1...
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...
Witam [syntax=vbnet]Sub SumaC() Dim ws As Worksheet For Each ws In Worksheets If ws.Name <> "RYDER" Or ws.Name <> "PORTAL" Then ws.Cells(2, 1).Value = "suma" ws.Range("B2") = "=SUM(I4:I50)" End If Next ws End Sub [/syntax]
Witam, podczas tworzenia makra natrafiłem na problem z którym nie mogę sobie poradzić. Makro miałoby za zadanie z wszystkich arkuszy o nazwie "Protokół x" zrobić zestawienie w jednym arkuszu oraz z "delikatnymi" zmianami odnośnie rozmieszczenia w kolumnach. Na chwilę obecną nie idzie źle - mam problem ze zliczaniem wierszy z protokołów, żeby określić...
[syntax=vbscript]Sub Etykiety() Set a = Sheets("Arkusz1") Set b = Sheets("Arkusz2") For x = 2 To a.Cells(Rows.Count, "A").End(xlUp).Row b.Cells(2, 3) = a.Cells(x, 1) b.Cells(4, 3) = a.Cells(x, 2) b.Cells(6, 3) = a.Cells(x, 3) b.Range("A1:C8").PrintOut Next End Sub[/syntax]
Witam Musze przekopiować wiele pojedynczych komórek z jednego arkusza do drugiego. Kopiowanie danych musi się odbywać z zachowaniem formatowania i odniesienia do list słownikowych. Kopiowanie odbywa się po jednej komórce ponieważ makro musi być uniwersalne i pod parametry w i k, poz i kol_doc wpisywać zadane wartości. Przy poniższej operacji trwa to...
Witam Proszę o pomoc. Potrzebuje wykorzystać poniższy kod do wyszukania określonego tekstu w skoroszytach zapisanych w katalogu "DANE" i skopiowania całego wiersza do skoroszytu "Zbiorczy" Jednym zdaniem chodzi o wyszukiwanie tekstu w wielu plikach xls i zapisywanie ich do jednego arkusza. Czy jesteście w stanie mi w tym pomóc? kod: Sub OperacjeHurtowe2()...
Proszę o pomoc. Chcę, by z arkusza pierwszego po wciśnięciu przycisku "add" cały dany wiersz kopiował się do czwartej zakładki "zamówienie". Plik ma mieć docelowo ok.200 wierszy, więc chodzi o to, żeby przekleić to makro do kolejnych wierszy. Nie w każdym wierszy w arkuszu 1 będzie wduszony przycisk add, dlatego też program musi wiedzieć, że ma kopiować...
Witam! Mam taki problem. W pliku mam arkusze miesięcy - na koniec miesiąca potrzebuję z obecnego arkusza przenieść do nowego miesiąca dane dla tych wierszy, które w kolumnie F nie zostały uzupełnione - chodzi o dokończenie niezamkniętych tematów w kolejnym miesiącu oraz dopisywanie bieżących. Nagrałam makro które kopiuje arkusz z miesiącem który się...
Cześć, nadal próbuję sił w VBA. Idzie jak krew z nosa. Tym razem potrzebuję odczytać wartość komórki lub sekwencji z ciągu znaków, która zaczyna się na konkretną cyfrę (znak) "7". Dla rozjaśnienia. Mam zestaw danych w pliku kod.txt, który zawiera zestawy: - złożone z kilku wierszy (ilość zmienna, raz są trzy raz więcej) - poszczególne grupy zawsze zaczynające...
Witam, Nieczęsto zwracam się z prośbą na forum, ponieważ wynajduję informację w innych tematach. Z dzisiejszym problemem nie mogę sobie poradzić, nie wiem nawet przy pomocy czego można to ugryźć. Polega to na tym, że mam Arkusz1, a w nim ok 10-15 kolumn, A Lp., B Zadanie (w niej stałe wartości I, II, I-II), C Nazwa, itd. Chciałbym aby na podstawie kol....
Witam. Siedzę już dwie noce nad makrem i nie mogę go ruszyć. Temat: Arkusz z tabelą danych A12:I12 wielkość tablicy 30000. Mam Stworzyć drugi arkusz który by pobierał całe wiersze z pieszego. Ponadto , kolumnie In są warunki utworzenia nowych arkuszy. Reasumując tyle ile będzie różnych zmiennych w I tyle będzie nowych arkuszy. Reasumując Sortowanie....
Cześć, jestem absolutnie początkująca jeśli chodzi o VBA, a dzięki makru chciałabym przyspieszyć trochę swoją pracę... no ale nie wiem jak i liczę na Waszą pomoc :) Mam tabelę z trzema kolumnami: - data_1 - data powtarzająca się - data_2 - data niepowtarzająca się kolejno posortowana - wartość - wartość na sztywno, wcześniej policzona suma skumulowana...
Witam! W arkuszach google potrzebuje wykonać następującą rzecz. Mam Arkusz1. Wprowadzam dane do przykładowych komórek B3, D2, D5, E7, F5 (taki rodzaj formularza). Potrzebuję skrypt, który po uruchomieniu przeniesie dane z tych komórek do drugiego arkusza (Arkusz2) i zapisze je w pierwszym wolnym wierszu (w odpowiednich kolumnach) a następnie wykasuje...
Panowie, Potrzebuję pilną pomoc z następującą kwestią. Mam dwie karty, w Arkuszu1 ustawiam automatycznie filtr na wartości równe 0 lub "Blanks" w kolumnie V i chciałbym aby makro automatycznie skopiowało wszystkie wiersze do Arkusz2. Póki co korzystam z wariantu [syntax=vbscript] Range("A1:AH60000").Select Selection.Copy Range("A1").Select Sheets("Price...
Witam. Proszę Was o pomoc, bo całkowicie zielony jestem w temacie VBA/Excel. przejdę od razu do konkretów. Chciałbym aby z arkusza zawodnicy, po wpisaniu kierowcy, pilota, pojazdu, e-maila, w zależności od wyboru klasy startu np. quad, kopiowało kierowce i pojazd do tabeli w arkuszu quad, jeżeli wybiorę wyczyn - skopiuje mi kierowce pilota i pojazd...
było by super Co było by? Testowalem Twój kod na XL2007 i XL2003 (inne nie mam) - wszystko dziala poprawnie
[syntax=vb]Sub kopie_zakres() With Sheets("Arkusz3") pw = .Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Arkusz2").Range("A2:Y2").Copy .Cells(pw, 1) End With End Sub [/syntax]
Mam jednak pytanie jak to się dzieje że wkleja to w odpowiednie miejsce? Cały mechanizm makra polega na przechodzeniu krokowym (założyłem wstępnie od wiersza 1 do 10 - ale to można odpowiednio dostosować do potrzeb) wzdłuż kolumn arkusza 1 i porównywaniu wartości z odpowiednimi komórkami arkusza 2 :D Jeśli makro napotka w którymś wierszu inne wartości...
No jak chcesz koniecznie kopować: Sub Kopio_aktyw_wiersza() ' ' Kopiowanie danych z aktywnego wiersza kol. A do D ' aktywny = Selection.Row kolumna = 1 ostatnia = Cells(Rows.Count, kolumna).End(xlUp).Row ' bez selekcji od razu kopiowanie wybranych komórek : Range(Cells(aktywny, 1), Cells(aktywny, 4)).Copy 'kopiowanie danych z aktywnego wiersza zakres...
Wkleiłem 3 pierwsze słowa (bez 'z') z Twojego tematu do wyszukiwarki. Patrzyłeś już na te tematy? http://www.elektroda.pl/rtvforum/topic17... http://www.elektroda.pl/rtvforum/topic16... http://www.elektroda.pl/rtvforum/topic16... Edycja po zgłoszeniu przez autora do moderatora: Jeśli tym tokiem rozumowania pójdziemy, to będziemy...
Bardzo Was proszę o pomoc bo jest świeży w tym temacie. Kto jest świeży w temacie?
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)...
Musiałem dodać fragmenty kodu odpowiedzialne za zróżnicowaną numerację kopiowanych przycisków, a następnie identyfikację przycisku "Clear", który został użyty. Wszystkie przyciski "Copy" działają identycznie - kopiują zawsze pierwszą tablicę na pierwsze wolne miejsce. Możesz tej pierwszej tablicy nie wypełniać, potraktować ją jako szablon, unikniesz...
Można formułami. W arkuszu źródłowym zastosowałem kolumnę pomocniczą (K). W wynikowym formuła w A1 kopiowana w prawo. Przy kopiowaniu "rozjeżdżają" się formatowania, ale korekta to 1-2 kliknięcia...
[syntax=vbscript]Sub Zawiera() Sheets("Arkusz1").Select a = InputBox("Podaj tekst do szukania: ", "Wyszukaj") ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If InStr(1, Cells(x, 2), a) > 0 Then Range(Cells(x, 1), Cells(x, 2)).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub [/syntax] Poniżej bez rozróżniania wielkości...
Spróbuj[syntax=vb]Sub Makro2() Dim wrs As Integer, kol As Integer wrs = 1 kol = Sheets("4").Cells(1, Columns.Count).End(xlToLeft).Column + 1 With Sheets("1") Do While Sheets("3").Cells(wrs, 1) <> "" .Range("A1:D1").Value = Sheets(3).Range("A" & wrs & ":D" & wrs).Value Sheets("4").Range(Cells(1, kol), Cells(30, kol)).Value = .Range("J1:J30").Value...
może być, tylko żeby kopiowało całe wiersze do nowego arkusza
Namotałeś z tym kodem. Skąd dokąd i co chcesz kopiować?
Moja sugestia jest jednak taka, żeby te pliki wrzucić do tabeli w Accessie i tam je analizować. To a propos pytania "co byście zmienili". Jeśli już się uprzeć przy pliku, to usuwanie większej ilości wierszy pojedynczo poleceniem .Delete jest baaaardzo wolne, zagnieżdżona pętla też nie pomaga. 4 pomysły na przyspieszenie: 1. Kopiować znajdowane wiersze...
O rety, ale mam zaskok :) W załączniku rozwiązanie z kolumną pomocniczą.
Trzeba dopisać lub zmienić warunek... Makra, z wyjątkiem procedur zdarzeniowych, umieszcza się w modułach.
Podsumujmy: 1a. Czy powyższy kod ma kopiować do arkusza "Zbiorczo" ostatni wiersz z innych kopiowanych arkuszy, 1b. Czy też powyższy kod ma kopiować do arkusza "Zbiorczo" wszystko (jakaś tabela, zakres komórek, itd.) z innych kopiowanych arkuszy, ale robi to pomijając ostatni wiersz Pytanie: Z jakich arkuszy i skąd one są kopiowane - z jakiegoś innego...
Chciałby aby w arkuszu do którego kopiowane są wiersze w każdym wierszu pojawiał się przycisk Nie byłoby bardziej na miejscu zastosowanie hiperłącza? Wiersze usuniesz, przyciski zostaną, będzie kłopot...
[syntax=vb] If ostatniwiersz <> 24 Then MsgBox "W arkuszu jest " & ostatniwiersz & " wierszy" [/syntax]
kopiowanie jednego arkusza kopiowanie wierszy innego arkusza kopiowanie arkusza
oporność głośnik czujnik ciśnienia cyfrowy wymiana laser kenwood
przekaznik dmuchawy peugot partner niwelator leica
Emblemat VW na grillu Passat B5.5 Variant 1.9 TDI 2004 – oryginał czy tuning? John Deere 111 – silnik Briggs & Stratton 252707 11 KM, dane techniczne traktorka kosiarki
