Dzień dobry, Nie wiem czy o to Panu chodziło, ale rozwiązanie wydaje się dość proste. Po zastosowaniu formuł jak w przykładzie puste wiersze można zamaskować filtrem (tak chyba najprościej).
To, co rzuca się w oczy i to bez okularów oraz zaglądania do załączników ;) Brakuje precyzyjnych odwołań. Np [syntax=vbscript]'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 [/syntax]i nie wiadomo,...
Dobry wieczór, Można przeprowadzić konsolidację, z tym że etykiety kolumn muszą być różne. Konsolidację przeprowadzamy zaznaczając etykiety w lewej kolumnie i górnym wierszu. W wyniku otrzymujemy tabelę zawierającą wszystkie daty i puste pola. Teraz należy zastosować filtr (zwykły lub zaawansowany), żeby ukryć lub usunąć wiersze z pustymi polami. Pozdrowienia.
Scalanie to nie jest - moim zdaniem - właściwa droga. Raczej trzeba wypełnić wszystkie wiersze w kolumnie A, posortować, w końcu usunąć zbędne wpisy. Nie jest z tym tak dużo roboty, gdy czynność trzeba powtarzać wielokrotnie, można ewentualnie napisać makro. Można to zrobić tak: 1) w kolumnie A w pierwszej wolnej komórce (arkusz ANG - PL, komórka A3)...
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
1). Sortujesz dane wg. pierwszej kolumny. 2). W kolumnie CZWARTEJ (jeżeli masz 3 zajęte) korzystasz z instrukcji JEŻELI, przykładowo: =JEŻELI(A1=A2;;A1) czyli: jeżeli komórki a1 i a2 są RÓZNE, to wpisz do kolumny wartość komórki A1 3). W kolumnie piątej postępujesz PRAWIE tak samo, tzn =JEŻELI(A1=A2;;B1) 4). W kolumnie szóstej postępujesz analogicznie...
:arrow: marek003 UsedRange liczy tylko używane wiersze. Czyli: jeśli wpiszesz coś (wartość, formułę) tylko w A4 (a reszta arkusza jest pusta) to UsedRange.Rows.Count=1 Żeby nie było nieporozumień - nie chciałem żebyś przeze mnie zmieniał kod. Ja tylko wtrąciłem tak na marginesie jeden powiedzmy bug funkcji UsedRange.Rows.Count który w niektórych przypadkach...
W wierszy drugim (2 na tym arkuszu) numery kolumn z jakich ma pobierać dane. Jeżeli zmienisz ten numer (w wierszu drugim) zmienią sie dane - będą pobierane z kolumny o numerze jaki podałeś. Jeżeli to ci przeszkadza wpisz na stałe zamiast B$2 C$2 itd numer kolumny z arkusza pierwszego. To było dodane tak dla zautomatyzowania. Zauważ że jest on w dwóch...
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...
Na podglądzie wydruku są wszystkie dane
Witam. Proszę o pomoc. Chciałbym się dowiedzieć czy jest taka możliwość, żeby przeszukiwać wiersze Excela i następnie w puste komórki za pomocą VB.net wstawiać wartości. Jeśli jest taka możliwość proszę powiedzieć jak to zrobić????
Dziękuję za szybką pomoc! W kolumnie O znajdują się liczby (dodatnie, ujemne, czasem 0), a dokładnie liczba dni opóźnienia np. coś miało być zrobione do 10.07, dziś jest 18.07, więc kolumna O pokaże liczbę -8. Ale pojawiają się też puste wiersze = puste komórki w kolumnie O. Przetestuję przesłane przez Was funkcje :)
Witam, Bardzo proszę o pomoc bardziej zaawansowanych użytkowników, bo mam problem którego nie potrafie rozgryść. Mam zestaw danych w kolumnach A-B, kolejny zestaw danych w kolumnach C-D i kolejny w kolumnach E-F. Oczywiście ilości danych w poszczególnych zakresach są różne i często się zmieniają, dodatkowo pomiędzy danymi zdarzają się puste wiersze....
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...
Witam wszystkich, jestem początkująca w pisaniu makr i VBA i mam problem z kopiowaniem części kolumny. Może był już poruszany ten temat ale go nie znalazłam, ani nie znalazłam odpowiedzi w podobnych. Napisałam kod metodą prób i błędów ale nie działa tak jak chcę. Kopiuje wybrany zakres z kolumny ale wkleja go gdzie popadnie. Chodzi mi o to żeby zakres...
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...
Dane - Filter nie dziala ?
Pisząc "pusty wiersz" masz na myśli puste wszystkie wiersze do końca arkusza czy dosłownie, tylko jeden. W takim przypadku musisz powiedzieć co zrobić z danymi za pustym wierszem. I dlaczego chcesz kopiować tylko kolumnę A a nie od razu wszystkie 25? Jeżeli wariant 1 to schemat kopiowania w VBA może być mniej więcej taki (z pamięci, nie testowane):...
Nie działa usunięcie wierszy poprzez "usuń". Nawet jeśli najpierw zaznaczam wszystkie puste wiersze i DEL. Usunęłam wszystko co było w nieużywanych kolumnach i wierszach i nic...
Super dzieki. probowalem teraz pousuwac zbedne wiersze tj. puste wiersze (takie w ktorych w kolumnie 2 nie ma wartosci). czy cos jest nie tak w ponizszym makrze? Sub usun_wiersze() col_base = 2 row_limit = 1300 f = 0 For x = 45 To row_limit r = x - f If Cells(r, col_base) = "" Then f = f + 1 ActiveSheet.Rows(r).Select Selection.Delete End If Next x...
Witam, Wykorzystałam podany kod, dla wartości w kolumnie K. Sub Wstawianie_wierszy() Dim i As Long, OstWrs As Long OstWrs = Cells(Rows.Count, 11).End(xlUp).Row 'ile wierszy Application.ScreenUpdating = False For i = OstWrs To 2 Step -1 If Cells(i, 11) <> Cells(i - 1, 11) Then Rows(i).Insert Next i Application.ScreenUpdating = True End Sub Chciałabym...
Oto załącznik z przykładem jak ma to wyglądać. Metode którą mi podałeś znam. Metodą prób i błędów doszedłem do tego. Problem jest w tym ze zaznacza tez puste wiersze a tego chciałbym uniknąć.
Dzięki, rozdzielenie działa i sortuje. Jeśli chodzi o puste wiersze to właśnie ich chciałem się pozbyć, ale po usunięciu pustych wierszy wychodziły błędy w następnym powiązanym arkuszu. Przez sortowanie puste przeniesie mi na koniec a arkusz do drukowania mam ustawiony, żeby nie drukował pustych wierszy.
Witam, Potrzebuję makra, które będzie kopiowało i wklejało zawartość wiersza w którym: Jeżeli w kolumnie G komórka zawiera wartość to wstaw <pod nią> wiersze n-1 i skopiuj dane z tego wiersza. Czyli w komórce g8 pojawia się wartość 3 to makro wstawia pod 8smym wierszem 2 puste i kopiuje cały wiersz 8 do wstawionych wierszy. Mam nadzieję że dość,...
Wrzucam arkusz. Chodzi mi o to, żeby w arkuszu "Styczeń 2018" pojawiły się wiersze z "Czerwiec 2018". Puste wiersze. W wynikowym mają być obok siebie, ale to banał, bo można skopiować obie kolumny z wartościami, ale one nie są "obok siebie"... Dlatego muszę najpierw ujednolicić strukturę . Wiersze w kolumnie A mają w obu arkuszach tą samą nazwę.
[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$2" Then Application.ScreenUpdating = False nw = Sheets("Baza").Cells(Rows.Count, "A").End(xlUp).Row + 1 Range("A2:C2").Copy Sheets("Baza").Cells(nw, 1).PasteSpecial xlPasteValues Range("A2").Select Application.CutCopyMode = False Application.ScreenUpdating =...
Przy wstawianiu nowych wierszy nie kopiowały się niektóre formuły, później pola te zostawały puste więc makro je pomijało. Problem rozwiązany :) Dodano po 23 Dzięki wszystkim za pomoc :)
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...
Potrzebuję pomocy w następującym zadaniu - jak mogę zsumować unikalne nazwiska dla wybranego stanowiska. Nazwiska się powtarzają w wierszach, a chcę wyłapać ile mam unikalnych osób w danych stanowiskach. Przykład Wygląda tak Kolumna A Kolumna B Nazwisko A monter Nazwisko B spawacz Nazwisko A monter Nazwisko C monter Nazwisko C monter Nazwisko B spawacz Nazwisko...
Gdzie był świadomy, że puste wiersze bedzie Dodano po 1 a co dzialac z urlopem?? LP. - Numeracja będzie ciągły lub chaotyczny, jak w przykładzie?
Nie zawsze jest to prawdą co piszesz jeśli przez przypadek będzie miał pusty rekord w tabeli, co przy 7500 wierszy może się zdażyć, excel nie zaznaczy poprawnie całej tabeli dlatego bezpieczniej to zrobić samemu. W powyższym przypadku (kiedy są puste rekrdy) z punktu widzenia Excel'a to już nie jest jedna ciągła tabela więc trzeba o to dbać (niestety),...
Witam. Nie do końca rozumiem to co piszecie ale mam mianowicie problem taki. Powiem prostymi słowami. Mam cennik 2012 który ma 1200 artykułów, gdzie w kolumnie A mam nr katalogowe, w B nazwy i C ceny. Otrzymałem nowy cennik 2013 który ma 1226 artykułów i także składa się z trzech kolumn które wkleiłem w D;E;F i tak: Cennik 2012 posiada kilka artykułów...
Siemka, nie ogarniam Excela na tyle aby samemu to zrobić. Moja tabela składa się z kilku kolumn ale interesują mnie tylko 3. Chciałbym aby Excel wskazał mi duplikaty - np kolorując na jakiś kolor taki WIERSZ. WIERSZ składa się z 3 komórek z 3 kolumn. Specjalnie piszę dużymi literami aby zaznaczyć że interesują mnie 3 komórki w tej samej linii. Chodzi...
Czy chodzi o coś takiego? Dane w pierwszym wierszu. Wiersze 2. i 3. zawierają przetworzone dane do wykresu. Obawiam się, że bezpośrednio nie da się uzyskać takiego efektu. Zakres danych jest ustawiony do kolumny IV. Można go poszerzyć zmieniając definicję zakresu w Menedżerze nazw.
Hej, Mam problem z excelem. Raz w miesiacu musze uzupelniac tabele ze szkoleniami jakie odbyli 200 osob 37 roznych szkolen. Dane dostaje w wersji Jan Kowalski szkolenia HR 20/01/2019 musze je przepisac do tabeli gdzie w kolumnie mam nazwe szkolen, a wiersze odpowiadaja danym pracownikom. Jestem w stanie do pustej tabeli przy pomocy formul przeniesc...
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....
Hej, Mam problem z excelem. Raz w miesiacu musze uzupelniac tabele ze szkoleniami jakie odbyli pracownicy w danym miesiacu- 200 osob 37 roznych szkolen. Dane dostaje w wersji Jan Kowalski szkolenia HR 20/01/2019 musze je przepisac do tabeli gdzie w kolumnie mam nazwe szkolen, a wiersze odpowiadaja danym pracownikom. Jestem w stanie do pustej tabeli...
Pustość w określonym wierszu da się wykazać np. sortując wiersze, ale widzę, że sortowanie u ciebie odpada. Można wykryć pusty wiersz w danej kolumnie "stojąc" w niej wcisnąć najpierw END, a potem strzałkę w dół (lub w gorę dla wstecznego wyszukiwania). Można to zastosować w kodzie VBA + zrobić makro w stylu "skocz do następnego pustego rekordu". Ostatni...
Mam prośbę czy mógłby mi to ktoś ogarnąć bo już tracę wiarę :) Wydaje mi się że przydałby się do tego makro. Potrzebuję porównać kody produktów z tabeli A i tabeli C i te które się powtarzają wyświetlić w tabeli E i porównać ilości tych produktów czyli tabele B z D i wyświetlić że jest inna wartość w tabeli F (nie musi to być obliczone tylko chcę aby...
cześć, mam do Was wielką prośbę, ponieważ nie wiem jak do końca zrobić aby w combbox przypisać wartości z arkusza poza opcją Source: =Arkusz1!D8:D25 Czy istnieje aby przypisać takie wartości jakoś inaczej i pomijane były wiersze puste ? Czy ewentualnie można zrobić tak, aby dane wyświetlane w liście combbox były od najmniejszej do największej, ale żeby...
witam, potrzebuję pomocy w zrobieniu makra tak by: 1. posortować dane rosnąco w tabeli wg kolumny A [KOD] 2. ustalić zakres wydruku - wszystkie wiersze wypełnione przez inne makro w kolumnach od A do D oraz puste E i F za każdym razem inna ilość wierszy - od 1 do max. 300, (nie chcę drukować pustych stron). 3. wydruk zakresu wypełnionego danymi na drukarkę...
Dzień dobry. Mój problem w Excelu dotyczy bardzo dużo wierszy i chciałbym zautomatyzować proces za pomocą kodu VB. Chciałbym, aby program znalazł wszystkie wiersze w kolumnie D (Adres leśny), po których jest puste okno/nie ma żadnej informacji: https://obrazki.elektroda.pl/2550381700_... , a następnie skopiował/przeciągnął te wartości...
Zauważ, że wiersze wstawiane są "od końca". W związku z tym daty należy obliczać podobnie. For count = 1 To how_many Range("A" & i + 1).EntireRow.Insert xlShiftDown Range("A" & i + 1).Value = Range("A" & i).Value - how_many + count - 1 Next count
Witam. Głowię się nad problemem już kilkanaście godzin i szczerze nie mogę znaleźć rozwiązania. Moim problemem jest schemat zamieszczony na zdjęciu: https://obrazki.elektroda.pl/8456052100_... Chodzi o to, że chcę skopiować wiersze z jednego arkusza, które zamieszczone są jeden po drugim, bez pustych komórek, do innego arkusza, znajdującego...
Witam Poszukuje odpowiedzi na pytanie mam tabele i chciałbym by zliczało mi nie puste komórki bym wiedział ile ich jest. Niestety funkcja licz niepuste nie może być zastosowana by mam więcej niż 255 rekordów. Dlatego chciał bym że jezeli w kolumnie A znajduje sie cokolwiek zliczało mi od B5 do końca wszystkie wiersze w których coś jest. Prosty przykład...
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,...
Panowie codziennie dostaje maila w takim układzie wykonano: 11 do realizacji: 5 nie wykonano: 5 chciałbym stowrzyc makro ktore po przyjsciu maila odpali excela i skopiuje te trzy wiersze do innego arkusza excelowego (arkusza 2) ale do wierszy A4 A5 A6. czyli: wykonano: 11 ma trafic do A4 itd. dokument excelowy zawiera puste wpisy czyli wykonano: do...
Do wartości pola dodać * i używać to do filtrowania Przy parametrze Criteria wystarczy dopisać gwiazdkę i wyszukuje automatycznie po fragmentach tekstu :] Jest problem: Jeżeli w kolumnie B lub C są puste komórki Przypadek: 1. wpisuje imię (Janina) w komórce C1 aby przefiltrować 2. osuwam zawartość tekstu z C1, aby usunąć filtr 3. okazuje się że wiersza...
Witam, podczas tworzenia makra natrafiłem na problem z którym nie mogę sobie poradzić. Makro miałoby za zadanie z wszystkich arkuszy o nazwie "Protokół x" zrobić zestawienie w jednym arkuszu oraz z "delikatnymi" zmianami odnośnie rozmieszczenia w kolumnach. Na chwilę obecną nie idzie źle - mam problem ze zliczaniem wierszy z protokołów, żeby określić...
Witam. Mam prośbę o pomoc w sformułowaniu odpowiedniego formatu warunkowego na takich zasadach: pod uwagę muszą być wzięte pięć pierwszych kolumn 'A' do 'E' (1-5) ale od wiersza trzeciego tak aby co drugi wiersz został zabarwiony na odpowiedni kolor jednak zabarwianie ma być tylko do momentu kiedy w kolumnach 'A' do 'E' skończy się lista, czyli puste...
Witam, zaczynam dopiero moją przygodę z programowaniem więc chciałam prosić fachowców o pomoc. W folderze głównym "GLIZDA" znajdują się 2 foldery "PÓŁNOC", "POŁUDNIE" oraz plik excelowy "Aktywność_NSM_TOTAL" W folderze np. "POŁUDNIE" znajduje się 6 plikow excelowych z których jeden jest TOTAL (we wszystkich plikach excelowych sa te same dane do uzupełnienia)...
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...
Super, działa ale od czasu do czasu w pliku źródłowym mam puste wiersze i działa dopiero po usunięciu ich wszystkich tak samo w przypadku gdy po "|" nie ma znaków... mogę liczyć na jakąś prostą modyfikacje Twojego kodu z obsługą błędów? edit: I jeszcze jedno: jak mogę wpleść w to aplikację do wyboru pliku z okna dialogowego? Mam takie cudo: "Application.GetOpenFileName...
Hmmm, Poradziłem sobie następująco, natomiast nie wychodzi mi zaszywanie dodatkowego warunku w tym kodzie. Obecnie makro przegląda arkusz źródłowy wyszukując jednego sprzedawcy (Agnieszka). Natomiast jak próbuję wcisnąć tam kolejną pętlę, aby wyszukał "Andrzej" i przeniósł wiersze do Arkusz3, "Basia" - do Arkusz4, "Iza" do Arkusz 5 itp, polecenie i...
Witam. Szukałem w sieci swojego rozwiązania ale nie potrafię tego przekuć w program lecz mogę podać algorytm co może trochę wyglądać śmiesznie ale tak najszybciej potrafię coś zobrazować ;) Excela dopiero co poznaję. Formuły jako tako opanowałem ale w pewnych momentach podczas przeliczania excel zamraża mi się na dłuższy czas. Program zrobiłem też na...
Wklej w kod arkusza Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "A1" Then ostW = WorksheetFunction.CountA(Range(&... + 1 Cells(ostW, 2) = Target.Value End If End Sub Jeśli dopuszczasz puste wiersze to zamiast tych dwóch linijek wewnątrz, wstaw If Cells(1,...
Witam, Napisałem makro, które ma za zadanie przenosić wiersze z jednego arkusza do drugiego, na podstawie wartości (tekstu) komórek, w jednej z kolumn (A), a następnie usuwa puste wiersze. Jest ono napisane w dość 'prymitywny' sposób, jednakże działa. Niestety jednak, nie radzi sobie zbyt dobrze z dużą ilością danych - wszystko wychodzi jak powinno,...
Pomógłbyś mi przerobić to makro przy założeniach: 1. Ma pobierać wszystkie pliki *.xls i *.xlsx z folderu - na szczęście to makro już to potrafi; 2. Z arkusza "Ogólne" pobiera imię pracownika z komórki A1, która jest scalona z trzech komórek. Przy próbie zmodyfikowania makra, zaczęło mi pobierać wszystkie 3 i wklejać od kolumny A do C. 3. Z arkusza...
I tu pewnie bedzie kolejny problem. Jezeli mamy plik tekstowy, to kazdy znak w nim umieszczony jest na okreslonej pozycji w okreslonym wierszu, dodatkowo mamy jeszcze znak konca linii lub jakis inny kwiatek. Problem pojawi sie w momencie kiedy np. znaki beda "rozrzucone" lub pojawia sie puste wiersze. W takim przypadku makro musialoby bardzo dokladnie...
Witam. Mam problem z dwoma tabelami (starą i nową) i za żadne skarby nie potrafię sobie poradzić. Powiem prostymi słowami. Mam cennik 2012 który ma 1200 artykułów, gdzie w kolumnie A mam nr katalogowe, w B nazwy i C ceny. Otrzymałem nowy cennik 2013 który ma 1226 artykułów i także składa się z trzech kolumn które wkleiłem w D;E;F i tak: Cennik 2012...
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...
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...
W załączniku przykładowo formatowanie od trzeciego wiersza.
Procedura w kilku krokach: 1) wpisz w pierwszej wolnej komórce odpowiednie odwołanie, np. W A2 wpisz =A1 2) skopiuj komórkę z formułą do pamięci podręcznej, np. Ctrl+C 3) zaznacz cały zakres 4) wybierz Znajdź i zaznacz/ Przejdź do - Specjalnie / Puste komórki (np. F5/Specjalnie/puste) 5) Wklej np. Ctrl+V
Wg podanych informacji, najprościej którąś z Do. Coś w tym rodzaju: [syntax=vb]wrs = 2 Do While Cells(wrs, 6) <> "" Cells(wrs, 4) = "ble ble ble" wrs = wrs + 1 Loop[/syntax]
Najpierw wyznacz pierwszą wolną komórkę [syntax=vbscript] lastRow = Range("BZ" & Rows.Count).End(xlUp).Row + 1 If lastRow < 3 Then lastRow = 3 End If [/syntax] nastęnie wkopiuj: [syntax=vbscript] Sheets("Dane").Range("BZ" & lastRow) [/syntax]
Moja wersja danych testowych Lista je jedna na wszystko(zakres A1:D24) w poprzedniej wersji po zakończeniu wiersza 1 lista była pusta
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.
No, ale te punkty za transfer... Czyli: Jeżeli w kolumnie D tekst zawiera wyraz: "Żółty" i w kolumnie E jest w tym wierszu pusta komórka, to wyświetlać komunikat o braku odpowiedzi ew. formatowanie warunkowe w 1-wszej kolumnie?
apollinaris , dałeś taki przykład, że trudno się zorientować jakiego wyniku oczekujesz. Czy czas w kol. C będzie zawsze taki sam tzn. 10:45, czy będzie zmienny i kolory mają być dopasowane proporcjonalnie? Jeśli zmienny to adres używany w formule musi zawierać nr wiersza bez znaku $. I zawsze piszemy formułę dla pierwszej komórki zakresu formatowania....
Załącz przykładowy plik z uwzględnieniem, które komórki są wypełnione, a które puste, bo trzeba jakoś ustalić położenie ostatniego wiersza danych, albo idąc od góry, jeśli wszystkie wiersze są zapełnione, albo od dołu arkusza, jeśli tam wszystkie wiersze są puste, aż do użytecznych danych.
JRV, zapewne szybsze, ale biorąc pod uwagę, że jest to tylko kilka kolumn, to 'się da'.;) 2. wstawienie daty w pierszym wolnym wierszu kolumny A 3. zaznaczenie tego wiersza w ktorym zostala wstawiona data i zamiana funkcji na wartości Jest tutaj błąd logiczny. Wiersz, w którym zostanie wstawiona data, jest nowym wierszem, a zatem wszystkie kolumny 'w...
Otwórz w Access tabele do której chcesz wkleić dane, ctrl +a, ctrl+c, otwórz excel nowy arkusz ctrl+v, wytnij wszystkie wiersze oprócz nagłówków kolumn (pierwszy wiersz) , edytuj dane dodawaj, zmieniaj co chcesz, kolumnę id pozostaw pusta. Gdy skończysz zaznacz i skopiuj arkusz, w Access zaznacz ostatni wiersz w tabeli i ctrl+v, jeśli typy danych itd...
ok działa ale po wybraniu nie można wrócić do początku.. w sensie wybieram audi pozniej a0 nastepnie diesel.. i nie mozna zmienic znowu marki sa puste wiersze..
Ok, działa! Jest dobrze. Bardzo Ci dziękuję za pomoc. Mam jeszcze jedną zagwozdkę. Jak wyciągnąć dane z zawsze ostatniego wiersza tabeli (rozrastającej się w zakresie wierszy), z komórki zawierającej formułę? Nie mogę użyć ILE.NIEPUSTYCH, bo formuła w komórkach zaprzecza temu że komórka jest pusta...
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...
Po pierwsze, nie sprawdzaj czy jest aktywna komórka w kolumnie "C" - jeśli ma być tam aktywna to ją uaktywnij bez sprawdzania, np. Application.WorksheetFunction.CountA(Col... , o ile kolumna jest ciągłą i nie zawiera przerw, to pierwszym wierszem z wolną komórką będzie o 1 większy niż zwróci to funkcja tzn. [syntax=vb]wiersz=Application.WorksheetF...
Zmień kod np tak :spoko: : [syntax=vbscript]Sub Add_ret_Click() Dim rngTmp As Excel.Range Dim rngBlanks As Excel.Range Set rngTmp = Range("B24:C24") 'Tw?j obszar On Error Resume Next Set rngBlanks = rngTmp.SpecialCells(xlCellTypeBlanks) On Error GoTo 0 If Not rngBlanks Is Nothing Then MsgBox "Uzupe?nij puste kom?rki" & vbNewLine & "pusta kom?rka...
Mam propozycję, ale z ograniczeniami. Założenia są następujące: 1. W kolejnych komórkach będą kolejne liczby (lata) lub komórki będą puste, ale nie będzie sytuacji, że w sąsiednich komórkach będą liczby (lata) niekolejne. 2. Przed pierwszą liczbą musi być co najmniej jedna komórka pusta. 3. Liczba komórek jest zadana z góry (formuła nie jest dynamiczna)....
Chciałbym sprawdzić, czy w kolumnie A zawiera się tekst z kolumny B i jeżeli tak, to niech go wypisze w kolumnie C. Wg tego opisu i w pierwszym wierszu i w drugim Twego przykładu formuła działa prawidłowo. W drugim wierszu znalazła zgodność B2 (pusta) ze spacją z tekstu w A2 :please: Jeśli zaś chcesz sprawdzać jednego stringa w wielu wierszach to trzeba...
Przede wszystkim załącz plik, a nie obrazek. Na obrazku nie widać np. numerów wierszy i adresów kolumn, nie widać, które komórki są puste, a które tylko wyglądają na puste i wielu innych rzeczy. Poza tym wyjaśnij, co to dla Ciebie znaczy "z najniższą ceną": z najniższą gdzie - w wierszu, w kolumnie, w arkuszu? Co to znaczy: puste komórki zamienia na...
Tylko czemu wynik jest dopiero od 435 wiersza? Najprawdopodobniej masz jakieś puste wiersze, które makro widzi jako puste wartości. Spróbuj dopisać klauzulę WHERE. przypuśćmy,że mam jeszcze jedną tabelę tylko z dwoma kolumnami: material no( z nr komponentów-nie powtarzają się) i stock( ze stanami zapasów). W jaki sposób mogę połączyć teraz te dwie...
Przesyłam w załączeniu plik. Dane na czerwono powinny zostać skopiowane lub nawet wycięte i skopiowane z kolumny A do C i tak do końca wiersza. Oczywiście trzeba pamiętać o tym, że niektóre wiersze są całkowicie puste.
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...
Jeśli w Excelu używasz funkcji ŚREDNIA do zakresu komórek, to Excel bierze pod uwagę tylko komórki wypełnione liczbami. Nie przeszkadzają mu komórki puste ani komórki z tekstami. Przeszkadzają tylko błędy, bo to uniemożliwia obliczenie. Więc jeśli za każdym razem potrzebujesz tylko bieżącą średnią, to możesz użyć pełnego zakresu z zapasem i stopniowo...
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...
Witam Potrzebuje Waszej pomocy w Excelu. Mam tabele gdzie w wierszu pierwszym jest 1,2,3,4. Poniżej wartość X albo puste. Czy jest jakas formuła ktora w komórce A2 wypisze mi wszystkie nazwy po przecinku z wiesza pierwszego ktore zawierają w wierszu drugim X. tak jak wpisałem to z ręki w komorce a2. dziękuję za pomoc
Jak byś miał inaczej ustawiony filtr (na całą kolumnę) to przy niewielkiej modyfikacji funkcji w kolumnie pomocy wystarczyło by w autofiltrze odznaczac puste i już.
Formuła rzeczywiście zwraca błąd jeśli komórka w zakresie jest pusta, inne litery ani liczby nie przeszkadzają. Można to obejść wprowadzając sprawdzenie dodatkowego warunku, ale niestety formuła się rozrasta. Na razie mam taką propozycję, ale spróbuję jeszcze pomyśleć, czy nie da się tego zapisać inaczej: =SUMA(MOD(WIERSZ(lista);2)*JEŻELI(DŁ(FRA...
Sukcesywnie w miarę wpisywania danych w tym samym wierszu w zakresie kolumn 5 do 8 "a" co to jest to "a" w "If Target <> a" ? Tutaj też trzeba by chyba coś zmienić, bo wychodzi na to, że dwa razy jest sprawdzane, czy jakaś ".Value = "" ", czy też czemuś się równa jednak. W załączonym do tematu kodzie "a" zawsze jest 'puste', gdyż nigdzie nie...
oto co wielki Mikroszit o tym mówi: Konwertowanie liczb przechowywanych jako tekst na liczby Cały zakres jednocześnie W pustej komórce wprowadź liczbę 1. Zaznacz komórkę i w menu Edycja kliknij polecenie Kopiuj. Zaznacz zakres liczb przechowywanych jako tekst, które mają być konwertowane. W menu Edycja kliknij polecenie Wklej specjalnie. W obszarze...
Jak Ci wierszy przybędzie do miliona, to zaczniesz myśleć, dlaczego to tak długo liczy...;) Ale jeżeli już chcesz tak, to nie sprawdzaj w każdym przejściu pętli, czy komórka jest różna od pustej, tylko wylicz wartość końcową pętli na przykład tak: [syntax=vb] For x = 2 To Cells(Rows.Count, "A").End(xlUp).Row Cells(x, 1) = "=IF(RC[1]<>"""",R[-1]C+1,"""")".....
Tak, tak rozumiem tylko jak to sie mówi: " A u mnie to działa normalnie " ciekawe od czego to zależy... ?hmm Niestety Excel to wredny typ. Pusta komórka czasem nie jest pusta a tego nie widać i wiele innych podstępów Micro$hita ... potestuje u mnie jeszcze i dam Ci znać jak coś wyknuje jeszcze Pozdrawiam .... a rzeczywiście .... zwielokrotniłem twoje...
a jeżeli oprócz wiersza pustego "" mam jeszcze słowo "cena"
Zakładam, że w każdym wierszu będą dwie kontrolki zależne. W Excelu 365 na karcie Wstawianie znajduje się pole do wstawiania tych kontrolek. [syntax=text]Wstawianie > Kontrolki > Pole wyboru[/syntax] Aby wstawić kontrolkę należy zaznaczyć komórkę (lub komórki) i kliknąć przycisk. Standardowo kontrolka jest powiązana z komórką, a w tej komórce...
Różne drogi prowadzą do Rzymu Zastosowałeś jedną w VBA (jak dla mnie trochę przekombinowaną - ale działa) Ja bym to zrobił np. tak edit: Jak teraz patrze na "twoje" rozwiązanie to widzę że właściwie są tam zmieszane ze soba (przedstawione wyżej przeze mnie) dwie metody na raz, co jeszcze bardziej przekonuje mnie w stwierdzeniu "przekombinowane".
Makro czy funkcja w tym przypadku to żaden problem. Kłopotem jest to czy to co przedstawiłeś jest "prawdą". Czyli czy nie ma innych danych w arkuszu oprócz tej tabeli - tak jak to przedstawiłeś (bez nagłówków i innych danych w innych komórkach - inne komórki "czyste")? (A może zawsze tabela "ściągana" ma te same "namiary komórkowe"? ) Czy może jednak...
A może spróbuj formatowaniem warunkowym? Jeżeli dotyczy to na przykład kolumny czy wiersza, ustaw warunek aby kolorowało wszystkie puste komórki
Witam, Potrzebuję pomocy osoby doświadczonej w posługiwaniu się Excelem. Stworzyłam raport, ale nie do końca spełnia on moje oczekiwania. Proszę o pomoc. Dodam, że wszystko w Excelu robię metodą prób i błędów, ale tym razem nie mam pomysłu, jak poprawić formuły… W arkuszu „Karta” w kolumnie AE (i adekwatnie AI, AL., AS, AV, AZ, BD)...
Szukam rozwiązania dla formularza. Chciałbym by w Arkuszu2 automatycznie pojawiały się wiersze z Arkusza1, ale tylko spełniające warunek, w którym wartość w kolumnie F >0. Dodatkowo miedzy kolejnymi wierszami w arkuszu2 nie mogą pojawiać się puste przestrzenie. Ilość wierszy w arkuszu będzie różna w dalszej części tabeli i będzie podlegać stałym modyfikacją...
puste wiersze excel puste puste excel
dekoder cyfrowego polsatu hd5000 32lg3000 pilot wyszukiwarka tranzystorów
Slot CD nie otwiera się w wieży Kruger&Matz KM 7089 Gaśnięcie wyświetlacza klimatronika w Golf IV po włączeniu wentylatora
