Witam, A czy konieczne jest do tego makro i kopiowanie za jego pomocą? Nie lepiej utworzyć tyle arkuszy ile jest krajów np. utworzyć jeden wzorcowy i powielić. Dane pobierać poprzez odwoływanie się do arkusza zbiorczego: - funkcje WYSZUKAJ, PODAJ.POZYCJĘ, PRZESUNIĘCIE Albo jeżeli jest to zawsze ten sam układ danych to zrobić odwołania ręcznie, na stałe.
Do powielania arkuszy i adaptacji formuł możesz wykorzystać makro z załączonego pliku :D - zaczyna pracę dopiero od arkusza 2.2 :!: i działa w ten sposób, że po wybraniu 1 arkusza w skoroszycie (tj. o najwyższej numeracji w nazwie :D ) - poprzez dwuklik myszką w ten arkusz - automatycznie kopiuje arkusz i ustawia nową nazwę i podmienia formuły :spoko:...
Pożądany efekt aktualizacji tabeli w arkuszu "3" 961000 można uzyskać poprzez makro aktualizujące (odświeżanie danych skrótem ctrl + a :D ) z zastosowanie pętli typu: 961004
Dla mnie trochę przerost formy no ale każdy ma swój styl programowania. Zauważ że warunek w głównej procedurze wyjkonuje się jedynie gdy nie ma arkusza o danej nazwie. W przeciwnym wypadku nie robi nic. Proponuje dodać "w przeciwnym wypadku - gdy warunek jest niespełniony" czyli Else i ustawić temp na istniejący arkusz o danej nazwie. Z tym że wyjąć...
coś poszło nie tak Jak widać na zrzutach :please: ja załączyłem i opisuje plik ProtUpBase.xls , a koleżanka otwiera jakiś plik (po nazwie sądzę, że też mój :D ) ProtTablica.xlsx , który żadnego makra rzeczywiście nie zawiera :cry:
Witam, próbuję napisać makro które, będzie kopiowało na raz z kilku arkuszy dane do jednego. Obecnie wkleja mi się nazmiane raz z jednego a później pyta o zezwolenie na wklejenie nowych danych z innego arkusza. A potrzebuję aby dane były jedne pod drugim i aby się sortowały po nazwisku. Próbowałam z pętlą ale przeładowywało się i plik się wyłączał....
Chodzi o to, aby w pliku zbiorczym znalazły się wszystkie arkusze ze zbioru plików. Nie jest ściśle określona liczba plików. Wiadomo tylko, że znajdują się w jednym katalogu, a ich nazwy różnią się 2 znakami na końcu. Nie wiadomo ile dokładnie arkuszy zawiera każdy z plików (ta ilość z czasem rośnie) Ważne jest, aby przy kolejnych aktualizacjach pliku...
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.
Witam próbuje napisać makro kopiujące zawartość komórki aktywnego arkusza z komórki M2 do arkusza A komórki b1 ale jeśli b1 jest zajęte żeby wprowadziło dane do komórki b2 i tak coraz niżej .
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...
Witam, potrzebuję wkopiować kilka arkuszy o różnych nazwach z jednego skoroszytu do kilku odrębnych. Jestem nowicjuszką i zupełnie nie wiem, jak sobie z tym poradzić. Znalazłam takie makro, niestety nie wiem jak dopasować je do mojego zadania. Sub Splitbook() MyPath = ThisWorkbook.Path For Each sht In ThisWorkbook.Sheets sht.Copy '(I got...
Bardzo proszę o pomoc w napisaniu makra, które będzie kopiowało dane z wybranych komórek arkusza „Zadania” do wybranych komórek arkusza „Plan zadań”, tzn.: Z arkusza „Zadania” z komórki: z komórki "Temat" do komórki "Zadania" ze "Data rozpoczęcia" do "Data od" z 'Data ukończenia" do "Data do" z 'Data wykonania" do...
Poszukuję makra, które z 1 arkusza o nazwie "dane" wykopiuje dane do nowych arkuszy w takim samym formacie względem np. kolumny K - wynik działania makra powinien być podobny (tylko dla wszystkich unikatowych danych z kolumny K) jak w załączonym pliku w arkuszu P001 (makro powinno nadać nazwę dodawanym arkuszom
Dzień dobry. Poszukuję rozwiązania za pomocą Vba . Dane są zawarte w 6 kolumnach ok 2000 linii posiadają duplikaty i nie tylko-są też pojedyncze linie w liście. Makro powinno wycinać i wklejać do Arkusza2 w oparciu o duplikaty lub pojedyncze elementy Arkusza1 z kol"A" w zakresie linii do kolumny "E" . ( w całej liście w większości to duplikat choć występują...
Witam, Czy mogłbym prosić o pomoc w stworzeniu kopi excela. Chciałbym aby drugi plik kopiował wszystkie arkusze z pliku głównego wraz z danymi i formatami. Aby stanowił lustro głównego pliku. Podejrzewam że nie da się stworzyć formuły pewnie będzie musiało to być makro. Dzięki
Hej, potrzebuję pomocy w przekształceniu makra, tak aby dzieliło mi wskazane arkusze wg klucza i zapisywało wszystko do nowego skoroszytu. De facto mam: 5 arkuszy o nazwach :dane1, dane2, dane3, dane4, dane 5 oraz 4 arkusze o nazwach: arkusz1, arkusz 2, arkusz3, arkusz 4 Potrzebuję makra które podzieli mi 5 arkuszy [dane1 ... dane2] wg klucza z arkusza...
Witam! Przeszukałem forum, zastosowałem kilka zapisanych tutaj makr, ale niestety żadne nie odpowiada mi w 100% dlatego proszę o pomoc. Problem: Mam skoroszyt, w którym chce podsumować dane z innego skoroszytu, który ma kilkadziesiąt arkuszy. Chciałbym, aby makro przechodziło pomiędzy arkuszami i kopiowało odpowiednie komórki. Z jednej komórki pobrało...
Proszę o przykładowe makro kopiujące pierwszy wyfiltrowany wiersz z listy do nowego arkusza. W nowym arkuszu wklejane wiersze muszą dodawać się jeden pod drugim wraz z datą ich kopiowania.
Witam zacne grono, jak z formułami sobie radzę tak już z makrami bywa kiepsko jeśli by mógł mi ktoś pomóc byłbym wdzięczny: Mam skoroszyt w excelu a w nim 21 arkuszy kalkulacyjnych nazwy od 1 do 20 i ostatni dane , potrzebuję makro które wywołane za pomocą skrótu klawiszowego przeniesie dane z komórek A1:A4 B1:B4 z arkusza w którym jestem do arkusza...
Witam, chciałabym zapytać czy macie może gotowe makro, które kopiowałoby tabelę razem z formatowaniem z jednego arkusza do drugiego. Muszę powielić taką samą tabelę w dużej liczbie arkusze i wolałabym uniknąć jej każdorazowego formatowania. Z góry dziękuję za pomoc.
Witam serdecznie, zaczynam dopiero zabawę z makrami w Excelu i potrzebuję pomocy. Chcę napisać makro, które: - otworzy wskazany przez użytkownika plik (nie jest znana jego nazwa i ścieżka więc potrzebuję aby pojawiało się okno wyboru pliku) - to jest w help excela) (np.: PLIK1.xls) - następnie skopiuje wybrane arkusze (nazwa arkuszy się nie zmienia,...
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 serdecznie Jestem zupełnie początkujący i mam pytanie. Jak stworzyć makro w excelu, które skopiuję mi cały arkusz_1 tak jak jest, włączając wszystkie zawarte tam formuły i stworzy arkusz_2 i tam je umieści z uwzględnieniem aby wszystkie formuły odwoływały sie do tego nowego arkusza. Będę wdzięczny za pomoc.
Po zakończeniu kopiowania nie jest zwracania na pierwszy arkusz
Z VBA w Excelu mam do czynienia od niedawna i chciałbym prosić o pomoc z kodem jakim dysponuję. Powstał on poprzez rejestrację makra i skopiowanie pewnej części z sieci. Ta zarejestrowana część nie daje mi spokoju bo można to osiągnąć w bardziej uniwersalny sposób dla wszystkich arkuszy w pliku. Tak więc chciałbym aby zawartość komórek w zakresie od...
Z ActiveX nie trzeba aktywowac arkuszy i zaznaczyc checkBox,[może mieć taką samą nazwę (na różnych arkuszach)]
[syntax=vbscript]Sheets("2").Range("C1")... = vbRed[/syntax]
Pan pisal = formuły liczące znajdują się od komórki AO11 do GG5000 = może to malo być "do DD5000", bo dalej jest całkowicie pusty Jest to cała masa formuł, początkowo próbował do iterować tylko formuły - zabiera zbyt dużo czasu. Ale jeśli przyjmujemy pewne ograniczenia, to sprawa może być. ale to jutro na nową głowę. jeden więcej rzeczy zaufanie, że...
Spróbuj takiego makra. [syntax=vbscript] Sub Kopiowanie() Dim arkA As Worksheet, arkB As Worksheet, arkZest As Worksheet Dim OstA&, OstB&, GdzieWkleic&, PierwszyWiersz%, IleKolumn% Set arkA = ThisWorkbook.Worksheets("aaa") Set arkB = ThisWorkbook.Worksheets("bbb") Set arkZest = ThisWorkbook.Worksheets("Zestawienie") OstA = arkA.Cells(Rows.Count,...
[syntax=vb] For i = LBound(Zrodla) To UBound(Zrodla) Worksheets("txt").Range(Cele(i)) = Worksheets("oferta").Range(Zrodla(i)).Va... Next i [/syntax]
[syntax=vb]wiersz = 6 Sheets(1).Activate While Cells(wiersz, 1) <> "" Cells(wiersz, 2).Copy Sheets(Cells(wiersz, 1).Text).Range("C8") wiersz = wiersz + 1 Wend [/syntax]
Z arkusza1 robię raporty w osobnych arkuszach Efekt taki jak na zrzucie 1041538 automatycznego kopiowania wyfiltrowanych danych z arkusza1 do kilku arkuszy :idea: (z nazwami arkuszy wg filtrowanych danych :D ) można zrealizować przykładowo tak jak w załączonym pliku. 1041541 Makro można uruchomić skrótem klawiaturowym ctrl+r :!: , dla dowolnej (jeśli...
Wyszło mi coś takiego[syntax=vb]Sub Pobierz() Dim nazwa As String Dim ark As Worksheet Dim wrs As Long, j As Integer, i As Long nazwa = "Arkusz2" 'nazwa arkusza docelowego 'tutaj 2 dla porównania z 1 ThisWorkbook.Activate 'gdyby nie był Sheets(nazwa).Range("A2:H65536").ClearCo... 'czyścimy wrs = 2 '1-szy wiersz docelowy j = 3 '1-sza kolumna źródłowa...
No tak. Mój błąd, bo powinno być w innej kolejności. Sorry, ale dzisiaj sobota ;) Coś tam (w załączniku) kopiuje. Przeanalizuj, dostosuj do własnych potrzeb.
W załączniku.
Musiałem dodać fragmenty kodu odpowiedzialne za zróżnicowaną numerację kopiowanych przycisków, a następnie identyfikację przycisku "Clear", który został użyty. Wszystkie przyciski "Copy" działają identycznie - kopiują zawsze pierwszą tablicę na pierwsze wolne miejsce. Możesz tej pierwszej tablicy nie wypełniać, potraktować ją jako szablon, unikniesz...
[syntax=vbscript]Application.ScreenUpdat... = False If Not Sheets("Arkusz2").Visible Then Sheets("Arkusz2").Visible = True Sheets("Arkusz2").Select Range("A2:E10").Select Selection.Copy Sheets("Arkusz1").Select Range("a1").Select ActiveSheet.Paste Application.CutCopyMode = False Sheets("Arkusz2").Visible = False ActiveWorkbook.Save Application.ScreenUpdating...
W wolnej chwili wyklikałem na klawiaturze kilka linijek. Wydaje mi się, że wygodniej będzie Ci przystosować mój krótki kod. [syntax=vb]Sub Podziel() Dim a As String, a1 As Worksheet Set a1 = Sheets("Arkusz1") ow = Cells(Rows.Count, "D").End(xlUp).Row f = True Sheets("Arkusz1").Select For x = 5 To ow a = a1.Cells(x, 16) If f Then y = x f = False End...
Zobacz, czy o to chodziło. Zaznacza komórki na zielono lub czerwono wtedy gdy zarówno komórka testowana, jak i obie komórki określające przedział zawierają liczby. To zliczanie komórek zielonych i czerwonych - gdzie miałyby być wyświetlane wyniki? Tymczasem są w komórkach AI8 i AI9 w arkuszu T3.
Może wstaw plik z danymi dla ułatwienia temu, kto się za to weźmie.
Witam [syntax=vbnet]Sub SumaC() Dim ws As Worksheet For Each ws In Worksheets If ws.Name <> "RYDER" Or ws.Name <> "PORTAL" Then ws.Cells(2, 1).Value = "suma" ws.Range("B2") = "=SUM(I4:I50)" End If Next ws End Sub [/syntax]
żeby kopiowało tak jak kopiuje ale bez otwierania np. zmiana1 i zmiana2 Makro działa w chwili otwarcia arkusza "podsumowanie". Wszystkie dane które były wprowadzone w zmiana1, zmiana2, zmiana3 makro kopiuje i wykasuje dane z arkuszy zmiana1, zmiana2, zmiana3. Jak w piątek nie otwierac "podsumowanie", dane pozostaną aż do poniedziałku, a raczej do czasu...
od O2:O17 jest Gdańsk I ten zakres kopiujemy do L23, a co mamy zrobić z kolejnym miastem, zakres O18:30? Chcesz się poduczyć, czy oczekujesz gotowca? Jak to pierwsze, to lepiej na jakimś komunikatorze, a nie tutaj.
Witam Jeśli chcesz tylko wartości z innych arkuszy, pomoże to makro. wynik w arkuszu 1. Wszystkie arkusze muszą być nagłówek ID, bo nie wiem, w którym część arkusza są dane
Spróbuj [syntax=vb]For Each kom2 In Sheets("Arkusz2").Range("A1:A500") If kom2 <> Empty Then For Each kom1 In Sheets("Arkusz1").Range("A1:A500") If kom1.Value = kom2.Value Then kom2.Offset(0, 13) = kom1.Offset(0, 13) kom2.Offset(0, 14) = kom1.Offset(0, 14) Exit For End If Next End If Next[/syntax]
[syntax=vbscript]Sub Makro() Sheets("Arkusz1").Select a = Application.Match("W", Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row), 0) nw = Sheets("Arkusz2").Cells(Rows.Count, "A").End(xlUp).Row + 1 If Not IsError(a) Then Sheets("Arkusz2").Range("A" & nw) = Range("B" & a) Rows(a).Delete End If End Sub [/syntax]
Wstawiłem tabelę, włączyłem rejestrator makr, zmieniłem nazwę w 'Narzędzia tabel'. Nagrało się m/in: https://obrazki.elektroda.pl/2689543600_... Odpowiedź: Tak, można
[syntax=vbscript]Sub Kolumny() y = 9 For x = 1 To Sheets.Count ow = Sheets(x).Cells(Rows.Count, "I").End(xlUp).Row If Sheets(x).Name <> "Oferta" Then Sheets(x).Range("I1:I" & ow).Copy Sheets("Oferta").Cells(1, y) Sheets(x).Range("J1:J" & ow).Copy Sheets("Oferta").Cells(1, y + 1) Sheets(x).Range("K1:K" & ow).Copy Sheets("Oferta").Cells(1,...
Po pierwsze: z którym fragmentem nagranego kodu masz problem? Po drugie: Nagraj makro kopiowania całego arkusza do nowego pliku ze zmianą jego (pliku) nazwy. Masz 100% gwarancji zachowania formatowania. Jeśli w arkuszu jest nadmiar danych można dopisać usuwanie. Jeśli jesteś początkujący, to nagrywarka jest podstawą. Przykład: To jest nagrane makro...
Wygląda na to że bez zmian dla przykładu jeden wiersz a arkuszu Arka w którym sformatowałem ceny kolorem czerwonym: Sam chciałeś W nagranym przeze mnie makrze takie wklejanie daje taką linijkę kodu: Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats Niestety nie wiem czy można ja dopisać do Twojego makra. Niestety nie potrafię z kodu wychwycić...
O coś takiego chodzi? [syntax=vb]ost_wiersz = Worksheets("Arkusz2").Range("A" & Rows.Count).End(xlUp).Row Worksheets("Arkusz2").Range("A" & ost_wiersz + 1 & ":H" & ost_wiersz + 1).Value = Worksheets("Arkusz1").Range("A1:H1").Val... Worksheets("Arkusz1").Range("A1:H1").Cle...
[syntax=vbscript]Sub DoBazy() kol = Application.Match([C3], Sheets("Baza").Range("A1:GR1"), 0) If Not IsError(kol) Then For i = 1 To 260 Worksheets("Baza").Cells(i, kol) = Worksheets("DoBazy").Cells(i, 3) Next i MsgBox ("Dane dla daty " & [C3] & " zostały skopiowane") Else MsgBox "Brak danych." End If End Sub [/syntax]
Ok teraz masz kryteria w tablicach w kodzie VBA w razie jakbyś chciał dodać kryterium, musisz zwiększyć tablicę o 1 i dopisać do tego dodatkowego elementu kryterium z gwiazdkami. Jak zobaczysz kod to chyba będziesz wiedział o co kaman. Dodałem też zabezpieczenie przed kliknięciem dwa razy na makro
Cześć, mam pytanie, czy można napisać makro, które będzie kopiowało ostatni dodany arkusz? Czyli: mam arkusz 2020, makro kopiuje mi go i tworzy arkusz 2021, kolejny raz makro kopiuje mi arkusz 2021 i tworzy arkusz 2022 itd. pozdrawiam :)
Koledzy dobrze radzą, ale to trzeba wdrażać od początku projektu. Więc na przyszłość trzeba to zaplanować inaczej. Tymczasem jednak potrzebne jest rozwiązanie doraźne, polegające na kopiowaniu tego co jest. Na razie to jest ilość danych, z którą Excel sobie poradzi, ale jak danych będzie przybywać, to kopiowanie będzie trwało coraz dłużej. Ponieważ...
OK. Teraz mam pilne zadanie, w godzinach wieczornych coś do rozwiązania. ... Tu to jest [syntax=vb]Sub copyNumKs() Dim bd As Range, bs As Range, r& With Sheets(1) Set bd = .Cells(1, 5).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 1) End With With Sheets("wydruk") Set bs = .Cells(1, 2).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 2) End With For r = 2...
Wysłałem Ci gotowca na 99%. niestety próby przerabiania i sklejania czegokolwiek ze znalezionych makr spaliły na panewce Weź się trochę wysil... Masz do duspozycji arkusz 'Parametry'.
Jeśli dobrze rozumiem, to tak:
No to pewnie arkusz "XXX" & Cells(Y, "B") nie istnieje. Stojąc mniej więcej tam napisz w oknie poleceń (Immediate, jak nie mam to sobie włącz: View, Immediate Window) coś takiego: ? "XXX" & Cells(Y, "B") Napisałem, że muszą być przygotowane wszystkie potrzebne arkusze z nagłówkami, makro ich nie tworzy.
Takie proste makro powinno załatwić sprawę: [syntax=vb]Application.ScreenUpdating = False Set wssuma = Worksheets("Suma") ost_wiersz_sumy = wssuma.Cells(wssuma.Rows.Count, 1).End(xlUp).Row For i = 2 To ost_wiersz_sumy With Worksheets(wssuma.Cells(i, 1).Value) ost_wiersz_arkusza = .Cells(.Rows.Count, 2).End(xlUp).Row .Range("B" & ost_wiersz_arkusza +...
było by super Co było by? Testowalem Twój kod na XL2007 i XL2003 (inne nie mam) - wszystko dziala poprawnie
Po pierwsze - ustaw breakpoint'y i zobacz, w którym miejscu Cie "wyrzuca". Po drugie - po osiągnięciu sumy >20 przechodzisz do nowego arkusza, coś tam wklejasz po czym nie wracasz do pierwotnego arkusza - a Twój kod pracuje na arkuszu w tym momencie aktywnym.
Jaky format w A1? Sprobuj Sheets(Range("A1").Text).Select
Trochę Cię okłamałem To nie kłam na przyszłość. Mama nie uczyła?;) A w takiej sytuacji umieść arkusz 'Zbiorczy', jako ostatni na liście arkuszy. P.S. Próbowałeś uruchomić to makro? Zapewne nie...
Jeśli makro, następnie tak
Dodano po 3 [syntax=vb]Sub Copy() For Each cell In Sheets(2).Range("A:A") If cell.Text = "" Then Exit For Rows(cell.Row & ":" & cell.Row).Copy Sheets(cell.Value).Cells(Rows.Count, 1).End(xlUp).Offset(1) Next End Sub [/syntax] tak dobrze
Na dwie formy [syntax=vb] Sub Do_Druk() Dim i&, j&, k&, m&, p&, wy$ Dim wsSort As Worksheet, wsKp As Worksheet, wsKw As Worksheet, ws As Worksheet Set wsKp = Sheets("KP") Set wsKw = Sheets("KW") wsa = Array(wsKp, wsKw) Application.ScreenUpdating = False For Each wsi In wsa For i = 0 To 600 praw = 34 * (i Mod 2) dol = (i \ 4) * 64...
Rozumiem, że arkusz z danymi do kopiowania jest w osobnym pliku.
excel kopiowanie arkuszy makro makro kopiowanie wybranych arkuszy kopiowanie arkuszy zawierające makro
podciśnienie diego rurka parownik silnik kondensator falownik
protokól pomiarów router zarządzalny
Identyfikator ACPI\VEN_HPQ&DEV_0004 - HP 3D DriveGuard Niskie obroty biegu jałowego w Toyota Yaris 1.3 - przyczyny i diagnostyka
