Makro które usunie wiersz pod warunkiem z innej zakładki
[syntax=vbscript]Sub ZnajdzUsun() Set b = Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row) ile = Application.CountIf(b, [A1]) For x = 1 To ile Cells(Application.Match([A1], b, 0), 1).EntireRow.Delete Next End Sub [/syntax]
Skopiować trzeba wszystko, a później usunąć zawartość szarych pól.
ale "Jelczan" prosił o makro Aaa, to najprościej oprogramować zdarzenie (co sugerował już kolega PRL ), Np [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a2:a100")) Is Nothing Then If Target = "" And Target.Offset(0, 1) <> "" Then Range(Target, Target.Offset(0, 10)).Interior.ColorIndex = 6...
Moja propozycja: jedna para przycisków +/- i przypisane do nich makr: [syntax=vb]Sub wstaw() Rows(ActiveCell.Row + 1).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Cells(ActiveCell.Offset(1, 0).Row, "H").FormulaR1C1 = "=R[-1]C" End Sub[/syntax] i [syntax=vb]Sub usuń() Rows(ActiveCell.Row).Delete shift:=xlUp End Sub[/syntax] Przed przyciśnięciem...
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...
Oj rzeczywiście. Na próbce ~2000 wierszy makro, na mojej maszynie (przed uruchomieniem należy usunąć dane z kolumny B/Arkusz1), potrzebuje... mnóstwo sekund. Twój pomysł, zdaje się, przedni. "Poruszając się" od ostatniego wiersza w górę, po posortowanej kolumnie, makro działa jakby, hmm... nieco szybciej. Tu porównanie czasów: http://obrazki.elektroda.pl/9019467800_1...
makro Makro.:)
Piszesz, że ma scalać wiersze, jeżeli wartości w kolumnach A:H oraz K są takie same, a w przykładzie: w 6 wierszu wartość w kolumnie A jest inna, a w 3 wierszu: w kolumnie G - mimo to zaznaczyłeś je na żółto. To jak to w końcu jest?? Czy scalanie dotyczy tylko jednej tabeli, czy wszystkich? Czy one mają stałą długość, czy się zmieniają? Czy wiersze...
niestety nie udało mi się znaleźć nic co mógłbym wykorzystać w moim pliku. umiem napisać makro, które usunie mi cały wiersz ale pod warunkiem że, podam wartość, która ma być szukana. ale nie umiem napisać takiego makro, które usunie mi wiersz w na podstawie danych z innego pliku. pozdrawiam
Kopiuj całe wiersze. Odpowiednia linia jest w makro w załączniku. Usuń apostrof opisanej linii, wyrzuć/zaapostrofuj trzy następne (od For do Next).
chciałbym, żeby jeszcze makro sprawdzało, że jeśli liczba lp jest 3 a w Arkuszu2 jest pozycja 4 to, żeby usunął wiersze powiązane.
Nagraj makro usunięcia scalenia, wstawiania wiersza, ponownego scalenia i zapętlij...
Witam, czy ktoś byłby w stanie pomóc napisać makro, które wyszuka w kolumnie wszystkie komórki o określonej wartości z komórki B2 i usunie wiersze z tymi wartościami?
Witam. Potrzebuję stworzyć makro, które usunie mi wszystkie wiersze oprócz wierszy zawierających słowo "kod", wiersza poprzedzającego ten wiersz + wiersz, w którym znajduje się kwota 0,00. Czy ktoś mógłby mi z tym pomóc? Z góry b. dziękuję.
żeby ilość zaznaczanych wierszy pobierana była z tabeli 2 Z tekstu makra wynika, że usunąć wierszy z tabeli 2 Jeśli można dołączyć przykład pliku, makro powinno wiedzieć co najmniej nazwy arkuszy lub ich kolejność.
Spróbuj zamienić Rows(i).Hidden = True na Rows(i).Delete = True I przetestuj na kopii dokumentu... Powinno być: Rows(i).Delete Przy czym po usunięciu wiersza indeks 'i' nie powinien być zmieniany
Z arkusza1 robię raporty w osobnych arkuszach Efekt taki jak na zrzucie 1041538 automatycznego kopiowania wyfiltrowanych danych z arkusza1 do kilku arkuszy :idea: (z nazwami arkuszy wg filtrowanych danych :D ) można zrealizować przykładowo tak jak w załączonym pliku. 1041541 Makro można uruchomić skrótem klawiaturowym ctrl+r :!: , dla dowolnej (jeśli...
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...
Proszę. :) W poprzednim makro usuń wiersz [syntax=vb]Range("c2:c" & p) = "1" 'dopisanie 1 jako sztuka pierwsza w obliczeniach[/syntax] Natomiast w wierszach: [syntax=vb]Range("a2:b" & p).Select ' tu zaznacza wszystkie pozycje bez nagłówka Range("a2:b" & p).Copy 'kopiowanie[/syntax] zamień literkę b na c [syntax=vb]Range("a2:c" & p).Select ' tu zaznacza...
Potrzebuję czegoś cgyba podobnego, ale jednak nie mogę dopasować... Potrzebuję makro, które usunie mi wszystkie wiersze nie zawierające w kolumnie K słowa "bio" ... Pomożecie? W tej kolumnie są ciągi znaków i super jakby makro szukało tylko słowa "bio", a nie np. " bio grafia" czy "przedsię bio rstwo" Wydzieliłem jako nowy temat z https://www.elektroda.pl/rtvforum/topic3...
Było kiedś takie makro napisane dla Worda 97. Teraz nie spotkałem się y nim. Możesz jednak napisać sobie takie makro i po kłopocie
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...
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...
No jakoś mi nie wychodzi. Nagrałem makro, które wyszukuje dany "text", ale jak zapuszczam je to owszem znajduje ten tekst, ale nie przechodzi do tego miejsca focus. I jak dodam : Selection.Rows.Delete to nie usuwa tego wiersza, w którym jest ten tekst. Jak dodałem twój skrypt, to on cofa do pierwszego wiersza tabeli i zaznacza kilka wierszy. Mi chodzi...
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, z pomocą filmów na YouTube w Excelu 2016 w kolumnie D4-D26 zrobiłem listę plików z hiperłączem, które znajdują się w lokalizacji wskazanej w komórce D2. Z kolei w kolumnie E mam wpisane "z ręki" te same nazwy plików ale w innych wierszach. Niestety lista plików układa się alfabetycznie a ja potrzebuję, żeby hiperłącze było w kolumnie F ale w...
Normalnie tak było, ale nie działa... naprawdę... Wyłączyłam makro, wszystko najpierw DEL zapisałam i nic...
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...
Szansa (?) ... nie raczej nie ... ale jest taka możliwość ... :) ... aby dodać linijkę kodu, który zabezpieczy przed usunięciem 1-go wiersza, poniżej jedna z możliwości: 912815
Są różne sposoby na znajdowanie ostatniego pustego wiersza, mój ulubiony jest taki: widoczną komórkę w kolumnie B wypełnioną tekstem, idąc od ostatniego wiersza w górę. Liczba 1048576 to ostatni wiersz excela 2007, dla kompatybilności z 2003 należało by użyć 65536. Przed wykonaniem sprawdzania poleceniem ShowAllData próbuje się zdjąć kryteria autofiltra...
Ach ten pośpiech. Nie miałem czasu wczoraj tego sprawdzić i nie zauważyłem tego WB. Miało być na jednym domyślnym pliku, czyli bez "WB.". A i miało być inkrementowane, a nie dekrementowane i rzeczywiście lepiej będzie w else. Wiersz usuwamy albo nie, gdy nie, to analizujemy następny. Gdy usuniemy to następny już jest na pozycji i.
Witaj. Może być. Nie do końca zobrazowałem sobie, jak Kolega dokładnie chce to robić, ale wydaje mi się, że odpowiednie makro powinno załatwić sprawę. Za pomocą makro możliwe jest śledzenie zmian w arkuszu, możliwe jest też wykonywanie dowolnych czynności (jak choćby kopiuj/wytnij/wklej/usuń) na wierszach.
bozio891 W twoim arkuszu wystarczy zmienić zakres obowiązywania nazwy AktywnyWiersz z arkusza na cały skoroszyt (najprościej usunąć nazwę, przypisać ją ponownie ale zakres dać skoroszyt i odwołanie "=0") Zaznaczanie będzie działać w każdym arkuszu gdzie masz ustawione formatowanie warunkowe (październik i grudzień nie mają) :)
No to musiałem zebrać siły i samemu poradzić z problemem. Chyba wszystko wyszło tak jak chciałem. Pewnie makro nie jest sformułowane wg prawidłowej struktury, ale działa wg moich założeń. Więc: zakres wierszy zmienia się dynamicznie, w zależności od ilości dodanych pozycji przyciskiem 'Dodaj'. Ale zawsze będzie się zaczynał od 21. W załączonym pliku...
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ę...
Napisałem parę linijek kodu do drukowania etykiet. Zmieniłem nieco wygląd strony ZAMÓWIENIA, usunąłem niektóre kolumny i wiersze oraz wprowadziłem kolumnę do wpisania ilości kpl w paczce. Analogicznie można dopisać kod na 10x etykiety oraz dopisać do etykiet inne dane np. datę, wagę itp.
chciałbym żeby w raz z usunięciem danych w komórce, również usuwał się wiersz tabeli W przedstawionym rozwiązaniu usunięcie indeksu powoduje "wyczyszczenie" całego wiersza :cunning: (jakkolwiek do tego celu wykorzystano odpowiednie formuły w tym arkuszu :D ) - nie wiem jak duże (ile pozycji ?) oferty przygotowujesz dla Waszych klientów , jeśli więcej...
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, poszukuje makra które w przypadku gdy wartość w kolumnie e=0 usunie komorki z kolum a-e w danym wierszu i przesunie dane do góry byłabym wdzięczna za pomoc
Scalanie to nie jest - moim zdaniem - właściwa droga. Raczej trzeba wypełnić wszystkie wiersze w kolumnie A, posortować, w końcu usunąć zbędne wpisy. Nie jest z tym tak dużo roboty, gdy czynność trzeba powtarzać wielokrotnie, można ewentualnie napisać makro. Można to zrobić tak: 1) w kolumnie A w pierwszej wolnej komórce (arkusz ANG - PL, komórka A3)...
Czy da się to zrobić bez zamieniania obszaru na tabelę Excela? Da się, ale jest z tym więcej zachodu, a za chwilę będziesz znowu coś zmieniać i znowu będziesz pytać. Jaki masz problem z tabelą Excela? Ona jest bardzo elastyczna, jak dopisujesz wiersze, to formuły się automatycznie kopiują, można ją dowolnie formatować, nawet tak, że prawie jej nie...
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...
Nie wiem czemu nie mogę uruchomić makra z przycisku? Kurcze pierwsze chodziło od cjancik ale to ostatnie nie. Wyskakuje komunikat o ustawieniach osobistych, które mogą być usunięte. Czy to makro ustawia dane w pierwszy wolny wiersz?
Witam, szukalem I jest sporo informacji jak w konkretnej kolumnie wyszukać index kolumny ale nie znalazlem informacji jak w konkretnym wierszu znaleźć numer kolumny w której znajduje sie konkretna wartość. Potrzebuje usunąć klika komórek w kolumnie w ktorej w konkretnym wierszu jest wartosc "0". Macie pomysł?
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...
Nie do końca łapię co chcesz zrobić. Makro musi mieć zdefiniowane zakresy i/lub warunki, jeśli ma coś zrobić, Np jeśli w wierszu wystąpi pusta komórka w kol B, to usuń wiersz, usuń n wierszy, usuń wiersze do następnego zawierającego COŚ itp. Napisz ciut więcej lub najlepiej wrzuć przykład (plik Excela jako załącznik).
Sprawdziłam działanie pliku, rozpatrzyłam wszystkie przypadki. Niestety nie zawsze makro wpisuje "do usunięcia" i kiedy dane wiersze różnią się np. tylko datą wpisuje "Qbad" zamiast "data" i podaje wartość w kolumnie 7. Nie wiem dlaczego tak się dzieje :/ Załączyłam plik i kolorem wskazałam dane linijki.
Witam, Bardzo dziękuję za szybką odpowiedź - zaproponowane rozwiązanie działa tak jak potrzebuję. Widzę że gdy usunę dane z niektórych wierszy, ponowne uruchomienie makra "odtwarza" brakujące dane, jednak gdy ilość potrzebnych powtórzeń się zmniejszy niepotrzebne wiersze się nie kasują - wiem, że wynika to z niedoprecyzowania opisu, także poprawię to...
Hmmm... Kilka uwag na początek: Po pierwsze primo: jeżeli chcesz uniezależnić program od nazw arkuszy, wystarczy zamiast: kolejnym wierszu.
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 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...
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ń...
Oczywiście, ale :) Excel lubi płatać figle. Zapisz jeden wiersz z CheckBoxem, skopiuj go 100 razy, po czym usuń przez zaznaczenie 80 wierszy. Ile jest CheckBoxów w arkuszu? I co będzie gdy uruchomisz powyższe makro? Raczej użyłbym czegoś w stylu For wiersz = 1 To Range("A65536").End... 'tu drukowanie zaznaczonych w gałęzi...
OK, rzeczywiście jest jak mówisz. Wracając do makra z tego ostatniego pliku: zmień linijkę rekalkulacji w Excelu. Zmiana koloru takowej nie powoduje, więc dopóki coś nie zmieni wartości, funkcja pokaże starą wartość. PS 3. Nie wiem czemu piszesz, że nie możesz funkcji użyć w kodzie VBA: taki sposób wywołania działa: [syntax=vb]MsgBox SumByColorsFuction(Range("AA4:AA13"),...
Cześć, chciałam mieć makro które usunie w poszczególnych zakładkach po 3 określone wiersze, coś jednak mi nie wychodzi, mam wrażenie, że się zapętla. napisałam coś takiego: Sub Makro4() Dim arkusze, arkusz arkusze = Array("(1)", "(2)", "(3)", "(4)", "(5)", "(6)", "(7)", "(8)", "(9)", "(10)", "(11)", "(12)", "(13)", "(14)", "(15)", "(16)", "(17)", "(18)",...
I jeszcze jedno – dlaczego w makro – kolory nie zaznacza wszystkich takich samych komórek tylko niektóre Dlaczego uważasz że nie zaznacza takich samych? Podaj przykład na twoich danych. Tylko że miej na uwadze że dla funkcji CountIf() każdy znak ma znaczenie. Nie tylko wielkość litery ale i ... a nawet zwłaszcza spacja. Jest różnica między...
Dziękuję, ale chyba nie o to mi chodzi. Moje makro działa do momentu usunięcia duplikatów w drugim arkuszu. Teraz dla każdego dopiero co wklejonego wiersza potrzebuję mieć dzisiejszą datę w kolumnie AE. Myślałam, żeby zrobić to za pomocą If komórka pusta then albo For each puste... no ale próbuję i nie wychodzi :/
Jeszcze nikt się nie odezwał ... ? Zatem moja propozycja - sprawdź, czy o to chodziło: 1. Punkt wyjściowy - tabelka w zakresie wierszy ' A2:K19 ' 2. Za pierwszym razem przycisk " Zmiana asortymentu " można wstawić automatem (makro: " a_wyszukaj_kotwe ") lub ręcznie (makro: " b_dodaj_wciskanego ", należy jednak uprzednio zaznaczyć komórkę ' B21 ' - makro...
Rzeczywiście na bieżącą chwilę w kodzie "czysc" jest parę błędów i niepotrzebnych rozwiązań. (może coś się zmieniło w stosunku do pierwszych rozwiązań np. 13 arkuszów lub nie zablokowany arkusz DANE) Wejdź w edytor VBA w Module1 kod makra czyść powinien być taki: nie zamknąłem w okienku kodu by zaznaczyć co należy zmienić lub dodać. ---------------------------...
Nie napisałeś, w której wersji Excela ma to działać. W każdej wersji to jest standardowy przykład do zastosowania konsolidacji. Nagłówki kolumn trzeba sobie wpisać ręcznie albo skopiować. Potem umieszczamy kursor (komórkę aktywną) w miejscu, gdzie ma być początek wyniku (pod wierszem nagłówkowym w lewej kolumnie) i otwieramy dialog Dane/Konsoliduj....
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...
Rzeczywiście, do końca to "w = w+2" nie działa, Sprawdza się gdy pierwszy wiersz to liczba nieparzysta a następny parzysta, Jak odwrotnie to już nie. Ale gdyby wstawić na górze arkusza jeden wiersz to pary parzysta, nieparzysta zamienią się i makro zadziała a potem 1 wiersz usunąć Wiem, że jest to nieeleganckie rozwiązanie, ale na ten moment nie widzę...
Zapisywanie masz przecież (i słusznie) realizowane przy naciśnięciu klawiszy nawigacji. Pod klawiszem 'OK', poza Unload, kod usunięto. Dopisz po prostu 'SaveDataToRow iCurrentPos' i z głowy.
Działa! Usunęłam tylko pierwszy wiersz w pliku i zmieniłam w kodzie wrs = 1 , bo przesuwało się o jeden w dół. Super, dziękuję ślicznie :)
Witam! Potrzebuję pomocy. Zaczynam pisanie makr w VB i VBA. Chcę na początek napisać makro, które sprawdzi mi wynik formuły 'Porównaj' i w zależności od tego usunie 2 sąsiadujące komórki z tego wiersza z lewej strony lub sprawdzi komórkę poniżej i tak aż napotka komórkę bez formuły(pustą). Chcę to mieć w makrze by móc to rozbudowywać o kolejne procedury....
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...
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,...
Cześć, poszukuję makra, które sprawdzi kolejne komórki w wierszu 2 (od B2 do MZ2) i po porównaniu z datą z komórki A1 usunie te kolumny, w których data jest starsza, Mam nadzieję, że jasno opisałem :)
Zastój widzę ;) Obstawiam przy najprostszym rozwiązaniu: Wypełnij kolumnę B listą pracowników (można włączyć filtr) i wpisuj "U" w kalendarz (AH:OH) - tu poruszanie się ułatwi opcja "zablokuj okienka" OK, jeśli się uprzeć można napisać makro, ale trzeba założyć: 1. anulowanie urlopu (usunięcie komórek B-D wiersza) 2. zmiana dat (Np pomyłka, choroba...
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...
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...
Mam problem z usuwaniem duplikatów. W całej tabeli znajduje się wiele zdublowanych danych. Można usunąć duplikaty na podstawie kolumny A, która niestety zawiera czasem ok 70 tys. wierszy. Gdy uruchamiam makro, to się zacina. Czy ktoś mógłby coś poradzić? Dziękuję [syntax=vb] For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1 If Cells(i, "A").Value...
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...
W nowym pliku bez makr działa mi dynamicznie jak chce. Tutaj w tym pliku "zeszyt1poprawki1" jakas blokada wynikająca z makr? W tym pliku masz włączone ręczne przeliczanie funkcji. W zakładce Formuły, w Opcje Przeliczania zmień "ręczne" na "automatyczne" - czy gdzie to tam masz w swoim excelu. Ta funkcja ma po prostu przepisywać wartości z kolumny F...
Ta linia ostwiersz = .UsedRange.Rows.Count liczy ile zajmujesz wypełnionych wierszy. W załączonym pliku post wyżej masz wstawione 3 puste wiersze nad nagłówkiem tabelki i stąd problemy. Makro wiersz Nr 50 "widzi" jako 47... Jeśli musisz je tam mieć to wpisz dowolny tekst w dowolną komórkę każdego wiersza i zmień czcionkę na białą (będzie niewidoczny)...
Witajcie, mam ogromną prośbę o pomoc w stworzeniu makra dla pliku. Męczę się z tym już kilkanaście godzin i niestety brakuje mi zwyczajnie wiedzy programowania VBA. Czy ktoś z Was mógłby mi pomóc stworzyć marko? Wkrokach opiszę co chciałbym, aby makro robiło. 1.Po naciśnięciu przycisku ( wiem jak przypisac marko do przycisku) odblokuj aktualny skoroszyt....
Witam, mam następujący problem. Potrzebuje makra, które oczyszczałoby mi komórki ze zbędnych danych. W kolumnie A mam autorów - niekiedy jest ich 900, każdy autor jest przedzielony separatorem ||, chodzi o to, aby w tej komórce byli tylko autorzy, którzy posiadają nrSAP - a konkretnie potrzebuje samego numeru. Zapis nr jest charakterystyczny, ale nie...
Nie jest to do końca jasne. Czy punktem wyjścia jest arkusz "Dane", który po obróbce przyjmuje postać arkusza "Do uzupełniania"? Następnie pojawia się arkusz "Dane (2)" jako aktualizacja, czy tylko te wiersze zaznaczone na żółto? A może to co pokazuje arkusz "Dane (2)" to już jest efekt aktualizacji? Nie jest do końca dla mnie jasne jak są posortowane...
Bez załącznika to raczej tylko luźne sugestie. Pierwszy problem. Jeśli makro ma być uruchamiane na życzenie (przyciskiem lub skrótem), to najprościej przekazać mu numer wiersza przez zaznaczenie (Selection). Przed uruchomieniem makra należy zaznaczyć komórkę w wierszu, który ma być obrabiany, a makro odczyta sobie numer tego wiersza przez [syntax=vbscript]Selection.Row[/syntax]....
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
tak powinno działać makro: 1. W zakresie wierszy '42:305' zaznaczenie dowolnej komórki ma wywoływać: a. wypełnienie całego wiersza, z zaznaczoną komórką, "jakimś kolorem" (na tę chwilę nieważne jakim) b. nałożenie obramowania wiersza (przynajmniej na dolną krawędź) c. usunięcie wypełnienia z wcześniej zaznaczonego wiersza z zakresu '42:305' d. usunięcie...
Witam ponownie mam problem z makro, stworzyłem poniższy kod i nie wiem dlaczego się nie wyszukuje tak jak bym chciał. [syntax=vb] Sub Data_usun() For Each wh In ThisWorkbook.Sheets For r = wh.Cells(65536, "A").End(xlUp).Row To 2 Step -1 If wh.Cells(r, "A").Value = InStr(1, wh.Cells(r, "A").Value, "Data:", vbTextCompare) Then wh.Rows(r).Delete Shift:=xlUp...
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...
adams jestem zielony jeszcze jeśli chodzi o VBA gdzie dokładnie dopisać wykrzacza tzn mając to VBA w innym zakresie komórek wypełniałem serię danych i makro się chciało debugowac nie rozumiem czemu skoro nie używałem listy rozwijalnej. skopiowałem to makro chcąc usunąć problem drugiej listy rozwijalnej która miała być pusta w przypadku kiedy nastąpiły...
Hej, jest to mój pierwszy post na tym forum, dlatego z góry przepraszam za ewentualne błędy. Generalnie od niedawna uczę się pracować z VBA i obecnie staram się napisać program, który porówna dane z dwóch tabel ( liczba kolumn to zawsze od A DO AD), liczba wierszy zmienna. Chciałabym, żeby moje makro porównywało dane z tych tabel, a następnie usunęło...
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 umiem jednak stworzyć szablonu(a w zasadzie wykresu), dzięki któremu mogę zmienić zakres danych, który odpowiada faktycznemu wypełnieniu komórek. Ale to już jest sama sprawa excela a nie c#. O, na to też są metody... Można np. użyć dynamicznego zakresu. Zakładając, że masz nagłówek w pierwszym wierszu, w komórkach A2...Ax masz etykiety, a w C2...cx...
Dzień dobry. Starałem się napisać makro, które porównuje zawartość komórek C1:C100 arkusza Arkusz1 z zawartością komórek A1:A120 arkusza Arkusz2. W przypadku, gdy nie znajdzie danej wartości, nastąpi usunięcie bieżącego wiersza z arkusza Arkusz1. Tak więc efektem działania ma być pozostanie w arkuszu Arkusz1 wierszy, w których w kolumnie C znajdują...
To ja mam pytanie w trochę podobnym zakresie. Czy da się zrobić takie makro, które będzie formatowało wszystkie tabele w Wordzie. Chodzi o to, aby tabele były dopasowane do okna oraz obramowane linią o grubości 1 pkt. w szarym kolorze. Wiem, że można zrobić formatowanie tabeli w stylach, ale jak usunę ostatni wiersz z tabeli to wówczas obramowanie na...
Nie bardzo rozumiem, o jakiej czynności mówisz. Czy chodzi o wyświetlenie kolumn od bieżącego dnia? Jeśli tak, to makro FindDay podpinasz pod przycisk i wszystko. Wtedy możesz usunąć te procedury zdarzeniowe Workbook_Open i Worksheet_Activate. Aktualną datę zwraca funkcja Date, więc nic nie trzeba dopasowywać.
"Cells(k1, 2)" to jest jedna komórka w wierszu k1 i w drugiej kolumnie, czyli raczej nie o to chodziło. A Range(k1, 2) to w ogóle błędna konstrukcja. Bardziej chodziło o "Columns(k1)". "SearchDirection:=xlPrevious" należy dopisać, ewentualnie zastąpić "MatchCase:=False", które tu jest bez znaczenia, bo szukasz liczb, a nie tekstów. "LookAt:=xlWhole"...
Cała moja procedura jest taka: 1. Z otwartego dokumentu "Word roboczy.docm" (1-3 strony) usunąć wszystko z wyjątkiem tekstów z fontem RGB(0,136,0). (Tu potrzebowałem pomocy). 2. Zostawiony tekst, każde wystąpienie w nowym wierszu (akapicie), oczyścić ze zbędnych znaków i poprawić błędne akapity - tu zrobiłem działające, ale pewnie pokraczne makro "UsunKropki"...
Ok. a więc teraz jak już się da wpisywać w kolejnych wierszach kolumny A, to niestety nie blokuje komórki sąsiadującej, gdy w komórce z kolumny A wpisuje "nie". Kasuje tylko, jeśli wprowadzone było najpierw tak a potem zedytowane na nie Zanim wprowadziłam makro, zaznaczyłam komórki i zaznaczyłam w formacie w ochronie wedle zaleceń a w samym makro usunęłam...
Czy można jakoś usunac te ograniczenie??? Ograniczeń nie można usunąć (tylko 1048576wierszy) można dodać żeby to makro wykorzystywało kolumny Tak wielkie txt czy to są jakieś "słowniki" :) [syntax=vbscript]Application.ScreenUpdat... = False Set wks = ThisWorkbook.Worksheets("Arkusz1") sciezka = "C:\dane" Set fs = CreateObject("Scripting.FileSystemObject...
Witam Szanowni forumowicze, mam pewien problem z pętlami którego nie mogę rozwiązać. Mam listę ( kilka tysięcy pozycji) dotyczącej rezerwacji miejsc noclegowych. Arkusz w załączniku. Gdy klient dokonuje rezerwacji powstaje jeden wiersz ze statusem zatwierdzona w kolumnie rezerwacja, jeśli rezerwacja zostanie anulowana pojawia się identyczny wiersz z...
Opis może i ma sens, ale nie wyjaśnia kolejności czynności i w związku z tym nie określa sposobu rozwiązania problemu. Jeśli możesz wprowadzić najpierw te kolumny, które mają być skopiowane, a później pozostałe, to możesz skorzystać z grupowania, a potem je wyłączyć. Musisz jednak zadbać o spójność danych, to znaczy jak chcesz usunąć wiersz, to tylko...
Witam wszystkich ponownie! Przepraszam was ale muszę odgrzebać temat ze względu na małą pierdołe. Problem dotyczy wciąż tego samego makra. Jednak teraz chciałbym żeby makro odjęło mi dwie komórki z godziną w formacie (hh:mm) a następnie jeżeli różnica będzie mniejsza bądź równa 00:01 usunąć cały wiersz. Na mój prosty mózg powinno to wyglądać tak: Dim...
Jedno porównanie danych w pliku ma około 1,7 miliona rekordów a drugie porównanie ma około 17 milionów rekordów :)Z brakiem wierszy jest małe prawdopodobieństwo że po aktualizacji danych ktoś doda nowe albo usunie dane konto ale w takim wypadku ja mogę sobie to sam sprawdzić formułą czy id się zgadzają 1 do 1 i wtedy makro uruchomić lub makro może zweryfikować...
Witam Forumowiczów, mam problem z napisaniem makro, które może usuwać powtarzalne sekwencje w trzech kolumnach i jednocześnie zostawiając tę jedną sekwencję unikatową. Np. wygląda to tak, kolumny ABC i poziomo wiersze. Jeden raz się powtarza sekwencja 123, którą należy usunąć. 123 456 789 123 147 258 369 Proszę o pomoc.
makro ukryte wiersze makro wstaw wiersze makro zaznaczające wiersze
zmywarka bosch chiny pracuje silnik wyjęciu kluczyka peugeot lenovo przycinanie grach
naprawa sterownika salda naprawa sterownika salda
Sharp Quattron - Pisk i Brak Włączenia Telewizora Sharp Quattron 40 cali - pisk i brak uruchomienia