Listę, prawdopodobnie, można uznać za skończoną, jeśli ilość elementów z kolumny nazwisk będzie równa liczbie elementów kolumny karty ocen, tak więc przed wywołaniem formy porównaj liczbę niepustych komórek w obydwu kolumnach i jeżeli jest równa pomiń aktywowanie formy
Wychodzi dokładnie to samo, tzn. przy odjęciu jednego wiersza działa, inaczej nie. Dzisiaj zmieniłem adresy komórek i o dziwo działa :D Dziwne, ale skuteczne :D Chciałbym jeszcze ażeby przy wpisywaniu komentarza excel pomijał puste komórki i wpisywał następną niepustą. Da radę? POZDRO I DZIĘKI! :)
Przykładowo: W komórce A2 formuła: =JEŻELI(B2="";"";1) W komórce A3 formuła: =JEŻELI(B3="";"";MAX($A$2:A2)+1) Kopiujesz formułę z kom. A3 w dół i masz L.P. w kol. A. dla niepustych komórek w kol. B. Mogą być przerwy w kol. B.
U mnie ten kod dokładnie taki jak wkleiłeś działa i kopiuje... Wejdź do kodu i wciskając F8 prześledź krok po kroku, czy kod wykonuje się tak, jak trzeba... A, jedna uwaga - w tej chwili kopiujesz wszystko do tej samej komórki, bo zmienna ost_w nie jest zwiększana. Przerób na: [syntax=vb]wiersz = wswyn.Range("B65536").End(xlUp).Row + 1 For i = 19 To...
Super! Dokładnie o to chodziło! Tabela przestawna rozwiązuje sytuację. Ale żeby ją utowrzyć, trzeba mieć zbiorczo podsumowane wszystkie faktury, bez pustych wierszy. Jak to zrobić automatycznie dla wszystkich arkuszy? Żeby było tak jak na screenie :) https://obrazki.elektroda.pl/1574377400_... EDIT: nie trzeba mieć pustych wierszy -...
Na początku musisz ustalić długość kolumny, którą będziesz przeszukiwać tzn. ostatnią niepustą komórkę. Możliwe jest to za pomocą: Application.WorksheetFunction.CountA(... Do wyszukania wartości użyć można: Selection.Find() Cały wiersz zaznaczasz za pomocą: Rows().Select Zaznaczony wiersz kopiujesz: Selection.Copy Wklejasz: Range().Select...
1. Załóż filtr w oryginalnej tabeli (niepuste) -> zaznacz całą tabelę i wtedy dopiero kopiuj dane . Może nawet lepiej wklejać "tylko wartości" niż dane z pełnym formatem każdej kopiowanej komórki. Zrobisz to w jednym ruchu zamiast korzystać z pętli (2000 razy). Po nagraniu makra można edytować zaznaczony zakres tak, żeby najlepiej nam odpowiadał. 2....
Funkcja WYSZUKAJ zwróci wynik przybliżony, czyt. nie zawsze prawdziwy. Precyzyjniej działa funkcja WYSZUKAJ.PIONOWO. W Twoim przypadku formuła umieszczona w 'Arkusz3' powinna wyglądać tak: WYSZUKAJ.PIONOWO(Arkusz1!A1;Arkusz2!A1;1... Funkcja zwróci: 'ND' w przypadku niepasujących wartości. Można to zastąpić dowolnym tekstem stosując: JEŻELI i CZY.BŁĄD....
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...
Ok dzięki :) Teraz coś trudniejszego: Mam dwa arkusze z danymi, w arkuszu 3 wpisałem formułę =JEŻELI(LICZ.JEŻELI(Arkusz1!$A$2:$A$10;A... czyli jeżeli (tutaj akurat nazwisko) powtarza się w arkuszu 1 i 2 to kopiujemy je do arkusza C. Później kopiuję resztę i poprzez wyciągnięcie niepustych komórek mam to co chciałem :) czy można...
Cześć, W jaki sposób mógłbym przenieść dane z jednego arkusza w tym wypadku Nowe dane do arkusza obliczenia odpowiednio dostosowując formatowanie komórek do arkusza docelowego i ustawiając odpowiednią kolejność danych. W arkuszu Obliczenia w kolumnie rachunek dane są przechowywane jako tekst natomiast w Nowych danych jako numer lub ogólne. Dodam, że...
Dane z niepustych komórek kolumny D w arkuszu 'WROWADZANIE...' mają być kopiowane do odpowiednich wierszy w arkuszu '2020'. Dokładny sposób opisałam właśnie zmiennymi, bo inaczej trudno mi to wyjaśnić. Np. D7 (arkusz 2)- kolumna J (arkusz 1) D8 (arkusz 2)- kolumna L (arkusz 1) D9 (arkusz 2)- kolumna N (arkusz 1) ... To w którym wierszu ma być wpisane...
Dziękuję, ale nie potrafię pisać w VBA (w ogóle nie jestem programistą), więc jak małpa kopiuję - czy wyszukiwanie może być tak: [syntax=vb]Sub zamiana() Dim abc As Range For Each abc In Range("$A$2:$A" & Range("$A65536").End(xlUp).Row) If UCase(abc) = "Cena" ..... ...... End Sub[/syntax] I jak zamienić wartości niepustych komórek w wierszu, gdzie znajduje...
Z arkuszua1 kopiuję zakres np. A2:M20 (ilość kolumn jest zawsze stała, ilość wierszy się zmienia) i musze go wkleić do arkusza2 od kolejnej niepustej komurki w kolumnie A. Takie makro można zarejestrować, nawet nie trzeba używać do tego VBA. Zwróć uwagę na to, że wciskając END a potem strzałka - skaczemy do końca(początku/następnej zmiany) zapełnionego...
Dzień dobry, Jeśli to ma być zrobione jednorazowo, można użyć Filtra zaawansowanego, jak w pliku przykładowym. Danym trzeba nadać nagłówek, potem taki sam musi być w zakresie kryterium. Jako kryterium wpisać gwiazdkę. Wybrać opcję filtrowania Kopiuj w inne miejsce. Jeśli lista nie zawiera duplikatów, można też użyć funkcjonalności Usuń duplikaty. Należy...
to makro do "zabawy" Dodano po 2 jeszcze dwie wersje.... Pierwsza ile_wierszy, to może być niemal dowolna liczba sprawdzonych wierszy , można wpisać nawet tyle ile wierszy ma cała kolumna (zależy od wersji Excela) Chodzi o to by nie sprawdzać całej kolumny bo to może potrwać.... Skopiowane zostaną tylko niepuste komórki. [syntax=vba] Sub copy_cells()...
Dziękuję Panowie. Szczegółowe opisanie tego co chcę osiągnąć było by dość długie. W arkuszu pierwszym mam zaimportowane pewne dane z pliku csv. Dane te dotyczą różnych osób i tu nie ma reguły. Np dla Jana Kowalskiego mamy 3 wiersze danych, dla Marii Kowalskiej mamy 4 wiersze. Natomiast dla Stanisława Nowaka mamy też jakiś tam wiersz z informacją że...
Jestem początkującym użytkownikiem VBA Mam następujący problem: Chciałbym skopiować wybrane wiersze plików excela do jednego zbiorczego excela. Pliki Excel z którego chce pobierać dane mają zawsze taki sam format. Chce kopiować wszystkie niepuste wiersze które znajdują się pod stałą wartością w konkretnej komórce. Makro, które zasysa lokalizację plików...
Ktoś musi je wpisać :) Wklepanie dwóch prostych formuł, skopiowanie jednej z nich przy użyciu kombinacji skrótów klawiszowych w dowolną ilość komórek w kolumnie zajmuje <5 sekund. O takim zautomatyzowaniu myślimy? Przydatne skróty: 1. Ctrl+strzałka w dół - przejście do ostatniej niepustej (Np w kolumnie D) 2. Ctrl+Shift+Strzałka w górę - zaznaczenie...
Dziękuję, ale wydawało mi się to podobne, a miałem wrażenie, że mnie "pojechałeś" od razu. Jest to mi potrzebne, dlaczego. Otrzymuję co roku inny cennik. Za każdym razem są, tzw. wymieniane artykuły. Niektóre znikają, a niektóre są nowe. Cennik ten przychodzi w języku niemieckim lub angielskim i to jeszcze ubogi (bez dokładnych opisów artykułów). Ja...
Wielkie dzięki za pomoc! Zmieniłem trochę twój kod do moich celów. W twoim kodzie makro kończyło pracę gdy w pierwszej kolumnie napotkało pierwsza pustą komórkę. Potrzebowałem mieć pewność, że wszystkie dane zostaną skopiowane. Dlatego też zmieniłem pętle DO WHILE na pętle FOR i użyłem funkcji adamas_nt . [syntax=vb] Sub Copy() Dim myPath As String...
Nic tak nie uczy jak przykłady, a tych jest na forum dostatek. Szukaj pod hasłem "Excel Dir", "Excel lista plików" i coś na temat pętli. Np For Each element In kolekcja , gdzie kolekcja to zakres komórek z nazwami katalogów. Np coś takiego [syntax=vb]Sub bla() Dim zakres As Range, kom As Range Dim kat As String, sKat As String, plik As String Set zakres...
Jak rozumiem, dane masz w arkuszu Wk (aktywnym) i chcesz je przekopiować do arkusza Ww (zestawienie)? Jeśli tak, po lewej stronie musi być odniesienie do arkusza, do którego kopiujesz dane (Ww), a po prawej - arkusza źródłowego (Wk). Dlatego też dziwię się, że piszesz że to zdziałało odwrotnie. Jeden szczegół na który nie zwróciłem uwagi - jeżeli w...
Hej, czy mógłby ktoś mi pomóc poprawić poniższy kod, który ma pobierać do Arkusza "BAZA" dane ze wszystkich pozostałych arkuszy w tym skoroszycie, jeśli wiersze zaczynają się od niepustej komórki A. Problem polega na tym że jeśli w którymś arkuszu w kolumnie A jest pusty wiersz, to makro nie pomija tego pustego wiersza idąc do następnego wiersza w tym...
[syntax=vb] Sub kopiarka() Dim kom() As Variant ReDim kom(22, 1) As Variant Dim MyDir As String Dim CurrentFile As Variant Dim i As Integer Dim ChosenFile As String ChosenFile = Application.GetOpenFilename(FileFilter:=... Files (*.xls), *.xls", Title:="Wybierz jeden dowolny plik z katalogu źródłowego:") If ChosenFile = "False" Then Exit Sub Workbooks.Open...
Witam. Mam trzy kolumny A, B i C. Z kolumny A kopiuję dane do komórki C1 za pomocą formuły =A3&","&A4&", "&A5&","&A6&","&A7 . Teraz uruchamiam autofiltr na kolumnie B z parametrem "niepuste". Dane przefiltrowane, jednakże W komórce C1 pojawiają się także dane niewidoczne po użyciu filtra. Jakiej użyć formuły aby do komórki C1 wpisane były tylko przefiltrowane...
Witam Chciałbym Was bardzo prosić o pomoc w napisaniu algorytm/sposobu, który wydaję się w miarę logiczny i prosty do wykonania…Szukałem rozwiązania jednak nie mogę znaleźć nic podobnego. Poza tym moją wiedza z zakresu VBA jest chyba zbyt skromna. Dane, którymi muszę się zając to kilkaset wierszy wpisów w tabeli. Dane źródłowe wyglądają jak 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...
Witam serdecznie, potrzebuje pomocy w stworzeniu makra służącemu skopiowaniu określonego zakresu komórek (zawsze inny) w jednym arkuszu i specjalnego wklejenia (jako zdjęcie)do drugiego arkusza. Zdjęcia będą trzy ( z trzech różnych arkuszy) zawsze zakres zaznaczonych i kopiowanych komórek zawierał będzie się od komórki A1 do komórki o wartości słowo...
Witam wszystkich - to mój pierwszy post i miło mi znaleźć się na tym forum. Mam problem następującej treści. Codziennie eksportuję dane do pliku .csv, np. eksport.csv. Dane zapisywane są w 3 kolumnach. Stworzyłem drugi plik (np. drukuj.xls), który ma konkretnie wyglądać - mieć zmienioną orientację strony na poziomą i powiększoną czcionkę, ale te same...
makro kopiowanie komórek niepustych kopiowanie komórek excel excel kopiowanie komórek
debugowanie laptop sterowanie oświetleniem komputer nagrzewnica zatka
amica pbp2vq203f amica pbp2vq203f
Windows 7 SP1: Co oznacza kompilacja 7601? Podłączenie falownika Solax do licznika dwukierunkowego: dlaczego to konieczne?