Witaj 'Next cell ' przed 'If zmienna = False Then ' Dodano po 2 a jeszcze For Each cell In rng.rows(i).Cells
usuwanie wierszy z tabeli przy powtarzającej się wartości
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) :)
Powinno działać.
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.
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]
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...
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]
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.
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...
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...
Podaj jakiś przykładowy plik dla lepszego zobrazowania problemu.
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]
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...
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.
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...
Witaj [syntax=vb]Sub usuwanie_pustych_wierszy() For Each sh In ThisWorkbook.Sheets For i = sh.Cells(65536, "A").End(xlUp).Row To 2 Step -1 If sh.Cells(i, "B").Value = "" Then sh.Rows(i).Delete shift:=xlUp End If Next Next End Sub[/syntax]
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...
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...
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???)
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...
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...
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...
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:...
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....
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]
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...
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...
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...
Dołącz przykladowy plik
Wpisywałeś w google "excel usuwanie pustych wierszy" ? :) Zresztą to co zaproponował adamas_nt robi dokładnie to, co chcesz.
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...
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...
A skąd biorą się wiersze i jak są przypisane? Jeśli z zakresu, to usuń komórkę z zakresu...
Sądzę, że chodzi o ten warunek: If Cells(i, "B").Value = "" Then Jak daję If Cells(i, "B").Value = "10" Then to dla wiersza o tej wartości w komórce działa (może użyj .text ?) Po drugie nagrane makra z regóły trzeba uprościć wywalacąc .select (bo po co zaznaczać?) W tm przypadku : Rows(i).EntireRow.Hidden = True
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
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!!!
OKNO -> zablokuj okienka następnie dodajesz usuwasz tyle wierszy i kolumn ile potrzebujesz i jak potrzebujesz aby nie były przesuwane podczas edycji. Pozdrawiam
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...
W kolumnach L,N,O,P masz "normalne" formuły, które odwołują się tylko do danych z bieżącego wiersza. Takie formuły można kopiować bez ingerencji w inne formuły. Excel nie ma problemu z ich kopiowaniem. Jeśli chodzi o formuły z kolumn A i C, to one zawierają odwołania do innych wierszy i przy wstawianiu wierszy (a także usuwaniu) Excel nie wie, do czego...
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.
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...
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...
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ć
Zakładam, że Jan Kowalski to ta sama osoba, ale dane mogą pochodzić z różnych okresów (tutaj to nie ma znaczenia aż takiego). Mi chodzi o to, aby dane nie zostały utracone, tzn. w jednym wierszu Jan Kowalski ma podane stanowisko a w drugim już nie ma, zatem usuwając jeden wiersz tracę pewne informacje, a ta funkcja usuń duplikaty nie scali wierszy w...
Witam, Mam arkusz kalkulacyjny, który zawiera dane wyglądające w następujący sposób: Imię, naziwsko (xxxx xxxx / użytkownik) Telefon Mail Takich danych jest kilka tysięcy. Szukam sposobu, aby usunąć z arkusza duplikaty (ponieważ niektórzy użytkownicy się powtarzają) z zachowaniem unikalnego słowa. Większość użytkowników ma podane imię i nazwisko, więc...
Moja sugestia jest jednak taka, żeby te pliki wrzucić do tabeli w Accessie i tam je analizować. To a propos pytania "co byście zmienili". Jeśli już się uprzeć przy pliku, to usuwanie większej ilości wierszy pojedynczo poleceniem .Delete jest baaaardzo wolne, zagnieżdżona pętla też nie pomaga. 4 pomysły na przyspieszenie: 1. Kopiować znajdowane wiersze...
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...
dopiero zapisywanie 3 minutowe uświadomiło mi problem Dlatego też może okazać się, że usuwanie działa, ale trwa bardzo długo i wydaje się, że nie usuwa.
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...
Mam bardzo dużą ilość danych liczbowych (ponad 3mln wierszy). Czy jest sposób na to, żeby: 1. Excel wczytywał sobie tylko na przykład co dziesiąty, setny, czy n-ty wiersz? 2. W notatniku usunąć na przykład co drugi wiersz.
Function zapas(tydz, wiersz) Application.Volatile 'Excel 2k7 'Application.Volatile = True 'Excel 2k 'trochę tu latania po arkuszu :) 'szukam wiersza zawierającego tekst wt = Cells.Find(what:="Dni robocze", lookat:=xlWhole).Row 'określam pierwszą kolumnę z wielkością produkcji / zółta tabelka zKol = tydz - Range("C5")...
Nie działa, siedzę godzinę, analizuję i nie wiem o co chodzi. Ścieżka dopasowana dobrze, makro uruchamia się (otwiera klas itd.) ale nie usuwa powtarzających się wierszy.
Na bieżącym zaznaczeniu komórki w kol. A i dalej po usunięciu danych z tej komórki mają się automatycznie usuwać dane z kol. BCDE w tym samym wierszu. Natomiast dla bardziej skomplikownej wersji chciałbym aby to działało tylko w ostatnim wierszu z danymi w tym arkuszu.
Nie jestem pewny czy o to chodzi ale może jednak: [url=https://www.cognity.pl/usuwanie-wie...
Fajna funkcja. Łatwo można ją przerobić na funkcję która po podwójnym kliknięciu usuwa wiersz. Dziękuje. Przyda mi się.
...albo zrobić tabelę przestawną z indeksem w wierszu + licznik z indeksu?? :)
Sorki, że milczałem do teraz, ale byłem "trochę" zajęty ;) W przykładzie wstawianie ramki poniżej tej, w której naciśnięto przycisk. Uwagi wymaga sposób wyliczania wartości zmiennych. W arkuszu ramka ma wysokość 4 wierszy, jest 1 wiersz nagłówkowy. Nr wierszy, gdzie nastąpi wstawianie nowych dla następnej ramki to: 6, 10, 14, itd Kluczowe jest wyliczenie...
Zrobiłem już, wg tego co podpowiedziałeś za pierwszym razem. Teraz szukam zmyślnego patentu na usuwanie duplikatów pomiędzy kolumnami (te rekordy, które zostały wyjęte ze WSADu)
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...
Proponuję po numerze działki, po komunikacie typu, np.: a) Dodawanie - "Wpisz nr działki poniżej której ma zostać dodany wiersz" b) Usuwanie - "Podaj nr wiersza, który ma zostać usunięty" Nr działki podawałbym przy każdej uprawie w jej obrębie, po co "dziurawe" dane ?
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...
'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 surowe dane (z odstepami) z pliku txt wczytuję do xls, vba usuwa puste wiersze i odstępy -powyższy kod usuwa. Tylko to miałem na myśli adamas o tym...
Zrób z tego tabelę przestawną: kolumnę A do wiersza, a z B, C i D - sumę wartości.
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...
For i = 2 To arkusz.Rows.Count - 1 Na For i = 2 To 200
Jeśli chodzi zabezpieczenie komórki przed edycją, to można to zrobić za pomocą poprawności danych, ale jest to bardzo niedoskonałe. Sposób polega na wyborze wariantu "niestandardowe" i wpisaniu w miejscu formuły FAŁSZ. W takim przypadku każda próba edycji komórki spowoduje komunikat ostrzegawczy. Niestety możliwe jest skasowanie zawartości komórki klawiszem...
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...
Witam, jako, że raczkuję w VBA proszę o pomoc. Mianowicie, potrzebuje w pliku w zał. : Arkusz "Cena katalog 2019" - kolumna A - podwójne kliknięcie na daną komórkę w kolumnie A np. A5 powoduje skopiowanie danych z tej komórki do Arkusza " Oferta PDF " komórka B17. Każde kolejne podwójne kliknięcie powoduje dodanie wiersza w Arkuszu "Oferta PDF" pod...
Te dane są eksportowane z programu, żadne sortowanie ani filtrowanie nie działa, dlatego jest problem. Zastosowałem metodę kopiowania samych wartości do nowego arkusza, a później w tym arkuszu usuwanie od dołu pustych wierszy. Nie jest to najszybsza metoda, ale nie znalazłem lepszego sposobu na to.
Analizowałeś to makro? Przyjrzyj się co przypisujesz do zmiennej "multi" i to przed otwarciem pliku źródłowego. Nie powinno być With DoSkop.Worksheets("AKKO"... Set reg1 = .Range("a2:a41000")... itd Jeśli filtrujesz, to ustal maskę: fileFilter:="Pliki Excel (*.xl*),*.*," Po mojemu: Albo zostaw to (poprawione) kopiowanie...
Jeśli wynik nie zgadza się, spróbuj pokombinować z funkcjami tekstowymi. Np http://obrazki.elektroda.pl/3805960600_1... Usuwane są spacje w obu kolumnach oraz sprawdzanie wartości "przekonwertowanych" do małych liter (wtedy wielkość liter nie ma znaczenia) [syntax=text]=SUMA.ILOCZYNÓW((USUŃ.ZBĘDN...
: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...
Jeśli chodzi o proste usuwanie zduplikowanych danych: http://office.microsoft.com/pl-pl/excel/... Nieco trudniej będzie usunąć wiersze na podstawie powtórzeń w pojedynczej kolumnie.
Makro poniżej przesuwa nazwiska w prawo o wartość numeru grupy+1, a następnie usuwa puste komórki w obszarze danych. Nazwiska nie są posortowane. Jeżeli jest potrzeba. sortowania to na początku makra dopisać sortowanie.[syntax=vbscript]Sub Przepisz_Nazwiska() Dim Tab_Opis As Variant With ActiveSheet Tab_Opis = Array("Grupa 1", "Grupa 2", "Grupa 3",...
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.
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
czy jak bedzie Range A:D to bedize szukał w kolumnach A B C i D. Jezeli tak to nie bardzo mi to działa. Tak naprawde to kolumna A to data a szukana wartośc jest w kolumnie D. Dodano po 19 dzieki rozwiązałeś moj problem Kolumny B C nie sa mi potrzebne wiec makrem je usuwam.
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...
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...
Nie ma problemu - zmienimy pętlę warunkową na zwykłą. Na marginesie, jak widać w twoim załączniku, numery pisma przy "anulowaniu" dokumentu też są usuwane. Najpierw sprawdzimy ile jest wierszy, a potem pętlą będziemy sprawdzać czy wiersz nie był już skopiowany i czy ma numer zadania. Jeżeli tak to go przerzuci, jak nie "pójdzie" dalej. (taki wiersz...
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...
Z Accessem miałem styczność tylko raz i z tego co pamiętam, to nie pozwala usuwać wierszy, tzn. zostawia je puste, tworzy wiersz o nowej numeracji i tworzy się bałagan, a ja będę przekopiowywał, przenosił i kombinował na wiele sposobów, excel jest do tego łatwiejszy. Proszę jeszcze raz o pomoc w excelu;p No dobrze, sprawdzę to w domu, bo w pracy mam...
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,...
Witam W załączniku excel. Mam pytanie jak usunąć duplikaty wierszy jednocześnie przenosząc dane. Chodzi o to, że mam dwa wiersze postaci: 1Nazwa 1Adres 1s1tak 1Nazwa 1Adres 1s1 tak a chce uzyskać: 1Nazwa 1Adres 1s1taktak Potrafię usuwać samu duplikaty jeśli wiersze są takie same. Pytanie jak usunąć i przenieść dane z takiego duplikatu.
Cześć, Proszę o pomoc w napisaniu makra, które jeśli w arkuszu1 w kolumnie A, w jakimś wierszu będzie znajdować się literka "W" to wtedy skopiuje komórkę znajdującą się w tym samym wierszu w kolumnie B, wklei ją do arkusza2 w ostatnim wolnym wierszu w kolumnie A i usunie cały wiersz skąd została skopiowana. Bardzo proszę o pomoc!!!! Z góry dziękuję!!!
To tylko przykład. Ja nie widzę Twojego arkusza. Po linii "Sheets("Szablon").PageSetup.PrintArea = "$B$2:$L$41" 'obszar wydruku" wydedukowałem, że szablon ma 40 wierszy, a najszybszą metodą na usuwanie zawartości, formatowania i znaków podziału stron jest... usunąć wiersze. Główną myślą jest "Naduś przycisk i wróć jak już wszystko będzie wydrukowane"....
Wygląda to trochę inaczej niż założenia o jakich była mowa w pierwszym poście, tematy się powtarzają. Dla filtra potrzebna będzie lista unikatowych nazw tematów, realizowana w arkuszu przez wstaw>wklej specjalnie i dalej jak w moim przykładzie. Lub makro (uruchamiane np przy aktywacji arkusza "Menu") z wykorzystaniem tablicy, jeśli ma to działać automatycznie...
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.
Oczywiście, że nie. Funkcja "czyść dane" usuwa tylko wartości, o które zostaną uzupełnione pola niebieskie. Formuły - Nigdy w życiu, zostają bez zmian. Oczywiście ta funkcja działa mi poprawnie. Opis przycisków dodałem tak, dla jasności.
Moderowany przez Marek_Skalski: Kolego, Twoje pytanie nie jest bezpośrednio związane z pytanie Autora tematu. Z tego powodu sugeruję wydzielenie tematu do nowego wątku. 3.1.19. Nie wysyłaj wiadomości w tematach archiwalnych, jeśli jest to kolejne pytanie, w szczególności inne niż osoby pytającej. Z racji szacunku do pytającego załóż własny temat. Możesz...
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,...
Aby zrobić "szóstki" na podobnej zasadzie jak "dwójki" excel by musiał mieć 13.983.816 wierszy (liczba wszystkich kombinacji). Niestety excel ma "tylko" 1.048.576 wierszy. Usuwając kolumny można jeszcze trochę zwiększyć, ale gdzie 1 milion do prawie 14 milionów. Co prawda można powielić to w kolumnach (14 razy 6 kolumn plus po jednej na datę wyniku)...
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...
Mogę mieć plik w tym samym miejscu i z tą samą nazwą. Do tego dążę - żeby zautomatyzować. Nie chcę tabeli przestawnej bo muszę pracować na tych danych. Przerabiałam to już i się to nie sprawdziło. Dobra odpuśćmy ten temat. Czy możesz mi powiedzieć jak ponumerować wiersze, aby numery szły kolejno, ale jeśli wiersz się powtarza to zwróci ten sam numer?...
Sortować możesz wg kilku poziomów tak, żeby nie "gubić" rekordów. Nie napisałeś tylko co z wierszami, w których ilość jest zerowa (pusta). Dalej nie wiemy czy to oznacza, że produkcja trwała dwa dni (Rys.2 wiersz 2,3) czy to, że w danym dniu (wrs.3) nic nie wyprodukowano... Pozostaje pytanie: Chcesz scalać wiersze, usuwać te z pustą ilością, czy sortować...
Dzięki wielkie. Mam jeszcze jedno pytanie. Co może być powodem, że podczas używania funkcji ZŁĄCZ.TEKSTY(imie;" ";nazwisko) w niektórych komórkach z imieniem i nazwiskiem zostają podwójne spacje, mimo że wcześniej usuwam je funkcją usuń zbędne odstępy. W niektórych wierszach wszystko jest ok, a w niektórych są trzy spacje. Co może być tego powodem?
Szanowni Forumowicze, bardzo proszę o pomoc - przeszukałem dużo for i ciągle mam problem z jedną rzeczą. 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. Problem jaki mam to fakt, iż usunięcie "x" w arkuszu1 nie usuwa...
usuwanie wierszy excel excel usuwanie pustych wierszy usuwanie wierszy makro excel
uln2003 zamiennik montaż front zmywarka amplituner instrukcja
obrotomierz skacze wskazówka amica pa4560a420
Iskrzenie komutatora i dym z silnika odkurzacza Zelmer, Bosch, Samsung – diagnoza i naprawa Ford Galaxy Mk2 Anglik – zamek i wiązka w tylnych drzwiach, różnice RHD/LHD, diagnostyka usterki