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...
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",...
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...
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...
Nie no np taka sytuacja plik1.txt : 1 2 4 6 7 8 plik2.txt (po dodaniu lini) 1 2 3 4 5 6 7 8 ,czyli najlepiej program pobiera pod dwie zmienne zawsze pierwszy wers z kazdego pliku i porownuje . Jezeli wartosci zmiennych takie same to te linie usuwa. Jezeli rozne to usuwa dana linie z drugiego pliku i zapisuje do pliku wynikowego. W konsekwencji chce...
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...
Proszę o pomoc w rozwiązaniu błędów wyskakujących podczas dodawania książki do bazy danych za pomocą formularza dodawania książki i dodawania kategorii za pomocą formularza dodawania kategorii? Dodawanie ksiÄ Ĺźki Warning: mysql_query() [function.mysql-query]: Access denied for user 'ODBC'(at)'localhost' (using password:...
Witam wszystkich, Od razu zaznaczam, że nie liczę na gotowca. Chciałbym poprosić Was o wskazówki / małe podpowiedzi jak napisać makro które : zakładając, że arkusz jest posortowany wg numeru zamówień Sprawdza kolumnę nazwaną " Order-ID " i jeśli Id jest np 000223 to patrzy w kolumnę klient widzi 17 , sprawdza kolumnę niżej gdzie znów jest ID 000223...
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")
Jakoś dziwnie masz to zrobione, ale tak na szybko to podmień na [syntax=vbscript]Cells(j, t).Delete xlShiftUp[/syntax]
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...
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...
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.
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...
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ę...
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...
Witam Jestem poczatkujaca a badziej jest to moje raczkowanie z VBA. Mam podobne pytanie bo nie dziala mi kod. Mam tabelę w kolumnie A i B majaca 20 wierszy i chcialabym zeby usunac caly wiersz i zeby nie stworzylo sie miejsce puste jesli beda wystepowac nastepujace slowa w kolumnie A Na podstawie kodu ktory jest podany chcialam stworzyc podobny Prosilabym...
usuwa puste wiersze Dlatego napisałem że w '3.33.333' na drugiej po e nie jest pusty wiersz dla tego kodu powyżej.
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...
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...
Cześć, potrzebuję zablokować możliwość usuwania raz wpisanych wierszy i kolumn. Gdy używam opcję 'Chroń arkusz' z zaznaczeniem wszystkich opcji dla użytkownika poza 'usuwanie kolumn/wierszy' to blokuje mi możliwość jakiejkolwiek edycji którejkolwiek z komórek, czy to pustej czy z danymi. Wiem, że trzeba w opcji 'Formatuj komórki' w zakładce 'Ochrona"...
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...
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....
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...
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?...
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...
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
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ą...
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...
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...
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...
Hej, witam serdecznie. Usiłuję zrobić makro, które będzie mi po naciśnięciu przycisku "Copy" kopiowało całą tabelę wraz z przyciskami o 12 pól niżej. Tak, aby powstała druga identyczna tabela. Nagrałem macro, dodalem póżniej pętle, ale po naciśnięciu "Copy" tabela jakby nie kopiuje sie (?). Potrzebuję wsparcia. Dobrze, gdyby przycisk "Clear" usuwal...
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...
Zmieniłem trochę kod, ale w dalszym ciągu nie wiem jak zrobić żeby usuwało datę bieżącą jeśli w danym wierszu wszystkie komórki będą puste
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...
Proszę o pomoc w napisaniu poprawnie makra usuwającego puste wiersze we wszystkich arkuszach (założenie makra: usuwa wszystkie puste wiersze we wszystkich arkuszach skoroszytu;liczba arkuszy dowolna) Póki co mam tak (i niestety na tym się"zawiesiłam" :()[syntax=vb]Sub usuwanie_pustych_wierszy For i = Cells(65536, "A").End(xlUp).Row To 2 step -1 If Cells(i,...
Jak to zrealizować? Co napisać w Controlerze, co w modelu, a co w widoku? Może mi ktoś to objaśnić? Z góry wielkie dzięki. Pozdrawiam. Dla mnie kasowanie zer, to założenia do Modelu. Niektórzy by dyskutowali, że to 'reguły biznesowe' (czyli część kodu bardziej płynna) ale też związana z modelem. Po czym poznać że Model? Postawić swoją hipotezę (np...
naprosto Range("A2:" Cells(Rows.Count, "C").End(xlUp).Row )= "New" Hm rozumiem, że chodziło ci o coś takiego: Range("A2" & Cells(Rows.Count, "C").End(xlUp).Row) = "New" To niestety nie działa. Całe makro przechodzi jednak nie wpisuje "New" do kolumny A (od A2). Komórki niestety są puste tak jak były wcześniej.
Cześć, w kolumnie B są daty, tekst lub puste komórki. Napisałem coś takiego (poniżej), ale usuwa mi wszystko tak jakby nie robił sprawdzenia czy.liczba - dlaczego? [syntax=vbscript]Dim i As Integer Dim n As Byte i = i + 1 For n = 1 To 20 If Application.WorksheetFunction.IsNumber("... & i) = True Then i = i + 1 Else Rows(i).Delete End If Next n[/syntax]
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, 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...
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. 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...
Dzień dobry, Chyba doszło tu do jakiejś nieścisłości. Funkcje w Excelu służą do wykonywania obliczeń i zwracają wynik do miejsca wywołania. Funkcja WYSZUKAJ.PIONOWO nie jest tu żadnym wyjątkiem. Usuwanie danych wymaga procedury czy podprogramu, albo wbudowanego, albo napisanego przez użytkownika w Visual Basicu. O co tu mogło więc chodzić? Być może...
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...
Użyj wyrażeń regularnych, napisz skrypt PowerShell : np o nazwie "...zamiana.ps1" twój tekst będzie w pliku np:"F:\Klient\Documents\test.txt" dopisane godz. 21:33 No jednak nie bardzo można łamać wiersze w jednym poleceniu. PowerShell lub może czegoś nie wiem, ma kłopot z zamianą znaków nowej linii w wyrażeniach regularnych. Znalazłem gdzieś że można...
Moim zdaniem źle podchodzicie do problemu. Zamiast bawić się z wartościami domyślnymi, zrobiłbym tak, że przede wszystkim przetwarzam każdy wiersz osobno metodą (zamiast kodu spaghetti) i w tej metodzie usuwałbym z pozycji klucza te elementy, które wychodzą poza długość przetwarzanego fragmentu. Coś takiego: [syntax=csharp] class Program { static void...
Chcę uzyskać przeniesienie całych wierszy z Arkusza1 do Arkusza2 jeśli zostanie spełniony określony warunek. Jeśli w kolumnie stan pojawi się wartość "Zakończony" to całe wiersze mają być przeniesione do Arkusza2, natomiast w Arkuszu1 wykasowane. W załączniku plik Excel Cześć! Rozumiem, że chcesz, aby wiersze z Arkusza1, które spełniają określony warunek...
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 Problemy sa dość skomplikowane ponieważ kupiłem Laptopa HP Pavilion dv6000 (Model to dv6525em). Chciałem sobie ułatwić sprawe i do istniejacej Windows Vista (kazdy wie jakie sa problemy z nowym systemem).... zainstalowalem Windows XP dodatkowo do Laptopa czyli korzystając z pustej partycji (C;)109GB dysku zainstalowałem XP nie usuwając Windows...
excel usuwa puste wiersz usuwa wiersz puste wiersz
zdalne otwieraniem pasek zawilgocenia centralka domofonu impuls
najlepszy multimetr zasilacz impulsowy schemat
Naprawa poprzeczek w bębnie pralki Candy - jak to zrobić? Kody komponentów SMD - identyfikacja i znaczenie
