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,...
załącz plik
Do makra można przypisać skrót klawiaturowy, ale nie może to być ani "'" ani F9 tylko konstrukcja typu Ctrl+Shift+A Można też uruchamiać makro za pomocą przycisku lub przypisać je do kliknięcia w obraz lub kształt.
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]
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...
No tak, bo funkcja: każdego wiersza? Jeżeli tak, to zmień kolumnę z "A" np. na "B" lub "C"...
Tu wersja poprawiona i uzupełniona o usuwanie pustych wierszy w 'Brudnopisie', zmiana formatu komórek w arkuszach i parę innych rzeczy. W związku z tym, że trochę to jednak pracy kosztowało 1pkt. za załącznik.
Ale jakich makr nie umiesz stworzyć? Ja tego nie zrozumiałem. To po kolei: 1. Do arkusza "Firma 1" wklejam dane z innego pliku od kolumny E do AB - mniej ważne gdzie to wklejasz, ważniejsze co dokładnie. Czy umiesz określić zakres do kopiowania? np. A5:Z123, albo kolumny A do Z od wiersza 5 do ostatniej wartości w kolumnie C (nie może być w tej kolumnie...
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.
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...
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...
Witam Życzliwych ;) mam prosty dla killerów VBA problem. Otórz mam makra, które zwykle chciałbym stosować do kilku/nastu/dziesięciu/set plików excela, które zwykle znajdują się w 1 folderze. Makra są banalne, np - po eksporcie z SAP mam zwykle wiele plików, które na wstępie przejeżdżam takim, które usuwa mi zbędne puste kolumny i zbędne puste wiersze....
Potrzebujesz dwóch, zagnieżdżonych pętli. Taka najprostsza przeróbka kodu z postu #1 [syntax=vb]Sub otworz_pliki() Dim MyFile As String, arkusz As Worksheet, wkb As Workbook Dim wrs As Long, dstArk As Worksheet Set dstArk = ThisWorkbook.ActiveSheet wrs = 1 MyPath = "D:\Dane\" MyFile = Dir(MyPath) Application.DisplayAlerts = False 'wyłączymy pytania...
Witam. - Jak mogę edytować zapisaną listę DNS? Należy wpisać wybrane numery IP i ewentualnie adresy www i opisy w oknie sekcji "Serwery DNS", a następnie zapisać zmiany za pomocą opcji dostępnych w menu "Plik". - Jak mogę dodać więcej, niż 3 adresy DNS i strony? Wciśnięcie strzałki w dół w ostatnim wierszu powoduje dodanie nowego wiersza. Analogicznie,...
Argumentem funkcji IsNumber ma byc komorka (Range("B" & i)), "B" & i jest zwykly tekst
Wpisywałeś w google "excel usuwanie pustych wierszy" ? :) Zresztą to co zaproponował adamas_nt robi dokładnie to, co chcesz.
super! dodałem i wszystko działa jak należy!! Miałem tylko problem z usuwaniem pustych wierszy... napisalem makro kasujące gdy jakieś pole jest puste... działa ale bardzo długo przelicza.... Poniżej makro: Sub Kasuj() For i = Cells(65536, "A").End(xlUp).Row To 3 Step -1 If Cells(i, "B").Value = "" Then Rows(i).Delete shift:=x1Up End If Next End Sub...
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.
1)Prawie super tylko nie wiem dlaczego nie bierze pod uwagę ostatniego wiersza bez względu na liczbe w danym arkuszu?? 2)Jeszcze mam jedno pytanko w sprawie kasowania.Chciałbym usunąć wiersze zawierające konkretny tekst próbowałem użyć formuły do usuwania pustych wierszy ale nie wiedzieć czemy po wstawieniu konkretnego słowa nie działa próbowałem też...
Witam, mam następujący problem. Potrzebuję makro, które ukryje wszystkie wiersze w aktywnym arkuszu dla których w kolumnach D:AD wartości równe są zero. Przy czym nie chce żeby usuwało wiersze z pustymi komórkami. Będe wdzięczna za pomoc. Markiza
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...
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...
Prośba o sprawdzenie kodu. Kod składa się z 5 "oddzielnych" programów, które pojedynczo (1 z nich zostawiam, a resztę zakomentuję) działają. Problem pojawia się, gdy chcę go uruchomić jako całość. W 60% przypadkach coś nie działa. Program wykona się cały bez errorów, ale 1) często wczytuje dane, a potem nie usuwa pustych wierszy 2) źle porównuje obie...
Nie mogę używać WinAPI, program ma być łatwo przenośny na wszystkie platformy bez dodatkowych bilbliotek itp. Z tym pustym wywołaniem fwrite jest problem nie chce tego przyjąć: empty character constant...
Dzień dobry. Natknąłem na ścianę w tworzeniu automatycznego raportu. Raport składa się z nazw projektów i ich realizacji w kolejnych miesiącach za pomocą skali RAG (red, amber, green). Importuję dane z pliku .xlsx i automatycznie mi je zaciąga do raportu. Problem jednak pojawią się gdy chcę załadować kolejny import z następnego miesiąca. Nie wiem jak...
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???
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.
(at)ArutlupeS Jeżeli nie wiesz jak to zrobić to otwórz notatnik, na pulpicie bo tam zapewne masz FRST. Do notatnika wklej wiersze wyszczególnione przez Kolobosa i zapisz notatnik z nazwą : fixlist.txt Następnie w FRST kliknij zakładkę "napraw". Utworzy się nowy plik.
aby usuwał/czyścił kolejny wiersz jesli to 'nw', to on zawsze czysty, na ktorym arkusze ten "kolejny" kod mozna skrocic Ok faktycznie skrócony kod działa i kupuję wartości z komórek do arkusza TABELA Z DANYMI w kolejnym pustym wierszu, a teraz chodziło by mi o to by usuwał wartości z ostatniego uzupełnionego danymi wiersza w arkuszu TABELA Z DANYMI
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...
ponownie dziękuję za pomoc :) Mam jeszcze pytanie, czy korzystając ze sprawdzania poprawności danych jest jakiś sposób, żeby nie pozwalał zostawiać pustych pół. Chodzi o to, że jak inne komórki w wierszu są puste to komórka w kolumnie H też może być pusta, ale jeżeli inne komórki w wierszu są wypełnione, to komórka w kolumnie H nie może być pusta i...
Nie napisałeś, z której kolumny ma usuwać. W przykładzie usuwa z kolumny "B". Jeśli ma być odwrotnie, to pozamieniaj w kodzie "A" z "B" lub wpisz swoje. Zakładam, że w kolumnach nie ma pustych wierszy. Próbuj na kopii... Sub UsunPowt() licznik = 0 For i = 1 To Cells(Rows.Count, "B").End(xlUp).Row For j = 1 To Cells(Rows.Count,...
Witam Zwracam się z prośbą o pomoc jak tworzyć tablice tymczasowe w pamięci RAM komputera, i jak je odczytywać. Mam bazę danych w SQLite i osadzoną w javie (tu korzystam ze sterownika -> sqlite-jdbc-3.7.2.jar) i to mi działa. Czyli mogę tworzyć, modyfikować, usuwać całe tabele jak i poszczególne rekordy(wiersze). Chciałbym stworzyć tabele w pamięci...
To znaczy o co dokładnie chodzi ? O dodawanie wierszy lub kolumn czy edycję wyświetlanych pól ? Jeśli chodzi o to że po rozpoczęciu edycji znika tekst, to jest na to bardzo prosty sposób. Qt nie usuwa tekstu, tylko pyta się co ma wyświetlić, wywołując funkcję "data()" z rolą Qt::EditRole. Domyślnie funkcja z przykładu zwraca dla wszystkich ról oprócz...
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...
Spróbuj wybrać dla pętli "Do Until" inną kolumnę (np. nr 1, jeśli taka w ogóle istnieje) do sprawdzania ciągłości wpisów (dla tej kolumny wpisy muszą być ciągłe). Na tę chwilę jest bowiem tak, że wtóruje ona warunkowi w "If" dla tej samej kolumny (nr 2) i działa do pierwszego wystapienia pustego wiersza, na którym się zatrzymuje i ów warunek w "If"...
Teraz działa dobrze ale tylko wtedy kiedy wpisuje pojedyncze wartości. Jeśli wklejam kilka wartości to wartości "AAA" nie są zamieniane. Druga sytuacja jeśli wklejam kilka wartości a pierwsza wartość to "AAA" to wszystkie wartości wklejane zostają zastąpione wartością "BBB" nawet puste komórki. Wstępna ocena dostępnych informacji Witam ponownie, Zrozumiałem,...
Dziękuje bardzo za zainteresowanie się moim tematem makro działa jak najbardziej prawidłowo. Zmieniłem linijkę While pcur <= src(r + 1, 1) ponieważ może istnieć kilka M na tym samym poziomie i potrzebuje wszystkie przenieść do arkusza nr2 ( trochę nie jasno opisałem w pierwszym poscie . Jest możliwość aby makro powtórzyło tą samą operację aż do pustego...
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...
[syntax=php]<?php session_start(); //zaczynamy sesje, żeby łatwo przenosić dane pomiędzy wywoływaniami skryptu if(isset($_GET['czysc'])) //jeśli w adresie znajdzie się '?czysc', to wyczyści koszyk { unset($_SESSION); $_SESSION = 0; session_destroy(); header("Location: /php"); // usuwanie z tablicy GET wartości "czysc", aby nie mieszalo w późniejszym...
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...
Kłopoty z zamykaniem Windows 98 SE To częsty temat w pytaniach. Patch można pobrać ze strony MS Windows 98 SE Shutdown suplement, lub z polskiego serwera 4756pl8.exe (ok. 0.5 MB). Jest to patch do polskiego Windows 98 SE. ----------------------------------------... Dlaczego czasem trudno zakończyć pracę Windows 98...
Poszukuje programistow ktorzy napisza mi pare programow w c#, oczywiscie zaplace za nie, cena jest do ustalenia. Nie sa to programy na zaliczenie, potrzebuje je na uzytek wlasny. Po zapoznaniu sie ze specyfikacjami poprosze osoby zainteresowane o wyslanie swojej ceny + czasu jaki potrzebuje na program (nie jest to zaden deadline wiec nie mam wygorowanych...
excel usuwanie pustych wierszy usuwanie pustych wierszy excel wklejanie pustych wierszy
pomiar napięcia wejściowego volvo silnika analogowe webasto
wzmacniacz słuchawkowy wzmacniacz słuchawkowy
Triak ZO103: Rozkład elektrod i zastosowania Rezystancja cewki Aquastop w zmywarkach: typowe wartości i diagnostyka
