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...
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...
Ja metodami prób i błędów zrobiłem taki kod, [syntax=vbscript]Sub test() Dim ilosc As Long Dim txt As String Dim zakres As String Dim w As long 'rozbija na dwie kolumny numer ( numer + całość w nawiasie - daje niepotrzebny komunikat o zmianie wartości w 2 kolumnie) Range("D2:D13").Select Application.CutCopyMode = False Selection.TextToColumns Destination:=Range("D2"),...
Moje skrypty są troche słabe, coś tam znalazłem w necie, troche poprzerabiałem i nawet działa, nie działa natomiast usuwanie wiersza jeżeli w kolumnie A mam coś takiego: "05-lut-2016 17:23 Start Template Page 3" z tego wszystkiego zawsze w zawartości stałe są Start, Template i Page, reszta oczywiście zmienia się według daty i numeru strony, sam wiersz...
Było. Poszukaj w archiwalnych tematach. [syntax=vbscript]Sub UsunWiersze() For x = 100 To 49 Step -1 a = Cells(x, "B") If a <> "" And a = 0 Then Rows(x).EntireRow.Delete Next End Sub[/syntax]
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")
W dużym skrócie ... 1. ... dwa zakresy danych ... 2. ... na podstawie wartości z jednego zakresu ... wyszukać wartość w drugim zakresie ... 3. ... jeżeli makro znajdzie ... wartość to zostawia ją bez zmian ... 4. ... jeżeli natomiast wartości w zakresie jest brak to usuwa cały wiersz zakresu 1, 2 i 3 - raczej jasne ... ale 4 ... ? Który wiersz zakresu...
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...
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....
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...
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.
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....
Witam, Ja uzyl bym formatowania warunkowego, do tego moze formuly: LICZ.JEŻELI lub SUMA.JEŻELI z warunkiem "zakres komorek" >0 poz Olgierd
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
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...
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...
... po dodaniu tego kod zaczyna bardzo długo pracować ... Nie obserwuję tego na "prostych" danych, ale spróbuj może w ten sposób: [syntax=vbscript]Option Explicit Sub Czysc_Wszystko_2() Dim czas As Single: czas = Timer If MsgBox("Wyczyścić wszystkie formularze 'Dniówek'?", vbQuestion + vbYesNo, "Potwierdź") = vbNo Then Exit Sub Dim i As Integer, w...
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:...
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
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...
Mam skoroszyt excela w którym w poszczególnych arkuszach (każdy miesiąc ma osobny arkusz) przechowywane są dane o pracownikach i jak pracowali w danym miesiącu. Czasem pracownik w ciągu miesiąca pracuje na kilku punktach pracy czyli zmienia lokalizacje. Przykład w arkuszu X pracownik o nazwisku i imieniu A7 129 pracował w lokalizacjach Bogdanka, Wieliczka...
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)...
Tak myślę że kolega nie wie co oznacza błąd 13. Ale do rzeczy. Rozumiem że kolega chce za jednym zamachem usunąć wszystkie puste wiersze we wszystkich otwartych arkuszach skoroszytu. Jeżeli tak to, skad procedura ma wiedzieć ile arkuszy jest otwarte w danej sesji? Jeżeli używam zmienne to trzeba , dla przyzwoitości je zadeklarować, a jak już to trzeba...
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.
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...
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.
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...
Witam, Tak worksheet to to samo co ws - dzięki za zwrócenie uwagi, po prostu po czasie dopisywałem ten fragment i jakoś pominąłem, że ws został juz określony przez DIM. W załączniku wrzucam plik, po ściągnięciu trzeba zmienić rozszerzenie z *.jpg na *.xlsm - wyskakiwał błąd poczas dodawania pliku z roszerzeniem excela, że nie można załączać plików z...
Witam Mam tabelę w excelu 2000: Zaczyna się od 6 wiersza i kolumny B (6 wiersz to nagłówki tabeli). W kolumnie C wpisywane są daty (w formacie RRRR-MM-DD). Chciałbym aby po wpisaniu dat w komórkach: C3 i C4 (i zatwierdzeniu w obojętnie jaki sposób, np. po wciśnięciu przycisku filtruj umieszczonym obok) tabela została przefiltrowana według podanego zakresu...
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.
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ć???
A skąd biorą się wiersze i jak są przypisane? Jeśli z zakresu, to usuń komórkę z zakresu...
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...
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ą...
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) .
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...
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, Można również napisać stosunkowo proste makro (załącznik), które uporządkuje dane w pożądany sposób. Makro da spodziewany rezultat, jeśli adres mailowy w oryginalnych danych będzie stanowił osobny wiersz. Dane ze strony www należy skopiować w zwykły sposób do komórek. Po kopiowaniu zakres komórek jest zaznaczony, w razie czego można zmienić...
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
Macieju , dokładnie oto mi chodziło. Pomogłeś mi, masz ode mnie punkty. Wiedział byś może jak poprawić kod żeby zakres komórek, które mają zostać aktywne, działał automatycznie w dół oraz w bok? Chodzi mi oto że gdy wstawię lub usunę nowy wiersz lub kolumnę do tabeli, nowe komórki będą od razu aktywne, czyli wyróżniane kolorem. Obecnie, gdy dodam nowe...
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ć?
Słuszna uwaga :-) Już się poprawiam i załączam makro: Private Sub Worksheet_Change(ByVal Target As Range) Dim ZakresHist As Range, Wiersz As Long, Kolumna As Long, KomPusta As Range Dim ArkHist As Worksheet On Error GoTo Koniec Application.ScreenUpdating = False Wiersz = Target.Row Kolumna = Target.Column If Kolumna = 4 And Target.Value = "x" Then Set...
Dziękuję. Niestety nie działa jeszcze tak jak potrzebuję ;/ Pozmieniałem trochę zakresy danych, ale jest kilka rzeczy do zrobienia. 1. Podczas kopiowania z "Spis końcówek lotów" do "Złomowanie" makro wkleja dane tak jak leci, a powinno wpisywać w pierwszy wolny wiersz od B3 do nieskończoności tak na prawdę tylko ZŁOM. W tej chwili usuwa mi również dane,...
[syntax=vb]Option Compare Text 'male i duze litery to jedno Sub popraw_nazwe() Dim nazw As Range Set nazw = Sheets("baza").Range("A2:A4") ' zakres dla trzech walut With Sheets("tabela") For r = 2 To Application.CountA(.Range("A:A")) For i = 1 To nazw.Count 'do ile walut If .Cells(r, "A") Like nazw(i) & "*" Then 'jak zaczyna sie na nazwe waluty .Cells(r,...
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?
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...
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...
: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...
Witam Poszukuje wsparcia w wyszukaniu, wyswietleniu i wybraniu arkusza z którego będę chciał skopiować dane do drugiego arkusza. Posiadam dwa skoroszyty. W pierwszym znajdują się dane w wielu arkuszach " około 25". Teraz w skoroszycie drugim po wybraniu opcji kopiuj chcę mieć możliwośc wybrania z którego arkusza ze skoroszytu pierwszego kopiuje ustalony...
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...
usuwa wiersz excel usuwa wiersz wiersz excel usuwa wiersz
tyrystor sterowany napięciem przednia klapa montaż przegub
interfejs diagbox bateria milwaukee
Sharp LC22CFF4041E, Vestel 17MB95-S – typowe usterki, firmware, naprawa mainboardu Firmware do routera ZTE MF258 od Play - gdzie znaleźć?
