Witaj. Zakładając, że oryginalne dane na pierwszym arkuszu, a wynik na drugi: [syntax=vb]Sub upraw() Dim bsk As Range, bsr As Range Dim rb&, rd&, cd&, cm& Set bsk = ThisWorkbook.Sheets(1).Columns(1).Cells Set bsr = ThisWorkbook.Sheets(1).Range("B:J").Rows rb = 2: rd = 2 With ThisWorkbook.Sheets(2) bsk(1).Copy .Cells(1, 1): bsr(1).Copy...
Możesz go na końcu usunąć: sheets("Y").rows(1)entirerows.delete. Lub kopiować od Nr 2 [syntax=vb]With Sheets("X") .Rows ("2:" & .Rows.Count).SpecialCells(xlCellTypeVisi... Sheets("Y").Range("A1") End With[/syntax]
sprawdź załącznik
Zawsze możesz też zrobić tak aby Makro pytało Ciebie przy odpaleniu z jakiego pliku zewnętrznego ma kopiować jaki zakres danych.
PRL ThisWorkbook.Activate = Windows(Zeszyt).Activate Zrobić pełny link do arkusza. ActiveWorkbook.Sheets(1).Range("A:A").Co... Być może, jak skoroszyt otwiera, jest kopiowany z bieżącego zakresu.
Trochę zależy jak to wygląda z resztą makra. Generalnie, wczytywanie powinno być niezależne od aktywnego arkusza. Czyli [syntax=vb]Sub wczytywanie_danych() Dim dane As Variant dane = Worksheets("Arkusz1").Range(Cells(1, 1), Cells(10000, 3)) End Sub [/syntax]
Witam. Próbuję napisać makro, które kopiuje pewien zakres danych z jednego arkusza do innego arkusza w zestawieniu. Problem polega na tym, że dane w zestawieniu z każdego arkusza powinny się pojawiać, bez względu na to ile jest arkuszy w zeszycie. Proszę o pomoc.
Wklejać danę będe do innego skoroszytu . To dlatego brakowało tego arkusza "Dane" w Twoim pliku :?: :D Jeśli tak nieprecyzjnie wszystko opisujesz to wprowadzasz w błąd wszystkich, którzy Ci pomagają :cry: Makro kolegi PRL będzie Ci kopiowało określony zakres danych tylko do arkusza Dane w tym samym skoroszycie :!:
Hej, Jestem zielona jeśli chodzi o makra. Moja dotychczasowa kariera to jedynie ich nagrywanie ;) Od dwóch dni czytam tematy na forum z wypiekami na twarzy! Próbuję pilnie stworzyć makro choć niestety bez skutecznie, czuję się jak dziecko, które próbuje ogarnąć całki a nie umie dodawać ;( Chciałabym za pomocą makra ściągać informacje [do arkusza "AA"...
Albo zamień na 6 kopiowań, czyli każdy zakres osobno. Albo zarejestruj sobie makro: zapisz jako ... następnie wyczyść zbędne.
Tak na szybko: [syntax=vbscript]Sub Kopiuj() Dim irow As Integer Dim wiersz As Integer Dim kolumna As Integer wiersz = 1 kolumna = 1 For irow = 2 To 6000 If Len(Cells(irow, 1)) > 0 Then Worksheets("Arkusz_2").Cells(wiersz, kolumna).Value = Worksheets("Arkusz_1").Cells(irow, 1).Value kolumna = kolumna + 1 End If If kolumna = 17 Then kolumna = 1 wiersz...
Witam, Staram się napisać makro, które zlicza ilość rekordów w przedziale od (B2:B2000) Zaznacza formułę w wierszach A2 i kopiuje ją do zakresu A3:A(wynik z liczenia +1) Nieudolnie napisałem coś takiego, ale nie wiem jak ustawić zakres odwołując się do wyniku z operacji liczenia... PS. Docelowo formuły będą się kopiować z kilku "zakresów" np. Range("D2:E2")...
Witam. Mam pytanie, czy dysponuje ktoś makrem lub byłby w stanie napisać * lub doradzić jak napisać makro , które pozwoliłoby kopiować zakres danych do skoroszytu głównego. Oczywiście wszystkie inne skoroszyty są "kopią" tego głównego. Interesuje mnie taka sytuacja. Ktoś pracuje na pliku 1.xlsx w skład którego wchodzą powiedzmy 2 arkusze ( arkusz1 oraz...
Działa świetnie, dziękuję! Mam jeszcze pytanie. Jako że ten plik był testowy podałem tylko dwie dane do kopiuj/wklej. Czy jest możliwość uniknięcia efektu "migania" w chwili gdy wykonuję makro na dużym zakresie danych.
A co z nagłówkami, powtarzanymi wielokrotnie ? Ma być tylko jeden, czy ileś tam za każdym razem nowy i w wyniku nagłówkowy przekładaniec ? Edycja: Nie przyjrzałem się ... kopiujesz bez nagłówka ... Ale może przy pierwszym kopiowaniu powinien on być przenoszony jednorazowo ? Ręczie go wklepujesz/kopiujesz ? Edycja: Sprawdź: [syntax=vba] Option Explicit...
No jak chcesz koniecznie kopować: Sub Kopio_aktyw_wiersza() ' ' Kopiowanie danych z aktywnego wiersza kol. A do D ' aktywny = Selection.Row kolumna = 1 ostatnia = Cells(Rows.Count, kolumna).End(xlUp).Row ' bez selekcji od razu kopiowanie wybranych komórek : Range(Cells(aktywny, 1), Cells(aktywny, 4)).Copy 'kopiowanie danych z aktywnego wiersza zakres...
Super, dziękuję. Dodano po 8 Jeszcze jedno pytanko, czy jest możliwość żeby zamiast komunikatu "wybierz zakres", na stałe podać zakres do tworzenia arkuszy (dane w tym zakresie są zmienne, ale zakres z którego mają się tworzyć arkusze jest stały)?
Witam, Mam pytanko do wszystkich fachowców z Excela, jak powinno wyglądać makro które stworzy mi kolejny plik, i skopiuje do niego dane które mam obecnie zaznaczone, dobrze by było aby w pliku głównym stworzyło mi również hiperłącze do nowego pliku, tak aby w razie ewentualnej edycji danych zmieniły się one również w pliku który powstał podczas owego...
Utworzyłem makro które kopiuje zakres danych z jednego skoroszytu "Dane" do drugiego "GOW" w pierwszy wolny wiersz kolumny B arkusza "GO1" i "GO2" Niestety formuła nie jest idealna, widzi wstawioną tabelę w arkuszach "GO1" i "GO2" jako zajęty wiersz i wkleja wszystkie dane pod tabelą. Właściwe działanie jakie powinna wykonać formuła to wklejenie zakresu...
Witam, mam nastepujacy problem: "zrodlo" - posiadam np. 10 zakladek z takim samym ukladem - sa to zakladki z ktorych chce kopiowac dane "cel" dane chce kopiowac do 40 innych zakladek (kazda zakladka posiada swoj numer np. 5455) - numer ten jest wpisany "x" razy w zakładkach "zrodlo" w kolumnie A. w jaki sposob napisac makro które bedzie do zakladek...
Robiłem to z użyciem funkcji Vlookup excella ale strasznie długo mieli dane. W formułach użyć nie całą kolumnę(D:F), a zakres(np. $D$1:$F$1000)
Przerobiłem makro z innego wątku PRL - sprawdź czy działa Umieść makro w plik B"plik B.xlsx" PRL po dodaniu elementów z Twojego nagrywania.
Dwie wątpliwości: 1) Czy te formuły będą takie jak w przykładzie tzn. będą się odwoływać tylko do danych z tego samego wiersza? 2) Czy to ma być kopia z zaznaczenia (zaznaczam x wierszy i to kopiuję, tylko dokąd? jak określić miejsce docelowe?), czy kopia wszystkiego co jest (do ostatniego wypełnionego wiersza w określonej kolumnie), wtedy miejsce docelowe...
Ręce opadają :) To co Ty właściwie chcesz zrobić? ale jeśli dane są pobierane z internetu Dane z internetu wprowadzaj od razu do "z góry upatrzonego" zakresu. lub np z innej komórki Oprogramuj tą "inną komórkę"... Co to znaczy "z automatu"? Żeby coś się zmieniło w arkuszu, najpierw musi się coś wydarzyć.
jeśli to są zakresy komórek, to możesz spokojnie nagrać makro - nie trzeba się bawić w ręczne tworzenie jego.
prośba o wskazówki Wskazówek do problemu, którego nie opisałeś się nie da dać.;) Wiemy, że masz pobierać dane ze wszystkich plików z wybranego folderu. Nie wiemy, jakie zakresy danych pobierać i gdzie je kopiować. Opisz to proszę. P.S. W załączniku gotowiec do dostosowania dla potrzeb.
Ok Działa, ale nie przenosi do innego arkusz. Ponadto kopiuje tylko wiersz A2 i to jest dziwne bo w kodzie jest umieszczony zakres od A2 do U3. Nie wiem czym to jest spowodowane. To może tak, zarejestrowałem nowe makro: Sub kopiowanie() ' ' kopiowanie Makro ' ' ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 Range("A1:U2").Select Selection.Copy...
Zwykle wystarczy operator And. Osobiście staram się unikać wszelkiego select-copy-paste, dlatego ciut zmodyfikowałem makro. [syntax=vb]Set zakres = Worksheets("AAA").Range("A3:A500") With Sheets("Załącznik_1") wrs = .Range("A1000").End(xlUp).Row + 1 For Each kom In zakres If Len(kom) = 6 And kom.Offset(0, 9).Text = "19.00" Then kom.Copy .Cells(wrs,...
Witam. Domyślam się że to co potrzebuję jest bardzo proste. Mianowicie potrzebuję pomocy żeby stworzyć przycisk dzięki któremu będę mógł kopiować wartości z jednego arkusza do aktywnego arkusza (w którym znajduje się przycisk) do konkretnej kolumny z tym żeby jak będzie kopiować do kolejnego pustego wiersza. Czyli np. po naciśnięciu przycisku z arkusza...
Jeśli liczysz na konkretną pomoc :?: - to winieneś załączyć swój przykładowy plik z odpowiednio opisanym arkuszem źródłowym i arkuszem docelowym :idea: Wcześniej możesz przeanalizować zasoby naszego forum w zakresie importu lub eksportu danych z jednego arkusza do drugiego :idea:
To nie jest proste zadanie. Ustawienie filtra nie generuje żadnego zdarzenia, które można byłoby przechwycić, żeby zapamiętać jego ustawienie. Szczęśliwie masz w arkuszu formuły z funkcją SUMY.CZĘŚCIOWE, które przeliczają się po zmianie ustawień filtra, a przeliczanie generuje zdarzenie Calculate, które można tu wykorzystać. Makro, które proponuję zapamiętuje...
Uściślij: 1. Czy pliki zostały już otwarte z danego katalogu i przebywają sobie w tle programu, co sugerowałoby to co napisałeś (" pobiera z otwartego pliku ") ? 2. Czy też pliki trzeba dopiero otworzyć z danego katalogu ? 3. Jeśli trzeba, to czy jest to katalog tylko "jednopoziomowy", czy też znajdują się w nim podkatalogi, z których też należy otwierać...
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....
Andie, póki co makra to magia dla mnie, ale czy Twój kod działa tylko kiedy w kol. 1 są wartości takie jak sa w przykładzie, czyli 1, 2 ... itp ? Bo kiedy sprawdzam je na innej tabeli która ma już konkretne nazwy w kolumnie 1 i jest tych zakresów o wiele więcej to mi coś nie bardzo idzie...
Otwórz plik 'zeszyt1'. Włącz nagrywanie makra. Otwórz plik H:\DANE\Dane.xlsm, wybierz arkusz 'BBB, zaznacz zakres 'A2:F2000'. Naciśnij 'kopiuj'. Otwórz okno pliku 'Zeszyt1'. Kliknij na arkusz 'AAA'. Kliknij w komórkę A2'. Kliknij 'wklej' i zapisz makro, które potem będziesz wykorzystywał.
Nie do końca mi to wychodzi. Mam arkusz produkcja i arkusz zrobione. W arkuszu produkcja jest kolumna C w której jest unikatowy numer zlecenia a w kolumnie N jest pusto lub 'got.'. Chcę aby w arkuszu produkcja kolumna N, wpisując słowo 'got.' formuła przekopiowała mi cały wiersz do arkusza zrobione. Zakres danych w arkuszu produkcja to A2:L3000.
Jaką regułę zastosować, żeby w programie Excel dane z jednego arkusza kopiowały się do drugiego arkusza automatycznie ? Aby skopiować dane z jednego arkusza do drugiego w programie Excel w sposób automatyczny, możesz skorzystać z kilku różnych metod, w zależności od tego, jakiej funkcjonalności oczekujesz. Oto kilka przykładów: 1. Formuła odwołująca...
z zakresu a3:g3(tutaj znajdują funkcje Excela z innych arkuszy tego samego pliku) byc moze warto operowac z wartosciamy?
cześć, poszukuję rozwiązania, które pozwoli na kopiowanie danych z jednego arkusza do drugiego. Opis zadania. W Arkuszu1 znajdują wszystkie wprowadzone przez użytkownika ( kolumny C:G ) oraz miejsce w którym, użytkownik wpisuje interesujący go zakres dat ( komórka B2 - data od, komórka B3 - data do ). Na podstawie tych danych ( B2 i B3) makro wyszukuje...
Próbujesz wklejać zbyt duży zakres danych w stosunku do posiadanego miejsca w arkuszu, tak mniej więcej działa twoje makro: http://filmy.elektroda.net/24_1502974789... ( odtwarza się na pewno w mpc-hc ) Wklejany zakres jest o min. 1 wiersz większy niż dostępne miejsce w arkuszu. Pytanie: Jaki właściwie zakres danych chcesz kopiować z jednej zakładki...
Cześć, potrzebuję makro w arkuszu google, które zadziała tak, że będę miał przycisk po kliknięciu którego wyskoczy okienko z opcjami: 1 (do wyboru- załadunek/rozładunek) 2 (do wpisania - godzina, dzień) 3 (do wpisania - numer referencji) 4 (do wyboru numer rampy 4 lub 5) Po zatwierdzeniu powinien w odpowiednie okienko (data, godzina) wskoczyć nr awizacji...
Czasem pomaga skopiowanie całej zawartości arkuszy, elementów VBA do nowego pliku (Ctrl+c, Ctrl+v) Spotkałem się też z podobnym zjawiskiem przy makro kopiującym spory zakres, zdefiniowany "z górką" (dużo pustych wierszy/komórek). Gdy w v2003/2007 szło to bardzo sprawnie, v2013 "myśli" nad tym denerwująco długo. O dziwo: im więcej pustych, tym makro...
Po prostu nagraj makro, które będzie robiło to co chcesz. Wrzuć je tutaj, a dopisze się kawałek kodu sprawdzający otwarcie arkusza. Przy czym makro będzie wymagało otwarcia zeszytu (nawet w tle) do skopiowania danych. Jeżeli chcesz bez otwierania zeszytów, to przecież można zrobić odwołania do arkuszy jako formuły (tzw łącza): ='C:\Users\jj\Documents\[html.xlsm]Arkus...
Witam w załącznikach dodałem przykładowe pliki bardzo okrojone ale mające pokazać o co mi chodzi. Prosiłbym o pomoc w zrobieniu makra które przeniesie dane z pliku DANE do pliku STATYSTYKA. Warunek jest taki żeby wstawiało te dane w pliku STATYSTKA biorąc pod uwagę datę przyjęcia czyli jeżeli w pliku STATYSTYKA w komórce C2 mamy datę 2023-01-30 to żeby...
Za slaby opis... napisz co to makro ma dokladnie robic a kto wie... moze ktos Ci pomoze. A pisze sie to tak ze: masz zakres komorek A1:A10 do sprawdzenia i np najwieksza liczba ma byc wpisana w akrusz2 w pole A1 <- to jest jasny opis
Usuwam dla danego guzika konkretną kolumnę, potem zmieniam wartość w nawiasie (1) dla pierwszego guzika, potem dla drugiego zmieniam (2) itd. Czyli jak mam na razie te dwa przyciski to tak, żeby następny już wiedział, że ma kopiować dane do datachart ale o jedną kolumnę dalej niż poprzedni - robiłem to zmieniając wartość counter - kolejno 1 2 3 itd....
Do samego kopiowania lepiej użyć funkcji for each, która odczyta dane z każdego arkusza i przekopiuje cały zakres. Przyjrzyj się temu rozwiązaniu: Private Sub CommandButton1_Click() Application.ScreenUpdating = False Set wswykaz = ThisWorkbook.Worksheets("Wykaz&... wswykaz.Range("A2:F65536&qu...
Na podstawie tych danych ( M4 i O4) makro wyszukuje wszystkie dane łącznie i pomiędzy ( zakres dat ) nimi z kolumny M , a następnie kopiuje te dane do nowego skoroszytu . Proszę o dokładne wyjaśnienie treści zadania - literalnie rozumiem to tak: na podstawie założonej daty M i daty O (wprowadzonych inputem do makra) makro wyszukuje wszystkie 20 polowe...
1. Tabelka w arkuszu źródłowym może być tymczasowo posortowana aczkolwiek zawiera bardzo dużo wierszy (>120 tys.) 2. Taka sytuacja będzie miała miejsce cyklicznie dlatego makro ma ułatwić "rozrzucanie" danych po arkuszach. Nie ma potrzeby sprawdzania czy dane nie będą się powtarzać. Zakres kopiowany z arkusza źródłowego będzie zawsze wklejany do arkusza...
Po skopiowaniu zakresu gdy następowało zamknięcie skoroszytu kk_user.xls wyskakiwało pytanie czy dane skopiowane do schowka mają być dostępne dla innych programów. Znalazłem w sieci, że jak wrzucę właśnie ten zapis to pytania nie będzie... Ale mimo wszystko, jak już makro zadziała, to dane się kopiują... (więc nie rozumiem tej uwagi...)
Udało mi się znaleźć i zmodyfikować kod :?: Coś mi się zdaje, że modyfikowałeś ten kod tylko klawiszem delete ? :D Wg Twoich przykładowych plików makro "uruchamiane" ma być ze zwykłego pliku i kopiować z pliku z makrem ??? :please: Proponuje Ci przygotować najpierw właściwy plik typu xlsm i cały transfer danych przećwiczyć pomiędzy 2 arkuszami - w...
Szkoda, że nie chcesz załączyć przykładowego pliku, bo w ten sposób zmniejszasz swoje szanse na uzyskanie optymalnej pomocy, a potencjalnych pomagających zmuszasz do wypytywania o wszystkie szczegóły. Z tego co teraz napisałeś zrozumiałem, że arkusz "Generator cen" zawiera jakieś formuły, które mają być użyte do przeliczenia danych z arkusza "301" i...
Dobry wieczór, Nie wysilił się Kolega na ten załącznik. Nie ma w nim co segregować! Generalnie najprościej wydaje mi się zastosować filtr zaawansowany z opcją kopiowania wyniku w inne miejsce. Dla każdej tabeli wynikowej trzeba utworzyć zakres kryteriów (może on być w arkuszu źródłowym lub wynikowym - obojętne). Sam filtr musi być zainicjowany w arkuszu...
Witam serdecznie. Jest to mój pierwszy post więc proszę o wyrozumiałość. Mam pewien problem a że VBA nie znam zbyt dobrze ( raczej jakieś podstawy) trochę mnie to przerasta. Szukałem coś nt. temat ale ciężko znaleźć jakiś podobny przykład. Do sedna: Dane: W pliku znajduje sie kilka arkuszy : arkusz1, arkusz2,arkusz3, arkusz4 itd. W 4 pierwszych arkuszach...
Hmm. Układ nagłówków w arkuszu docelowym jest stały więc nie zaburza odnośników dla formuł. Dane do arkusza copy nie przyrastają w tempie wykładniczym, ponieważ arkusz służy do obrabiania konkretnych rekordów. Dany plik excela odnosi się do określonego zakresu bazy danych i już. Wielkość bazy nie ma tu nic do rzeczy. Dzięki za pomoc i wsparcie przy...
Dzień dobry, Można również napisać stosunkowo proste makro (załącznik), które uporządkuje dane w pożądany sposób. Makro da spodziewany rezultat, jeśli adres mailowy w oryginalnych danych będzie stanowił osobny wiersz. Dane ze strony www należy skopiować w zwykły sposób do komórek. Po kopiowaniu zakres komórek jest zaznaczony, w razie czego można zmienić...
Cześć. Prośba o wsparcie w rozwiązaniu poniższego problemu. Mam kod do dzielenia na pliki (zapożyczony gdzieś z sieci). Do tej pory spaniał w 100% moje oczekiwania, ale teraz potrzebuję dodatkowej funkcjonalności. Makro zapisuje każdy arkusz jako odrębny plik za wyjątkiem trzech wykluczonych prze ze mnie. Pierwszy to plik z danymi źródłowymi. Dwa kolejne...
Faktycznie nie precyzyjnie. Oczywiście cały czas mam na myśli nowy skoroszyt. Mówiąc typ, mam na myśli listę którą rozwijam w filtrze. Piszę ogólnie, bo makro po przeróbkach przydałoby mi się do kilku czynności które wykonuję w pracy, i zdecydowanie by mi ją usprawniło. Generalnie chodzi o filtrowanie po kolei to co mam na liście w kolumnie E, kopiowanie...
Cześć Potrzebuję utworzyć takie makro które będzie kopiowało dane z podanego zakresu z innego skoroszytu do mojego ale z uwzględnieniem daty tj. od dnia dzisiejszego do 2 dwóch dni wstecz. Na chwile obecną mam taki kod ale on kopiuje cały zakres. Proszę o pomoc. Application.ScreenUpdating = False Workbooks.Open Filename:="F:\ATS\Ats 1.xlsx" Sheets("Spakowane").Select...
Wszystko działa wspaniale jak określę zakres dokładnie, czyli np. B8:H50 . Ale jak ma sam określić jak znajdzie 2020 ACTAUL to niestety nic się nie kopiuje. To 2020 ACTUAL jest w kolumnie B, nie H - może stąd problem?
Chcę aby moje makro kopiowało wybrane dane z dokładnie 4 arkuszy do innego arkusza. Arkusz docelowy: W docelowej zakładce w wierszach znajdują się nazwy danych a w kolumnach daty generowania tych danych Arkusze źródłowe: 1. Są zapisane w tym samym folderze 2. Różnią się tylko końcową datą (rok-miesiąc) 3. W wierszach znajdują się nazwy danych a w kolumnie...
Najlepiej załącz te pliki i cały kod, który ma służyć do kopiowania. Ten kod jest w pliku "Nowy", czy jeszcze w innym pliku? Jaki jest komunikat błędu? Zakres danych nie musi być na 100 komórek, może być mniej, ale żeby charakter danych był zachowany.
Na podstawie tego opisu i makra "do przerobienia" nie sposób odgadnąć co asia.asia ma na myśli i co ma być skopiowane. Same nazwy plików/arkuszy nie wystarczą (wystarczy "zapisz jako") lub copy. MAM PLIK EXCELA - DED i nazwa arkusza "DED" z którego są kopiowane dane. Kopiowanie odbywa się do pliku "DEDD1" nazwa arkusza "DEDD1". Kopiowanie do nazwy...
Witam Jestem jeszcze zielony w makrach excel, dlatego potrzebuję Waszej pomocy. Chciałbym stworzyć makro kopiujące dane z wielu plików excel do jednego pliku zbiorczego. Założenia: 1. Wiele plików dawców *.xls o różnych nazwach znajdujących się w tym samym folderze 2. Kopiowanie z pliku dawcy z zakresu arkusza "Tabela wyników" z komórek A2 do D51 3....
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach A pod fz znajdują się głównie cyfry bądź puste pole więc może...
Makro w tym przypadku mogłoby być takie: [syntax=vbscript]Sub Kopiowanie() ' zakres źródłowy Worksheets("Arkusz2").Activate Dim ostw As Long, src As Range ostw = Cells(Rows.Count, "L").End(xlUp).Row Set src = Range("L2:L" & ostw) ' zakres docelowy Dim dest As Range Set dest = Range("AB2") ' kopiowanie Dim i As Long, n As Long Dim rw As Range For Each...
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 Mam takie makro Sub zamien_znaki_fr() ' ' zamien_znaki_fr Makro ' Zamiana krzaczkow na znaki francuskie ' ' Klawisz skrótu: Ctrl+z ' For x = 1 To 11 Selection.Replace What:=Worksheets("kody"... + 1, 1).Value, Replacement:=Worksheets("ko... + 1, 2).Value, LookAt:=xlPart,...
Dziękuję. Niestety nie działa jeszcze tak jak potrzebuję ;/ Pozmieniałem trochę zakresy danych, ale jest kilka rzeczy do zrobienia. 1. Podczas kopiowania z "Spis końcówek lotów" do "Złomowanie" makro wkleja dane tak jak leci, a powinno wpisywać w pierwszy wolny wiersz od B3 do nieskończoności tak na prawdę tylko ZŁOM. W tej chwili usuwa mi również dane,...
Cześć, ,mam problem jak napisać makro które skopiuje tylko wybrane kolumny w zależnosci od danych wpisanych w wierszu 6, jest tam zawsze numer miesiaca i występuje kilka razy, (raz w 6 kolumnach raz w 12, zawsze jedna po drugiej) . Marko miałoby znaleźć własciwy miesiąc (czyli liczbę z zakresu 1-12) podany np w inputbox a potem skopiować wszytskie właściwe...
Cześć, chciałabym stworzyć makro, które będzie kopiowało dane z określonego zakresu, dodając jednocześnie określone dane do kolumny. Np. Zakres danych: A2:E5, zakres jest kopiowany, a do kolumny F (F6:F10), dodawana określona wartość. I tak z dwadzieścia razy. Range("A2:E6").Cop... (Cells(Rows.Count, "A").End(xlUp).Off...
Masz racje może faktycznie ciężko i spaprałem opis, postaram się to sprawdzić po weekendzie. Jeszcze raz opisuje o co mi chodzi , mam 200 plikow w folderze "dane", w folderze "WZOR" jest plik wzorcowy wzor.xls oraz folder "CEL" czyli jest tak skrypt z folderu "dane" pobiera pierwszy plik to jest otwiera plik np g35.xls kopiuje odpowiednie zakresy komorek...
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...
Ładny obrazek. To do testów w Paincie? Cześć, nie ma sensu pisać takich komentarzy, więc nie rób tego, jeżeli nie masz nic wartościowego do dodania. Dzięki. *Update* Dodaje załącznik oraz zdjęcie jak chciałbym aby to wyglądało po naciśnięciu "Copy" A jeżeli chodzi o przycisk "Clear" to ma on również swój kod, ale obawiam się, że skopiowany przycisk...
Makro ma pozwolić na przeliczenie danych z np. 20-30 osobnych plików, które mają dane zawsze w zakresie A1:U100. W pliku TESTY wklejamy do zakładki DATA dane skopiowane z otwartego pliku, następnie w zakładce REPORT w komórkach AE4:AE15, mam wybrane dane po przeliczeniach, które kopiuję do kolejnej zakładki ZBIORECZE WYNIKI. Kolejne pliki są przeliczne...
Dostałam stary arkusz zbierający dane z dużej ilości arkuszy wsadowych. Mam makro w VBA napisane wieki temu przez kogoś kogo już w firmie nie ma. potem wiele osób to przerabiało i nie ma tam żadnych komentarzy. Musieliśmy zmienić pliki wsadowe i zakładki w pliku zbierającym i drobne przeróbki w makro powodują wywracanie się pliku. Chciałabym napisać...
że taki kod do wpisywania zakresu kopiowania danych, powoduje, że trzeba wpisywać zakres po kolei dla wszystkich plików Miałem na myśli przed petlą For [syntax=vb]Obszar = InputBox("Podaj obszar kopiowania danych", "Obszar danych", "A1:K10") For Each everyObj In filesObj '..itd.[/syntax]
Podmieniłem pętle i opisałem co najistotniejsze. Nie sprawdziłem działania.[syntax=vb]Sub testit() dato = Range("B3") ' nazwa folderu z plikami do pobrania danych myvar = ThisWorkbook.Path & "\" & dato 'wywołanie funkcji If TypeName(myvar) <> "Boolean" Then For i = LBound(myvar) To UBound(myvar) ' otwieram 1 odnaleziony skoroszyt (a w...
Cześć. Jest to mój pierwszy wątek na tym forum dlatego pragnę się przedstawić. Mam na imię Darek i troszkę bawię się excelem ale nie makrami. Stąd prośba o szczególną pomoc. Nie poradzę sobie z tym sam poradzę. Potrzebuję makro, które będzie mi kopiowało dane. Mianowicie: W Arkuszu1 znajduje się zakres komórek załóżmy od A1:A10 wpisane są nazwy. W kolumnie...
Można również użyć formuły tablicowej jak w załączonym przykładzie. Zakresy w formule należy dopasować do wielkości danych. Liczba 100 w formule musi być większa od liczby wierszy danych. Plik należy zapisać w formacie .xlsx i uruchamiać w Excelu >= 2007. Powodzenia.
Witam, Potrzebuje stworzyć makro wyszukujące odpowiedni numer z zakresu w innym pliku i kopiujące dane. Posiadam dwa pliki: AMSTERDAM_SPC-Carbody shell_v2 oraz SPC_Raport Zadanie makro: W pliku SPC_Raport -> zakładka ‘Geometria’ znajduje się nr KTW (wpisywany z ręki) komorka Z7: http://obrazki.elektroda.pl/9144379200_1...
...działa ale dość wolno. Muszę skopiować zakres danych ok. 2500 wierszy z 60 skoroszytów do jednego. Jak mogę podrasować to makro ? W pętli: [syntax=vbscript] While Plik <> "" ... Wend [/syntax] nie należy kopiować, tylko przenosić dane z komórek 'dawcy' do zmiennej tablicowej, a następnie z tej zmiennej oddawać wartości do obszaru zdawczego...
Mam nadzieję iż o takie rozwiązanie chodziło. Wyszukuje w zakresie do 50 wierszy i tylko 7 pierwszych rekordów. Funkcja jest tablicowa więc po jej edycji zatwierdzasz shift+ctr+enter Musi zaczynać się nawiasem { kończyć } ale nie wprowadzasz ich z klawiatury tylko pojawiają się po zatwierdzeniu jej trzema przyciskami Powodzenia
Dzięki wielki wszystko ok Jeszcze was trochę po mecze. A jak przerobić to makro tak żeby działało na zakresach to znaczy z jednego pliku kopiuje np. plik A sheets(1).range("C6:E16";"B19:B20") i żeby te zakresy wklejało mi w tym aktywnym pliku w różne miejsca np. zakres1Plik B Sheets(1).range("H6:J16";"G19:G20"), zakres2 plik B sheets(1).range("M6:O16";"L19:L20")...
Witam! Po głębszej analizie zauwazyłam, że makro działa poprawnie tylko do momentu wprowadzenia danych w komórce J15 lub niżej - wtedy wolny wiersz zaczyna liczyć od ostatniej faktycznie użytej komórki w kolumnie J czyli wstawia w J16, nastepnie J17 itd. Można jakoś zmodyfikować kod aby wartosci kopiowały się tylko w wiersze w zakresie od 4 do 14, nawet...
Witajcie, mam dość według mnie ciężki temat do zrobienia. Chciałbym aby makro kopiowało dane uzupełnione przez pracowników z poszczególnych arkuszy do Arkusza PH1 i wklejało dane jedno pod drugim. Czyli sprawdzało który wiersz jest ostatnim w którym już są dane w PH1 i wkleiło je pod nimi. I tak po kolei z każdego arkusza pracownika do PH1. Ilość zapisanych...
Witam raz jeszcze, wszystko sie udalo i dziala SUPER, jeszcze raz wielkie dzieki!!! mam jednak inny Problem z innym makrem (jestem lamus jesli chodzi o makra) POMOCY! makro pyta o zakres komorek do kopiowania (a nie ma pytac...) kopiuje je i wkleja do pliku txt. Makro wyglada tak: [syntax=vb]Sub export_txt() Dim wb As Workbook Dim saveFile As String...
Witam. Mam ok 60 plików CSV (pliki tekstowe oddzielone przecinkami) znajdują się w jednym folderze. Pliki mają różne nazwy (przykładowo: 21172001 6.28.18 13.07.05) każdy plik ma tyle samo kolum (po przecinku) wiersz pierwszy: a,b,c,d,e,f,g,h,i, wiersz drugi: 1,1,1,0,0.00,0.00,N-m,0,0 wiersz trzeci: 1,1,1,0,0.00,0.00,N-m,0,0 Potrzebuję makro które: 1....
O takie makro mi chodzilo. W moim arkuszu mam dwie zakladki o identycznym ukladzie wierszy i kolumn. Chcialbym aby makro dzialalo niezaleznie na obu. I jeszcze jedno pytanie. Moj oryginalny arkusz jest dosc odszerny w ilosci danych tak wiec po uruchomieniu zajmuje to odrobine czasu. Czy istnieje sposob aby przyspieszyc makro/otwieranie pliku np. przez...
... jak powinien wyglądać kod? 1. Deklaracje planowanych zmiennych/stałych pracujących w procedurze 2. Przypisania wstępne/wyjściowe do powyższych 3. Pobranie danych o nagłówkach - do tablicy lub bezpośrednio, w locie ... np.: PRL , do wyszukiwania w pierwszym, nagłówkowym wierszu arkusza z tabelą ... np.: [syntax=vbscript] With .Range(.Cells(1, 1),...
Ok, sprawdzę jutro, dzisiaj niestety nie mam możliwości zobaczenia, ponieważ na tym kompie mam jakiś Microsoft Works :( Ale jeszcze jedno pytanie, troszkę sobie chciałam zmodyfikować Twoje makro aby można było pobierać dane wejściowe z pliku zewnętrznego i utknęłam przy kopiowaniu określonego zakresu do nowo stworzonego arkusza, tzn. nagłówek, formatowanie...
Rozumiem, że chcesz przepisać tabelkę do nowego zakresu. Wpisz w Google "sortowanie bąbelkowe". Może nie najszybsze w działaniu, za to dość prosty algorytm. Warunek: reszta z dzielenia przez 2 równa zero załatwi sprawę parzystych, różna od zera nieparzystych. Jeśli coś mniej ambitnego, to nagraj makro kopiowania zakresu i sortowania (tego skopiowanego)....
Poprawiłem mały błąd z kopiowaniem listy i czyszczeniem zakresów. Jak to działa? Przeanalizuj sobie makro "Filrt1" (krokowo, klawisz [F8]) Najpierw wejdź w nazwy (w E2007 Formuły>Menedżer Nazw) i przyjrzyj się zdefiniowanym wpisom. Są cztery. Trzy z nich dotyczą list poprawności danych dla komórek E2-E4. Makro "Filtr1" uruchamia filtr z opcją "bez powtórzeń"...
Jeśli sumujesz zakres, który zawiera błąd to wynikiem będzie błąd. Należałoby postawić warunek dla formuły, która błąd generuje. W Excelu wystarczy użyć CZY.BŁĄD Np =JEŻELI(CZY.BŁĄD(Twoja Formuła);0;Twoja Formuła) W wyniku czego wartość komórki przy błędzie będzie zerowa (akceptowalna jako składnik sumy).
Dzięki za wskazówki :) Korzystając z Twoich rad wklepałem kod ale niestety jak wgrywam plik nic się nie dzieje, tj nie są przepisywane żadne wartości i nie mam pojęcia gdzie leży błąd. Przypuszczam, że diabeł jak zwykle tkwi w szczegółach... Po pierwsze: zrób przypisanie do arkusza tak, jak Ci proponowałem, nie MsgBox (Dane.Name) ) Po drugie, przy...
Pewnie można, ale to już dłuższa historia... :) Najprościej - jeżeli plik-źródło jest w tej samej lokacji - wstawić kwerendę wybierającą dane (Dane->Importuj dane zewnętrzne->Nowa kwerenda bazy danych, wybrać Excel Files * i OK, wskazać plik-źródło (można zaznaczyć "Tylko do odczytu"), a dalej z kreatora" wybrać zakładkę, rozwinąć ją krzyżykiem, wybrać...
Otwierasz kolejne pliki w pętli, w której należy umieścić licznik numeru kolumny arkusza docelowego. Jeśli znasz nazwę lub indeks arkusza źródłowego (idealnie byłoby, żeby był identyczny w każdym pliku), to przepisujesz zakres, zamykasz plik i... to wszystko. Ewentualnie powtarzasz tę samą operację dla podfolderów, o czym pisałem wyżej. Jeśli nazwy...
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...
Chce mieć to makro w drugim pliku do którego będa dane kopiowane i pod przycisk makro przypisane
Witam , jestem nową osobą na forum potrzebuję pomocy w sprawie VBA ,jestem dość początkującą osoba Mianowicie mam za zadanie wczytać dane z plików , każdy plik(.html) w osobny arkusz z których do następnego arkusza kopiowane będą zakresy danych (po dwie kolumny - takie same zakresy w każdym arkuszu) i wprowadzane obok siebie z odstępem jednej kolumny....
makro kopiowanie danych kopiowanie danych makro excel makro kopiowanie zakresu
stabilizator lt1083 tranzystor citroen zamiennik volvo silnika
Przeciek oleju hydraulicznego w rozdzielaczu - przyczyny i naprawa Olej w pompie hydraulicznej koparki - przyczyny i rozwiązania