Makro super tylko w tym przypadku zostawiło mi tylko kwoty z "5.00". Usuwa tylko w przypadku, gdy: 2. W kolumnie A nie ma kwoty "5.00" Jeśli w kolumnie A jest kwota 5.00 to pozostawi nietknięty wiersz niezależnie od całej reszty. Jeśli ma być inaczej to musisz lekko przeredagować warunki. Załóżmy, że sa możliwe 4 sytuacje. 1) kwota inna niż 5.00 oraz...
Fakt. I przed Rows też. To dlatego, że dodałem tego with'a już po napisaniu kodu i wtedy ktoś mnie zajął czymś innym, a potem musiałem już lecieć i tak zostało. Dlatego nie lubię pisać przykładów, zawsze coś/ktoś przeszkadza.
Nie jest całkowicie skrot, reprezentuje nazwę obiektu w skoroszycie, Np for each bbb in ActiveWorkbook.Sheets 'colection sheet in workbook bbb .Cells(1,1)="Witaj" next
To całkiem inne zagadnienie, wogóle nie związane z tematem i bardzo prościutkie [np. za pomocą wyszukaj.pionowo()] ale załóż własny temat. (bo jak między innymi podziękujesz za pomoc???)
Brak pliku do testowania!!! Jak coś Ci nie zadziała, poprawisz sobie sam. Dodałem makro RemoveShapes. Zobacz w moim załączniku.
Mała przeróbka makr: 912681 Wiersze można dodawać ze ściśle określonego zakresu, który sam sobie ustalasz ("If ilewrs > 10 Then Exit Sub"). Usuwanie wierszy tylko pojedynczo, od ostatniego, aby zachować porządek.
A dlaczego nie dać szansy Excelowi, tylko go wyręczać? [syntax=vbscript]Sub Zapis_do_CSV() ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\baza test2.csv", _ FileFormat:= xlCSV, CreateBackup:=False, Local:=True End Sub[/syntax] Nie zwróciłem uwagi, że to ma być bez pierwszego wiersza, ale ten zawsze można usunąć później. Najważniejsze, żeby Excel...
W załączniku plik z przyciskiem wstawiania nowego wiersza. Natomiast gdybyś usuwał wiele wierszy z zaznaczenia pamiętaj, że pola wyboru z tych wierszy ułożą się w stosik jeden na drugim. I dlatego, podejrzewam, tyle ich się nazbierało. Można dorobić makro usuwania Np ostatniego wiersza, ale to ew. później. Wyłączam komputer, idzie nowa burza...
Dodałem jeszcze możliwość ukrywania kolumn z niepotrzebnymi dniami w miesiącu, aktualizację dni miesiąca na pasku jak również zmiana koloru na szary dni sobota i niedziela. UWAGA!, nie zmieniaj (nie dodawaj nie usuwaj żadnych kolumn i wierszy) bo to spowoduje że makro będzie niepoprawnie działać
Nie dokładnie przejrzałeś historyczne wątki naszego forum :cunning: Proponuję przejrzeć wątki na temat wyrażeń regularnych RegEx np. https://www.elektroda.pl/rtvforum/viewto... lub https://www.elektroda.pl/rtvforum/viewto... Załóż swój wątek, załącz przykładowy plik to znajdziesz bardziej precyzyjną pomoc...
Było. Poszukaj w archiwalnych tematach. [syntax=vbscript]Sub UsunWiersze() For x = 100 To 49 Step -1 a = Cells(x, "B") If a <> "" And a = 0 Then Rows(x).EntireRow.Delete Next End Sub[/syntax]
Wrzuć to makro, uzupełnimy...
I teraz wszystko jest OK.
Skoro raport ma 300000 wierszy, to zmienna i musi być zadeklarowana jako long. W którym miejscu Twoje makro się zatrzymuje? A tak w ogóle to zamiast mozolnego porównywania każdej komórki z elementami tablicy przy pomocy pętli to poszedłbym w sprawdzenie przy pomocy odpowiednika arkuszowej funkcji PODAJ.POZYCJĘ czy wartość danej komórki jest w tablicy....
Wygląda mi to na jakieś "kombinowanie" i, znając życie, nie będzie to działało tak, jak chcesz - bo zaistnieją jakieś warunki, których teraz nie przewidzisz, ale tak na szybko można próbować takim makrem, jak w załączniku. Cała "sztuka" to dodawanie / usuwanie wierszy od końca, żeby zakres się w pętli nie przesuwał. Usuwanie zakłada, że usuwasz wiersze,...
Dołącz przykladowy plik
Zbliżone działanie do pożądanego :D tj. przenoszenie danych z katalogu do oferty przy pomocy dwukliku (makro działa pojedynczymi wierszami - oczekując na wpis ilości do oferty :ok: patrz na zrzut ) 978389 Drugie makro w "ofercie" usuwa wybrane wpisy (wybrany indeks :!: ,a przy okazji ilość :D ) 978391
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...
...albo zrobić tabelę przestawną z indeksem w wierszu + licznik z indeksu?? :)
Do makra można przypisać skrót klawiaturowy, ale nie może to być ani "'" ani F9 tylko konstrukcja typu Ctrl+Shift+A Można też uruchamiać makro za pomocą przycisku lub przypisać je do kliknięcia w obraz lub kształt.
Makro poniżej przesuwa nazwiska w prawo o wartość numeru grupy+1, a następnie usuwa puste komórki w obszarze danych. Nazwiska nie są posortowane. Jeżeli jest potrzeba. sortowania to na początku makra dopisać sortowanie.[syntax=vbscript]Sub Przepisz_Nazwiska() Dim Tab_Opis As Variant With ActiveSheet Tab_Opis = Array("Grupa 1", "Grupa 2", "Grupa 3",...
Proponuję po numerze działki, po komunikacie typu, np.: a) Dodawanie - "Wpisz nr działki poniżej której ma zostać dodany wiersz" b) Usuwanie - "Podaj nr wiersza, który ma zostać usunięty" Nr działki podawałbym przy każdej uprawie w jej obrębie, po co "dziurawe" dane ?
Musisz na początek znaleźć jakiś wyróżnik wierszy do usunięcia. Co one mają innego niż cała reszta. Potem wystarczy tylko to wykorzystać. Od tego co zauważysz będzie zależał algorytm i kod makra. Wiersze często najwygodniej usuwać od końca, tak może (nie zawsze musi) być łatwiej.
Pomimo dość dziwacznego kodu, jak przystało na laika ;) makro działa... Linia[syntax=vb]Range(Selection, Selection.End(xlToRight)).Select[/syntax... zaznaczenie komórek wiersza do pierwszej "dziury" (Ctrl+Shift+strzałka w prawo) i stąd pozostające wartości. Proponuję małą przeróbkę (koniecznie przeanalizuj!) [syntax=vb]Private Sub cmbdeletpass_Click()...
W każdy przebiegu pętli zanim zaczniesz zaznaczać wiersze. Inaczej skąd program ma wiedzieć, że chcesz zaznaczać w innym arkuszu?
1. 1. Nie kasuje komórek z zakresu Kod: br.Sheets(s).Range("39:56,97:100,141:144... To jest mój błĄd, miało być o 9 wierszy mniej, poniewaz kopie z a10 do a1 na sbiorczym t.j. range("30:47, 88:91, ... itd. teraz makro usuwa wiersze z dane, nie te z 'Note: 1. All tests (VT, PT, MT, UT, RT) were carried...
Witam, Mam problem który może mi rozwiązać tylko makro, otrzymałem excel z danymi w którym mam w jednej kolumnie nazwy odbiorców w kolejnych dane sprzedażowe. Problem polega na tym że zawsze pierwszy wiersz dla danego odbiorcy jest sumą wszystkich pozostałych (taki wiersz sumujący sprzedaż dla danego klienta). Potrzebuje makro które automatycznie usunie...
Masz literówkę, powinno być: "delete". Dla ukrywania nagraj sobie makro i podstaw, zamiast delete, polecenie nagrane przez rejestrator (ciąg po selection).
Działa ale też nie do końca tak jak trzeba - nie przenosi szerokości komórek i formatowania warunkowego. Ale spox poradziłem sobie w inny sposób. Na bazie poprzedniej procedury nagrałem sobie makro, które usuwa zbędne wiersze i zmienia nazwę arkusz i pozamiatane. Jeszcze raz wielkie dzięki za pomoc.
Witam. Mój problem wygląda następująco: Dostaje plik excela w którym są dane z kilku plików pdf. Dane wyglądają następująco: Nagłówek - kilka linijek Dane - tabela numerowana od 1 do różnie czasem do 100 czasem ponad 1000 pozycji. Stopka - kilka linijek Nagłówek itd. Chodzi mi o takie makro które sprawdzi które wiersze mają w kolumnie A liczbę, natomiast...
Mogę mieć plik w tym samym miejscu i z tą samą nazwą. Do tego dążę - żeby zautomatyzować. Nie chcę tabeli przestawnej bo muszę pracować na tych danych. Przerabiałam to już i się to nie sprawdziło. Dobra odpuśćmy ten temat. Czy możesz mi powiedzieć jak ponumerować wiersze, aby numery szły kolejno, ale jeśli wiersz się powtarza to zwróci ten sam numer?...
Chcę uzyskać przeniesienie całych wierszy z Arkusza1 do Arkusza2 jeśli zostanie spełniony określony warunek. Jeśli w kolumnie stan pojawi się wartość "Zakończony" to całe wiersze mają być przeniesione do Arkusza2, natomiast w Arkuszu1 wykasowane. W załączniku plik Excel Cześć! Rozumiem, że chcesz, aby wiersze z Arkusza1, które spełniają określony warunek...
Nie działa, siedzę godzinę, analizuję i nie wiem o co chodzi. Ścieżka dopasowana dobrze, makro uruchamia się (otwiera klas itd.) ale nie usuwa powtarzających się wierszy.
Witam Potrzebuje pomocy przy napisaniu makra excel W kolumnie M mam 10 typów wartości liczbowych powtarzających się, pomieszanych. Chciał bym aby makro znalozło wiersze w kolumnie M zaierające wartości 1224, 1228 i 1232 Po czym usunęło całe wiersze, czyli wszystkie dane we wszystkich kolumnach w tym wierszu który zawiera te liczby. Ale tak było nie...
Witam! Jeśli praca będzie sie powtarzała dość często to może wartałoby napisać krótkie makro: OD początku zaznaczenia DO końca zaznaczenia rób { Jeżeli wartość komórki z zaznaczonego przedziału jest mniejsza od 0 to ukryj wiersz w którym znajduje się niechciana komórka (Selection.EntireRow.Hidden = True) } Mógłbym coś napisać ale teraz naprawdę nie...
Długo nikt nie odpowiada, więc chyba coś tu nie jest jasne. Excel może działać (upraszczając nieco) poprzez formuły lub poprzez makra. Formuły nie mogą niczego przenosić, mogą jedynie "kopiować", a ściślej zwracać wynik tam, gdzie wcześniej wpisano formułę, pozostawiając dane źródłowe bez zmiany. Formuły działają automatycznie, przeliczają się same,...
Dzień dobry, Wydaje mi się, że niepotrzebnie się Pan obraża, bo moje pytanie chyba jednak było zasadne - w nowej wersji usunął Pan to godzinowe formatowanie i teraz wiadomo, że chodziło Panu o liczby całkowite. Lepiej wyjaśnić wątpliwości zawczasu aniżeli zrobić coś nie tak i później poprawiać. Pana problem wcale nie jest banalny i pewnie dlatego nikt...
Z Accessem miałem styczność tylko raz i z tego co pamiętam, to nie pozwala usuwać wierszy, tzn. zostawia je puste, tworzy wiersz o nowej numeracji i tworzy się bałagan, a ja będę przekopiowywał, przenosił i kombinował na wiele sposobów, excel jest do tego łatwiejszy. Proszę jeszcze raz o pomoc w excelu;p No dobrze, sprawdzę to w domu, bo w pracy mam...
Na chwilę obecną mam VBA, które działa w następujący sposób: Jeśli w kolumnie "6" w arkuszu1 zaznaczę "x" to kopiuje odpowiednie komórki do pierwszego wolnego wiersza w innym arkuszu. Aby odwrócić działanie tego makra, dobrze byłoby wiedzieć gdzie te "odpowiednie komórki" lądują w 2-gim arkuszu. No wiesz, żeby nie biegać i szukać po wszystkich szufladach......
Witam. Tak jak w temacie. Wiem, ze sposob (czy to formula, czy makro) istnieje, ale mimo staran nie moge tego znalezc, stad prosba pomocy. Nie wiem czy taka mozliwosc istnieje w Wordzie, wiele razy natomiast trafialam na porady dotyczace Excela (teraz jednak nie moge trafic w slowa-klucze do znalezienia rozwiazan). Problem jest taki, moze pomozecie...
To jest NIE-SA-MO-WI-TE! Działa! Excel/programowanie jest przepotężne. Robiłem ten "kod" za pomocą nagrywania makro oraz dodawałem coś od siebie, żeby to działało automatycznie. Asem w kodowaniu VBA nie jestem, ale jeżeli mój działał, to działał, a że działał tak sobie, to zwróciłem się o pomoc do (jak widać) odpowiedniej grupy użytkowników. (^_^)...
Jak już chcesz usuwać wiersze z zakresu, to wykonaj pętlę od ostatniej zapisanej do pierwszej komórki - mniej problemów. Po drugie: te selecty to są zupełnie niepotrzebne. To makro może być w następującej postaci: [syntax=vb]Sub usun() Dim lLstRw As Long 'ustalenie ostatniej zapisanej komórki w kolumnie A lLstRw = Cells(Rows.Count, 1).End(xlUp).Row...
Witam. W jaki sposób określać zakres działania makra (chcę aby zakres adaptował sie do ewentualnie wstawianych/usuwanych wierszy)? Nie umiem pisać kodu. Zawsze nagrywam makro ale wtedy zakres jest zapisany jako konkretne adresy komórek i po dodaniu lub usunięciu wierszy zakres pracy działania makra nie jest właściwy. Przykład: 1 Mam sformatowaną komórkę...
marcinj12, Dzięki za tę podpowiedź. Poprawie to w kodzie i zobacze czy choć trochę przyspieszyło. Szczerze mówiąc to nie wiem, która zajmuje więcej czasu, wydaje mi się, że delete, ponieważ jest odpalana dwa razy (w dwóch arkuszach). Jeżeli chodzi o ilość danych, to przy około 300 wierszach radzi sobie w miare szybko, jednak już przy tysiącu, niestety...
Witam, Próbuję napisać makro do poniższej tabeli (numerom porządkowym przypisane są dwa wiersze), takie aby w momencie kiedy data wpisana przy danym numerze porządkowym jest o 30 dni starsza od daty aktualnej, automatycznie usuwało zawartość dwóch ostatnich komórek z danego rzędu (zaznaczone na zielono), niestety moje umiejętności pozwalają tylko na...
Dziękuje ThomasGP tak wlaśnie o to mi chodziło tylko że jak uruchamiam to mi błąd pojawia sie o treści: Run-time error '5': Invalid procedure call or argument , w kodzie zaznacza wiersz: Cells(i, 2) = Right(Cells(i, 1), Len(Cells(i, 1)) - 3) i nie wiem o co w tym chodzi? Czy jakaś zmienna musi być zadeklarowana czy co? Na marginesie to VBA to fajna...
Witam! Mam w pliku Excel arkusz dla każdego tygodnia roku kalendarzowego o nazwach T-01, T-33, T-43 itd. W arkuszu posiadam makro do szybkiego tworzenia nowego arkusza przenoszące układ i formatowanie obecnego arkusza i dodatkowo przenoszące do nowo tworzonego arkusza wiersze dla których wartość w kolumnie J jest większa od zera. Plik służy mi do cotygodniowego...
Dzięki za wyjaśnienie JRV , robiłem podobny błąd w innych przypadkach. Mam prośbę, mógłbyś zaproponować rozwiązanie dla poniższej sytuacji. Mianowicie mam w jednym arkuszu dużą liczbę nazw, które będę chciał później pogrupować, w tym celu chciałbym aby makro zmieniało nazwy na podstawie bazy w drugim arkuszu (załączyłem przykład o co mi chodzi), próbowałem...
Witam, potrzebował bym małej pomocy. Otóż mam tabele tak jak poniżej. W tabeli mam wiersze które się dublują. Niestety nie dublują się one w kolumnach tylko w wierszach co utrudnia sprawę. http://obrazki.elektroda.pl/8507180000_1... Czy ktoś by mógł podpowiedzieć jak usunąć zdublowane wpisy pozostawiając tylko oryginał czyszcząc tylko...
Witam! To mój pierwszy post w tej części forum. Natrafiłem na problem, znalazłem rozwiązanie, może komuś to się przyda. Zarejestrowałem proste makro, które w pierwszej części (tylko ta jest istotna) miało u dołu tabeli, ale przed wierszem podsumowania tworzyć dodatkowy wiersz będący kopią jednego z wierszy powyżej. Wydawało się, że sprawa jest prosta,...
Witam, chciałabym stworzyć makro porównujace dwa wskazane przeze mnie pliki. Układ obu plików jest taki sam. Na kilkaset wierszy czasami zostanie zmieniony tekst/kwota lub całkiem usunięty/dodany nowy wiersz. Widziałabym to tak że wskazuje konkretne dwa pliki, a makro porównując je usuwa powtarzające się wiersze (sprawdzając zarówno tekst jak i kwoty)....
Witam! Od czasu do czasu korzystam z VBA lub po prostu rejestruję proste makro, żeby ułatwić sobie pracę. Ostatnio natrafiłem na problem. Zarejestrowałem proste makro ułatwiające dodawanie kolejnych odczytów do tabeli w arkuszu, który jest częścią większego skoroszytu, ale innych makro w nim nie ma. Ku mojemu zdziwieniu okazało się, że makro czasem...
Źle się wyraziłem... chodzi o to że wczoraj przekopiował numery i jest ok, dziś jest nowa lista z nowymi fakturami i numerami i jak je kopiuje to usuwa te poprzednio skopiowane numery i wywala "#N/D!", wychodzi na to że on analizuje wszystkie wiersze i jak wiersz nie spełnia kryteriów to wywala n/d, a potrzebuję aby nic nie robił bo tamte dane są potrzebne...
Dzięki wielkie. Imię dodaje tylko do pierwszego wiersza z danego skoroszytu. Ale najważniejsza jest prędkość. Zrobię testy i zaprezentuje wyniki:) Czas na wyniki testu:ść Ilość plików: 142 stare makro: 1. wczytywanie z formularzy: 35sek 2. Dodawanie: 1min 2sek Nowe makro: 1. wczytanie plus dodanie 20sek :D Podsumowanie: Podczas używania starego makra...
Co chcę uzyskać 1.w arkuszy tabelk_b2 wypełniam dane poza polami zaznaczonymi na zółto 2.naciskam przycisk wstaw b2 3.wyskakuje okienko 4.wypełniam pola naciskam ok. wstawia wpisany text w arkusza b2 (pola na żólto w tej chwili) i jednocześnie po naciśnieciu ok copiuje(to jest makro) do arkusza naklejki. 5.analogicznie z wstaw F 6.jeszcze przycisk "usuń...
Jest kilka sposobów, których tu można użyć. Podam 2 warianty bez użycia makr. Jeśli problem występuje często, to można również użyć makra. Moja propozycja: 1) Zaznaczamy drugą kolumnę (kol.B) na wysokość danych. 2) Do komórki w pierwszym wierszu (B1) wpisujemy formułę: ="1|"&A1 3) Przytrzymując Ctrl naciskamy Enter. Wariant 1: 4) Kopiujemy kolumnę przez...
Jeżeli jest to normalne na tym forum to naturalnie za finalną pomoc chcę podarować punkty. To jest Twoja indywidualna sprawa. Darowanie punktów nie jest naturalne na tym forum :) Wskazane jest natomiast kliknięcie przycisku http://obrazki.elektroda.net/23_12596950... Sortowanie kodów: Żeby później nie zgubić grupowania, należałoby (makro) rozpocząć...
1)Prawie super tylko nie wiem dlaczego nie bierze pod uwagę ostatniego wiersza bez względu na liczbe w danym arkuszu?? 2)Jeszcze mam jedno pytanko w sprawie kasowania.Chciałbym usunąć wiersze zawierające konkretny tekst próbowałem użyć formuły do usuwania pustych wierszy ale nie wiedzieć czemy po wstawieniu konkretnego słowa nie działa próbowałem też...
Witam, Zwracam się z prośbą o pomoc w następującej sprawie, otóż potrzebuję usunąć dane, które znajdują się poza zakresem wydruku. Czy można to wykonać z poziomu Excela czy jest makro? Mam kilka arkuszy i chodzi o to aby nie zaznaczać kolumn i wierszy z poza zakresu wydruku i wówczas usuwać zbędne dane. Z góry dziękuję za pomoc
To akurat wiem. Ale działa :-) A że jest nieelastyczne i zbyt obciąża plik, to już druga sprawa, którą chętnie rozwiążę. Tyle że widzisz - ja z VBA dopiero zaczynam się bawić - takie rozwiązanie znalazłem w sieci i je zrozumiałem. Natomiast jak zapisać, żeby makro rozpoznało po znalezionej nazwie sprzedawcy, do której zakładki przenieść wiersz, jak...
Zakładam, że za aktualizowanie odpowiedzialne jest jakieś makro. Dopisz wstawianie komórki (Range("A1").Insert Shift:=xlDown) i usuwanie końcowej przed zasadniczą procedurą. Dzięki za podpowiedź, ale to makro które aktualizuje komórkę A1 jest zahasłowane i nie da rady nic dopisać. Trzeba by zrobić nowe tylko do przesówania komórek. Mogłbyś napisać...
Witam ponownie, Nie bardzo rozumiem, albo chyba coś robię źle. 1)Mam dwa arkusze zest (arkusz1), temp (arkusz2). 2)Utworzyłem trzy przyciski w arkuszu zest(arkusz1) Generuj, usuń, zapisz. 3) Mechanizm1: Generuje sobie arkusze o odpowiednich nazwach, według przykładu od 1001 do 1009 i teraz np. chcę zapisać każdy ten arkusz osobno w katalogu (np.C:\Users\Michal\Desktop\Zestawienia)...
Moderowany przez Marek_Skalski: Kolego, Twoje pytanie nie jest bezpośrednio związane z pytanie Autora tematu. Z tego powodu sugeruję wydzielenie tematu do nowego wątku. 3.1.19. Nie wysyłaj wiadomości w tematach archiwalnych, jeśli jest to kolejne pytanie, w szczególności inne niż osoby pytającej. Z racji szacunku do pytającego załóż własny temat. Możesz...
Właśnie chyba wszystko poplątałem, wykorzystywałem formułe z IFem do usuwania wcześniej wierszy i nawet rozsądnie to rozkminiłem. Chciałem ją dostosować do wstawiania formuły, ale chyba pobłądziłem. Cel jest prosty, chcę aby w każdej komórce w kolumne, wstawiało mi makro formułe do momentu kiedy np w kolumnie A będzie cokolwiek wpisane.
Analizowałeś to makro? Przyjrzyj się co przypisujesz do zmiennej "multi" i to przed otwarciem pliku źródłowego. Nie powinno być With DoSkop.Worksheets("AKKO"... Set reg1 = .Range("a2:a41000")... itd Jeśli filtrujesz, to ustal maskę: fileFilter:="Pliki Excel (*.xl*),*.*," Po mojemu: Albo zostaw to (poprawione) kopiowanie...
Żebyśmy się zrozumieli. Nie wiele potrafię, to jest fakt niezaprzeczalny :) Poza tym makro czyszczące dane z bloku pierwszego jest celowo przypisane tylko do pierwszego bloku ponieważ: Tych bloków/tabel w praktyce będzie wiele.. 20, nawet 40. Czyszczenie każdego z nich byłoby karkołomnym. W rzeczywistości działa to tak: Wypełniam pierwszy blok danymi,...
Ad.2 Kopiowanie wiersza z przysikiem, to żaden problem. Problemy zaczynaja sie przy usuwaniu wierszy, bo przycisk zostaje i zwykle nakłada się na następny. Po jakimś czasie może być ich mnóstwo "na kupce" Ad.1 Napisać makro wg Twojego opisu, to, na oko, żaden problem. Sugerowałbym którąś z procedur zdarzeniowych arkusza (Np Change dla kolumn H, I, J,...
super! dodałem i wszystko działa jak należy!! Miałem tylko problem z usuwaniem pustych wierszy... napisalem makro kasujące gdy jakieś pole jest puste... działa ale bardzo długo przelicza.... Poniżej makro: Sub Kasuj() For i = Cells(65536, "A").End(xlUp).Row To 3 Step -1 If Cells(i, "B").Value = "" Then Rows(i).Delete shift:=x1Up End If Next End Sub...
Ale co Ci nie jeździ, bo nie bardzo rozumiem. Ten kod początkowo kopiuje wszystko, a te wiersze z zerami są usuwane dopiero później, kolejną częścią kodu. Ja nic w logice Twojego kodu nie zmieniałem.
Ad.1 i 2 Najprościej: nazwij je przy tworzeniu Np dla pierwszego wykresy dodaj na końcu Wykres_01.Name = "Wykres1" wtedy: Sheets(Zak).Shapes("Wykres1").delete Ad.3 Przy Workbook.Open wywołaj makra usuwania i tworzenia. Jeśli będą nazwane (pkt.1), nie będzie trzeba nawet pętli, instrukcji warunkowej, itp. Ad.4 Array z nazwami i pętla. Zakresy masz po...
Dziękuję. Niestety nie działa jeszcze tak jak potrzebuję ;/ Pozmieniałem trochę zakresy danych, ale jest kilka rzeczy do zrobienia. 1. Podczas kopiowania z "Spis końcówek lotów" do "Złomowanie" makro wkleja dane tak jak leci, a powinno wpisywać w pierwszy wolny wiersz od B3 do nieskończoności tak na prawdę tylko ZŁOM. W tej chwili usuwa mi również dane,...
Panowie. Mam takie problem. Kiedy mamy stworzoną tabele w Excelu przy każdorazowym dodaniu nowej wartości wiersza tabela nam się powiększa mam na myśli głownie formatowania. Na czym polega problem? 1.Więc kiedy usuwamy wartości z wiersza formatowanie zostaje.W jaki sposób stworzyć taką tabele aby np dane o wielkości tabeli były pobierane np z pierwszej...
Dla mnie ten kod jest troszeczkę pogmatwany i też jestem za tym aby na wstępie stworzyć poszczególne kroki procedury. I tu jeszcze się zapytam co ma być jak ta sama osoba występuje parę razy. Rozumiem, że wtedy w Arkuszu2 będzie lista danych (parę wierszy) -zaczynając od 13 wiersza. Ale jeżeli procedura później usunie tylko jeden wiersz w arkusz1 (tylko...
Super! Makro działa tak jak sobie założyłem, okazuje się jednak że mam problem z analizą tak zebranych danych. Ładuje do 100 plików na raz każdy ma nawet kilkaset linijek i analiza jest utrudniona przez to że każdy jest w osobnym arkuszu, wcześniej tego nie przewidziałem... Co trzeba by przerobić żeby pliki txt ładowało wszystkie do jednego arkusza...
1. pobiera listę plików .xlsx w folderze 2. usuwa zakładki, tworzy nowe i orzenosi dane z pobranego pliku z folderu 3. przenosi dane z jednej zakładki do finalnej KOR 4. przenosi poszczególne wiersze z zakładki RAT do zakładki KOR do tego samego wiersza jako kolejne kolumny 5. tworzy nowy plik z danymi z zakladki KOR, zapisuje i przechodzi do pkt 1...
Dzień dobry, Proszę o pomoc przy pisaniu makra, gdyż w jednym miejscu zaciąłem się na dobre. Nie znam dobrze VBA, uczę się powolutku na swój sposób, dlatego proszę o wyrozumiałośc jesli kod jest niepotrzebnie długi, a komendy bardzo prymitywne :) Co potrzebuję zrobić: W jednym arkuszu xls mam wzór faktury do wystawienia, wypełniam odpowiednie pola (zajmują...
Korzystając z ciekawostki kolegi PRL chciałbym przestawić rozwiązanie mojego problemu z kilku postów wyżej. Chodzi o to, że po usunięciu pozycji dwuklikiem móc cofnąć operację usunięcia wiersza. Makro poniżej sprawia, że po podwójnym kliknięciu w arkuszu "szablon" w pierwszej kolumnie w danym wierszu wiersz ten zostanie najpierw skopiowany do arkusza...
Dzień dobry, Można również napisać stosunkowo proste makro (załącznik), które uporządkuje dane w pożądany sposób. Makro da spodziewany rezultat, jeśli adres mailowy w oryginalnych danych będzie stanowił osobny wiersz. Dane ze strony www należy skopiować w zwykły sposób do komórek. Po kopiowaniu zakres komórek jest zaznaczony, w razie czego można zmienić...
Nie wiem, ale z Twojego pliku widać, że można tutaj zastosować bardzo prosty trick rozwiązujący ten problem - wprowadzenie na początku tabeli dodatkowej kolumny z identyfikatorem (numerem) trasy Umożliwi to dokładne wychwycenie wszystkich wierszy z określonym identyfikatorem Powiem szczerze nawet o tym myślałem, ale po pierwsze arkusz generowany jest...
Witam, byłbym wdzięczny za pomoc. Potrzebuję makro, które pomogło by w poniższym opisie. W Arkusz1 mam dane dotyczące kilku firm i teraz potrzebowałbym, aby zliczało mi ilość wierszy dla danej firmy do Arkusz2 z pominięciem tych, gdzie w kolumnie J jest " OK " i z podziałem na dane z kolumny A Przykład: Firma Firma_1 z kolumny C ma w totalu 19 wierszy...
Tak szczerze, zaraz wytłumaczę dlaczego "gotowiec" by mi się przydał: znam się tak "trochę" na excelu, ale na podstawowych funkcjach itp, nic nie wiem na temat makr, vba itp i moje rozumowanie w przypadku twojej odpowiedzi wygląda tak: " ustalasz ilość wierszy do wyszukiwania na podstawie ostatniej nie pustej komórki w kolumnie E" - GDZIE USTALAM TZN...
DZIĘKUJE BARDZO, BEZ POMOCY NIE UDAŁO BY MI SIĘ WYKONAĆ TEGO ZADANIA. W projekcie pozostało mi jeszcze kilka spraw tzw. kosmetycznych. Choć jak dla mnie nie do ogarnięcia I tak: Arkusz rozszerzyłam i ma teraz 18 kolumn (A:S) ---> kolumny automatycznie się dostosowywały do zawartości (tutaj chyba użyteczna będzie Columns ("1:18").AutoFit);...
Witam Mamy pytanie odnoście usuwania makra przez inne makro. Od początku. Mam poniższy kod który oczywiście działa popranie i robi dokładnie to co ma robić, czyli: kod na początku filtruje i tworzy pewną ankietę w arkuszu. Następnie arkusz z ankietą zostaje skopiowany i wklejona do nowego pliku Excel, następnie zapisany pod konkretną nazwą we wskazanym...
Przepraszam, przez roztargnienie trochę namieszałem. Wartości muszą być takie same w kolumnach od "B" do "F" oraz "H" oraz "K". W kolumnie "A" jest liczba porządkowa (czyli nieważna w tym przypadku), a w kolumnie "G" - liczba sztuk na komplet, co w liście produkcyjnej jest również mało znaczące. Czy scalanie dotyczy tylko jednej tabeli, czy wszystkich?...
Witam.Potrzebuję zmienić funkcje tego makro aby sprawdzało 6 pierwszych znaków numerów w kolumnie i nie usuwało podobnych(teraz nie kasuje tylko identycznych .Czy ma ktoś pomysł jak to zrobić? Sub wyszukaj_numery() ' ' wyszukaj_numery Makro ' ' Otworz plik z lista numerow Workbooks.Open Filename:="C:\Users\lista numerow.xls" ' Policz niepuste wiersze...
Witam, Wyjaśniam co robię z taką ilością danych - po skopiowaniu do już istniejącego arkusza są obrabiane przez formuły excela mające na celu powiązanie ich z innymi danymi (praca na słownikach w kilku innych arkuszach+2,3 duże tabele przestawne zawierające pozostałe dane). Zawsze robiłem wklejanie ręczne ale przy kilkunastu tysiącach wierszy jest to...
Witam. Szukam makra, do excela, które będzie przeszukiwało cały wiersz numer 1, w celu znalezienia wartości np.: MSISDN oraz KOD SPRZEDAWCY I kiedy znajdzie taki wpis - usunie całą kolumnę "MSISDN" oraz "KOD SPRZEDAWCY" wraz z wartościami i danymi, które znajdują się poniżej tej komórki. Dodam, że tych niepotrzebnych wartości jest około 11, a sama oryginalna...
Witam, Proszę o pomoc w napisaniu makra - wydaje się być proste, ale nie mogę znaleźć sposobu na jego rozwiązanie. Chcę zrobić formularz do wpisywania przepisów i umieszczania ich w bazie (jeden wiersz = jeden przepis. Każdy produkt to kolejna kolumna) Utknąłem na pkt 4 - Wyszukaniu produktu (Input E9:E29) i wklejeniu odpowiadającej ilości (Input C9:C29)...
Cześć, Wykorzystałem poniższy działający kod makro z Excela, ale potrzebuje go przenieść do makra w Google Docs, App Script. W skrócie skrypt porównuje kolumnę F w arkuszu Zamowienia z kolumną A w arkuszu Urzadzenia . Jeśli wystąpi w tych kolumnach ten sam numer to usuwa cały wiersz zawierający ten numer ale tylko w arkuszu Urzadzenia . [syntax=vb]Sub...
Dziekuję bardzo za odpowiedź i W sumie to masz rację. Brakowało mi obiektywnego spojrzenia na ten cały bałagan. A gdyby to makro usuwało identyczne wiersze( wystepujące w obu arkuszach) z arkusza forecast, a zmiany ilości w danych datach zaznaczało na jakis kolor? a druga opcja- a gdyby wszystkie zmiany w odniesieniu do arkusza 2. kopiowało do trzeciego...
Wygląda to trochę inaczej niż założenia o jakich była mowa w pierwszym poście, tematy się powtarzają. Dla filtra potrzebna będzie lista unikatowych nazw tematów, realizowana w arkuszu przez wstaw>wklej specjalnie i dalej jak w moim przykładzie. Lub makro (uruchamiane np przy aktywacji arkusza "Menu") z wykorzystaniem tablicy, jeśli ma to działać automatycznie...
a następnie usunęło duplikaty na podstawie wartości z kolumny F Usuwać chcesz całe wiersze w obu tabelach, czy tylko w jednej tabeli komórkę z kolumny F :?: :D Proszę przygotować przykładowy plik z przykładowymi danymi (żeby zrozumieć logikę Twoich przekształceń) i załączyć na forum Generalnie makro powinno działać na excelach, takich jak te które...
Próbowałem wykorzystać twój kod, niestety ciągle wyskauje błąd przy próbie uruchomienia makra [syntax=vb] Sub Kopiuj() Dim WksDo As Workbook Dim wksZ As Workbook, wierszZ As Long On Error GoTo koniec 'zadeklaruj arkusze Set WksDo = Workbooks("A.xls").Sheets("1") Set wksZ = Workbooks("B.xls").Sheets("1") 'ustal raz aktywny wiersz wksZ.Activate wierszZ...
Wariant z blokowaniem zakresu komórek przy otwieraniu i zamykaniu zeszytu. 1. Na wszelki wypadek w procedurze 'Private Sub WorkSheet_Change(ByVal Target As Range)', w danym arkuszu, zmienić deklarację zmiennej z 'Dim i As Integer ' na 'Dim i As Long ' 2. W module 'ThisWorkbook' wkleić kod: 885619
Wklej do modułu i wypróbuj takie makro (zrobiłem kopiowanie, bo prościej ale możesz sobie zmienić na wstawianie): http://obrazki.elektroda.pl/6793685500_1... a usuwając "zgubisz" w końcu te sformatowane (z obramowaniem). Pomijam kwestię rozmieszczenia na stronie, tu poradzisz sobie sam ;)
Witam, Mam problem z makrem, które znalazłem na forum i które staram się przerobić pod moje potrzeby. Docelowo, makro ma sprawdzać czy w komórce w kolumnie F arkusza 1 jest wyraz "tak" i jeżeli to się potwierdzi to kopiować w pierwsze wolne miejsce w kolumnie D akrusza 2 zawartość komórki B arkusza 1. I jednocześnie usuwać ten wiersz z arkusza 1. Poniżej...
W załączniku są pliki końcowe, które bedą używane i teraz fajnie by było, gdyby znalazły się jeszcze następujące rozwiązania: 1. W pliku czerwony1 , jeśli dodatkowo wartości w kolumnach M i U zostaną zmienione na kolor czerwony , to nie zważając na to, czy w kolumach odpowiednio AM i AQ są wpisane godziny , kopiowałoby te wartości razem z wartością...
Jeżeli w dokumencie w którym ma to podświetlenie działać układ tabeli jest taki sam, czyli dwie pierwsze kolumny to imiona i target a potem w czterech kolumnach są dane, to wystarczy wejść do edytora VBA, czyli Alt+F11, w oknie w lewym górnym rogu kliknąć nazwę arkusza w którym są dane (w załączonym przykładzie jest to Arkusz1 o nazwie Arkusz 1 i jak...
Jak w kodzie VBA zrobić procedurę usuwającą dane w dowolnym wierszu z kolumn C,D,E po wyczyszczeniu danych z komórki w kolumnie A ? Dla pojedyńczego wiersza działa taki kod Sub Makro1() Range("A2").Select Selection.ClearContents Range("B2:D2").Sel... Selection.ClearContents End Sub Jak zrobić to dla dowolnego...
Prawie, wolałabym żeby wstawiał nowy wiersz żeby nie usuwało się to co będzie znajdowało się poniżej, ale i tak bardzo dziękuję za pomoc :)
excel makro usuwa wiersz excel usuwa wiersz wiersz excel usuwa wiersz
zniekształcenia niskich tonach citroen bezpiecznik zamrażarka polar termostat
dobre sklepy elektroniczne online dobre sklepy elektroniczne
Kia Carens - Nie otwierają się szyby z lewej strony Schemat jednostki sterującej 30p control unit 506270A