Niezadeklarowana zmienna obiektowa 'WB' Zadeklaruj (WB as workbook) i przypisz (set WB = thisWorkbook / set WB = Workbooks("JakiśInnyPlik.xlsx") Albo po prostu: For Each WS In thisWorkbook.Worksheets lub dla innego niż ThisWorkbook For Each WS In Workbooks("JakiśInnyPlik.xlsx").Workshee... Masz błąd w konstrukcji 'If': i = i -1 musi być wewnątrz bloku...
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()...
Dołącz przykladowy plik
Jesli dane jest w kolumnie 1, wtedy [syntax=vb]For r = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 If (r Mod 3) <> 0 Then Rows(r).Delete Next [/syntax]
W każdy przebiegu pętli zanim zaczniesz zaznaczać wiersze. Inaczej skąd program ma wiedzieć, że chcesz zaznaczać w innym arkuszu?
Witam, Jestem początkującym w VBA. Potrzebuje pomocy w jednym temacie: Chciałbym uzyskac takie makro że jak zaznacze np zakres komórek A6:B11 to chciałbym tylko w tych miejscach zwiekszyc liczbe wierszy i za pomoca wpisania konkretnej liczby wierszy (InputBox). Ważne dla mnie by dodanie wiersza synchronizowane było z okienkiem w kolumnie B tzn: zeby...
Ano nie działa, bo pusta komórka jest traktowana, jako zero.
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.
Brak pliku do testowania!!! Jak coś Ci nie zadziała, poprawisz sobie sam. Dodałem makro RemoveShapes. Zobacz w moim załączniku.
Popatrz, jak działa ta pętla np. dla pierwszego "i": jeżeli Twoja wartość będzie na końcu zakresu "y", to najpierw wiersz "i" usuniesz 119x, a dopiero na końcu przerwiesz pętlę... Bez sensu, prawda? Zamiast tego możesz wprowadzić następującą poprawkę: [syntax=vb]Private Sub CommandButton1_Click() Dim zakres As Variant, i As Integer, y As Variant, wier...
Może tak: Sub del() Dim i As Integer For i = 100 To 3 Step -1 'ile wierszy będzie sprawdzanych If Range("B" & i).Value = Range("B2") Then Rows(i).Delete End If Next i End Sub
Przeniosłem do mojego dokumentu i makro zadziałało znakomicie. Ale mam jeszcze jedną prośbę, bo taką operację muszę przeprowadzać dla każdego nowego raportu z ADONIS. Chodzi o to, że muszę taką operację przeprowadzić dla 5-10 różnych słów, więc może można by utworzyć listę (do której mógłbym dopisywać kolejne słowa) aby makro brało kolejno wszystkie...
Cześć, Zrobiłem makro, które ma usuwać wiersze, jeśli w komórce F występuje fragment tekstu, np 'AAA' lub 'BBB'. Makro działa, ale jeśli dwie komórki w wierszach pod rząd są takie same to makro je omija. Zastosowałem funkcję 'offset', ale to nie pomogło. Ma ktoś jakiś pomysł jak to naprawić? Sub usuwanie_wierszy() Range("A1").Activate wiersz = 2 Do...
Witam, Proszę o pomoc, Potrzebuję makro w Arkuszu Google które usuwa lub ukrywa wiersz, w którym pole wyboru jest zaznaczone. W wierszach mam pole wyboru, zaznaczam niektóre z nich i wciskam button, który ukrywa lub usuwa zaznaczone wiersze. Fajnie jakby wyskoczył komunikat "czy na pewno chcesz ukryć/usunąć zaznaczone wiersze" Tabela jest w załaczonym...
Szukam makra, które: gdy wartość w kolumnie M="tak" ukryje komórki z kolumn A:R w danym wierszu i przesunie dane do góry o wszystkie scalowane wiersze, czyli jeśli np. wiersz 1 i 2 , w kolumnie M jest scalowny i jeśli w tej komórce widnieje opis "Tak" to oba wiersze (1 i 2) przesuną się do góry
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...
Witam, potrzebuje pomocy w napisaniu makra, ktore bedzie usuwalo wiersze zawierajace zera w kolumnie B z zakresu od wiersza 49 do 100 i przesuwalo zawartosc ponizej na miejsce usunietych wierszy. Z gory dziekuje za pomoc. Pozdrawiam
Witam, mam podobny problem. Potrzebuję usunąć ostatnie 4 z 7 kolumn w notatniku. Wierszy jest ok 12mln więc word, excel odpada bo są ograniczone do nieco ponad milion. Macie jakiś pomysł? Wydzieliłem jako nowy temat. Nie podpinaj się pod cudze wątki. Powoduje to bałagan na forum.
Witam wszystkich forumowiczów! Jestem absolutnie początkujący jeśli chodzi o programowanie w VBA w Excelu, a potrzebne mi jest makro, które (po jego aktywowaniu np. kombinacją klawiszy) wytnie jeden wiersz z jednego arkusza i wstawi go do drugiego, w pierwsze wolne miejsce. Skoroszyt będzie się składać z 3 Arkuszy. Chciałbym, aby była możliwość przenoszenia...
Cześć, jestem początkujący i nie do końca mogę znaleźć pomoc w sieci. Moim zadaniem jest wykonanie makra, które ma na celu znalezienie w konkretnej kolumnie wartość wprowadzoną do określonej komórki. Czyli np. Wartość z komórki A1, znajdź w kolumnie B. Następnie usuń ten wiersz. Z góry dziękuję za pomoc. Pozdrawaiam Piotrek
Kolega lanzul pomógł mi rozwiązać problem z usuwaniem wiersza tabeli, w którym jest konkretny wyraz. https://www.elektroda.pl/rtvforum/viewto... Tych wyrazów jest znacznie więcej, dla których potrzebuję usuwać te wiersze. Dlatego potrzebuję zbudować pętlę, która będzie brać kolejne wyrazy z jakiejś listy i będzie wykonywać to...
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...
Witam, potrzebuje napisać makro, które przeniesie wszystkie dane z wyjątkiem pierwszego wiersza do pliku CSV w tym samym katalogu. Kłopot w tym, że w niektórych komórkach mogą znajdować się średniki (;) co sprawia że obecne makro którego używam wydziela mi z takich komórek nową kolumnę w pliku CSV. Czy jest sposób by komórka zawierająca średnik nie...
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...
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...
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....
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
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......
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...
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.
Jeżeli chodzi o kopiowanie kolorów, to najpierw na początku porządnie wyczyść arkusz celu z kolorów: [syntax=vb]wscel.Range("A2:E65536").Clea... wscel.Range("C2:E65536").Interior.ColorI... = xlNone[/syntax] Sam kolor jest zaszyty w zmiennej Range(...).Interior.ColorIndex, zatem kopiuj go razem z danymi w ten sposób: [syntax=vb]wscel.Range("C"...
Mam prośbę do ludzi zajmujących się #programowanie #vba o małe makro do Word-a. Pewnie sam bym je wymęczył, ale z moja nikłą wiedza trwało by to długo. Natomiast dla zawodowca to pewnie chwila. Makro ma wstawić zakładkę w miejscu kursora czy aktualnego zaznaczenia, a nazwa zakładki ma być wzięta z aktualnie zaznaczonego tekstu (o ile coś jest zaznaczone)...
OK, faktycznie działa. Skoro więc zarzucamy temat makra, i korzystamy z konsoli to jeszcze jedna sprawa: czy jest szansa żeby w składni polecenia łączącego pliki w całość zawrzeć warunek, który będzie pomijał ostatni wiersz każdego pliku CSV. W plikach źródłowych ostatni wiersz jest podsumowaniem, które nie jest mi potrzebne i które również trzeba ręcznie...
Powinno być ScreenUpdating, a nie DisplayAlerts. Poza tym niepotrzebne są te selekcje. Wystarczy: [syntax=text]Rows(281).Delete Shift:=xlUp 'usuwa 281 wiersz [/syntax]
Wyłącz odświeżanie ekranu przed pętlą (Application.Screenupdating=false) a za pętlą włącz ponownie (=true)
U mnie nie działa :cry: cały czas wyrzuca ten run-time error (może mam coś nie włączone w ustawieniach MS Office), ale z drugiej strony jak puszczam to makro w wersji gdzie wskazuje dokładnie jak ma się nazywać plik, to wszystko chodzi? Dziwne. Na pewno ten obiekt 'ActiveDocument' jest w porządku w kodzie? Mam jeszcze pytanie, zostańmy przy tej wersji...
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...
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???)
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...
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...
załącz plik
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...
Rzeczywiście - trzeba od dołu - Mój błąd :) Tylko w tym powyższym kodzie szuka po kolumnie "A" a powinien po "P", czyli cells(x,16) :)
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
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.
Jeśli masz Excel 2010 lub nowszego można to zrobić przez Power query bez makra
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ć
Wrzuć to makro, uzupełnimy...
To jeszcze wymaga doprecyzowania. Co jeżeli w kolumnie F jest pusto a w E coś jest, albo odwrotnie? Może chodzi ci o usuwanie całych wierszy? Niezależnie od odpowiedzi użyj metody Delete. W pierwszym przypadku z obiektu Range z odpowiednią do potrzeb wartością Shift, w drugim Rows. Obiekt powinien wskazywać właściwy element do usunięcia. Zalecane jest...
Witam, Prosiłbym o pomoc - potrzebuję makra usuwającego daną kolumnę w arkuszu jeśli posiada określony nagłówek. Nagłówek zawsze znajduje się w wierszu 1. Z góry dziękuję Pozdrawiam
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.
Cześć! Makra miałem na uczelni jakieś 5 lat temu, więc potrzebuję pomocy.. Chodzi o to, że w jednym arkuszu mam wypisane daty z opisem (A,B,C itd.), które potem makrem automatycznie uzupełniają się w tabeli "DO SKOPIOWANIA". W drugim arkuszu kopiuję ręcznie całą tabelkę z pierwszego arkusza i usuwam puste wiersze. Czy istnieje możliwość aby makra robiły...
Witam Proszę o pomoc. Czy istnieje możliwość utworzenia makra dodającego wiersz do tabeli w pierwsze wolne miejsce? Chodzi mi o wprowadzenie danego wiersza (kilka wypełnionych komórek) do tabeli, z której będą po czasie usuwane pojedyncze wiersze, a makro ma wprowadzać wpisane komórki w pierwszym wolnym wierszu tabeli. Bardzo proszę o pomoc. 979805...
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...
Witam, mam następujący problem. Potrzebuję makro, które ukryje wszystkie wiersze w aktywnym arkuszu dla których w kolumnach D:AD wartości równe są zero. Przy czym nie chce żeby usuwało wiersze z pustymi komórkami. Będe wdzięczna za pomoc. Markiza
Próbowałem w ten sposób to obejść, ale zawsze mam DEBUG na drugiej linii makra. Chyba, że zmienię błąd w komórkach na dowolne litery, cyfry itp. Wówczas makro działa jak powinno.
usuwanie wiersza usuwanie aktywnego wiersza makro usuwanie
pierwsze ładowanie baterii smartfona ipconfig system config wiatrak domowy
cyfral cosmo bateria macallister
Mercedes A168 - Kod błędu B1000: Diagnoza i Rozwiązania Iveco Daily 35C14 2019 – brak paliwa na listwie, silnik nie odpala, pompa w zbiorniku sprawna
