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.
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...
Dołącz przykladowy plik
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.
Ale jakich makr nie umiesz stworzyć? Ja tego nie zrozumiałem. To po kolei: 1. Do arkusza "Firma 1" wklejam dane z innego pliku od kolumny E do AB - mniej ważne gdzie to wklejasz, ważniejsze co dokładnie. Czy umiesz określić zakres do kopiowania? np. A5:Z123, albo kolumny A do Z od wiersza 5 do ostatniej wartości w kolumnie C (nie może być w tej kolumnie...
To wersja makro, które wrzuciłem dokładnie to robi. Po przemieleniu Twoich przykładowych danych pozostało dokładnie 100 wierszy, z czego zostały tylko wiersze z "invoice" w opisie a także wiersze z kwotą 5.00 niezależnie od reszty opisu.
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! 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. 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...
Witam Tabela z uprawami - po wprowadzeniu działek do arkusza (kolumna C i D) okazuje się ze na niektórych polach jest więcej niż jedna uprawa. Wtedy wstawiam wiersz poniżej danej działki i wpisuję kolejne uprawy na danej działce (tylko kolumna E, G, F, natomiast C i D zostają puste w tym wypadku). Podobnie z usuwaniem zbędnych wierszy w danej działce....
Witaj [syntax=vb]Sub usuwanie_pustych_wierszy() For Each sh In ThisWorkbook.Sheets For i = sh.Cells(65536, "A").End(xlUp).Row To 2 Step -1 If sh.Cells(i, "B").Value = "" Then sh.Rows(i).Delete shift:=xlUp End If Next Next End Sub[/syntax]
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...
Witaj Łatwiej zrobić nowy niż szukać błędów: Dodano po 3 Specjalnie w tym przykładzie może być łatwiej [syntax=vb] Sub Usun() Dim r&: r = 2 While Cells(r, 1) <> Empty If Cells(r, 1) = "X" Then Cells(r, 1).Delete Shift:=xlToLeft End If If Cells(r, 2) = "Linia" And Val(Left(Cells(r, 3), 3)) >= 1 Then r = r + 1 Else Rows(r).EntireRow.Delete...
Hmmm, Poradziłem sobie następująco, natomiast nie wychodzi mi zaszywanie dodatkowego warunku w tym kodzie. Obecnie makro przegląda arkusz źródłowy wyszukując jednego sprzedawcy (Agnieszka). Natomiast jak próbuję wcisnąć tam kolejną pętlę, aby wyszukał "Andrzej" i przeniósł wiersze do Arkusz3, "Basia" - do Arkusz4, "Iza" do Arkusz 5 itp, polecenie i...
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...
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???)
Zaproponuję taki kod: [syntax=vb]Sub Wytnij() Sheets("Arkusz1").Select For x = 1 To Sheets("Arkusz1").Cells(Rows.Count, "C").End(xlUp).Row jest = Application.CountIf(Sheets("Arkusz2").Ra... Cells(x, 3)) If jest > 0 Then Rows(x).Delete: x = x - 1 Next End Sub [/syntax] Pomyliłem się. Autor chce, żeby kasował, gdy nie znajdzie, a więc: [syntax=vb]Sub...
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....
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...
Trzeba lecieć od dołu: [syntax=vbscript]Sub KasujWiersze() ow = Cells(Rows.Count, "A").End(xlUp).Row For x = ow To 1 Step -1 If Cells(x, 1) = "DELETE" Then Rows(x).Delete Next End Sub [/syntax]
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...
Wrzuć to makro, uzupełnimy...
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ć
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...
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
Dzień dobry, Wydaje mi się, że sprawę załatwi nadanie zakresowi roboczemu nazwy, pod warunkiem, że nie będzie się usuwać ostatniego wiersza ani ostatniej kolumny, a dodawać nowe również przed ostatnim wierszem i przed ostatnią kolumną, a nie za nimi. Poza tym nagłówki kolumn też trzeba aktualizować ręcznie. Gdyby istotne było, żeby tabela się automatycznie...
makrem[syntax=vb]Sub usunDupKol() tRow = 3 While Cells(tRow, 1) <> "" For c = Cells(tRow, Columns.Count).End(xlToLeft).Column To 2 Step -1 If Application.CountIf(Rows(tRow), Cells(tRow, c)) > 1 Then Cells(tRow, c).Delete xlToLeft End If Next tRow = tRow + 1 Wend End Sub [/syntax]
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 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.
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...
Najlepiej to plik przykładowy(txt), może to wszystko można zrobić innymi metody
...albo zrobić tabelę przestawną z indeksem w wierszu + licznik z indeksu?? :)
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...
Sorki, że milczałem do teraz, ale byłem "trochę" zajęty ;) W przykładzie wstawianie ramki poniżej tej, w której naciśnięto przycisk. Uwagi wymaga sposób wyliczania wartości zmiennych. W arkuszu ramka ma wysokość 4 wierszy, jest 1 wiersz nagłówkowy. Nr wierszy, gdzie nastąpi wstawianie nowych dla następnej ramki to: 6, 10, 14, itd Kluczowe jest wyliczenie...
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...
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.
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.
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.
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...
Cześć, Proszę o pomoc w napisaniu makra, które jeśli w arkuszu1 w kolumnie A, w jakimś wierszu będzie znajdować się literka "W" to wtedy skopiuje komórkę znajdującą się w tym samym wierszu w kolumnie B, wklei ją do arkusza2 w ostatnim wolnym wierszu w kolumnie A i usunie cały wiersz skąd została skopiowana. Bardzo proszę o pomoc!!!! Z góry dziękuję!!!
Dziala :) wielkie dzieki za pomoc Dodano po 2 Jeszcze jedno pytanie :) Czy jest mozliwosc aby edytowac makro usuwajace wybrane wiersze aby usuwalo rowniez te same wiersze tylko w drugim arkuszu tego pliku tzn. teraz usuwa w aktualnie otwartym Arkuszu 1 i chcialbym zebym usuwalo jednoczesnie to samo w Arkuszu 2 i zeby nie przenosilo mnie do Arkusza 2
Nie pokazałeś w pliku przykładowym spodziewanego wyniku, ale mam nadzieję, że o to chodziło. W mojej propozycji makra wykorzystuję na zmianę formatowanie warunkowe i filtrowanie, a następnie usuwam wyfiltrowane wiersze, aby w końcu uzyskać efekt, o którym pisałeś. [syntax=vbnet]Sub Duplikaty() Application.ScreenUpdating = False Sheets("Arkusz1").Copy...
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...
czy jak bedzie Range A:D to bedize szukał w kolumnach A B C i D. Jezeli tak to nie bardzo mi to działa. Tak naprawde to kolumna A to data a szukana wartośc jest w kolumnie D. Dodano po 19 dzieki rozwiązałeś moj problem Kolumny B C nie sa mi potrzebne wiec makrem je usuwam.
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...
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...
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...
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...
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...
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...
Dzień dobry, Szukam sposobu na to żeby zmienić strukturę kolumn w arkuszu. Niestety problem jest dość złożony. Ogólnie pracuje nad plikiem txt i importem do excela do czytelnej formy z możliwością filtrowania. Po imporcie do excela wyczyściłem makrami z niepotrzebnych wierszy i usuwam niepotrzebne dane. W efekcie uzyskuje plik kilka tysięcy wierszy...
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...
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ę...
Makro do przetestowania. Uwagi: 1. Najlepiej wrzucić kod do modułu "normal.dotm". Najprościej: otworzyć Worda z menu 'Start', nagrać dowolne makro wybierając miejsce przechowywanie "szablon globalny". Następnie zastąpić je poniższym, włączyć referencje i zamknąć Worda z zapisem szablonu. Makro będzie dostępne w każdym dokumencie. Żeby nie rozsyłać makra...
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
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)....
Arkusz z danymi, ponad 100tys. wierszy, ponad 50 kolumn. Chodzi o pozbycie się duplikatów z zachowaniem unikatowych danych. Np. Robię dodatkową kolumnę poprzez połączenie imię, nazwisko, firma, szereguję A-Z następnie zaznaczam formatowanie warunkowe i oznaczam duplikaty, następnie filtruję po kolorze (co przy tej ilości danych pewnie potrwa którąś...
Witam serdecznie wszystkich, Chciałbym was uprzejmie prosić o pomoc w stworzeniu następującego makra. Jeżeli scalona komórka (składająca się z kolumn D:I) zawiera tekst "brak" to Macro usuwa ten wiersz oraz 2 wiersze powyżej i 11 wierszy poniżej. Z tym, że: - słowo "brak" jest wynikiem wpisanej formuły (nie wiem czy to ma znaczenie). W załączniku przykładowy...
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......
Mam jeszcze jedno pytanie czy da się do makra które wklejam poniżej a służy do usuwania nieodfiltowanych wierszy, dodać opcje żeby usuwane wraz z nieodfiltrowanymi wierszami były też znajdujące się w tych komórkach grafiki? W każdej z tych grafik mam zaznaczoną opcję: "przenoś i zmieniaj rozmiar wraz z komórkami" ale nic to nie daje i grafiki, pomimo...
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...
Hej. Mam plik Excel z dużą ilością danych. Nad dwiema kolumnami zrobiłam sumę częściową, która sumuje mi te kolumny. Obok tych sum mam formułę sprawdzającą czy te dwa wyniki są sobie równe, dostaje info prawda lub fałsz. Dane te chcę filtrować po kluczowej kolumnie (np. nazwa jakiegoś oddziału) i sprawdzać kiedy te sumy zwrócą prawdę. Jeśli na danym...
Witam, Bardzo proszę o pomoc, potrzebuję zrobić makro, które skopiuje z arkusza "wydruk" komórki z kolumny C (numer księgowy) i przeniesie je do arkusza "Zobowiązania" do kolumny F (numer księgowy), ale posegreguje wpisy zgodnie z kolumnami "numer faktury". W obu arkuszach są te same dane w wierszach ale w innej kolejności, w arkuszu wydruk nadawane...
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...
Na wersji Excel 2013 oraz 2019 nie działa. W obu wersjach programu dzieje się to samo. Zaskoczony jestem że przy wpisywaniu nowych danych w wierszu program wyłącza się przy wpisywaniu w Kolumnie "I" i po uruchomieniu usuwa formaty warunkowe. Dodano po 10 Nie jestem pewien, co się właściwie dzieje, ale funkcja Daty znaleziona w moich warunkach wyzwala...
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ć...
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ń...
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.
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...
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,...
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...
Jeżeli nie ma dużo wierszy (problemy z wydajnością), to sprawdzi się to prościutkie rozwiązanie, podpięte np. do procedury Workbook_open: Private Sub Workbook_Open() On Error GoTo myErr Set wslista = ThisWorkbook.Worksheets("LISTA&... Application.ScreenUpdating = False Application.Calculation = xlCalculationManual On Error Resume...
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, 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...
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...
Poza tym usuwasz zawsze drugą "ramkę" od góry, bez względu na ich ilość. Tak ma być? Czy nie powinna być ostatnia? Usuwa mi drugą "ramkę", bo moja wiedza z VB pozwala mi na nagranie tylko takiego makra :-)))) Dodają mi się jako drugie i usuwają te drugie. trzeba sprawdzać w pętli położenie kontrolki i wybrać te dwie, których właściwość Top jest największa...
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ż...
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ąć...
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. (^_^)...
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...
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...
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...
Dzień dobry wszystkim forumowiczom. Bardzo proszę o pomoc z prostym ale przerastającym moje (mam nadzieję, że niedługo) możliwości dotyczące tworzenie makr w VBA. W załączniku tabela, której dotyczy problem. Chciałbym, aby z tabeli pierwszej, której pozycje zaczynają się w komórce C8 do C14 i tutaj mogą być dodawane ręcznie pozycje. Np może być, że...
Nie bardzo rozumiem, Ja też nie rozumiem :cry: do czego Ty zmierzasz :cunning: Rozpocząłeś od prośby o pomoc w stworzeniu makra do sporządzania archiwum danych w postaci plików PDF, potem rozszerzyłeś swoje oczekiwania na kopie w formacie xlsx :?: Zaproponowałem rozwiązanie z jednym plikiem xlsm - do którego wprowadzasz odpowiedni zestaw danych - na...
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...
Można napisać makro usuwające duplikaty. Ale na jakich zasadach? Jeśli nie Imię, nie nazwisko, nie Nr telefonu... Teraz widzisz po co wymyślono PESEL. Dla Excela :) Brakujące dane można uzupełnić w makro, ale priorytetową sprawą jest rozpoznanie duplikatów (wierszy dot. tej samej osoby). Przykład: http://obrazki.elektroda.pl/8548686700_1...
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...
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...
Dzięki temu, nie usuwając pliku a dopisując do niego wiersze można stworzyć swego rodzaju spis poszukiwanych pingów. Jedna sugestia z mojej strony. Opóźnienie należałoby dobierać doświadczalnie w zależności od osiągów sprzętowych. Czasami trwa to naprawdę długo. Dodane po chwili Działanie polecenia ping można przyspieszyć dodając po ping.exe "-n 1"....
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...
Ż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,...
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...
Przepatrzyłem kilka przykładów z sieci i udało się sklecić coś co działa poprawnie. Abyście nie szukali nadaremno - zamieszczam kod: [syntax=vb] Sub OblatywaczPrototypów() Dim MyDir As String Dim CurrentFile As Variant Dim i As Integer Dim ChosenFile As String ChosenFile = Application.GetOpenFilename(FileFilter:=... Files (*.xls), *.xls", Title:="Wybierz...
Witam, W pracy wyciągam raport w Excelu zawierający 35 kolumn (A-AI) i zmienną liczbę wierszy. Stworzyłam plik w Excelu do analizy tych danych, tak więc jedna zakładka zawiera wklejone dane a kilka innych tabele i wykresy przestawne zrobione na ich podstawie. Ponieważ nie wszystkie kolumny z raportu są mi potrzebne, stworzyłam makro które: -usuwa duplikaty...
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 serdecznie, Poszukuje rozwiązania problemu mianowicie: NIe jestem w stanie poradzić sobie z kodem, który sprawi, że: Mam zaznaczoną komórkę f6 (przykładowo). Używam makro i zależy mi aby po skończeniu (działania robione na różnych wierszach w 3 kolumnach) wracało mi dokładnie do komórki, która była aktualnie zaznaczona przed włączeniem makro tj...
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...
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
usuwanie wierszy makro excel makro usuwanie wierszy excel makro usuwanie wierszy
porysowana lodówka parowanie słuchawki dopływ paliwa
partner ssanie ładowarka parkside
HUAWEI P20 – wymiana przycisku głośności i zasilania, instrukcja krok po kroku Instrukcja obsługi przekształtnika diodowego BESTER PSC-26/40 z 1982 roku
