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...
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")
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...
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...
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...
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",...
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
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...
To nie idąc na łatwiznę, w ramach nauki, algorytm powinien wyglądać następująco: • ustalasz ilość wierszy do wyszukiwania na podstawie ostatniej nie pustej komórki w kolumnie E • w pętli przechodzisz poszczególne wiersze w kolumnie E porównując czy wartość w komórce jest zgodna z szukanym wzorcem np. "WSTRZYMANY" • jeżeli nie jest...
usuwa puste wiersze Dlatego napisałem że w '3.33.333' na drugiej po e nie jest pusty wiersz dla tego kodu powyżej.
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?...
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...
Dzień dobry, Proszę o pomoc przy pisaniu makra, gdyż w jednym miejscu zaciąłem się na dobre. Nie znam dobrze VBA, uczę się powolutku na swój sposób, dlatego proszę o wyrozumiałośc jesli kod jest niepotrzebnie długi, a komendy bardzo prymitywne :) Co potrzebuję zrobić: W jednym arkuszu xls mam wzór faktury do wystawienia, wypełniam odpowiednie pola (zajmują...
A pisałem że to jeszcze nie koniec. :) Co do zmian pozycji magazynowych to nie do końca przekonany jestem czy da się to prosto przełożyć. O ile z edycją i zmianą nie powinno być kłopotu o tyle z usunięciem nie do końca. W Ankiecie by lista była "ładna" wykorzystuje sortowanie więc usuwanie zrealizowałem właściwie tak samo jak wprowadzenie zmian, tylko...
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, Proszę o pomoc w napisaniu makra, które będzie usuwało całe wiersze, w których data będzie starsza niż 2016-05-02 (kolumna z datą to kolumna B) we wszystkich arkuszach. Znalazłam na jakiejś stronie kod z pętlą, która przechodzi przez wszystkie arkusze, ale nie potrafię napisać kodu odpowiadającego za usuwanie wierszy. Proszę o pomoc :) Dodano...
Cześć, Poniżej napisałem kod odnośnie kasowania całego wiersza w Excelu za pomocą przycisku. Nie wiem dlaczego, ale wartości wprowadzone po przez user form do różnych komórek w wierszu pozostają w tych komórkach, mimo że kod powinien wyczyścić wszystkie komórki. Czy ktoś może mi napisać jak zmodyfikować ten kod, aby na pewno wyczyścił cały wiersz? [syntax=vb]Private...
Cześć, Chciałbym w pliku excela osiągnąć taki efekt, że puste wiersze są automatycznie ukrywane, ale jednocześnie odkrywa się po kolei każdy kolejny wiersz gdy w jednej z komórek w wierszu wyżej (nad nim) pojawi się cokolwiek. Chodzi o to, że użytkownik pliku ma wiele wierszy do wypełnienia, ale nie zawsze musi wypełnić je wszystkie. Na końcu tabeli...
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 takie pytanko: czy jest możliwość stworzenia takiego makra, żeby wstawiało puste wiersze, ale nie przed kazdym kolejnym wierszem jak we wzorze poniżej jest tak: 1 wrocław 2 kraków 3 kraków 4 kraków 5 warszawa 6 warszawa a chciałabym, żeby było tak: /pusty wiersz/ 1 wrocław /pusty wiersz/ 2 kraków 3 kraków 4 kraków /pusty wiersz/ 5 warszawa 6 warszawa...
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ść, chciałam mieć makro które usunie w poszczególnych zakładkach po 3 określone wiersze, coś jednak mi nie wychodzi, mam wrażenie, że się zapętla. napisałam coś takiego: Sub Makro4() Dim arkusze, arkusz arkusze = Array("(1)", "(2)", "(3)", "(4)", "(5)", "(6)", "(7)", "(8)", "(9)", "(10)", "(11)", "(12)", "(13)", "(14)", "(15)", "(16)", "(17)", "(18)",...
Witam, potrzebował bym małej pomocy. Otóż mam tabele tak jak poniżej. W tabeli mam wiersze które się dublują. Niestety nie dublują się one w kolumnach tylko w wierszach co utrudnia sprawę. http://obrazki.elektroda.pl/8507180000_1... Czy ktoś by mógł podpowiedzieć jak usunąć zdublowane wpisy pozostawiając tylko oryginał czyszcząc tylko...
Witam, w Arkusz1 mam bazę danych identyfikowaną po numerze (liczba) w kolumnie A (dane posortowane rosnąco po kolumnie A) np. A B 1 ble ble 2 coś tam 3 coś tam jeszcze w Arkusz2 mam kolejną bazę, gdzie znajdują się bardziej rozbudowane dane, ale opierają się na tym samym identyfikatorze co w Arkusz1, z tym że tutaj znajduje się on w kolumnie E Potrzebuję...
Być może ten temat już był wyjaśniany ale przeglądam forum i nie mogę, niestety, znaleźć odpowiedzi. Mam w arkuszu obszar ukryty. Mam wypełnione wiersze przed i za tym obszarem. Powiedzmy, że ukryty obszar ma 100 wierszy. Wpisuję tam dane w kilku kolumnach, a w jednej jest formuła, która coś mi wylicza. Na starcie widoczny jest tylko pierwszy wiersz...
Witam wszystkich forumowiczów! Jestem absolutnie początkujący jeśli chodzi o programowanie w VBA w Excelu, a potrzebne mi jest makro, które (po jego aktywowaniu np. kombinacją klawiszy) wytnie jeden wiersz z jednego arkusza i wstawi go do drugiego, w pierwsze wolne miejsce. Skoroszyt będzie się składać z 3 Arkuszy. Chciałbym, aby była możliwość przenoszenia...
Cześć, mam problem którego nie potrafię rozwiązać, może jest mi ktoś w stanie pomóc. Mianowicie potrzebuje wykonać w swoim Arkuszu w Excelu automatyczne ukrywanie pustych wierszy, gdzie wartość w danej komórce jest mniejsza niż 1. Korzystam z takiego kodu VBA: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "E23" Then If...
Witam, Chcę stworzyć makro, które będzie pozostawiało co trzeci wiersz, a resztę usuwało. Czy mógłby mi ktoś pomóc?
Witam. Posiadam magazyn zrobiony w excelu, gdzie są wczytywane kody kreskowe za pomocą skanera, po czym komórka zostaje zablokowana. Teraz potrzebuję odwrócić proces, by po odczytaniu kodu kreskowego, komórka w której się znajdował taki kod, była odnaleziona i usunięta. Najlepiej, by został usunięty cały wiersz i nie zostawało puste pole. Z góry dziękuję...
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...
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. Chciałbym za pomocą Visual Basic .Net przeszukać plik Excela i jeśli w kolumnie załóżmy od B2 do B200 będzie pusta komórka to, żeby za pomocą VB.Net skasować cały wiersz. Jest to możliwe???Proszę o pomoc Dodano po 20 Znalazłem coś takiego jak poniżej na zdjęciu tylko że napisane w VBA. Działą tak ja bym chciał czyli przeszukuje kolumnę B i jeśli...
Witam Tabela z uprawami - po wprowadzeniu działek do arkusza (kolumna C i D) okazuje się ze na niektórych polach jest więcej niż jedna uprawa. Wtedy wstawiam wiersz poniżej danej działki i wpisuję kolejne uprawy na danej działce (tylko kolumna E, G, F, natomiast C i D zostają puste w tym wypadku). Podobnie z usuwaniem zbędnych wierszy w danej działce....
Witam. Szukam makra, do excela, które będzie przeszukiwało cały wiersz numer 1, w celu znalezienia wartości np.: MSISDN oraz KOD SPRZEDAWCY I kiedy znajdzie taki wpis - usunie całą kolumnę "MSISDN" oraz "KOD SPRZEDAWCY" wraz z wartościami i danymi, które znajdują się poniżej tej komórki. Dodam, że tych niepotrzebnych wartości jest około 11, a sama oryginalna...
Maćku, Dzięki za głos, dostałem już odpowiedź z innego źródła ale przeklejam tutaj dla potomnych CYTAT: Przekopiuj kategorie do usunięcia do nowego arkusza w pliku z klientami (powiedzmy, że jest to Arkusz2 zakres A1:A300) W kolejnej wolnej kolumnie w bazie klientów powiedzmy, że jest to D w D1 wpisz "do usunięcia" Zakładam, że kolumna z kategorią to...
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...
Witam, Jestem początkującym w VBA. Potrzebuje pomocy w jednym temacie: Chciałbym uzyskac takie makro że jak zaznacze np zakres komórek A6:B11 to chciałbym tylko w tych miejscach zwiekszyc liczbe wierszy i za pomoca wpisania konkretnej liczby wierszy (InputBox). Ważne dla mnie by dodanie wiersza synchronizowane było z okienkiem w kolumnie B tzn: zeby...
Nie wiem po co aż tak namieszałaś z "i" - no ale... widocznie tak ma być. Owszem pętla nie wykona się jeżeli "i" jest większe od 6 (until i>6 ) Ale zobacz co jest pod tym zapisem : i=i+1 czyli pętla się "otworzyła" jeszcze przy i=6 i zaraz za nią od razu "i" dostaje wartość 7 A jeszcze później jest c.Value = MyLocation( i + 1 ) Nie masz lokacji ani...
OK w takim ja razie ja brutalnie wykorzystam Twoją chęć pomocy :) a tak poważnie to byłbym bardzo wdzięczny gdybyś pomógł znaleźć jakieś rozwiązanie (chodzi o to że ja wogóle nie za bardzo mam pomysł czy coś takiego da się wogóle zrobić...) na czerwono zaznaczyłem problemy z którymi się borykam Chodzi o to, że jak są różne numery faktur (np. MASARNIA-FAKTURA...
Ta linia ostwiersz = .UsedRange.Rows.Count liczy ile zajmujesz wypełnionych wierszy. W załączonym pliku post wyżej masz wstawione 3 puste wiersze nad nagłówkiem tabelki i stąd problemy. Makro wiersz Nr 50 "widzi" jako 47... Jeśli musisz je tam mieć to wpisz dowolny tekst w dowolną komórkę każdego wiersza i zmień czcionkę na białą (będzie niewidoczny)...
Witam, byłbym wdzięczny za pomoc. Potrzebuję makro, które pomogło by w poniższym opisie. W Arkusz1 mam dane dotyczące kilku firm i teraz potrzebowałbym, aby zliczało mi ilość wierszy dla danej firmy do Arkusz2 z pominięciem tych, gdzie w kolumnie J jest " OK " i z podziałem na dane z kolumny A Przykład: Firma Firma_1 z kolumny C ma w totalu 19 wierszy...
Witam Mam takie makro. W kolumnie A w arkuszu są wpisane nazwiska . 1-Zadaniem makra jest wyszukanie wszystkich takich samych nazwisk i wyświetlenie ich . 2-jeśli jest pusty wiersz w kolumnie ; to ma przejść do następnego z nazwiskiem 3- jeśli są trzy kolejne puste komórki to makro ma się zakończyć Teraz makro szuka, ale zatrzymuje się jak jest puste...
Makro do przetestowania. Uwagi: 1. Najlepiej wrzucić kod do modułu "normal.dotm". Najprościej: otworzyć Worda z menu 'Start', nagrać dowolne makro wybierając miejsce przechowywanie "szablon globalny". Następnie zastąpić je poniższym, włączyć referencje i zamknąć Worda z zapisem szablonu. Makro będzie dostępne w każdym dokumencie. Żeby nie rozsyłać makra...
Witam. Możliwe że podobny temat gdzieś tutaj był, lecz przyznam że nie potrafiłem znaleźć. W sumie tak do końca to nie wiem nawet jak to nazwać. Mianowicie mam dwa arkusze (I i II) z tabelami i chciałbym je umieścić w kolejnym arkuszu (III). Tabele składają się z trzech kolumn- nazwy i dwóch z wartościami. Chciałbym, żeby ta nowa tabela zawierała całą...
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...
Dalej nie do końca jasne. Z tego, co Pani napisała rozumiem, że lista będzie tworzona każdego dnia od początku, czyli nie chodzi o usuwanie pojedynczych pozycji z listy, tylko całej listy. Wydaje mi się, że ta lista zachowuje się prawidłowo po usunięciu wszystkich pozycji, kłopoty są tylko gdy Pani będzie chciała usunąć coś ze środka listy, pozostawiając...
Chciałbym umieszczać wiersze jeden pod drugim wg LP Tak samo chciałbym usuwać wiersze puste z zakładki "Sprawy" Procedura zdarzeniowa, którą sugerujesz byłaby jeszcze lepszym rozwiązaniem. Tak jak pisałem wcześniej, vba to dla mnie póki co magia, ale robię co mogę aby stała się nauką :) Poniżej procedura, która idzie o krok dalej. Chodź końca nadal...
Z VBA w Excelu mam do czynienia od niedawna i chciałbym prosić o pomoc z kodem jakim dysponuję. Powstał on poprzez rejestrację makra i skopiowanie pewnej części z sieci. Ta zarejestrowana część nie daje mi spokoju bo można to osiągnąć w bardziej uniwersalny sposób dla wszystkich arkuszy w pliku. Tak więc chciałbym aby zawartość komórek w zakresie od...
dziękuje, Mam jeszcze jedno pytanie , chciałabym, aby w pliku działała walidacja na brak danych. A dokładniej w sytuacji kiedy w której z komórek kolumny H zostanie wybrana pozycja "Oględziny inne" to wówczas w odpowiadającej komórce z kolumny I (ten sam wiersz ) trzeba będzie wybrać powód, jeżeli nie zostanie on wpisany przy próbie wysłania e-maila...
Cześć, potrzebuje napisać makro VBA w Excelu które: - będzie otwierać wszystkie pliki *.xlsx w katalogu w którym znajduje się uruchamiany plik skoroszytu (ew. będzie można wskazać kilkanaście plików w oknie wyboru) - z każdego pliku zostanie skopiowany zakres $$ i doklejony do arkusza "zaimportowane" w pliku w którym jest makro - po zaimportowaniu wszystkich...
usuwać puste wiersz excel usuwać puste wiersz excel puste wiersz
rover lampka mentor graphic naprawa kolumny głośnikowej
tarczki sprzęgła spreżyna pralki skrzypi
Lodówka Haier - problem z wyświetlaczem temperatury Kolejność przekładek foliowych w Sony 32WE615
