Usuń duplikaty ani tabela przestawna tu się nie przyda bo dochodzi warunek że usuń gdy puste ale nie gdy puste w Re_3 Stworzyłem w sumie proste makro (ono tylko tak wygląda) Pierwsza część kodu przepisuje wszystkie linie mające to samo zlecenie. Później następuje sortowanie. Następnie warunek sprawdza czy (w moim przypadku coś1) się powtarza jeżeli...
O rety, ale mam zaskok :) W załączniku rozwiązanie z kolumną pomocniczą.
1. Wyrzuć "górne" r=r+1, ustaw (u góry) r=2 jeśli... sam już nie wiem. Wypróbuj. 2. Nie ta metoda. Musiałbyś copy-paste i wybierając (select) wiersz (zakres) docelowy. P.S. Zmykam. Dobranoc ;)
Już w poprzednim wątku zwracałem uwagę, że dane mają być reprezentatywne. Tam nie było nic o tym, że numery bloków mogą się powtarzać i wobec tego w kodzie była wykorzystana zmiana numeru bloku w stosunku do poprzedniej. Teraz przyjąłem, że jeśli blok jest złożony z kilku elementów, to numeracja po / zaczyna się od 1. Trzeba te bloki jakoś rozróżniać....
Bez zbędnych selectów [syntax=vb]Sheets("Arkusz1").Range("G20"... Destination:=Sheets("Arkusz2").Range("G2...
Na tą chwilę nie bardzo wiem, jak to poprawić. A przecież specjalnie Ci podpowiadałem :D możesz łatwo uchwycić obszar do aktualnego czyszczenia :arrow: jako obiekt Selection :D tzn. trzeba to zrobić raczej tak :spoko: [syntax=vbscript]Sub dodaj() Dim ile_w As Long Dim kom As Range Application.ScreenUpdating = False With ThisWorkbook.Sheets(ar_kusz)...
Niestety na służbowym kompie nie zobaczę Twojego pliku, więc tylko kilka wskazówek. 1. Proponuję przygotować szablon do kopiowania w oddzielnym arkuszu, nieużywanym przez kontrolerów. Można tam zapisać w razie potrzeby coś jeszcze, a docelowo można go będzie ukryć. 2. Żeby skopiować obszar (tabelkę), musisz wiedzieć gdzie to trzeba skopiować. Możesz...
[syntax=vbscript]For y = 1 To ile - 1[/syntax]
Poproś kogoś innego.
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...
Dodano po 19 Excel / VBA / wstawianie i kopiowanie wierszy z rozdzieleniem wartości
Samo się wpisze...
Zamień w odpowiednim miejscu kod na poniższy: [syntax=vb] If b Like "[ ][ ]333" Then p4 = InStr(a, " 4") p7 = InStr(a, " 7") If p4 > 0 Then x4 = Mid(a, p4 + 1, 5) Else x4 = "" If p7 > 0 Then x7 = Mid(a, p7 + 1, 5) Else x7 = "" t = t & x4 & ";" & x7 & vbNewLine End If [/syntax] Wynikiem jest: 11406;42005;70005 11414;42005;79999 11423;44013;70001 11433;;70000...
Można zwykłą pętlą For + kopiowanie komórek, np. [syntax=vb]Sub kopiowanie_danych() 'Arkusz1 to jest Worksheets("DANE") 'Arkusz2 to jest Worksheets("WARUNEK") 'Arkusz3 to jest Worksheets("DANE WYJŚCIOWE") Application.ScreenUpdating = False Dim war As String With Arkusz3 war = .Range("A1").Value If .FilterMode Then .ShowAllData .Range("C7:G" & Rows.Count).ClearContents...
Witaj Odpal to makro [syntax=vb] Sub popraw() Dim bs As Range, r As Long Set bs = Sheets(1).Range("A:C").Cells r = 2 While bs(r, 1) <> Empty If (bs(r, 1) = bs(r + 1, 1)) And (Month(bs(r + 1, 2)) - Month(bs(r, 2)) > 1) Then bs.Rows(r).Copy bs.Rows(r + 1).Insert Application.CutCopyMode = False bs(r + 1, 2) = DateSerial(Year(bs(r, 1)), Month(bs(r,...
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...
Wypróbuj w "główny" takie makro [syntax=vb]Sub makro() ostw = Range("C65536").End(xlUp).Row Range(Cells(ostw - 2, 1), Cells(ostw, 11)).Copy Cells(ostw + 1, 1) End Sub[/syntax]Formuły powinny "ułożyć się" wg kolejności wierszy. Nie wiem tylko skąd pobierać nazwisko klienta...
W załączeniu przykład z funkcjami Wprowadziłem dodatkowe "zabezpieczenie" w postaci tego że każda lista musi się kończyć słowem KONIEC. Jeżeli tak nie jest to znaczy że jest więcej "poleconych" niż skopiowanych w dół wierszy z formułą wyszukującą. Wtedy trzeba "złapać" trzy ostatnie komórki i skopiować w dół. -------------- No tak, kolega adamas mnie...
fragment: [syntax=vbscript] .Cells(Ow - 1, 6).Copy .Range(Cells(Ow, 6), Cells(Ow + Nw - 2, 6)).PasteSpecial _ Paste:=xlPasteFormulas[/syntax] zastąp tym: [syntax=vbscript].Range("F" & Ow - 1 & ":F" & Ow - 1).Copy .Range("F" & Ow & ":F" & Ow + Nw - 2).PasteSpecial _ Paste:=xlPasteFormulas[/syntax] i zmień nazwy kolumn w zakresie....
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...
[syntax=vbscript]Sub DodajDoBazy() Warunek = 123 owv = Cells(Rows.Count, "V").End(xlUp).Row nwa = Cells(Rows.Count, "A").End(xlUp).Row + 1 For x = 1 To owv If Cells(x, 22) = Warunek Then Range(Cells(x, 22), Cells(x, 26)).Copy Range("A" & nwa) nwa = nwa + 1 End If Next End Sub [/syntax]
Witam, Mam zakres danych a1:l52, interesowało by mnie jakiego użyć kodu ażeby kopiowało mi wiersze gdzie w kolumnach od b do l są dane. ważne żeby przy kopiowaniu wiersza do nowego arkusza kopiowało również wartość z kolumny a
Najprościej [syntax=vbscript]For i = 2 To Sheets.Count Sheets(i).Activate ostw = Range("A" & Rows.Count).End(xlUp).Row Range("A2").Select Do Until ActiveCell.Row > ostw If ActiveCell <> "" Then If Rng.Range("c2").Value <> "" Then Nextrow = Application.WorksheetFunction.CountA(Rng... + 5 Else Nextrow = Application.WorksheetFunction.CountA(Rng...
Witam W pierwszej linii wzoru jest inny
Witam. Chciałbym prosić o pomoc w stworzeniu formuły, która będzie kopiowała wiersze z arkusza bazy do innych arkuszy. Kryterium kopiowania musi byc wartość w kolumnie A (gniazdo główne). Czyli jeżeli w kolumnie A jest Flowpack 1 to kopiuj wszystkie wiersze Flowpack 1 do Arkusza Flowpack 1. Jeżeli w kolumnie A jest Flowpack 2 to kopiuj wszystkie wiersze...
Trzeba dołączyć nie obrazek, tylko plik Excel, a następnie można pokazać na Twoim przykładzie. W skrajnym przypadku powinny być widoczny nazwy wierszy i kolumn.
Jednak wtedy kopiowanie danych różniących się do "pustych miejsc" trzeba będzie dokonać "na piechotę" Jeśli w kolumnie "title" nie będą występowały powtórzenia danych (duplikaty) to całą robotę wykona proponowana formuła przeciągnięta do dołu wynikowej tabeli :-)
Podałeś zdecydowanie za mało informacji. Jeśli Twoje dane robocze liczą ok. 10 tys. wierszy, to przykład powinien obejmować ok. 50 wierszy w reprezentatywnym układzie. Należy to pokazać w załączonym pliku wraz z oczekiwanym wynikiem. Z przykładu, który pokazałeś nie wynika m.in. 1) czy wszystkie wartości w kolumnie A występują parami, czy mogą też być...
[syntax=vbnet]Sub Makro1() Set toskopiowac = Selection.EntireRow Range(toskopiowac.Offset(1, 0), toskopiowac.Offset(Selection.Value - 1, 0)).EntireRow.Select Selection.Insert Selection.EntireRow = toskopiowac.Value End Sub[/syntax]
Kopiowanie formuł jest właściwością tabeli i w zasadzie sposób odwoływania się nie powinien tu mieć znaczenia. Mnie jednak po przekształceniu zwykłego zakresu w tabelę, to od razu nie zadziałało, dlatego zmieniłem sposób odwołania. Można też raz skopiować formułę, a potem powinno już działać automatycznie. Jeśli po wpisaniu czegoś do kolumny C chcemy...
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....
:arrow: Do autora: Dobrze podstawiłeś to makro? W załączeniu przykład z działającym makrem kolegi adamas_nt Poprawiłem tylko to, że nie liczy dla 100 wierszy tylko dla wszystkich wierszy w kolumnie A zeszytu1. Dodane po czasie ----------------------------- Zmieniłeś treść wiadomości więc moja uwaga nie ma już uzasadnienia, niemniej pozostawiam przykład...
(Baza Zielone) 1 - nie do końca wiem czy o to Ci chodzi (próbowałem zrozumieć co chcesz osiągnąć - możliwe, że właśnie to co w załączonym pliku). Najprościej będzie posortować po pierwszej kolumnie tak aby puste wartości (matki) zostały na końcu i wówczas do kopiowania danych używasz formuły: 1060144 (Baza Niebieskie) 2 - już napisałem powyżej. Robisz...
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
Proszę o pomoc, jestem początkujący (bardzo) i mam następujący problem Mam dane w akruszu1 kolejno w kolumnach od A do D 31.05.202113:581020 31.05.202113:587564 ... Potrzebuję skopiować wszystkie wiersze z arkusza1 dla liczby >=31 z kolumny 3 (C) do drugiego arkusza2. Najlepiej jakby skopiowane...
Witam Mam plik o nazwie zeszyt1 na dysku C z danymi w tabeli. Mam drugi plik o nazwie zeszyt 2 na dysku I. Chcę ażeby dane z zeszytu 2 aktualizowały zeszyt1 arkusz 2 czyli były kopiowane do kolejnych wierszy zeszytu1. Kopiowane mają być całe wiersze, a warunkiem do aktualizacji ma być kolumna A w obu zeszytach. Prościej mówiąc jeżeli dane w komórce...
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...
Witam Mam do uzupełnienia dość spory arkusz. Zazwyczaj chodzi o wpisanie wartości w dwóch komórkach, ale często sprawy się komplikują i muszę wstawić nowy wiersz, skopiować kilka potrzebnych komórek z wiersza powyżej (nie wszystkie), wprowadzić zmianę w jednej komórce i sformatować wiersz. Jako, że jest tego dość dużo, a czasu mam mało, chciałem użyć...
Cześć, przepraszam, ale mam być może banalny problem , ale nie siedziałem dość długo w excelu i nie mogę sobie poradzić. Generalnie mam taki skoroszyt o nazwie < "Lista" > w którym zapisuje sobie wszystkie lokalizacje, jedna pod drugą. Często zdarza się że musze jakąś lokalizacje zaraportować, zanalizować itd i pomyślałem sobie że zamiast za każdym...
Witam forumowiczów, Potrzebuje pomocy w napisaniu programy w VBA. Mianowicie: w excel-u mam listę produktów(kolumna 'b') i ilość(kolumna 'c') Potrzebuje wydrukować tylko wiersze zawierające jakąś liczbę w kolumnie ilość oraz kolumnę SKLEP i DZIEŃ, DATA. Proszę o pomoc - jeżeli będą to komendy proszę podajcie jak ich używać http://img714.imageshack.us/img714/9899/...
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ść, Potrzebuję podpowiedzi jak obejść następującą sytuację, mianowicie mam główną tabelę, w której poszczególne działy oznaczone są w kolumnie A kolejnymi literami A, B, C ..., z czego kilka linijek należy do jednego działu. Chcę, aby w momencie użycia makra poszczególne linijki kopiowały się do kolejnych arkuszy. Do tej pory używałem wariantu, że...
Witam, jestem tutaj nowy. W Excelu poruszam się biegle, ale mam problem z Makrami i VB. Mam dwa pliki. Plan produkcji.xls w nim arkusz Produkcja i tam ma różne dane. Drugi plik to Zrobione.xls i arkusz zrobione. Chciałbym, aby w pliku zrobione po uruchomieniu Makra wypisało mi wszystkie arkusze ze statusem GOT. który jest w kolumnie N pliku Plan produkcji....
Witam Jestem zupełnie zielony jeśli chodzi o makra i potrzebuję pomocy szanownych kolegów. Mam w arkuszu dane, dużo kolumn i dużo wierszy. Prosiłbym o pomoc w napisaniu makra, które sprawdza wartości w jednej z kolumn np BT i jeśli w aktualnie sprawdzanej komórce występuje jakaś wartość (komórka nie jest pusta) kopiuje cały wiersz do innego arkusza,...
Witam, jestem początkującym w pisaniu makr. Walczyłem cały dzień aby napisać makro i nie wyszło dlatego proszę o wzór. Z arkusza „dane”, aby przenosiło komórki wszystkie z wiersza oprócz komórek z nagłówkiem „Ilość etykiet” do arkusza „widok” i skopiowało tyle razy, jaka jest wartość w komórce z nagłówka „ilość...
Potrzebuje skryptu vba które zrealizuje mi usuniecie wierszy i ich skopiowanie do innego arkusza jak pojawi sie słowo www. Ma ktos na to pomysł ;-) a sorki troszke nie doprecyzowałem mam 150 wierszy i po nich 151 w którym mam słowo ww. chce by mi usunął i skopiował excel te 150 wierszy do innego arkusza.
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...
Dzień dobry, Na wstępie chciałabym zaznaczyć, że jestem zupełnym laikiem jeśli chodzi o bardziej zaawansowane działania z wykorzystaniem formuł EXCEL. Przejrzałam tematy wydające się być podobne do tematyki mojego problemu, jednak nie znalazłam konkretnej odpowiedzi. Mam następujący problem. Chciałabym, aby po wprowadzeniu określonej wartości w Arkuszu...
No, no jesteśmy na dobrej drodze :) . Wszystko ładnie, z tym że po zmianie daty powinny być kopiowane następne wiersze. W załączniku przykład To proponuję wpierw określić, co się chce osiągnąć całościowo, a nie stopniować sobie na zasadzie 'jak już mam to, to może i coś innego też ... ' :D Do tej pory była mowa tylko o kopiowaniu 3 wierszy, nawet na...
z komórek o pierto niżej t.z. z wiersza 2 ?(b2 c2 d2) pisać makro cały czas to lipa zapisz w Osobisty skoroszyt
uzupełniam kolumnę C i poniżej w tabelach automatycznie dodają się wiersze z tym tekstem co powyżej. Dokładnie podobny mechanizm mam na myśli :D , ale oparty na formułach, oraz na automatycznym ukrywaniu pustych wierszy (realizowane prostym makrem Worksheet_Change) :idea: 989747 Jak widać na zrzucie wstawiam pierwszą literę nowego surowca, zatwierdzam...
nie mogę znaleźć rozwiązania a potrzebuje go dość szybko Ale w czym problem? Wystarczy nagrać makro, ściągnąć z internetu gotową funkcję 'LastRow' lub nagrać kombinację Ctrl+strzałka w dół, podstawić zmienne i "posprzątać" po rejestratorze (tu z pewnością ktoś pomoże). Próbowała koleżanka?
Tak, tylko formula nie otworzy pliku zrodlowego i go nie zamknie a z zalozenia ma to byc robione z automatu. Poza tym to makro podepne sobie potem pod przycisk, i bedzie sie odpalalo kiedy ja tego bede chcial a nie przy kazdym otwarciu pliku. Tu jest przewaga makra nad formula. Gdybym chcial to zrobic formulami to nie zawracal bym wam glowy takimi prostymi...
Formuła w kolumnie A =JEŻELI(D1=0;"";D1) Resztę wierszy przeciągnij w dół lub =D1 jeśli nie będzie pustych komórek w kolumnie D
...Chciałbym skopiować wybrane wiersze plików excela do jednego zbiorczego excela Pliki Excel z którego chce pobierać dane ... A co tu kolega napisał ? O plikach tekstowych ?
Zostałem poproszony o odpowiedź czy rozwiązałem swój problem. Otóż nie. Ale to było dawno temu i już nie nadaje się nawet do rozwiązywania. Dziękuję za wszystkie próby pomocy :)
Zmienit 'For i = 0 To nrep - 1' na 'For i = 1 To nrep - 1'
kopiowanie warunkowe wierszy Excel
Witam, proszę o pomoc w rozwiązaniu następującego problemu. Mam cztery kolumny, a i b w arkuszu 1 oraz c i d w arkuszu 2 które chce porównać ze sobą w następujący sposób. Dla komórki w kolumnie a arkusza 1 chcę znaleźć taką samą komórkę w kolumnie c arkusza 2. Jeżeli nie ma takich samych komórek to wynik = BRAK. Jeżeli znajdzie się odpowiednik to dla...
U mnie to wykonuje się około 20-25s - przy większej ilości danych Excel będzie zablokowany jeszcze dłużej, więc muszę pomyśleć, jak to wyciągnąć i odpowiednio ustawić w porządanych kolumnach z użyciem funkcji. Zaproponowane rozwiązanie działa, więc w przypadku mniejszej ilości wierszy będzie pomocne - dziękuję 😉
Ustawiłem w arkuszu Excela formułę formatowania warunkowego, która zmienia na czerwony kolor czcionki (w komórce G2), jeśli jej wartość jest mniejsza niż wartość komórki F2. Działa. Chciałbym skopiować następnie formatowanie warunkowe, do kolejnych wierszy zgodnie z zasadą jeżeli Gx > Fx to formatuj. Kopiowanie zarówno malarzem formatów, jak i opcją...
Witam, co ma być zmodyfikowane w procedurze VBA, aby zadziałała. Procedura ma zadziałać w całym arkuszu w momencie w następujący sposób: 1. Jeżeli w kolumnie G ilość w pierwszym wierszu jest np. liczba 9, to ma dodać jeszcze 8 wierszy. 2. Ma skopiować dane z wiersza powyżej. 3. W kolumnie G w pierwotnym wierszu jak i skopiowanych wierszach ma być cyfra...
kopiowanie wierszy makro excel kopiowanie wierszy kopiowanie wierszy wybranych
discovery silnik pilot bluetooth konfiguracja pralka buczy pracy
Wentylator do kompresora Herkules 10 z 2010 roku - jak dobrać? Kocioł kondensacyjny – praca ciągła na niskiej temperaturze zasilania, sprawność, modulacja
