zwróci tą wartość do komórki A2 w innym arkuszu "Arkusz 1", następnie znajdzie następną niepustą i zwróci ją w A3, kolejną w A4 itp Proponuję jednak zrobić przykładowy plik z ewentualnym opisem co ? i kiedy ? ma robić to makro ? - np jeśli zmieni się "wypełnienie" kolumny D niepustymi komórkami to przy kolejnym przebiegu makra - mają być kopiowane...
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 -...
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....
Tu jest szukanie ostatniego, niepustego ActiveSheet.Paste , to wcześniej powinieneś wybrać (Select) lewą, górną komórkę obszaru, lub cały, o tym samym rozmiarze zakres. Nie mam Twojego pliku docelowego, więc pisze wszystko "na czuja". Musisz analizować otrzymany "materiał do przemyślenia" i sygnalizować co, w której linijce nie działa prawidłowo.
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...
czy da radę osiągnąć pożądane rozwiązanie przy użyciu funkcji Przy użyciu kilku formuł można uzyskać pożądany efekt 864279 Wszystkie formuły w ukrytych kolumnach J:M załączonego pliku. chciałbym aby tak jak na zaznaczonym wzorze część wartości była pogrubiona - da radę coś takiego zrobić? Oczywiście, że się da :lol: - wystarczy zrobić makro, które...
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...
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...
Witam, Mam do napisania makro, które będzie kopiować dane z pewnego arkusza (nazwa arkusza nie zmienia się, ilość danych również) z dużej ilości plików o zmiennej nazwie (liczba skoroszytów może się zmieniać). Pierwszy problem polega na określeniu ostatniego niepustego wiersza w każdym z tym plików (określenie kolumn nie jest konieczne gdyż ich liczba...
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...
Cześć, przejrzałam podobne tematy do mojego problemu ale niestety nie potrafię tego odzwierciedlić w moim zadaniu. Chodzi o to że mam dwa pliki A i B. Plik A jest aktywny i w nim chcę żeby działało makro, które ma na celu: -otworzyć plik B Arkusz2 i wyszukać liczb które znajdują się w plikuA w kolumnie A. Jeśli je znajdzie to przekopiować z tego samego...
Przecież do tego nie potrzebne Ci jest żadne makro. Sama napisałaś Problem dotyczy genralnie wypelnienia kolumny B funkcja wzgledem wszystkich niepustych wierszy (ciagly obszar od A1) w kol. A. Korzystając z przykładowego pliku stwierdzam, że wystarczy w komórce B1 wpisać: =+A1 Po podwójnym kliknięciu na prawy dolny róg komórki B1 osiągniesz to o czym...
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...
JRV - komórki z kolumny j muszą być przeniesione do BB2:BB5001, mogą być przeniesione z usunięciem pustych komórek. Np jeżeli kopiuje tylko J5, J10, J15 mogę je skopiować do komórek "BB2:BB4". Mogę też do BB5,BB10,BB15, muszą być w kolumnie BB, a cyfry nie mają znaczenia(przynajmniej tak mi się wydaje). Komórki z ("k2:n5000") do ("BC:BF") z takimi zastrzeżeniami...
Witam Jestem początkujący w temacie VBA. Mam problem z napisaniem makra które wyszukało by wartości z zakresu A5 do ostatniej niepustej komórki w kolumnie A arkusza "kartoteka zlecen produkcyjnych" w arkuszu "kartoteka indeksow" zakres A2 do ostatniej nie pustej komórki w kolumnie A i jeżeli znajdzie taką samą wartość przekopiował wartości z kolumny...
Doczytałem jeszcze, że wszystko odbywa się w tym samym arkuszu. W takim przypadku musisz zagnieździć dwie pętle. Zewnętrzną Do...Until z inkrementacją wiersza, gdzie warunkiem będzie niepusta komórka i wewnętrzną For...Next również ze zwiększaniem indeksu wiersza. Taki szybki przykład "pisany na kolanie"[syntax=vb]wrs = 1 Do While Cells(wrs, 1) <>...
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...
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...
[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...
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...
Nie sprawdzałem działania, ale: Błąd 1: nieprawidłowa instrukcja Rows.Count (x 1 Up, powinno być XLUP). Lepiej: FinalRow = Cells(Rows.Count, 1).End(xlUp) Lub FinalRow = ActiveSheet.UsedRange.Rows.Count Błąd 2: Pętla For. Jeżeli przypisujesz wartości zmiennej i , to: Next i lub (również prawidłowo) samo Next bez jawnego nazwania zmiennej....
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...
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...
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...
jesli chodzi o vba to znam go bardzo pobieznie. dostosowalem sobie kod ktory wskazales do swoich potrzeb jednak brakuje mu jeszcze troche do tego o czym pisalem. Mianowicie: 1) nie wiem jak wstawic te dane ktore teraz mi wyswietla obok w Arkuszu2 do Arkusza1, musialby tez niekiedy wstawiac wiersz 2) w tej chwili zrobilem tak ze szuka tego co znajduje...
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 niepustych excel kopiowanie niepustych komórek makro kopiowanie komórek
pokrętła temperatury mikrotik ipsec zrobić przenośne radio
odtwarzacz sieciowy bosch zawias
Zamiennik tranzystora BC147A - BC547B, BC107 i inne Najkrótszy program w pralce Margherita ALS748TX