Dane - Filter nie dziala ?
Myślę, że najlepsze wyniki czy nie od końca, ale od początku [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, r As Long, c As Long Application.ScreenUpdating = False i = 2 r = i While Cells(i, 11) <> Empty If Cells(i, 11) <> Cells(i + 1, 11) Then Rows(i + 1).Insert For c = 5 To 7 Cells(i + 1, c + 3) = Application.WorksheetFunction.Sum(Range(...
[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 =...
Poproś kogoś innego.
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
to sobie zobacz: [url=https://www.youtube.com/watch?v=ash...
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 przykładzie zeszyt3 [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, OstWrs As Long OstWrs = Cells(Rows.Count, 1).End(xlUp).Row 'ile wierszy Application.ScreenUpdating = False For i = OstWrs To 2 Step -1 If Cells(i, 1) <> Cells(i - 1, 1) Then Rows(i).Insert Next i Application.ScreenUpdating = True End Sub[/syntax] A tu kod z nazwą - ale nie...
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
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]
Na tą chwilę nie bardzo wiem, jak to poprawić. A przecież specjalnie Ci podpowiadałem :D możesz łatwo uchwycić obszar do aktualnego czyszczenia :arrow: jako obiekt Selection :D tzn. trzeba to zrobić raczej tak :spoko: [syntax=vbscript]Sub dodaj() Dim ile_w As Long Dim kom As Range Application.ScreenUpdating = False With ThisWorkbook.Sheets(ar_kusz)...
Wykonałem jeszcze jeden eksperyment. Przenisłem ten plik na komputer stacjonarny, przepiąłem do niego tą samą drukarkę i ..... ten sam błąd, dokładnie tych samych komórek nie drukuje, natomiast stary wysłużony Canon trochę brzydziej ale wydrukował wszystko. Dodano po 43 Uparty jestem, więc poszedłem dalej. Pożyczyłem drukarkę HP Fotosmart 3100, zainstalowalem...
Może to będzie pomocne? [url=http://www.elektroda.pl/rtvforum/to...
Musiałem dodać fragmenty kodu odpowiedzialne za zróżnicowaną numerację kopiowanych przycisków, a następnie identyfikację przycisku "Clear", który został użyty. Wszystkie przyciski "Copy" działają identycznie - kopiują zawsze pierwszą tablicę na pierwsze wolne miejsce. Możesz tej pierwszej tablicy nie wypełniać, potraktować ją jako szablon, unikniesz...
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]
Chcesz wstawić formułę wyszukaj w kolumnę G w zależności od danych w kol A? [syntax=vb]ost = Cells(Rows.Count, 7).End(xlUp).Row + 1 ost2 = Cells(Rows.Count, 1).End(xlUp).Row Range("G" & ost2 & ":G" & ost).FormulaR1C1 = "=VLOOKUP(RC[-6],'Previous week'!C[-6]:C,7,0)"[/syntax]
Nie jest całkowicie skrot, reprezentuje nazwę obiektu w skoroszycie, Np for each bbb in ActiveWorkbook.Sheets 'colection sheet in workbook bbb .Cells(1,1)="Witaj" next
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.
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).
Moja wersja danych testowych Lista je jedna na wszystko(zakres A1:D24) w poprzedniej wersji po zakończeniu wiersza 1 lista była pusta
Wypróbuj w "główny" takie makro [syntax=vb]Sub makro() ostw = Range("C65536").End(xlUp).Row Range(Cells(ostw - 2, 1), Cells(ostw, 11)).Copy Cells(ostw + 1, 1) End Sub[/syntax]Formuły powinny "ułożyć się" wg kolejności wierszy. Nie wiem tylko skąd pobierać nazwisko klienta...
Trzeba dopisać lub zmienić warunek... Makra, z wyjątkiem procedur zdarzeniowych, umieszcza się w modułach.
przeglądałem już tą stronę i niestety nie znalazłem rozwiązania mojego problemu :(
Witaj Jeśli te wykresy muszą być wykonane automatycznie, wtedy ta tabela nie jest w systemie. Część kwestii ma opcje tak lub nie. W innej części tak, nie, lub Brak odpowiedzi jest częścią pytania. Ponadto między tytułem a opcji jest lub nie jest pusty wiersz.
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.
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...
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...
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...
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..
Uwaga: Od 20 do 140 będzie 121 wartość. Przy założeniu że numery, począwszy od pierwszego wiersza i nie pustych wierszy =SUMA(PRZESUNIĘCIE(A1; ILE.LICZB(A:A)-120; 0; 120))
W 2016 to nie będzie działać. Funkcja UNIKATOWE jest od wersji 2021 lub w 365. Dlatego zawsze jak zadajesz pytanie dotyczące Excela trzeba podawać wersję. Do wersji 2016 (w nowszych też będzie działać) możesz zastosować formułę: [syntax=text]=CZY.PARZYSTE(SUMA(--($L$5:... W tym przypadku nad tabelką musi być jakiś wiersz...
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....
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?
Wpisywałeś w google "excel usuwanie pustych wierszy" ? :) Zresztą to co zaproponował adamas_nt robi dokładnie to, co chcesz.
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...
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.
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 :)
Jeżeli umiesz wpisywać dane z formularza, co zakładam, skoro gdy makro będzie tworzyć arkusz to przydzieli mu nazwe z formularza(to potrafie akurat zrobić ) to problemem może będzie znalezienie ostatniego wiersza. Opcja bardzo prosta Dim PierwszyPusty As Long PierwszyPusty = Range("A1").End(xlDown).Row + 1 Pod PierwszyPusty masz indeks pierwszego pustego...
usuwa puste wiersze Dlatego napisałem że w '3.33.333' na drugiej po e nie jest pusty wiersz dla tego kodu powyżej.
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)...
Np. tak: =HYPERLINK("#A"&(COUNTA(A:A)+1);"Go") Działa na kolumnie A w bieżącym arkuszu, zakładamy że nie ma pustych wierszy "w środku" kolumny.
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...
Nie wykrzacza się, ale nic nie kopiuje. Arkusz pozostaje pusty...
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...
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 mam problemik z Excelem. Mam np dane w kolumnie A w kolejnych wierszach np 1,1,2,3,3,3,4,5,5,5 czy jest jakas formuła która z automatu porównała by te dane i przed każdą zmianą danych wstawila pusty wiersz aby pozniej wygladalo to tak 1,1 pusty wiersz, 2 p[usty wiersz 3,3,3, pusty wiersz 4 i tak dalej? Z gory dzieki 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ż.
Możesz wrzucić plik (jako załącznik) z przykładem? p.s. Plik od v. 2007 wzwyż spakowany ZIP-em lub RAR-em.
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...
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.
: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...
a jeżeli oprócz wiersza pustego "" mam jeszcze słowo "cena"
Potrzebuję gotowego makra, które będzie dodawało mi nowe wiersze. Może ktoś da radę pomóc. Mamy przykładowo w kolumnie D takie wartości: 1 D 2 5 3 1 4 30 5 8 6 100 Makro miałoby teraz dodawać pod spodem tyle wierszy ile jest napisane w tej kolumnie - 1. Np. Mamy w komórce 2D wartość 5 to pod spodem trzeba dodać 4 puste wiersze. w komórce 3D mamy 1 to...
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...
Są różne sposoby na znajdowanie ostatniego pustego wiersza, mój ulubiony jest taki: widoczną komórkę w kolumnie B wypełnioną tekstem, idąc od ostatniego wiersza w górę. Liczba 1048576 to ostatni wiersz excela 2007, dla kompatybilności z 2003 należało by użyć 65536. Przed wykonaniem sprawdzania poleceniem ShowAllData próbuje się zdjąć kryteria autofiltra...
Weż dla pustego arkusza zastosuj: Dodano po 6 Reusso: Kolega sugerował użycie innej nazwy dla zmiennej, która przechowuje pierwszy wolny wiersz. Jeśli skasowałeś +1 to kolejne kopiowania będą nadpisywać ostatni wiersz. Nieprawda. Sugerowałem inny sposób znajdowania indeksu ostatniego używanego wiersza. A to, że się przyczepiłem, że LastRow + 1 jest...
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...
Spoko, mogło by wyglądać tak: Sub Makro1() Dim temp As Variant Dim wiersz As Long wiersz = 1 Do While Cells(wiersz, 8) <> "" If Cells(wiersz, 8).Value = 0 Then Cells(wiersz, 10).Cut Destination:=Cells(wiersz, 15) wiersz = wiersz + 1 Loop End Sub Dodano po 2 jaszcze taka uwaga makro działa poprawnie do pierwszej pustej komórki w kolumnie przeszukiwanej
Dzień dobry, To wszystko jest mało precyzyjne. Czy dane będą w określonej kolumnie? Czy można określić zakres tych danych, czy trzeba analizować całą kolumnę? Wyniki mają być w wierszu w sąsiednich komórkach? Czy ciągi danych będą rozdzielone pustymi komórkami? Czy liczba tych pustych komórek jest nieokreślona? Czy wśród danych mogą być zera ew. liczby...
Prawdopodobnie w arkuszu odłożone zostały jakieś znaczniki, które identyfikują dodane wiersze. Może np.: każdy wiersz tabeli wyjściowej jest w jakiejś kolumnie ponumerowany, wtedy dodanie nowego wiersza daje puste komórk lub w jakiś sposób oznaczone i wtedy bardzo łatwo to usunąć.
ok rano to jeszcze zobaczę ale wydaje mi się że nie przejdzie bo muszę osobno do każdej komórki przypisywać formatowanie. A jak mam 5000 wierszy...Dodaje przykład...
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...
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ąć.
Jak zmieniłeś nazwy arkuszów ("Arkusz1" to teraz "BAZA" a "Proszki" to "MAŁE") to w całym kodzie makra trzeba je zmienić, a nie tylko w jednej linii. Poza tym (nie chce mi się tego mocno analizować dlaczego) ale makro odczytuje ostatnią pustą komórkę w kolumnie B arkusza "Dane" jako "zapisaną". Nie wiem czego - może ktoś z kolegów wyjaśni. Dlatego dołożyłem...
Witam, mam kolejne pytanie odnośnie formatowania warunkowego. jakiej formuły musze użyc chcąc aby, excel wyświetlał mi na czerwono wiersze z datą, od której upłynęło 7 dni. czyli np jezeli mam wiersz B4 z data 06-05-2010 to po 7 dniach czyli 13-05-2010 chce żeby automatycnzie excel zaznaczył go na czerwono. drugim warunkiem (tego zaznacznia na czerwono)...
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
Dlaczego nie załączysz pliku? Piszesz takie dziwne rzeczy, że nie wiadomo, czy to jest literówka, czy faktycznie taki kod. Co to ma być? [syntax=vbscript]Arkusz1.Range("D3;D200" & Rows.Count).[/syntax] Albo [syntax=vbscript]Range("D3:D200").[/synt... albo wystarczy [syntax=vbscript]Range("D3").[/syntax] jeśli nie ma pustych wierszy.
Jednak wtedy kopiowanie danych różniących się do "pustych miejsc" trzeba będzie dokonać "na piechotę" Jeśli w kolumnie "title" nie będą występowały powtórzenia danych (duplikaty) to całą robotę wykona proponowana formuła przeciągnięta do dołu wynikowej tabeli :-)
Witam. Na samym wstępie proszę o wyrozumiałość, jestem osobą raczkująca jeśli chodzi o VB. Prosiłby o pomoc w napisaniu kodu który pomoże mi w skopiowaniu określonego zakresu wierszy spełniających określone warunki. W arkuszu "1" jest tabela składa się z kolumn A:E; w kolumnie E jest lista rozwijalna z zakresem "Tak;Nie" Chciałbym aby tabela była analizowana...
W załączniku arkusz "pakiety" jest pusty, więc gdzie wspomniana data i jakie "wskakiwanie" wierszy?
Witam, Mam pytanie o możliwość stworzenia makra które będzie kopiować wypełnione wartościami kolumny w dół zaznaczając komórkę A2, jednak przy kopiowaniu pomijało by wiersze dla których nie ma podanych wartości w kolumnach D i F: https://obrazki.elektroda.pl/8651122400_... Na chwilę obecną przy poniższym kodzie: [syntax=vbscript] Range("A2").Select...
Witaj. Jak domyślam się, samo przeniesienie odpowiednich pytań i odpowiedzi do drugiego arkusza nie jest problemem, większym problemem jest pozbycie się pustych linii z najprostszego możliwego rozwiązania. Do tematu można podejść na dwa sposoby, za pomocą makr, albo za pomocą odpowiednich formuł. W przypadku bardziej skomplikowanego problemu makra pewnie...
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...
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)....
https://www.excel-university.com/excel-c... Powinno działać analogicznie.
A czy makro nie może być przerwane w momencie kiedy napotka pierwszą pustą komórkę w kolumnie A? Na ten moment makro długo działa chyba z uwagi na to czyszczenie kolumny B. W moich danych nie ma pomiędzy pustych komórek, tak jak w twoim pliku. Np. wklejam do pliku 100 wierszy (ciągiem, nie ma pustych pomiędzy) i te 100 ma ponumerować. Co więcej: Za...
Ma kopiować te komórki do pierwszego pustego wiersza w "Arkusz1" czy jak?
Poniżej bardzo prosty przykład który powinien pomóc:[syntax=vbscript] Sub test() For Each i In Range("A:A") If i.Value = "" Then 'jeżeli komórka jest pusta i.Offset(0, 3).Value = i.Offset(-1, 3).Value 'kopiuj offset yx (-1, 3) do offset (0, 3) Next End Sub [/syntax] gdzie: y to wiersze x to kolumny
Witam Mam taki problem. Z arkusza1 mam skopiować określony zakres komórek do arkusza2. Miejsce kopiowania tej zawartości do arkusza2 ma spełniać dwa warunki: 1.Ma skopiować pod wybranym miesiącem 2.W kolejny pusty wiersz W załączniku mój arkusz, ale coś mi nie tak kopiuje tzn nie w te miejsce gdzie trzeba. Jak by się dało jeszcze zrobić to wolałbym...
Na początku pętli [syntax=vbscript]Do While Len(ws_src.Range("E" & i)) > 0[/syntax]jest sprawdzany warunek czy długość zapisu w kolumnie E jest > 0. Eliminuje to przypadki pustych komórek i pustych tekstów. Gdybyś jeszcze chciał sprawdzać wartości zerowe to trzeba dodać nowy warunek pod spodem: [syntax=vbscript]If ws_src.Range("E" & i) = 0 Then Exit...
Czy jest to operacja powtarzalna, to znaczy będziesz w przyszłości ponownie zrzucać tych 25 arkuszy do jednego arkusza? Bo jeśli nie, to, moim zdaniem lepiej to zrobić na piechotę, kopiując dane z poszczególnych skoroszytów do jednego. Można wcześniej np. ustawić różne kolory tła dla poszczególnych arkuszy, jak również ponazywać zakresy komórek obejmujących...
Jeszcze mam jedno pytanie, ta sama funkcja transponuj. Jeżeli w kolumnie A mam liczby, są to różne liczby są też puste komórki i obok każdej liczby w kolumnie B jest przypisana wartość, chciałbym żeby sprawdzał liczbę w kolumnie A np. 2,5,7,1 i kopiował lub przenosił wartość z Kolumny B odpowiednio do kolumn C1 D1 E1 F1 następny wiersz C2 D2 E2 F2 itd....
Cześć, Bardzo pomocne, Potrzebuje jeszcze tylko usunąć puste komórki, tzn. nie są one puste ponieważ zawierają z funkcji jeżeli wartość "". Można wstawić jakąkolwiek i usunąć przez znajdź i zaznacz. Jednak z powodu ogromnej ilości danych trwa to na prawdę bardzo długo. Czy znacie jakiś szybszy sposób na usunięcie tych komórek, które wyglądają na puste?
wpisywane "ręcznie", a nie poprzez formuły - jak ogarnąć drugą część mojego problemu? Żeby wykorzystać makro zdarzeniowe :D to proponuję wykorzystać jednak inną kolumnę np. wolną obecnie kolumnę A :spoko: . W załączonym pliku proponuje w przedostatniej komórce kolumny A wprowadzić wartość 1 , a wówczas cały ten wiersz (od B do AH) zostanie wstawiony...
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, 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...
Cześć. Załącznik jest pusty, w archiwum nie ma żadnego pliku.
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
Weź jeszcze ew. pod uwagę przypadek, kiedy w arkuszu występuje pusty wiersz i po nim kontynuacja numeracji wierszy.
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...
marek_s1 fajnie to chodzi, i jest dużo prościej, będę próbował w ten deseń. a jeżeli chciałbym dodać jeszcze grupę 4xxxx? Jak zamieniam zamiast 7 wychodzą głupoty Jest jeszcze problem, że czasem dla danej grupy 1xxxx nie ma wierszy 333 i 555 jest jakby pusty, co wówczas?
Najprościej zrób formułkę: =JEŻELI(CZY.PUSTA(A1);JEŻELI(CZY.PUSTA(B... a potem ją rozszerz na cały arkusz (zaznaczasz pole z kolumną, chwytasz za wyróżniony róg i przeciągasz) Oczywiście taka formuła w przypadku gdy obie kolumny będą wypełnione weźmie kolumnę A ale z tego co piszesz nie będzie takiej sytuacji. Możesz też posortować arkusz...
A jeśli bym chciał na odwrót?? żeby to z kolumny C przekopiowało się do kolumny A, z której wyszukuje tekst "aa" i zastąpiło ten tekst czymkolwiek co jest w kolumnie C, a C kolumnę pozostawiło pustą???
W przykładowym pliku pokazałeś już dane posortowane, więc nie zobaczysz tak łatwo efektu, chyba że sobie posortujesz odwrotnie. Sposób postępowania, który najprościej zastosować: Rozdzielić listy pustymi kolumnami. Wartości z listy wzorcowej ponumerować od 1 do N w dodanej kolumnie. Do listy sortowanej dołączyć kolumnę z wyliczonymi numerami wg listy...
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ść,...
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...
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, Znalazłam w Internecie kod makra, które jest podstawą do pomocy przy tworzeniu mojego. Jednak jest to moje pierwsze makro, które tworzę dla kolegów i koleżanek. W swoim makro chciała bym aby rozpoczęcie łączenia plików excela rozpoczynało się zawsze w wierszu 3 (nagłówek w pierwotnym skoroszycie jest zawsze w 3 wierszu, pierwsze dwa wiersze są...
Być może jakiś "niekumaty" jestem. Możesz trochę rozwinąć? Chcesz mieć listę rozwijalną imion znajdujących się w wierszach zakresu (w przykładzie) B2:D12? Czy imiona w wierszach są zawsze takie same? Czy może zdarzyć się pusty wiesz? No i co z tym "znikaniem"? Edit: Przy porannej kawie wyszło mi coś takiego (z pustym wierszem dla przykładu)
puste wiersze excel puste puste excel
sterownik ekran nvidia windows moduł zmywarka ariston hotpoint automat świateł dziennych
wymiana lasera onkyo kontrola dostępu roger
Telewizor Manta nie łączy się z dekoderem Play - rozwiązania Radio w Ford Kuga nie działa - przyczyny i rozwiązania