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...
Ok to muszę odszukać ta zamiana ręczna. Tak po wstawieuniu nowego wiersza będzie pusta komórka bez formuły to makrem myślałem o tym by zaznaczać komórkę A5 i w dół tak jak zaproponowałem. Zastanawia mnie najbardziej jak stworzyć kod by usuwalo mi wiersz jak cały zakres jest pusty. Bo teraz usuwa tylko wtedy jak coś w jakimś wierszu zakresu jest to usuwa...
Hej, Jestem totalnym excelowym laikiem i pisze w zapewne większości prócz mnie banalnej sprawie. Temat klaruje się następująco: 1 plik to baza danych klientów która ma kilkadziesiąt tysięcy pozycji z kolumnami: Nazwa firmy/Kategoria/e-mail 2 plik to wylistowane kategorie na podstawie chciałbym usunąć wierze w pliku nr. 1 - po prostu zbędne pozycje Podsumowując:...
Ogólnie myślałem o tym aby komenda brzmiała mniej więcej tak: Sprawdź od a1 do a2000 jeśli zawiera dane z zakresu 1-1000 - ok Jeśli inne (null lub tekst) - del cały wiersz
Hej Chodzi mi o wszystkie pełne wiersze poniżej i wklejenie tego zakresu o wiersz wyżej. Kod trochę zmieniłam na swoje potrzeby i obecnie wygląda jak poniżej, zaznacza i kopiuje 1000 wierszy (tu wolałabym żeby zaznaczał wszystkie pełne) po pierwszym pustym ale brakuje mi wklejania skopiowanego zakresu o wiersz wyżej. Sub usuniecie() Application.ScreenUpdating...
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.
Witam, Ja uzyl bym formatowania warunkowego, do tego moze formuly: LICZ.JEŻELI lub SUMA.JEŻELI z warunkiem "zakres komorek" >0 poz Olgierd
Użyj funkcji ADR.POŚR np. [syntax=text]=ILE.NIEPUSTYCH(ADR.POŚR("C... Funkcja ADR.POŚR ma argument tekstowy, więc nie podlega on modyfikacji. Koniec zakresu może być adresem zwykłym, jeśli chcemy, by nadążał za dodawaniem/usuwaniem wierszy. Zasadą jest ilustracja problemu załącznikiem z układem danych!!!
Zamiast y = y + last_row2 wks.Rows(x).Cut wkb.Rows(y) wpisz wks.Rows(x).Cut wkb.Rows( last_row2) last_row2 = last_row2 + 1 Dodano po 53 usuwanie wierszy w drugim arkuszu zbędne
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...
Dodając kolejne wiersze, zawartość komórek przy odwołaniu bezwzględnymi jest stała i zaciąga dane które ma zaciągać, ale już komórki z owymi formułami ulegają przemieszczeniu. Nie widzę tu nic niezwykłego. Możesz dokładniej wyjaśnić? Lub napisz co chciałbyś osiągnąć. Może jakiś plik z przykładem.
Takie czyszczenie w pętli nie jest zbyt efektywne: lepiej od razu wyczyścić cały zakres, jak już, to możesz przecież napisać: Sporządził: , sprawdził, czy jest on większy niż 17, a jeżeli tak, usunął: Set arkO , jeżeli tego nie używasz - w zupełności wystarczy wrzucić nazwę tego arkusza bezpośrednio do With.
A skąd biorą się wiersze i jak są przypisane? Jeśli z zakresu, to usuń komórkę z zakresu...
Tak, trzeba tylko znaleźć ostatni niepusty wiersz ("dziurę"). W przykładzie sortowanie wg kolumny A zakresu "A2:Hw", gdzie "w" to ostatnia niepusta komórka w kolumnie A, "jadąc" od góry. w = Range("A2").End(xl... Range(Cells(2, 1), Cells(w, 8)).Sort Key1:=Range("A2")
Sprawdziłem czemu się wiesza przy tej pętli program, bo usuwa wiersze wszystkie puste do samego końca arkusza. Trzeba by zakres ograniczyć do np 200 wierszy i będzie ok. W którym miejscu i jak to ograniczenie zrobić???
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...
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 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
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ę...
Intersect(Target, Columns(...)) zwraca zakres komórek typu Range(), będący wspólną częścią - w przypadku zdarzenia Worksheet_Change - obszaru, który uległ zmianie (Target) oraz wybranej kolumny (Columns(...)). Tym obszarem który uległ zmianie (Target) może być tylko jedna komórka (np. kiedy wpisujesz w nią wartość ręcznie), ale też zakres komórek (np....
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...
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
Ech... Spróbuj czegoś takiego: [syntax=vbscript]Sub Dzialaj() Dim ark As Worksheet, temp As Worksheet Dim i As Integer Application.ScreenUpdating = False Set ark = Sheets("Arkusz1") For i = 2 To ark.Range("B65536").End(xlUp).Row If Not czyistnieje(Left(ark.Cells(i, 2), 31)) Then Sheets.Add Set temp = ActiveSheet temp.Move After:=Sheets(Sheets.Count)...
To może zamiast pętelkować sprawdzając każdą komórkę z zakresu czy jej wartość jest w tablicy lokalizacji i ewentualnie usuwać dany wiersz, zrobić coś innego. Wyfiltrować z bazy do nowego arkusza wiersze nie zawierające tych lokalizacji czy to przy pomocy filtra zaawansowanego czy przez MSQuery albo ADO.
Strasznie ogólnie zadane pytanie. Może być wiele sposobów ale by odpowiedzieć tak ogólnie to: Uzależnić początek drugiego zakresu od końca pierwszego zakresu. Np zamiast Range stosować Cells (Choć Range też można przecież parametryzować) Można używać Row i dodawać lub usuwać wiersze. Nie wiem tak do końca o co ci chodzi - musisz dokładniej opisać przypadek...
Proszę nie usuwać tematu, wyjaśnię co i jak bo w tym przypadku sprawa nie jest prosta - pomiary są skopane. Zaraz edytuję i dodam właściwą odpowiedź. Dodano po 12 Po kolei. Każda ćwiartka tego wykresu dotyczy różnych par parametrów. Przykładowo górna prawa ćwiartka to wykres zmian prądu Ic w stosunku do napięcia Ice. Rysujesz 2 osobne przebiegi na jednym...
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
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ą...
:D :D :D Wiem że autor jest już "zadowolony" ale Jako laik zapytam ... ja też za kolegą zapytam: jak zmusić excela do usunięcia zbędnych wierszy i kolumn by ich nie było wcale [zaznaczam że nie chcę ich ukrywać]. A że już nie jestem takim laikiem jak kolega walek33 :D to wiem, że istnieje coś takiego jak "obszar roboczy" który można zapisać [.xlw] ale...
Mam plik excel-a w którym są dwa arkusze. Musze usunąć całe wiersze z arkusza1 na podstawie arkusza2 W arkuszu 1 w kolumnie A są przykładowe dane. W arkuszu 2 też w kolumnie A jest zakres danych który musi być usunięty z arkusza1 (wyszukać, zaznaczyć cały wiersz i usunąć go z arkusza1). Jeśli w arkuszu 2 np. kolumna A26 jest 801262 to w arkuszu 1 w...
Z nazwami nie wyjdzie, bo przy każdym dodaj/usuń zmienią się tak czy inaczej. Niestety przy tego typu kontrolkach indeksy też zmieniają się przy usuwaniu. Poza tym usuwasz zawsze drugą "ramkę" od góry, bez względu na ich ilość. Tak ma być? Czy nie powinna być ostatnia? Po mojemu: trzeba sprawdzać w pętli położenie kontrolki i wybrać te dwie, których...
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...
takiego założenie nie wykonałem. nie potrafie zrobić już początku :P czyli automatycznego makra po uzupełnieniu danych. Kombinowałem z makrem które się tworzy na podstawie tabeli przestawnej jednak autofiltr nie działa tak jak powinien. W jaki sposób mogę podczas makra usuwać zawartość nie potrzebnych wierszy. Próbowałem poprzez uruchamianie auto filtra...
Teraz działa dobrze ale tylko wtedy kiedy wpisuje pojedyncze wartości. Jeśli wklejam kilka wartości to wartości "AAA" nie są zamieniane. Druga sytuacja jeśli wklejam kilka wartości a pierwsza wartość to "AAA" to wszystkie wartości wklejane zostają zastąpione wartością "BBB" nawet puste komórki. Wstępna ocena dostępnych informacji Witam ponownie, Zrozumiałem,...
Co ma wspólnego makro do zaznaczania aktywnego wiersza z funkcją, której nagłówek pokazujesz? Jak i do czego używasz tej funkcji? Zaznaczanie aktywnego wiersza masz zrobione formatowaniem warunkowym z formułą: [syntax=text]=KOMÓRKA("ROW")=WIERSZ()[/s... z tym są dwa. Pierwszy - należy właściwie zaznaczyć zakres komórek, w którym to formatowanie...
A tak się zapytam, wbudowana funkcja usuń duplikaty ? Co w przypadku powiedzmy Jana Kowalskiego co ma psa Azora, i Jana Kowalskiego co ma psa Bobika ? To ten sam Jan Kowalski ? Zakres sprawdzania duplikatów ustawiasz jak chcesz , czy to ma się odwołać do jednej kolumny czy do np. wszystkich . Usuwanie duplikatów leci dość szybko.
witam mam takie pytanie : mam sieć a wniej kompy z adresami 192.168.1.x 255.255.255.0 i musze teraz na każdym z nich dodać po kolejnym adresie ale z zakresu 10.105.45.x 255.255.255.0 i GW 10.105.45.1 jest może jakies polecenie w wierszu aby tylko dopisac kolejny adres a nie usuwać / modyfikować już istniejący?
I nie masz się co dziwić. Warunek zakończenia pętli i instrukcji If masz taki sam... Przemyśl zastosowanie pętli For Each kom in Range(zakres) , wydaje się bardziej zasadne w Twoim przypadku. Tu, w konstrukcji warunków dla instrukcji If, można zastosować przesunięcie kom.Offset(wiersze,kolumny) .
"DataChart" Jeszcze nie zaglądałem do załącznika, ale dlaczego właściwie w "Sheets("DataChart")" usuwasz dane tylko z jednej kolumny ".Columns(1)" skoro końcówka kodu sugeruje, że może ich być więcej (?) - zmienna "counter": Dodano po 1 Dane kopiuję z pliku sam do arkusza, zapisywane są w pliku tekstowym na karcie SD na mierniku. Nie importuje calego...
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...
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...
Przepraszam będę dołączał. Niestety nie działa. Kiedy zaznaczam jakąś komórkę w zakresie Excel automatycznie zaznacza jak na rysunku cały zakres danych w kolumnie B, przy tworzeniu tabeli. Podobnie jest jak usuwam dane w A nie zmniejsza jej automatycznie. Według mnie on dotyczące tworzenia tabeli powinien brać z kolumny A czyli ostatniego zapisanego...
Witam, Mam w OpenCalc'u w kolumnie A 700.000 słów. Wiem, że "unikalnych" mam 130.000 Usuwam zbędne duplikaty przez Dane-Filtry-Filtr standardowy i: http://obrazki.elektroda.pl/1411104200_1... W odpowiedzi dostaję 16.000 wierszy, a wiem , że ma ich być 130.000 Zauważyłem, że Calc filtruje mi dane w mniejszym zakresie mimo, iż w tabelce...
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...
Wielkie dzięki za odzew Sub del() Dim i As Integer For i = 1 To 5000 Step -1 'wpisałem zakres wierszy jakie są brane pod uwagę If Range("A" & i).Value = Range("B2") Then 'baza danych do przeszukiwania znajduje się w kolumnie "A" Rows(i).Delete 'w tym miejscu makro ma problem End If Next i End Sub O co może chodzić?
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...
Hej, chciałbym zmienić wiersz "Range("A66:N66" & i + 1).ListObject.ListRows.Add AlwaysInsert:=True" tak, aby zamiast A66:N66 podać nazwę nagłówka tabeli. Niestety nie mogę odwoływać się do konkretnych komórek ponieważ powyżej utworzonej tabeli użytkownik ma możliwość dodawania i usuwania wierszy. Private Sub CommandButton1_Click() Dim i As Integer i...
Ja się podepne pod temat, tylko z nieco inną sprawą. Mam zakresy liczb: 1-10 "bardzo bardzo źle" 11-19 "bardzo źle" 20-29 "źle" 30-39 "średnio" 40-49 " lepiej" 50-59 "dobrze" 60-69 "bardzo dobrze" 70-79 "bardzo bardzo dobrze" Czy istnieje metoda aby po wpisaniu liczby z zakresu 1-79, funkcja nadała komórce odpowiedni komentarz? Kombinowałem z funkcją...
Wydaje mi się, że najlepszym rozwiązaniem w przypadku wartości stałych, wpisywanych z klawiatury jest stosowanie grupowania arkuszy. Wtedy w obu arkuszach jest dokładnie ta sama zawartość. Pozwala to również na formatowanie komórek, ukrywanie i odkrywanie wierszy, usuwanie i wstawianie wierszy. Trzeba tylko zadbać, żeby wiersze sobie odpowiadały. Poprawki...
usuwanie zakresu wierszy usuwanie zakresu wierszy excel usuwanie zakresu
dodge światła zmiana komórka prać prać candy
projektowanie mechaniczne bateria parkside
Jak przywrócić MW Power IP40-2M-MZ do fabrycznych? Disable Demo Mode on Electrolux EKD 513502 X Cooker – Key Combinations and Menu Steps