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...
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...
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.
Witam, Potrzebuję pomocy osób obeznanych z Excelem. Mam problem: tak jak w załączniku mam plik w którym pierwszy arkusz to lista osobowa z wartościami do niej przypisanymi. Drugi arkusz to zestawienie ogólne (nieistotne dla mojego problemu) a kolejne to arkusze osobowe których nazwy to imiona i nazwiska osób. Wszystkie te arkusze są identyczne tylko...
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...
Jaky format w A1? Sprobuj Sheets(Range("A1").Text).Select
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]
Załącz plik z tym makrem, może w złe miejsce wstawiłeś?
Może wstaw plik z danymi dla ułatwienia temu, kto się za to weźmie.
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...
Kopiuj wklej nie wystarczy. Muszę to robić kilka razy w miesiącu i za każdym razem jeden arkusz muszę przerabiać kilka razy a mam kilka arkuszy. Więc na zwykłe kopiuj wklej to cały dzień roboty. Znalazłem różne informacje na forum, ale nie udało mi się tego uruchomić, żeby działało. Jak wspomniałem jestem zielony jeśli chodzi o makra. Wczoraj cały dzień...
kopiowanie funkcji chodzi mi o przeniesienie do arkusza1 gotowego wzoru bedacego w komorce w arkuszu3, z tym ze, wzor liczy np. mnozac 4 komorki przez siebie w ustalony sposob - czyli wzor. Wzor moze ulec zmianie i zmieniam go w arkuszu3. Dlaczego ? Dlatego ze w arkuszu3 beda inne wartosci 4 kolejnych mnożonych komórek. W arkuszu3 wyliczam sobie współczynnik...
Sheets("DRUKI SORTOWANIE").Select Range("A1").Select Selection.Copy Sheets("KP").Select Range("V28:W28").Select ActiveSheet.Paste Taki fragment można zapisać krócej tak: Gdzieś na początku makra: [syntax=vb]Set wsSort = Sheets("DRUKI SORTOWANIE") Set wsKp = Sheets("KP")[/syntax] a dalej: 1. jeżeli chcesz skopiować tyko wartości, bez formatów: [syntax=vb]wsKp.Range("V28:W28").Value.....
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 Poszukuje wsparcia w utworzeniu odpowiedniego makra. Posiadam dwa skoroszyty. W pierwszym "A" znajduje się arkusz z tabelą w którą chcę z automatu wprowadzać dane. Jedna cześć danych będzie narzucona i automatycznie wpisywana przez narzucony schemat w makro Druga cześć danych będzie kopiowana z tego samego skoroszytu " A" , tylko z innych komórek...
No działa, ale tak nie prościej? [syntax=vbnet] Sub Kopiuj(Dst As Range) Range("A2:B" & Range("A" & Rows.Count).End(xlUp).Row).Copy Destination:=Dst End Sub Sub TestKopiowania() Kopiuj (Sheets(3).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)) End Sub [/syntax]
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...
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...
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...
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.
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
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...
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 +...
Pomogę w ten sposób: Tak przypisujesz nazwę z danej komórki Nazwa_z_komorki = Worksheets("KON").Cell... 1).Value i podobnie ilość Ilosc_z_komorki = Worksheets("KON").Cell... 2).Value Do powyższego cells(nr wiersza,nr kolumny) dodanie arkusza: Sheets.Add Nadanie nazwy arkuszowi: ActiveSheet.Name...
[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]
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
Jeśli dobrze rozumiem, to tak:
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.
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ż...
Zacznij z petli For Each c In Sheets(1).Cells.SpecialCells(xlCellTypeA...
Jeśli makro, następnie tak
Na początku pętli [syntax=vbscript]Do While Len(ws_src.Range("E" & i)) > 0[/syntax]jest sprawdzany warunek czy długość zapisu w kolumnie E jest > 0. Eliminuje to przypadki pustych komórek i pustych tekstów. Gdybyś jeszcze chciał sprawdzać wartości zerowe to trzeba dodać nowy warunek pod spodem: [syntax=vbscript]If ws_src.Range("E" & i) = 0 Then Exit...
A to musi być makro? Nie może być funkcja wyszukaj.pionowo. W arkuszu 2 w komórce B8 wpisujesz: WYSZUKAJ.PIONOWO(A8;Arkusz1!$C$1:... i przeciągasz w dół a w C8 wpisujesz: WYSZUKAJ.PIONOWO(A8;Arkusz1!$C$1:... i przeciągasz w dół A aby to ładniej wyglądało lepiej wpisz tak w komórki: B8 =JEŻELI(CZY.BŁĄD(WYSZUKAJ.PIONOW...
A czy jest możliwość stworzenia makra, które po kliknięciu przycisku stworzy automatycznie arkusze dla wszystkich osób (i nada nazwy takie jak w pierwszej kolumnie tabeli tj. nazwisko i imię), a jeśli arkusz dla danych osób już istnieje, to je pominie. Można np tak: 968207
Odwróciłbym to: makro realizujące aktywację wskazanego arkusza w wybranym skoroszycie i zawierające polecenie copy , przypisane do dowolnej (nie wykorzystywanej domyślnie w Excelu) kombinacji klawiszy, lub uruchamiane zdarzeniem arkusza Np dwuklik... Schowek w Excelu jest obiektem, do którego należałby się odwołać. Natomiast uruchamianie makra kombinacją...
Chciałbym uściślić. Mam w skoroszycie bazowym (nazwę go DD) kilka tabelek w której formuły są typu B7=B5-B6, C7=C5-C6 itd. Zrobiłem makro, które przenosi dane z pierwszego skoroszytu z pozycji B6 na pozycję B5 w następnym skoroszycie i kopiuje skoroszyt. Przy pierwszym kopiowaniu (JA1) jest ok, ale jak próbuję skopiować JA1 do JA2 to nie przenosi mi...
Witam, jestem całkiem zielony w arkuszach kalkulacyjny jeśli chodzi o makra i potrzebuję pomocy. Utworzyłem skoroszyt w którym są trzy arkusze. Pierwszy to tabela przestawna, drugi to arkusz zbiorczy a trzeci to raport o nazwie '01'. Potrzebuję napisać następujące makro po włączeniu którego wartości z komórek od AS5 do BU5 z raportu będą kopiowane do...
Witam, Proszę o pomoc w napisaniu makra które po otwarciu pliku "arkusz ocen" będzie prosiło użytkownika o wskazanie lokalizacji pliku "baza". Po wskazaniu pliku excel otworzy plik "baza" skopiuję arkusz 1 (w tym pliku jest tylko jeden arkusz) i wstawi go do pliku "arkusz ocen" jak pierwszy arkusz. I teraz jeżeli w pliku "arkusz ocen" jest już skopiowany...
Witam Mam plik 1.xls. Jak napisać kod do makra, które otwierałoby plik z pulpitu (wskazany przeze mnie), kopiowałoby wszystko z pierwszego arkusza z kolumn A:N i wklejało wszystko do arkusza Dane do kolumn A:N w pliku 1.xls?
Witam To makro realizuje kopiowanie wszystkich plików znajdujacych sie w katalogu do jedengo. Sub Merge() Dim bookList As Workbook Dim MergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object Application.ScreenUpdating = False Set MergeObj = CreateObject("Scripting.FileSystemObject... Set dirObj = MergeObj.Getfolder("C:\2014") Set...
Witam, mam taki problem. Mam kilka arkuszy, których ilość może się zmieniać natomiast struktura będzie zachowana. Każdy arkusz zawiera dane osoby, projekt i ilość godzin przepracowanych na danym projekcie. Liczba projektów jest zmienna w miesiącu maksymalna wartość 30. Chciałbym żeby do arkusza wynikowego skopiować nazwisko, nazwę projektu, ilość godzin...
[syntax=vb][/syntax] czesc nie wiem jak sie do tego zabrac, ale potrzebuje makro do obrobienia pliku: poniewaz liczba zakladek sie zmienia a ja potrzebuje okreslone zakladki skleic jako jedna, chcialabym miec opcje ktora pozwoli mi wybrac o ktorej zakladki (czasem od 2 czasem od 3....itp)w excelu do ostatniej dane zostana sklejone w jeden akrusz. Wkazdej...
Witam, potrzebuje pomocy z excelem, w temacie: Kilka osób, codziennie wypełnia ten sam plik, jeśli chodzi o dane - nazywając go swoim nazwiskiem. Pliki codziennie są zgrywanie, w jedną lokalizację (folder) do jednego pliku pod nazwą Zestawienie (obecnie metoda kopiuj wklej). Każdego następnego dnia pliki z kolejną datą zastępują poprzednie. Chciałabym,...
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...
Witam, byłbym wdzięczny za pomoc. Potrzebuję makro, które pomogło by w poniższym opisie. W arkuszu Arkusz1 jest całość artykułów widniejących w systemie ( ok. 40 tys ). Do arkusza Arkusz2 będę wklejał dane artykułów, które będę kontrolował pod kątem jakości. Plik powinien szukać identycznych artykułów w kolumnie D w arkuszu Arkusz2 z tymi z arkusza...
Witam, potrzebuję pomocy z makrem. Czy ktos zmodyfikuje to makro tak zebym: 1) Mógł wpisać "z palca" numer wiersza z którego kopiuje (wszystkie kopiowana dotyczą zawsze jednego, wybranego wiersza). Ew. co tez jest dobra dla mnie opcja chcialbym moc wskazac myszka wiersz. 2) Mógł używać makra do aktualnie otwartego pliku (tego, do którego chcę skopiować)?...
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, 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...
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, mam taki kod makra, i chciałbym żeby zawartość komórek kopiowała się do innego pliku. Gdzie powinienem wstawić ścieżkę dostępu? Sub save() Dim cokopiujemy As String Dim linia As Integer ' jesli jest puste, wyswietl komunikat "UZUPEŁNIJ POLA" If (Range("F6") = "") Then Range("N8")...
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,...
[syntax=vbscript]Sub Zawiera() Sheets("Arkusz1").Select a = InputBox("Podaj tekst do szukania: ", "Wyszukaj") ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If InStr(1, Cells(x, 2), a) > 0 Then Range(Cells(x, 1), Cells(x, 2)).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub [/syntax] Poniżej bez rozróżniania wielkości...
Witam, Potrzebuję makra, które będzie kopiować dane z konkretnego arkusza w innej lokalizacji. Przykład: Dane ma pobierać z lokalizacji H:\DANE\Dane.xlsm z pliku Dane z arkusza BBB z komórek A2:F2000 i kopiować do tych samych komórek w pliku Zeszyt1 arkusz AAA z wykorzystaniem pętli, by kopiowanie nie trwało za długo Z góry dzieki
w tabeli znajdującej się w Arkuszu1 odnajdywany byłby wiersz zawierający "XYZ", a nastepnie wiersz ten byłby wstawiany do Arkusza2 w tych samych adresach komórek czasem wstawi w wiersz odpowiadający adresowi wiersza z źródłowego arkusza A więc w ten sam adres, czy do nowego wiersza? PS. Niestety funkcje się nie sprawdzą bo ja potrzebuje skopiować wartości,...
Jeśli urządza Cię wynik w dodatkowym arkuszu, można formułami. W przeciwnym wypadku Np takie coś: [syntax=vbscript]Dim w As Long w = 2 With Sheets("RaportPaczek") Do While .Cells(w, 1) <> "" If IsNumeric(.Cells(w, 3)) Then .Cells(w, 4) = .Cells(w, 3) .Cells(w, 3) = .Cells(w, 2) End If w = w + 1 Loop End With[/syntax]
Rozumiem, że arkusz z danymi do kopiowania jest w osobnym pliku.
Sorki za błąd :oops: Powinno być: Dodano po 1 Po pomocy :please: kod przybrał następującą postać: [syntax=vb]Sub kop_1() ' ' kop_1 Makro ' ' With Sheets("wyniki") .Activate .Range("F8:M8").Copy .Range("F86").PasteSpecial Paste:=xlPasteValues 'pozostałe mają ustawienia domyślne Application.CutCopyMode = False End With With Sheets("Arkusz1") .Activate...
Trzeba dopisać lub zmienić warunek... Makra, z wyjątkiem procedur zdarzeniowych, umieszcza się w modułach.
Samo wyszukaj.pionowo() będzie chyba za mało bo trzeba sprawdzić dwie komórki z nr seryjnym i kodem. Chyba że "dobuduje" się z przodu kolumnę pomocniczą łączącą nr seryjny z kodem. (Z opisu autora zrozumiałem że może się trafić przypadek np. 1235-5 i 1235-8) Może takie makro, ale nie wiem ile jest danych w pierwszym arkuszu. Przy dużej ilości danych...
To dlatego, ze Pan przemianol skorozsyt z gelda na gelda-1. Trzeba skopiować makro do wlasnej książki i przypisać je do przyciskow.
Moze być tak :) [syntax=vb]Sub kopiuje() Application.ScreenUpdating = False Dim ws As Worksheet Dim ws2 As Worksheet Set ws = Sheets("Arkusz1") Set ws2 = Sheets("Arkusz2") With ws .Cells(1, 1).Copy End With With ws2 ws2.Activate Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial End With ws.Activate Application.ScreenUpdating = True End Sub[/syntax]...
Następnie, jak powiedział Marek, oraz tworzenie obiektu Excel [syntax=vb] Dim myXL as Excel.Application Dim wb As Excel.Workbook '......... '........ Close #1 set myXL = CreateObject("Excel.Application") myXL.visible = true With myXL set wb = .Workbooks.Open( "C:\tmp\mail.csv") 'Rób co chcesz 'Wszystko, co odnosi się do Excel, zaczyna z kropkami wb.Close...
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
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:...
Zobacz, czy o to chodziło. Makro do kopiowania: [syntax=vbscript]Sub Kopiuj() Dim b As Worksheet Dim ow As Long Set b = Sheets(ActiveSheet.Index - 1) ow = b.Cells(Rows.Count, "A").End(xlUp).Row - 1 Dim CopyRng As Range, PasteRng As Range b.Range("A4:B" & ow).Copy ActiveSheet.Range("A4").PasteSpecial Paste:=xlPasteValues b.Range("N4:O" & ow).Copy ActiveSheet.Range("N4").PasteSpecial...
Zamiast tej linijki[syntax=vb]Wb.Sheets.Copy before:=ThisWorkbook.Sheets("makro")[/sy... pętlę For, z warunkowym kopiowaniem arkuszy. Warunkiem może być cells.find(what:="*") z wyłączoną obsługą błędów i jeśli Err=0, kopiujesz.
makro excel kopiuj zaznaczony arkusz excel makro kopiuj makro excel arkusz
volvo silnika drzwi zmywarka whirpool atlas copco wydajność
zgrzewarka ogniw zgrzewarka ogniw
Czarne pionowe pasy na ekranie Grundig 32 LCD Telefunken TE22502S27YXG Software Update Guide
