Niestety na służbowym kompie nie zobaczę Twojego pliku, więc tylko kilka wskazówek. 1. Proponuję przygotować szablon do kopiowania w oddzielnym arkuszu, nieużywanym przez kontrolerów. Można tam zapisać w razie potrzeby coś jeszcze, a docelowo można go będzie ukryć. 2. Żeby skopiować obszar (tabelkę), musisz wiedzieć gdzie to trzeba skopiować. Możesz...
Strasznie to wszystko zakręcone, a na dodatek niepotrzebnie komplikujesz sobie życie... Tak naprawdę to by to wszystko można zrobić na funkcjach, bez użycia VBA. No, ale... Zacznijmy od tego że poprzednie makro się wywalało, bo w złym miejscu umieściłeś sprawdzanie warunku: jeżeli masz zdarzenie Change wywoływane zmianą w arkuszu, to jeżeli w tym zdarzeniu...
Jeśli makro, następnie tak
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...
Znalazlem problem, kopiowanie zadzialalo. Dzieki za porady.
Nie słuchasz poleceń (o zamieszczeniu arkusza testowego) i dalej udziwniasz Twoje zadanie (cyt. "Formuła ma startować od ostatniej komórki w kolumnie do góry" :D ). W mojej ocenie nie poradzisz sobie obecnie z wykorzystaniem jakiegokolwiek makra :cry: więc przesyłam Ci w załączeniu formułę arkuszową, która po przeciągnięciu utworzy kolumnę C z pożądaną...
Witam, podczas tworzenia makra natrafiłem na problem z którym nie mogę sobie poradzić. Makro miałoby za zadanie z wszystkich arkuszy o nazwie "Protokół x" zrobić zestawienie w jednym arkuszu oraz z "delikatnymi" zmianami odnośnie rozmieszczenia w kolumnach. Na chwilę obecną nie idzie źle - mam problem ze zliczaniem wierszy z protokołów, żeby określić...
Witaj nie tylko dane ze wskazanej daty, ale cały zakres od tej daty Ale jutro dane chcieliby zamknąć tych, które zostały skopiowane dzisiaj. To nie Zawada? Dodano po 17 [syntax=vb]Sub kopie() Sheets("konsolidacja danych").Activate With Sheets("plan") szerok = Application.CountA(.Rows(2)) - 1 wysoko = Application.CountA(.Columns(2)) - 1 kolumn = Application.Match(.Cells(1,...
Proszę o pomoc, jestem początkujący (bardzo) i mam następujący problem Mam dane w akruszu1 kolejno w kolumnach od A do D 31.05.202113:581020 31.05.202113:587564 ... Potrzebuję skopiować wszystkie wiersze z arkusza1 dla liczby >=31 z kolumny 3 (C) do drugiego arkusza2. Najlepiej jakby skopiowane...
[syntax=vbscript]Sub NowaKolumna() nk = Cells(60, Columns.Count).End(xlToLeft).Column + 1 Range("H60:H80").Copy Cells(60, nk) Application.CutCopyMode = False End Sub [/syntax]
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...
Z trzema kolumnami pomocniczymi wychodzi jak w załączniku. Uwaga: konieczne wstępne posortowanie danych wg. kol. "A" oraz kopiowanie formuł o jeden wiersz niżej od zakresu danych.
Napisałem... Edycja nazwanego zakresu w zakładce Formuły>Menedżer nazw. Możesz też równie dobrze zamiast nazywać zakres, wpisać jego adres w polu "źródło" okna poprawności danych.
Witam Jestem nowym użytkownikiem, jak i nowicjuszem w programowaniu VBA. Ostatnio zacząłem się coraz bardziej interesować VBA, ale jak to na początku wiele spraw mnie przerasta. A oto problem: Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu .
Witam. Napisałem makro (excel 2010) które kopiuje pewien zakres (od A8 do kolumny E ostani zajęty wiersz) do komórki w kolumnie A pierwszy wolny wiersz w arkuszu w innym skoroszycie, problem polega na tym że chciałbym skopiować kilka zakresów (np A8 do kolumny E ostani zajęty wiersz, O8 do kolumny AK ostani zajęty wiersz, AM8 do kolumny BC ostani zajęty...
Hej witam wszystkich. Panowie mam problem tego typu że posiadam 6 arkuszy i 7 zbiorczy. Z tych 6 chciałbym skopiować stały zakres A19:J64 do arkusza 7 jedno pod drugim. Wiem ze podobnych tematów jest wiele ale nie wpadłem na tok postępowania który mógłbym wykorzystać w swoim przypadku. Pomożecie ?
Witam wszystkich Potrzebuję pomocy, przeszukałem wszystkie tematy. Potrzebuje wykonać akcję taką jak w temacie. Plik .xlsx Narazie udało mi się przerobić inny kod i wyszło coś takiego... Sub KopiaRobocza() Dim fileSaveName As Variant Dim WkbN As Workbook Dim nazwa As String Dim path As String nazwa = Range("H19").Value path...
nie wiem dlaczego gdy operuje na jednej kolumnie wszystko hula ładnie: [syntax=vb]Set mainwkb = ThisWorkbook Set newwkb = Workbooks.Add For i = 1 To count mainwkb.Worksheets("z").Cells(i, 1).Copy newwkb.Worksheets("Arkusz1").Cells(i * qty + 1, 1) newwkb.Worksheets("Arkusz1").Cells(i * qty + 1, 1).autofill Destination:=Range(Cells(i * qty + 1, 1), Cells(i...
Najprościej: 1. Zadeklaruj zmienną publiczną w 'Module1' Np "Public KolToSh As Integer" 2. W procedurze 'DaneDoKPSkladka' wstaw linię: "KolToSh = ActiveCell.Column - 16" Najlepiej zaraz za "If Val(ActiveCell.Value) > 0 Then" 3. W procedurze 'zapiszKPdoRK_1' zamiast: "Sheets("RK1S").Select" wstaw: "Sheets("RK" & KolToSh & "S").Select" Zastrzegam sobie...
Cześć. Mam problem ponieważ nie działa mi kopiowanie zakresu z innego workbooka i wklejenie go do aktywnego workbooka. Cały wcześniejszy kod działa dobrze więc wychodzi na to że z tym jest jakiś problem. To wycinek kodu: [syntax=vbscript]Sub first() Dim wbA As Workbook Dim wsB As Worksheet Dim file As Variant Dim lastRow As Long Dim a As Variant file...
Siedzę ponad 2 godziny i nie mogę znaleźć makra, które by kopiowało plik Excela do innego pliku bez otwierania tego pierwszego. z arkusza1 do arkusza2.z zakresu A1:d1000 do zakresu A2:b1001. Taka prosta rzecz by się wydawało ale nie ma :cry: ściezka C:\Users\Robson\Pulpit\dane\dane.xlsx do C:\Users\Robson\Pulpit\dane\dane1.xlsm
Witam, prosze o pomoc w utworzeniu makra, które bedzie kopiowało zakres danych z arkusza X do dowolnego arkusza np Y. Problem w tym że zakres danych z arkusza X jest przefiltrowany - dwoma warunkami po nazwie sklepu i po miejscowości. Chciałbym aby makro przekopiowało zakres już przefiltrowany do nowego arkusza Y. Moje makro kopiuje zakres danych ukrytych...
I cóż? Nikt nie ma pomysłu jakby to można fajnie zautomatyzować?
Cześć wszystkim. Taki problem napotkałem, jeszcze nigdy takiego czegoś nie robiłem i robię coś źle. Przykładowo chce żeby formula z jednej komórki wkleiła się do danej grupy. Range("A7:A49").Formula = Range("A6").Formula Takie rozwiązanie działa i wszystko jest ok. Ale jak napisać kod żeby ten obszar dało się zmieniać?? Dim ppk As Long, ppw As Long...
Bez załącznika i możliwości przetestowania kodu, to jest błądzenie po omacku. W Twoim kodzie nie wiadomo, co oznaczają: [syntax=vbscript]cCellYTD, measures[/syntax]Nie wiadomo, który arkusz jest aktywny w momencie wykonywania kodu. Oznaczenie YTD, jeśli ma być użyte jak zaproponowałem, musi być pojedynczym tekstem formuły, a nie tablicą. W tej formule,...
fragment: [syntax=vbscript] .Cells(Ow - 1, 6).Copy .Range(Cells(Ow, 6), Cells(Ow + Nw - 2, 6)).PasteSpecial _ Paste:=xlPasteFormulas[/syntax] zastąp tym: [syntax=vbscript].Range("F" & Ow - 1 & ":F" & Ow - 1).Copy .Range("F" & Ow & ":F" & Ow + Nw - 2).PasteSpecial _ Paste:=xlPasteFormulas[/syntax] i zmień nazwy kolumn w zakresie....
Hej Panowie mam problem szukałem natchnienia lecz nie znalazłem podobnego przykładu. Otóż mam skoroszyt w którym jest pewna liczba arkuszy 1-100. Chciałbym skopiować stały zakres A1-F1 ze wszystkich tych arkuszy do nowego skoroszytu do arkusza 1 jeden pod drugim. Pomożecie ?
Mam małe pytanie a właściwie problem! Chodzi o, iż mam kilka zakresów danych w osobym arkuszu "Arkusz1". Każdy z tych zakresów ma trzy kolumny. Jaki byłby kod źródłowy jeżeli chciałbym za pomocą pojedyńczych przycisków móc wybrać kilka zakresów osobno do "Arkusza2". Przykładowo wybieram zakres 1 (za pomocą przycisku) i chciałbym następnie wybrać zakres...
Kopiowanie formuł jest właściwością tabeli i w zasadzie sposób odwoływania się nie powinien tu mieć znaczenia. Mnie jednak po przekształceniu zwykłego zakresu w tabelę, to od razu nie zadziałało, dlatego zmieniłem sposób odwołania. Można też raz skopiować formułę, a potem powinno już działać automatycznie. Jeśli po wpisaniu czegoś do kolumny C chcemy...
To nie taki hop-siup: w VBA masz trochę ograniczoną liczbę obiektów którymi by można to wykonać w miarę prostu, więc trzeba samemu napisać dwa fragmenty kodu: jeden odpowiedzialny za wyłuskanie niepowtarzających się wartości z podanego zakresu i drugi, który je posortuje rosnąco (zakładając, że te dane mają być posortowane). Można by do tego wykorzystać...
Witam Mam taki problem. Z arkusza1 mam skopiować określony zakres komórek do arkusza2. Miejsce kopiowania tej zawartości do arkusza2 ma spełniać dwa warunki: 1.Ma skopiować pod wybranym miesiącem 2.W kolejny pusty wiersz W załączniku mój arkusz, ale coś mi nie tak kopiuje tzn nie w te miejsce gdzie trzeba. Jak by się dało jeszcze zrobić to wolałbym...
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...
niestety niewiele mi to pomogło.
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 przycisku. Rozpracowałem sobie pozostałe makra przez Rejestrator. Tylko to kopiowanie mnie przerosło
Witam, potrzebuje uzyskać kod vba, kopiujący dane z arkusza roboczego, do innego pliku excel (Baza). Przykładowo" Kopiowanie zakresu od A4:K4" z arkusza roboczego , do pliku excel (BAZA) , ścieżka C:\Users\_______\Dropbox\Logistyka]"BAZA... Kopiowanie według wolnych wierszy w pliku BAZA. Dziekuje.
Czy ktoś wie w jaki sposób można skopiować tekst w Excela do Worda, w taki sposób, żeby na przykład z kopiowanego zakresu Excela A1:A10, treść z wiersza A1 została wstawiona do Worda jako nagłowek_1, a wiersza A5 jako nagłówek_2? Z góry dziękuję za pomoc.
Witam Serdecznie. Potrzebuję stworzyć dwa makra przypisane do przycisków. 1. Skopiowanie komórek B4,D4,E4, K4 z arkusza Brudnopis do arkusza Dane_NAGRODA w pozycje A2.B2,C2, H2 - czyli B4doA2, D4doB2 i tak dalej w kolejności. Chciałbym aby kopiowanie było ograniczone do momentu aż skończą się nazwiska w kol E w arkuszu brudnopis. Nazwiska przenoszone...
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....
Witam, otóż czy jest ktoś w stanie podpowiedzieć jakiego kodu użyć aby automatycznie wyfiltrować dane: Mianowicie: mam zakres danych z którego chciał bym wyfiltorwać dane z arkusz po zakresach wartości : 31 , 33 , 35 mianowicie każdy zakres ma swój arkusz do którego chciał bym żeby przekopiowało dane. po czym filtruje kolejny zakres i tak w kółko aż...
Witam, bardzo serdecznie:) Makro wysypało mi się teraz trochę w innym miejscu. Niby prosta rzecz do zrobienia, tak mi się wydaje, skopiowanie zakresu pojedynczych komórek i wklejenie ich, żeby stały jedna obok drugiej w jednym wierszu zaczynając od komórki A1 (arkusz Excel). Makro w arkuszu Excel działa i wygląda mniej więcej tak: "Selection.PasteSpecial...
Witam, Potrzebuję funkcję w excelu, która kopiuje wartości z danego zakresu danych, a następnie tworzy komentarz w innej komórce i wkleja owe wartości do tej komórki. W internecie znalazłem taką funkcję: Sub CellToComment() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set...
nanTye , jeśli to jest Twój cały kod, to z zakresu źródłowego wklejasz tylko szerokości kolumn, a jeśli wklejasz pod spodem, to de facto nic nie zmieniasz, bo szerokości kolumn są i tak jednakowe. Musisz określić, co dokładnie chcesz wkleić z zakresu źródłowego i użyć odpowiedniej stałej w PasteSpecial, a jeśli chcesz skopiować wszystko, to wystarczy...
Dzień dobry, Mam propozycję do pierwszego problemu, ale rozwiązanie oparte jest na pewnych założeniach ograniczających: 1. Frazy "DANE TECHNICZNE", "INNE WARIANTY" i "OCEŃ PRODUKT" są poszukiwane w kol. A Arkusza1 w zakresie wierszy od 1 do 150 (tę granicę można zmienić). Kopiowane są komórki pomiędzy "DANE TECHNICZNE" a "INNE WARIANTY", a gdyby tej...
Cześć, potrzebuję pomocy w przetłumaczeniu procedury na język VBA. Mam 2 arkusze: Arkusz1 i Arkusz2. W Arkusz2 użytkownik wpisuje w komórkę B2 liczbę całkowitą. Następnie w wybranych komórkach zakresu D7:D100 również Arkusz2 wpisuje dane. Wpisane dane (i tylko te wpisane) mają się po naciśnięciu na przycisk (przycisk i podpięcie akcji sobie ogarnę)...
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...
Trzeba będzie wprowadzić copy-paste w miejsce przypisania. Raczej nie obędzie się bez select'ów, ponieważ pliki mamy w różnych instancjach... Spróbuj (nie testowane) [syntax=vb]Dim myPath As String Dim myFile As String Dim myPass As String Dim mySfrom As String Dim mySto As String Dim oExcel As Excel.Application Dim k As Integer Dim i As Integer Dim...
Można na kilka sposobów. Poniżej masz jeden z nich: [syntax=vb] Sub Auto_close() ' ' Makro1 Makro ' Application.DisplayAlerts = False Range("C5:Q5").Select Selection.Copy Do ActiveCell.Offset(1, 0).Select If ActiveCell.Value = "" Then Exit Do Loop Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False...
[syntax=vbscript]For Each ws In ThisWorkbook.Worksheets Call PrintRange(oFile, ws.Range("A7:D46")) Call PrintRange(oFile, ws.Range("F7:I46")) Call PrintRange(oFile, ws.Range("K7:N46"))[/syntax] Przyjąłem takie zakresy i gdy np. dla zakresu K7:N46 mam pustą komórkę M32 to nie zaczytuje tego do pliku.
... 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),...
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...
[syntax=vbscript]Sub Kopiuj() Set a = ActiveWorkbook i = Application.FileDialog(msoFileDialogOpen... s = Application.FileDialog(msoFileDialogOpen... Set b = Workbooks.Open(s) a.Sheets(1).Range("K20:M23").Copy b.Sheets(1).Range("K20") b.Close True End Sub [/syntax]
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...
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 wszystkich użytkowników, mam sprawę która sprawia mi problem, chodzi o kopiowanie przy pomocy makra danych z kolejnych plików. Chodzi o to że do pliku ZBIORCZY.XLSX kopiujemy wiersz A2 z plików 1_19, 2_19, 3_19, ..., n_19. Pliki o nazwach 1_19, 2_19, 3_19, ..., n_19 umieszczane są w folderze TEST. Pliki te będą tworzone i umieszczane w katalogu...
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...)
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...
Zadeklaruj licznik jako... Long (dla pewności) i zamknij kopiowanie w pętli testującej komórki w kolumnie B. Mniej-więcej coś takiego[syntax=vb] licznik = 1 '1-szy wiersz spr. zakresu With Workbooks(fld) Do While .Cells(licznik, 2) <> "" Set bs = .Sheets(1).Range("B" & licznik & ":AR" & licznik) Set br = bd.Rows(r).Cells br = bs.Value...
Nie ma na to prostego sposobu, a takie zwykłe przypisanie wartości formułą nie można nazwać kopiowaniem. Możesz napisać makro, które będzie kopiowało komentarze z jednego zakresu do drugiego np. po kliknięciu przycisku. Możesz napisać funkcję użytkownika, która w wyniku zwróci wartość komentarza z podanej komórki. Możesz też - i to chyba najbliższe...
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...
W takim razie mamy zupełnie odmienne wyniki testów :!: Z testów, które robiłem gdy pisałem o optymalizacji (dane dla 2000 wierszy ): - kopiowanie komórek pojedynczo ( z jednej kolumny ) - czas 5.26 - 5.6 s, z czego czasy krótsze dla liczb, a dłuższe dla komórek z tekstem. - kopiowanie komórek pojedynczo ze wszystkich 7 kolumn - czas 36.8 - 37,18 s ....
excel warunkowe kopiowanie zakresu excel makro kopiowanie zakresu makro excel kopiowanie zakresu
oporność głośnik wyciek oleju filtr zafira pilot
Zapowietrzanie układu paliwowego a przepływomierz w dieslu Downgrade Samsung Galaxy Watch 4 LTE - czy to możliwe?
