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...
1. Porównywać daty w instrukcji warunkowej. 2. Wyszukać ostatni niepusty wiersz i podstawić: Range("A" & ostNiepusty).Select
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...
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...
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.
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....
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...
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 -...
Witam, mam ogromna prosbe czy mógłby ktoś mi pomóc/podpowiedzieć w zmodyfikowaniu makr. 1. W załączonym skoroszycie jest jeden arkusz główny <BAZA> i kilka arkuszy pomocniczych np <SM_S_M>, (ich liczba lub nazwy moga się zmieniać). Do każdego z "Arkusza pomocniczego" podpiete są makra które mają za zadanie skopiować zawartość zamknietych...
Do pliku xls, tak jak na poniższym zdjęciu. Mam stworzone makro które kopiuje same wartości do nowego arkusza, tam wszystko porządkuje, a następnie kopiuje do pliku który jest już stworzony, na którym będą działy się wszystkie operacje. Dzieje się to w optymalnym czasie(około 2 minuty) W tą stronę wszystko pasuje, tylko ten plik eksportowany będzie...
Cześć, spróbuj takie makro [syntax=vbscript]Sub Przenies() Dim O As Worksheet: Set O = Worksheets("Obliczenia") Dim N As Worksheet: Set N = Worksheets("Nowe Dane") Dim i&, Ow&, Nw&, a$ Ow = O.Cells(Rows.Count, 1).End(xlUp).Row + 1 Nw = N.Cells(Rows.Count, 1).End(xlUp).Row Application.ScreenUpdating = False With O .Activate .Range(Cells(Ow...
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...
Dzień dobry, Mam taki problem, że staram się stworzyć makro, które pozwoli mi kopiować pełne wiersze z odpowiedniego zakresu (B7:AR7) z 8 plików składowych do pliku zbiorczego i ustawiać skopiowane dane w kolejności (w kolejnych wierszach pliku zbiorczego). Na obecną chwilę mam takie makro: Sub fileCollection() Dim bs As Range Dim bd As Range...
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...
Autor wlasnie porownanie mial na mysli (tudzież jakąś inna fukcje), z tym , ze jak nagra sie makro, gdy tabela A miala np 2o wierszy i wpisze sie funkcje do kol. B, i kliknie dwa razy, to ost zapelniony zakres to B20. Gdy ilosc wierszy wypelnionych w kol. A wzrasta, to niestety makro wypelni tylko zakres do B20, chodzi mi ,zeby kol. B byla wypelniona...
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...
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...
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...
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...
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) <>...
Teraz możemy to przeanalizować: Makro "Save" wywołuje procedurę "kopiuj_wartości" z trzema parametrami: co kopiować, Nr wiersza docelowego określonego w pętli Do (ostatni niepusty w kol "C" arkusza "REPORT") i Nr kolumny docelowej. Jeżeli chcesz wykorzystać je w tej formie, to docelowy plik (NN.xls) musi zawierać arkusz o tej nazwie (REPORT). Linię...
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...
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...
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...
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...
Dzień dobry, Zawracam się z prośbą o pomoc. Starałem się przeszukać forum, niestety nie znalazłem pomocy dla rozwiązania problemu. Chciałbym utworzyć makro, które znacznie usprawniłoby moją pracę. Mianowicie, (jak w załączonym pliku) potrzebowałbym kodu, który kopiowałby po kolei każdą komórkę z kolumny "A" z arkusza#2 i wklejał ją w kolumnie "C" 14...
[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...
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...
Witam, tak jak napisałem w temacie piszę makro w celu umożliwienia sobie kopiowania warunkowo danych na przecięciu konkretnej kolumny z konkretnym wierszem, warunkiem jest to by na przecięciu wiersza i kolumny znajdowała się jakakolwiek wartość. Muszę tym samym sprawdzić wszystkie wiersze po kolei, w tym celu napisałem kod: wszystkie wartości z danych...
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....
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...
Dziekuje za odpowiedz z kursu napewno skorzystam i wezme sie za prace... poszedlem troche na latwizne i udalo mi sie przerobic czyjes makro i smiga wysmienicie moze komus tez sie przyda pozdrawiam Sub OperacjeHurtowe() Dim wbkSkoroszyt As Workbook Dim i As Long, szukWiersz As Long, wiersz As Long Dim sciezka As String ' okreslam sciezke szukania...
Niestety nie mogę zobaczyć tego co załączyłeś W związku z tym pozwoliłem sobie trochę "pogrzebać" w kodzie kolegi... Takie coś http://obrazki.elektroda.pl/5992088900_1... Wkomponuj kopiowanie zamiast zapisywania i z głowy. P.S. Pętla pobierająca nazwy plików sprawdza kolumnę A. W pliku, do wiersza 360, są formuły /end(xlUp) uzna je...
Rejestrator makr nie działa? 50% potrzebnego makra uzyskasz w ten sposób. Następnie poszukaj wyszukiwania ostatniej niepustej (jest mnóstwo tematów) i uzupełnij (zmodyfikuj)...
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 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 kopiuj makro kopiowanie niepustych makro kopiuj wklej
zasilacz samodzielnego montażu pompa paliwa peugeot komora rezonansowa
maszyna minerva śmieszne obrazki
Zamiennik tranzystora 2SK244 – 2SK170, LSK170, LSK389, selekcja JFET do Sony, Toshiba Opel Antara – reset modułu szyb elektrycznych, procedura normalizacji, funkcja one-touch