W kolumnie D nie widzę w ogóle Z. Po analizie jak to działa stwierdzam, że: 1) Chciałem usuwać te pliki hurtem, żeby było szybciej, ale okazuje się, że to za dużo i jednym poleceniem odwołującym się do tablicy z nazwami tego się nie da zrobić. Widocznie jest jakieś ograniczenie, którego nie znam. Wobec tego trzeba usuwać pojedynczo. Dopisałem nową procedurę...
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...
W takiej pętli najlepiej usuwać wiersze od końca, coś takiego: [syntax=vbscript]ost_w = Cells(Rows.Count, "A").End(xlUp).Row For w = ost_w To 2 Step -1 If Cells(w, "A").Value = szukany_numer Then Rows(w).Delete shift:=xlUp End If Next w ost_w = Cells(Rows.Count, "A").End(xlUp).Row Cells(ost_w + 1, "A").Value = "nowa wartość na końcu..."[/syntax]
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?...
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.
Jakby tak jeszcze równie łatwo szło zaznaczyć wszystkie wiersze (a potem 'usuń') w których określona komórka spełnia określony warunek, jo już byłaby pełna rewelacja. Witam, Jak wyglada kolumna z danymi, czy wszystkie komorki zawieraja dane? Czy mozesz zamienic ujemne na puste? Jezeli tak to sprobuj tak: Zaznacz kolumnę z danymi, która zawiera te puste(wczesniej...
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...
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...
Witam Jestem dopiero na początku nauki programowania w języku VBA. Potrzebuję pomocy w temacie kasowanie pustych wierszy. mam napisane Do While Cells(wiersz, kolumna) = "" Rows(wiersz).Select Selection.Delete shift:=xlUp wiersz = wiersz - 1 Loop Jeżeli w kolumnie 1 jest pusty wiersz to usuń cały. tak miało działać.' jednak usuwa mi tylko 1 wiersz a...
Witam 1 Muszę usunąć zbędne wiersze (te na czerwono), zostawić tylko 1szy i ostatni. 2. zaznaczyć 1szy i ostatni(te na żółto) w przedziale czasowym na nocnej zmienie, gdzie zmiana rozciąga się na dwa dni kalendarzowe u każdego z kilkudziesięciu pracowników. Stałe są godziny od 15:00 do 3:00 rano Oraz 5:00 do 15:00 Oczywiście pracownicy są jeden pod...
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...
Cześć, Potrzebują pomocy z następującą sytuacją. Mianowicie mam raport w Excelu, z którego usuwam codziennie niepotrzebne dane. Używam do tego następującego kodu, który duplikuje tyle razy ile potrzebuję różnych rzeczy do usunięcia: [syntax=vbscript] Last = Cells(Rows.Count, "A").End(xlUp).Row For i = Last To 1 Step -1 If Cells(i, "F").Value Like "ABC"...
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ć...
Witam, Mam problem z makrem, które znalazłem na forum i które staram się przerobić pod moje potrzeby. Docelowo, makro ma sprawdzać czy w komórce w kolumnie F arkusza 1 jest wyraz "tak" i jeżeli to się potwierdzi to kopiować w pierwsze wolne miejsce w kolumnie D akrusza 2 zawartość komórki B arkusza 1. I jednocześnie usuwać ten wiersz z arkusza 1. Poniżej...
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...
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...
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...
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
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,...
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...
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")
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",...
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.
W Excelu nie ma sensu deklarować obiektu typu "Excel.Application". Wystarczy "Open". Próba nałożenia filtru na jeden wiersz zakończy się błędem, dlatego należałoby określić ostatni w tabeli. Pamiętaj o usuwaniu zmiennych obiektowych z pamięci. Spróbuj[syntax=vb]Private Sub CommandButton1_Click() Dim xl As Workbook Set xl = Workbooks.Open("C:\Documents...
.. 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...
Fajna funkcja. Łatwo można ją przerobić na funkcję która po podwójnym kliknięciu usuwa wiersz. Dziękuje. Przyda mi się.
Wiersze ze słowem kod, jeden za nim i wiersz z kwotą 0,00.
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...
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")...
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...
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.
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]
Witam Do postu #3 Ale wtedy ten wiersz pozostanie: X204Inne003:46
Napisałem coś takiego: [syntax=vb]Sub Przycisk6_Kliknięcie() Application.DisplayAlerts = False Application.ScreenUpdating = False Workbooks.Open Filename:= _ "C:\Users\Desktop\RAPORT already late\test.xlsx" Sheets(1).Activate ten = "C:\Users\Desktop\RAPORT already late\test.xlsx" 'nazwa pliku raportu sciezka = ThisWorkbook.Path & "/" ' sciezka do...
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ść! Mam do obróbki pliki excel w formacie csv w której znajduję się milion pozycji. Jest to tak naprawdę odczyt 10 sekundowego przebiegu z oscyloskopu. Chciałbym z tego pliku wybierać co 100 odczyt i na tej podstawie wykonać wykres. W jaki sposób mogę usunąć wiersze z arkusza i zostawić tylko co 100 wiersz? Dzięki
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.
Podaję przykładowy kod procedury sumującej wiersze zawierające takie same dane w kolumnie "A". Dane muszą być posortowane.[syntax=vb] Sub Sumuj_Wiersze() With ThisWorkbook.Worksheets("Arkusz1") ostatnia = WorksheetFunction.CountA(Columns(1)) + 1 For wiersz = ostatnia To 2 Step -1 If .Cells(wiersz, 1).Value = .Cells(wiersz - 1, 1).Value Then 'sumowanie...
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
usuwa puste wiersze Dlatego napisałem że w '3.33.333' na drugiej po e nie jest pusty wiersz dla tego kodu powyżej.
Jest super, a powiedz mi jak zrobić taki samo makro "dodaj dodaj wiersz" tak aby na raz dokładało 5 wierszy Chciałbym dać jeszcze przycisk do usuwania wierszy jak doda się za dużo
Zacznę od tyłu. c. Grafiki na arkuszu czwartym nie są w żadnej tabeli. Obrazki nie są zawartością żadnej komórki, więc nie znajdziesz formuły, którą przeniesiesz je na inny arkusz. Za pomocą VBA możesz je przenosić, kopiować w inne miejsca, usuwać. Ale to już wymaga trochę więcej zabawy. ponad a. Schowaj pole powiązane z Combo pod nim a w komórce 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...
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 ?
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...
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...
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ę!!!
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....
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...
Trzeba poskładać wszystko i dopiero drukować. Coś w stylu a co to znaczy pagebr = 42 ??? skąd ta wartość??? i poco w szablonie usuwać resztę pustych wierszy???
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...
Można usuwać puste wiersze na dwa sposoby. Pierwszy: 1. Zaznacz cały rejestr razem z wierszem nagłówka ( jak to szybko zrobić patrz PS ) i z menu Dane wybierz polecenie Filtr/ Autofiltr . 2. Rozwiń jedną z list i wybierz pozycję Puste . Widoczne będą tylko puste wiersze. 3. Zaznacz całe wiersze, które chcesz usunąć, kliknij jeden z nich prawym przyciskiem...
excel usuwać wiersz wiersz usuwać wiersz excel usuwać puste wiersz excel
saeco czyszczenie połączenie rozmowa pralka amica filtr pompy
spreżyna pralki separator fakra
Samsung RV511 – czarny ekran po wymianie klawiatury, działa z monitorem zewnętrznym Audi A1 – jak utrzymać tarcze hamulcowe bez rdzy? Powłoki Brembo UV, ATE Coated, Zimmermann Coat Z
