Można postąpić tak: Odblokować wszystkie komórki w arkuszu (a przynajmniej te, które mogą podlegać edycji). Włączyć ochronę arkusza. Do kodu arkusza wpisać procedurę obsługi zdarzenia Change: [syntax=text]Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect Target.Locked = True ActiveSheet.Protect End Sub [/syntax] Jeśli arkusz...
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]
Witaj 'Next cell ' przed 'If zmienna = False Then ' Dodano po 2 a jeszcze For Each cell In rng.rows(i).Cells
[syntax=vb]sub usuniecie() Application.ScreenUpdating = False ow = Cells(Rows.Count, "M").End(xlUp).Row For r = ow To 1 Step -1 If Cells(r, "M") = 1224 Or Cells(r, "M") = 1228 Or Cells(r, "M") = 1232 Then Rows(r).Delete Next Application.ScreenUpdating = True End Sub[/syntax]
Ano nie działa, bo pusta komórka jest traktowana, jako zero.
usuwanie wierszy z tabeli przy powtarzającej się wartości
Delete" na klawiaturze spowodowałoby usunięcie całego wiersza "3". To ma tylko usuwać pojedynczą komórkę? no chyba że o to chodzi (1 to kolumna A) [syntax=vbscript]Sub usun() With ActiveCell If .Column = 1 Then .EntireRow.Delete End With End Sub[/syntax]
troszkę nie kminię pomysłu , daj przykład paru komórek jak powinny wyglądać Przecież autor załączył fotkę Proponuje wpisać w A1 1 i w A2 1 zaznaczyć A1 i A2 złapać z róg i skopiować w dół do A32 A33 wpisać =A1+1 i skopiować w dół do A64 Zaznaczyć komórki od A33 do A64 złapać za prawy dolny róg i przeciągnąć/skopiować w dół aż do ostatniego wiersza...
W każdy przebiegu pętli zanim zaczniesz zaznaczać wiersze. Inaczej skąd program ma wiedzieć, że chcesz zaznaczać w innym arkuszu?
Powinno być ScreenUpdating, a nie DisplayAlerts. Poza tym niepotrzebne są te selekcje. Wystarczy: [syntax=text]Rows(281).Delete Shift:=xlUp 'usuwa 281 wiersz [/syntax]
Jedno z wyjść [syntax=vbscript]=ADR.POŚR("Arkusz1!A1")...
Ma ktoś jakiś pomysł jak to naprawić? Przeanalizuj co się dzieje w pętli jak usuniesz "trefny" wiersz - numeracja przeskoczy na następny "wiersz" i dlatego nie będzie ten wiersz analizowany w ogóle :cry: Najprostsze rozwiązanie to "puścić" pętle od dołu :D np [syntax=vbscript]For x=Ostwiersz To 2 Step -1 …. Next x[/syntax]
lub zmień na [syntax=vb]If Cells(i, "B").Text = 1 Then[/syntax]
For i = 2 To arkusz.Rows.Count - 1 Na For i = 2 To 200
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) :)
Ooops ma byc Range("A2:A" & Cells(Rows.Count, "C").End(xlUp).Row )= "New"
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.
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....
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...
... :-) ... Piszesz o jednej tabeli, albo o jakiejś pojedynczo-domyślnej, a w dokumencie procedury, który podsyłasz jest tych tabel aż 58, co łatwo sprawdzić, wpisując w oknie Immediate edytora vba: 903088
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...
No to już wszystko jasne. W przeszukiwanych komórkach istnieje komórka, w której jest formuła zwracająca błąd, na przykład #DZIEL/0!. Dla znalezienia błędu: https://obrazki.elektroda.pl/9515473200_...
Dołóż jeszcze jedną pętlę [syntax=vb]Last = Cells(Rows.Count, "A").End(xlUp).Row With Arkusz2 last2 = .Cells(Rows.Count, "A").End(xlUp).Row For i = Last To 1 Step -1 For j = 1 To last2 wyraz = .Cells(j, "A") If Cells(i, "F").Value Like wyraz Then Rows(i).EntireRow.Delete Exit For 'j End If Next j Next i End With [/syntax]
Argumentem funkcji IsNumber ma byc komorka (Range("B" & i)), "B" & i jest zwykly tekst
Cześć, Potrzebuję podpowiedzi z poniższym kodem. W momencie kiedy wybieram kilka pozycji na listboxie i puszczam kod to usuwa mi tylko pierwszą i wyrzuca error jak w załączniku: Witam Zrób tak [syntax=vbnet]Sub DeleteButton_Click() Dim i As Integer With ListBox1 For i = .ListCount - 1 To 0 Step -1 If .Selected(i) Then .RemoveItem i Sheets("Setup").Rows(i...
Powinno działać.
Wyłącz odświeżanie ekranu przed pętlą (Application.Screenupdating=false) a za pętlą włącz ponownie (=true)
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()...
Zrób taką formułę, która sprawdzi ci czy w pierwszej kolumnie jest liczba całkowita, jeśli tak to skopiuje dane z kolumn X,Y1 i Y2 do nowego arkusza lub nawet w następne puste kolumny. A dalej to już sobie poradzisz.
No tak, bo funkcja: każdego wiersza? Jeżeli tak, to zmień kolumnę z "A" np. na "B" lub "C"...
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???)
Nie można usuwać komórek do których odwołują się formuły bo właśnie wtedy pojawia się błąd odwołania. Odwołania również są usuwane. Jeżeli chcesz by odwołanie było cały czas "sprawne" kasuj dane a nie usuwasz wiersz. Jeżeli chcesz aby wybierać różne wiersze w arkuszu docelowym skorzystaj z formuły indeks() i poprzez dodatkową komórkę określającą nr...
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
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,...
Piszesz, że dane są kopiowane z faktury do arkusza "Raport zbiorczy" ale z kodu wynika, że operujesz cały czas na jednym arkuszu - odwołujesz się do Range niepoprzedzonego innymi nazwami arkuszy... Najpierw przypisujesz jakieś wartości komórek do zmiennych, a potem te zmienne wypisujesz na inne komórki - nigdzie tu nie widać zmiany arkusza. To jak to...
W zasadzie mozna to zrobić na trzy sposoby, mowa jest o drukowaniu arkusza bez "niechcianych" wierszy. 1. uzyć narzędzia Aparat fotograficzny 2. zastosować Grupy i konspekty 3. ukrywać wiersze niechciane Pozdrówka
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]
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...
Jeśli jednocześnie to For ark = 1 To 2 With Sheets(ark) For i = .Cells(65536, "a").End(xlUp).Row To 2 Step -1 If .Cells(i, "a").Value = "" Then .Rows(i).Delete shift:=xlUp End If Next End With Next Jeśli uruchamiasz w pierwszym a usuwać ma w drugim to With Sheets(2) For...
Nie wiem jakie w ogóle planujesz operacje w tym pliku. W kolumnie A masz wpisaną numerację, więc nie brałem pod uwagę wstawiania/usuwania wierszy. W tej chwili zmieniłem to w ten sposób, że jeśli operacja dotyczy komórek całego wiersza lub więcej, to nie jest zapisywana do historii.
Musi być wpisana wartość komórki nawet jeśli to ma być 0 wtedy excel sortuje. Dla Ciebie, rozwiązaniem będzie nadanie nagłówków nad każdą kolumną, klasycznie 1,2,3... przeciagnij, bez zbędnego zastanawiania się nad tym, wtedy funkcja sortowania "pomyśli" że pusta kolumna pod nagłówkiem jest wypełniona "0" i zadziała. Po sortowaniu przed zapisem pliku...
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 setny zostaje. [syntax=vbscript]Sub co_sto() i = 1 Do While Cells(i, 1) <> "" Rows(i).Resize(99).Delete i = i + 1 Loop End Sub[/syntax]
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.
Nie usuwasz, tylko czysczisz. Rows(findvalue.Row).delete usuwa wiersz
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...
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, 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:...
Przykład w arkuszu X pracownik o nazwisku i imieniu A7 129 pracował w lokalizacjach Bogdanka, Wieliczka i Wieczorek :cunning: :?: Przydałaby się legenda do tych tabel kodowych :D - bo nie wiem jak to rozumieć, że pracownik A7 129 z lokalizacji Bogdanka pracuje w pewnym okresie w Wieliczce, ten sam pracownik z lokalizacji Wieliczka jest na L4 , oraz...
Takie coś. .
Witaj, Pojedyncza prosta funkcja nie zadziała, ale można złożyć kilka funkcji, aby osiągnąć cel. i tak na przykład jeśli z alamakota*wp.pl chcesz zostawic samo *wp.pl - musisz poszukać pozycji interesującego Cię znaku (w tym przypadku *, funkcja SZUKAJ.TEKST), poznać długość całego tekstu (funkcja DŁ) oraz wyciąć sobie kawałek z prawej strony (funkcja...
.. jednak na coś mnie naprowadziłeś okazało się tylko że zamiast usuwać wiersz po stworzeni wydruku muszę go nadpisać nowym może być ctrlC,ctrlV .. Nie naprowadziłem, ale dokładnie Ci o tym napisałem :) Arkusz z poprzedniego posta ma nawet przycisk po ktorego nacisnieciu wykonuje cala operacje. A jak zamienisz pod przyciskiem na ten poniżej, to będziesz...
Nie można uczynić czegoś tak prostego jak usunięcie całego wiersza? Nie ma na to jakiegoś sposobu? Programuje w C od niedawna więc jeszcze niewiele wiem, ale mam doświadczenie w pascalu. Skoro da sie wstawić do pliku nowy pusty wiersz to powinno dać się z niego usunąć wiersz. To kopiowanie zawartości w odpowiednie miejsce nie bardzo się sprawdza chyba....
Puste pole pojawia się, gdyż poepłniłem błąd. Przy linii ReDim strNowaLista odejmij 1 od intPozycja [syntax=vb]ReDim strNowaLista(intPozycja -1, 2)[/syntax] Co do usuwania/modyfikowania danych pracowników. Masz coś, co załaduje Ci ich dane do UserForma, tak? Coś co znajduje odpowiedni wiersz i ładuje? Jeśli tak, i znasz numer wiersza, to chyba nie powinien...
OKNO -> zablokuj okienka następnie dodajesz usuwasz tyle wierszy i kolumn ile potrzebujesz i jak potrzebujesz aby nie były przesuwane podczas edycji. Pozdrawiam
Zrobiłbym to tak: Zastosowałbym pętlę Do While, gdzie warunkiem będzie niepusta komórka w kolumnie D arkusza "Raport" w pliku "test". Obszukujemy kolumnę C w pliku "alredy..." Metoda Find wygeneruje błąd jeśli nie znajdzie szukanej frazy. Czyli jeśli błędu nie ma - pracownik jest. Jeśli błąd - pracownik zwolniony, można usunąć wiersz wg schematu (oczywiście...
Jakoś dziwnie masz to zrobione, ale tak na szybko to podmień na [syntax=vbscript]Cells(j, t).Delete xlShiftUp[/syntax]
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!!!
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...
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...
Witam. Proszę o podpowiedź, jak usunąć wiersz w listboxie. Próbuje poniższym kodem:[syntax=vb]Private Sub ListBox1_Click() Me.ListBox1.RemoveItem (Me.ListBox1.ListIndex) End Sub[/syntax] Wiersz co prawda się usuwa, ale wyskakuje błąd.
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...
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
Czy wiesz, że w "Arkusz2" prawdopodobnie w wyniku kopiowania, wklejania a następnie usuwania wierszy jest ponad 500 przycisków o nazwie "CommandButton1"? Kiedyś był już podobny temat poruszający ten problem. Kopiowanie i wstawianie wiersza z przyciskiem działa OK, ale usunięcie wierszy powoduje układanie się obiektów w stosik, z których widoczny jest...
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...
Żaden ze standardowych komponentów zdaje się nie obsługuje takiego zapisu do pliku - musisz go sam oprogramować. Co do samego komponentu - ze standardowych StringGrid powinien Ci wystarczyć. Dodawanie wierszy realizujesz poprzez zwiększenie własności RowsCount. Usuwanie wierszy ze środka musisz oprogramować tak, aby niższe przenosiły się na wyższe,...
Poczekaj trochę , spróbuje napisać program który będzie wywalał np. co drugą linię z pliku tekstowego . Dodano po 1 A oto i program napisany przezemnie który tworzy plik tekstowy z co n'tym wierszem poprzedniego ,obsługa : w katalogu z programem umieszczasz plik o nazwie plik1 ( z rozszerzeniem .txt ,czyli zwykły plik tekstowy ) ,uruchamiasz program...
Do czasu aż przeczytasz pomoc o wszystkich instrukcji(Array, Trim, Split, itp.), to nie ma sensu
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.
Witam. Chciałbym prosić o pomoc. Mianowicie, zaczynam przygodę z Codeigniter i PHP. Mam zrobioną bazę w Phpmyadmin mysql i teraz mam tabele, powiedzmy produkty a w niej kolumny: id / magazyn / produkt / szt. Chciałbym coś takiego napisać, że jak kolumna szt. będzie 0, to ma mi cały wiersz usunąć. Jak to zrealizować? Co napisać w Controlerze, co w modelu,...
Fajna funkcja. Łatwo można ją przerobić na funkcję która po podwójnym kliknięciu usuwa wiersz. Dziękuje. Przyda mi się.
Czyli do każdego dodanego towaru a magazynie ma być info o nr faktury?? i wpisanie faktury twoim zdaniem jakie info powinno zawierać?? Powinno to (wg mnie) wyglądać tak: Arkusz "magazyn" (asortyment) - gdzie wpisujesz każdy nowy towar z cechami, o których pisaliśmy. Stany wyliczałby Excel na podstawie zakupów i sprzedaży. Arkusz "zakupy" - gdzie wpisujesz...
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...
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, 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...
Usuwam wiersz z komórką "A9" z zakresu Tab_2 ? Czy jakiś wiersz z zakresu Tab_1 ? Jeśli z Tab_1, to na jakiej podstawie mam określić, który wiersz mam usunąć ? Dlaczego ma to być właśnie "Trąbalski", a nie na przykład "Chudy", czy "Placek" ? Dlaczego mam usuwać wiersz z "Trąbalskim", tylko dlatego, że szukałem "Gruby" ... ? Jak na podstawie takiego...
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 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, napisałem taki kod vba na usuwanie duplikatów, ale nie działa mi poprawnie... Jak wpiszę sam jakieś dane, to usuwa mi duplikujące się wartości...ale jak wkleje dane, to już nie. Mój kod to [syntax=vb]Sub usun_duplikaty() ' usuwanie duplikatów For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1 If Cells(i, "A").Value = Cells(i - 1, "A").Value...
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, ja mam nieco inny problem, mianowicie w obszarze arkusza o nazwie "LISTA" w ostatniej kolumnie "AO" wpisuję "X" jako pozycja zrealizowana. Chciałbym aby przy ponownym odświeżeniu pliku, bądź też otwarciu, wszystkie pozycje odznaczone w tej kolumnie "X" em były usunięte bez problemu dla funkcjonowania całej tabeli, która jest źródłem dla tabeli...
Tu dodałem jeszcze usuwanie wiersza z pewnymi zabezpieczeniami edit: Teraz mi przyszło że zamiast przycisku edytuj kod z pod tego przycisku można umieścić na podwójnym kliknieciu w listbox (na danym wierszu) wtedy dane się zczytają do okienek edycyjnych. Podmieniłem załącznik
Masz rację. Usuwane wierszy robi się od końca do początku. Autorka nie napisała u usuwaniu w pierwszym poście i tak przerabiałem niechlujnie. Skrobnij coś...:) W załączniku trochę inne rozwiązanie.
załącz plik
To, co rzuca się w oczy i to bez okularów oraz zaglądania do załączników ;) Brakuje precyzyjnych odwołań. Np [syntax=vbscript]'usuwa puste wiersze ow = ThisWorkbook.Sheets("OdczytaneDyski").Ce... "A").End(xlUp).Row For c = ow To 1 Step -1 If Cells(c, 1) = "" Or Left(Cells(c, 1), 3) = "Cap" Then Rows(c).Delete Next [/syntax]i nie wiadomo,...
usuwam wiersz z tym punktem z tabeli i od nowa wczytuje tablice zaczynam od punktu który był wcześniej najkrótszą odległością Spróbuj to inaczej rozwiązać. Dlaczego kasujesz wiersze? Czy ja dobrze zrozumiałem, że w arkuszu 'Baza' szukamy najbliższego punktu dla punktu wyjściowego 'C27'?
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...
Jest to samo, nie usuwa się.
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...
do { $tab="zmienna".$row; $tab1="id".$row; $myrow = pg_fetch_row ($result,$row); printf ("<tr> <td height=30 ><INPUT TYPE=hidden name=$tab1 Value=%s></td> <td height=30 bgcolor=#f3f4b6>%s</td> <td height=30 bgcolor=#f3f4b6>%s</td> <td height=30 bgcolor=#f3f4b6>%s</td> <td height=30 bgcolor=#f3f4b6>%s</td>...
Racja, zapomniałem o tym napisać. Takie przypisanie [syntax=c]**pictab = pictabcreator(3, 4);[/syntax] to w zasadzie to samo co [syntax=c]pictab[0][0] = pictabcreator(3, 4);[/syntax] Przy okazji: usuwaj pierwszy i ostatni pusty wiersz kodu przy wstawianiu na forum.
Tak, jeśli uruchamiasz pętlę z wiersza poleceń to zastosuj pojedynczy symbol %, podwójny jest w plikach bat.
Poza tym, o ile pamiętam, bo miałem chwilę przerwy w C++, to iteratora nigdy nie przyrównuje się do size, tylko do metody end(). No i jeszcze, usunięcie elementu skutkuje tym, że iterator, który pokazywał na niego, pokazuje teraz "w kosmos", więc wykonanie na nim ++ powoduje niezdefiniowane zachowanie. Trzeba sobie przechować w zmiennej pomocniczej,...
Musiałeś się pomylić, ciężko powiedzieć bez kodu. Numer wiersza nie jest związany z pozycja, tylko z jej pozycją na liście licząc od góry. W ten sposób usuwając pierwszą pozycję, zawsze będziesz usuwał wiersz o numerze 0. Nie wiem czy to poprawnie będzie, ale ja bym stworzył nową klasę dziedziczącą po QListWidgetItem i dodał do niej własne dane, np...
Dla 3-go wiersza, od argumentu WIERSZ() musiałbyś odjąć ilość wierszy nagłówkowych. Np WIERSZ(A3:A10)-2. Aby "uodpornić" formułę na wstawianie/usuwanie wierszy najprościej jest podstawić funkcję... WIERSZ Wtedy: WIERSZ(A1:A8)+1-WIERSZ() w pierwszym wierszu, zwraca to samo co: WIERSZ(A3:A10)+1-WIERSZ() w trzecim.
Hej, Opis jak ożenić ze sobą kilka różnych płytek na jednym arkuszu w PCBNEW. Na przykładzie trzech płytek. 1 - Dla bezpieczeństwa kopiuję potrzebne pliki *.brd do nowego katalogu. 2 - Dla wygody nadaję im numerowane nazwy: "kidac_1.brd", "kidac_2.brd", "kidac_3.brd". 3 - W PCBNEW kolejno otwieram wyżej podane pliki i układam płytki tak, aby potem nie...
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]
Witam Spróbuj np programem Unlocker lub podobnym. Pewnie są zablokowane. Możesz też sprawdzić czy masz do nich pełne uprawnienia klikając prawym klawiszem na nich wybierając właściwości a potem zabezpieczenia. lub te programy: DelinvFile IObitUnlocker lub usunąć folder poprzez wiersz poleceń Uruchom wiersz poleceń jako administrator i wpisz: jako przyklad,...
Dziękuję pięknie! Działa idealnie Dodano po 1 Chciałam przerobić powyższy kod, aby usuwał wiersze z podsumowanie tzn. powinno usuwać każdy wiersz, w którym wystąpi wartość "Wszyscy klienci:" . Podkreśla mi wiersz 4 jako niepoprawny. Czy mogę liczyć również tutaj na pomoc? Set Y = Cells.Find("WSZYSCY KLIENCI:") If Not Y Is Nothing Then For Each Y In...
Na pewno potrzebna Ci będzie jedna pętla (do wyboru: Do, For), która będzie kolejno pobierała wartość komórki do porównania z kolumny A arkusza źródłowego. Dalej masz wybór. Druga, wewnętrzna pętla pobierająca wartość z E arkusza docelowego i porównanie w instrukcji warunkowej. Jeśli prawda, usuwasz wiersz. Możesz też wykorzystać metodę Find. Tu sprawdzasz...
excel usuwa wiersz wiersz excel usuwa wiersz usuwa wiersz zakres
oleju skrzyni biegów sharan magneto naprawa ładowarka akumulator latarka
sklepy elektroniczne power saver
Niedostępność kontaktu w Messengerze po odblokowaniu Lewe powietrze w Volkswagen Passat B5 - przyczyny i diagnostyka