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...
Witam, Proszę Was serdecznie po pomoc w napisaniu jednego makra, z którym mam problem... Mianowicie chodzi o: - w Kolumnie A mam komórki z których niektóre są wypełnione danymi a pomiędzy nimi znajdują się puste komórki (jest tak zrobione specjalnie w wyniku innego makra i zależy mi żeby wypełnione komórki były w tym miejscu gdzie są bez zmiany położenia)...
witam, próbuję zrobić makro, które, kopiowałoby komórki z wartością >0 i wklejało wartość do tej samej komórki, ale w całkiem innym skoroszycie. Ścieżka do skoroszytu, w którym miałyby się znaleźć wklejane wartości byłaby zawsze ta sama. z góry dziękuję za pomoc
A mógłbyś pokazać rozwiązanie z zastosowaniem makra, tak aby jeszcze pogrubiało No nie :cunning: - to zupełnie nie ma sensu łączenie rozwiązania "formułowego" z rozwiązaniem VBA :cry: Żeby uzyskać efekt jak na zrzucie: 864550 konieczne jest precyzyjne rzeźbienie (musisz przewidzieć, które fragmenty tekstu mają być pogrubione :crazyeyes: ) wszystkiego...
zamiast: If Cells(wrs, 1) <> "" Then powinno być: If .Cells(wrs, 1) <> "" Then (trzeba dostawić kropkę) Niemniej jednak proponuję najpierw odfiltrować całą oryginalną kolumnę (niepuste) i skopiować wszystko za jednym zamachem do nowego arkusza - trwa jedno mrugnięcie okiem.
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 -...
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...
Mogę mieć plik w tym samym miejscu i z tą samą nazwą. Do tego dążę - żeby zautomatyzować. Nie chcę tabeli przestawnej bo muszę pracować na tych danych. Przerabiałam to już i się to nie sprawdziło. Dobra odpuśćmy ten temat. Czy możesz mi powiedzieć jak ponumerować wiersze, aby numery szły kolejno, ale jeśli wiersz się powtarza to zwróci ten sam numer?...
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...
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()...
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...
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...
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...
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...
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...
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...
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) <>...
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...
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...
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...
[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...
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...
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...
nie, nie raczej żeby się to samo z siebie zrobiło, ale widze że chyba przeceniłem excela. To jak to zrobić w VBA?? rejestrator makra mi pokazał coś takiego: Dodano po 4 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....
Witam! Chciałbym uprościć sobie codzienne wpisywanie danych na koniec zmiany roboczej, bo obecnie muszę codziennie wypełniać 5 różnych skoroszytów (plików raportu) stworzyłem plik o nazwie „!wpisywanie” który po uzupełnieniu zawiera wszelkie dane potrzebne do uzupełnienia każdego z pliku raportów i chciałbym go odpowiednio zaprogramować...
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...
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...
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...
makro kopiowanie niepustych excel kopiowanie niepustych komórek makro kopiowanie komórek
schemat elektryczny lusterek generator iskra artefakty intel
wymiana wlacznika swiatla sonos playbar
Liczba o-ringów w wtrysku benzyny: szczegóły i analiza Czy wodomierze z aplikacją można zatrzymać magnesem?
