Dokładnie tu nie ma nic co by mogło nie zadziałać, chyba że jest to jakiś wycinek z większego kodu (jak w pierwszym poście). Możesz sprawdzać po kolei czyli zaczynając, potem od ptaszkuj rng1 sprawdź itd. [syntax=vbscript]Sub second() Dim rng1 As Variant Dim rng2 As Variant Dim box1 As Range Set box1 = Application.InputBox("Select column", , , , , ,...
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...
[syntax=vb]Sub Wklej() sh = ActiveSheet.Name Sheets("Baza").Select Range("A1:D1").Select Selection.Copy Sheets(sh).Select nw = Cells(Rows.Count, "A").End(xlUp).Row + 1 Cells(nw, 1).Select ActiveSheet.Paste End Sub[/syntax] Kombinuj...
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...
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...
A tak trochę od siebie, nie łaska? [syntax=vb]Sub Polacz() Application.ScreenUpdating = False Zeszyt = ActiveWorkbook.Name sciezka = "C:\PlikiExcela\PlikDoImportu.xls" Workbooks.Open Filename:=sciezka Plik = Mid(sciezka, InStrRev(sciezka, "\") + 1) For x = 1 To Sheets.Count Windows(Plik).Activate Sheets(x).Select Range("A1:F1").Select Selection.Copy...
Jeśli makro, następnie tak
Witam, Mam problem którego jeżeli nie uda mi się rozwiązać w postaci kodu vba będę chyba siedział tydzień kopiując ręcznie dane. Chciałbym żeby kod kopiował zakres danych z Arkusza1 Kolumny A pomiędzy kolejnymi pustymi wierszami i wklejał je transpozycją do arkusza 2. W pliku wysyłam dane i w Arkuszu2 jak chciałbym żeby kolejne pozycje były przedstawiane.
Może Pan użyć instrukcji With: [syntax=vb]With XlApp.Worksheets(1) .Range("Q5,R5,V5,Z5,AD5,AH5,AL5,AP5,AT5,... .Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False End With XlApp.Workbooks("Book1").Close savechanges:=True [/syntax]
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,...
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 .
Znalazlem problem, kopiowanie zadzialalo. Dzieki za porady.
Chyba trzeba wstawić licznik do pętli. Sprawdź [syntax=vb]Sub Dostawy() Dim OstWiersz As Long Dim j As Integer, l As Integer Dim LArkuszy As Integer, LArkuszy2 As Integer, LWierszy As Integer Dim zakres As Range, zakres2 As Range, licznik As Integer 'kopiuję dane do nowego arkusza Sheets(1).Copy after:=Sheets(1) OstWiersz = Sheets(2).Cells(Cells.Rows.Count,...
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...
[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]
Użyj funkcji getvalue. Przykładów w necie od groma, np.: http://www.apocotenexcel.pl/getvalue.htm
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]
Prawdopodobnie uruchamiasz makro z aktywnym arkuszem innym niż "z". Każdy pojedynczy zakres w tym przypadku musi być precyzyjny, nawet jako argument. Path.Range(Path.Cells(), Path.Cells()) Masz do wyboru (zwróć uwagi na kropki przed Cells): [syntax=vb]with mainwkb.Worksheets("z") .Range(.Cells(i, 1), .Cells(i, 3)).copy 'itd End with 'co jest tym samym...
Suuuuper:) Wielkie dzięki, działa z tymi danymi:) Mam jeszcze pytanie. Ponieważ dane, które załączyłem nie są danymi rzeczywistymi trzeba by było przerobić podany przez Ciebie kod. W moim pliku rzeczywistym, którego niestety nie mogę załączyć, mam dane wypełnione w kolumnach od A do N. Kolumna A, C, D, E, F, I, J, K, L, M, N - dane nieistotne, ale konieczne...
Dzięki wielki pięknie działa. Temat do zamknięcia.
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...
Chodzi o coś takiego? Sub Kopiuj_Dolnośląskie() ostWrs = Range("B8").End(xl... + 1 If ostWrs > 65535 Then ostWrs = 8 tmp = ostWrs For i = 2 To 5 ostWrs = tmp For j = 8 To 44 Cells(ostWrs, i) = Worksheets("Arkusz1").... - 1, i - 1) ostWrs = ostWrs + 1 Next j Next i End Sub...
I cóż? Nikt nie ma pomysłu jakby to można fajnie zautomatyzować?
[syntax=vb]Sub copy_ujemne() For wiersz = 4 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(wiersz, 1) < 0 Then Cells(wiersz, 3) = Cells(wiersz, 1) Next 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...
sprawdź załącznik
Wystarczy ustalić, który wiersz jest ostatnim w obu arkuszach. Popularny sposób w VBA na tą operację to: [syntax=vb]ost_src = Worksheets("Arkusz1").Cells(Rows.Count, 1).End(xlUp).Row ost_dest = Worksheets("Arkusz2").Cells(Rows.Count, 1).End(xlUp).Row[/syntax] a mając te dane - kopiujesz zakresy, w zależności czy chcesz je kopiować ze wszystkim czy tylko...
będzie miał w nazwie "Dane", ale będzie to po ciągu innych znaków 1. Podaj schemat takiego nazewnictwa - jeśli nie jest on stały, a nawet zmiennie-nieprzewidywalny, to znacznie lepszym rozwiązaniem byłoby zastosowanie chociażby "Application.GetOpenFilename" i ręczny wybór pliku z danymi - nie wszystko da się zautomatyzować. 2. Podaj przykład zakresu...
Jeśli dobrze rozumiem wystarczy przesunąć zakresy. Przykład w załączniku.
Było, było, ale nie dla A:C.;)
Wklej do ThisWorkbook taką pętlę [syntax=vb]Private Sub Workbook_Open() Dim kol As Integer, ostWrs As Long, wrs As Long kol = 3 Application.ScreenUpdating = False With Sheets(1) ostWrs = .Range("B3").End(xlDown).Row Do While .Cells(1, kol) < Date For wrs = 3 To ostWrs .Cells(wrs, kol) = Val(.Cells(wrs, kol)) Next kol = kol + 1 Loop End With Application.ScreenUpdating...
Ten pierwszy kod jednorazowo może odczytać 1 komórkę. Tu była próba odczytania całego zakresu od razu. Trzeba to zrobić w pętli.
Witam. Właśnie poszukiwane z mojej strony.Visual Basic- Excel. - Jeżeli Ktoś z kolegów zna dobrą pozycję książkową Visual Basic z wiązaną z Excelem to bardzo proszę o tytuły. Będę wdzięczny.
Zamieść normalnie swój plik to ktoś Ci z forum coś podpowie :idea: Bywalcy forum na pewno nie będą Ci nabijać punktów :sm31:
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.
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ą...
Scalone komorki w zakresie kopiowania?
Tzn. ? Masz kilka zakresów o różnych rozmiarach, jak na ich kopiowanie ma wpływać pusta komórka? Wklej kod z zakresów, które przyjąłeś.
Nie musisz robić Select Użyj: [syntax=vbscript]Range("a2:n35000").Copy Destination:=ThisWorkbook.Sheets("Arkusz... Szczegóły znajdziesz na stronach M$ i nie tylko. Oczywiście oba adresy muszą być prawidłowe, wpisałem przypadkowe. Jeżeli zamierzasz kopiować więcej danych albo zmieniać pliki i arkusze to lepiej podczas otwierania...
Jest wystarczająco fragment z zmodyfikowanymi danymi, nie należy wskazać prawdziwe i wszystko 7. Kopiuje zakres np. linii P P, P1 lub P2 - z którego to zależy?
no to by było na tyle :)
Do While ... Loop jest niewłaściwym warunkiem. Pętla For Each ... Nex przeszuka wszystkie komórki zakresu, natomiast wybór komórki z tekstem 6-cio znakowym powinien nastąpić przez If ... End if.
Dzień dobry, potrzebuje kod VBA, który będzie kopiował tabele o zakresie (A;B) z Arkusza 1 do Arkusza2 o tym samym zakresie, jednakże jedno pod drugim, według pustych komórek. Z góry dziękuję za pomoc.
To jest porównanie zmiennych, gdzie zmienna "kom" ma domyślną wartość "Value" i jest porównywana ze zmienną "MergeArea", która jest na tyle nieszczęśliwie dobrana nazewniczo, że ma tę samą nazwę co zastrzeżona w vba właściwość "MergeArea" ... :-) ... Skorzystaj nie tylko z właściwości "MergeArea", ale również z "MergeCells", która zwraca info o tym,...
Witam, Chciałbym stworzyć makro które kopiuje określony zakres komórek z jednego pliku excel do drugiego. Problem jest w tym, że nazwy tych plików będą różne. Jest możliwość aby makro kopiowało komórki z pliku o określonej nazwie, a ja nazwę tego pliku wpiszę np. w komórkę "a1" Czyli w komórce "a1" mam nazwę jednego pliku, a w komórce "b1" mam nazwę...
Witam potrzebuję pomocy z vba otóż chciałbym żeby stworzyć makro które kopiuje i wkleja wartości(bez formatów jest taka opcja w excelu wklej wartości) ale żeby to makro przeszukało mi pewien zakres np g2 do h30 i jeżeli w np w g15 = "" lub w innej komórce albo w h 23 = "" itd. Wtedy kopiowało mi cały ten wiersz np a5 do h5 i wklejało np od l1 do s1...
Sub Makro1() With Sheets("Arkusz1") For Each zakres In .Range("A1:A5") If zakres.Text = "aa" Then Range("A1").Copy Range("C1").Select ActiveSheet.Paste End If to kopiuje tylko jeden wiersz jak tu ustawić żeby kopiiowało wszystkie wiersze z zakresu w pętli????
Tak z grubsza przeanalizowałem ten kod i przestaję rozumieć... Kopiujesz całe zakresy wierszy?
Witam W kolumnach A oraz E znajdują sie formuły. w kolumnach B C D -> dane, które zmieniają się w zależności od raportu, który się wygeneruje. Chodzi o to by po wygenerowaniu raportu makro brało formułę z komórki A2 i do kopiowało do końca. i analogicznie z formułą w kolumnie E komórka E2. Teraz pomyślałem, że "formuła" mogła by być zaszyta w makro...
Witam, Mam pytanie o możliwość stworzenia makra które będzie kopiować wypełnione wartościami kolumny w dół zaznaczając komórkę A2, jednak przy kopiowaniu pomijało by wiersze dla których nie ma podanych wartości w kolumnach D i F: https://obrazki.elektroda.pl/8651122400_... Na chwilę obecną przy poniższym kodzie: [syntax=vbscript] Range("A2").Select...
A mógłbyś pokazać rozwiązanie z zastosowaniem makra, tak aby jeszcze pogrubiało No nie :cunning: - to zupełnie nie ma sensu łączenie rozwiązania "formułowego" z rozwiązaniem VBA :cry: Żeby uzyskać efekt jak na zrzucie: 864550 konieczne jest precyzyjne rzeźbienie (musisz przewidzieć, które fragmenty tekstu mają być pogrubione :crazyeyes: ) wszystkiego...
Niestety nie działa. Kopiuje dany zakres i wkleja w kolumnę do tyłu. Po kolejnym kliknięciu wkleja w to samo miejsce. Potrzebuję aby wklejało w następną kolumnę pamiętając że jest to zakres dwóch kolumn. Czyli kopiuj D:E i wklej w F czyli tak naprawdę w F:G, po kolejnym kliknięciu kopiuj D:E i wklej w H czyli tak naprawdę zajmie zakres H:I itd.
Czyli otwierasz kilka plików / skoroszytów (worksheets) o takiej samej konstrukcji z interesującymi danymi w takich samych arkuszach (sheet) i chcesz zawartość całych arkuszy przenieść do nowego skoroszytu? Czy tylko jakiś zakres (range).
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.
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....
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.
Trochę nie rozumiem, po co to tak skomplikowałeś? Zawsze lepiej załączyć przykładowy plik, wtedy łatwiej zrozumieć. Numer tygodnia wprowadzasz do jednej komórki i to jest Twoje Selection albo ActiveCell. Chcesz kopiować zawartość tej komórki w dół, aby wypełnić zakres o długości Lastrow2? Czy tak, żeby oba zakresy z kol. A i kol. O kończyły się w tym...
Jeśli prościej jest kopiować całe wiersze to jeszcze lepiej bo miałem rozszerzyć zakres. Najważniejsze jest dla mnie aby znalazły się one w arkuszu raport, ale niestety to mnie przerasta...
To można też zrobić filtrem zaawansowanym. Arkusz2 musisz sobie najpierw utworzyć i skopiować do niego wiersz z nagłówkami kolumn. Kolumna z NIPami musi mieć taki sam nagłówek we wszystkich arkuszach. Dla ułatwienia zdefiniowałem Ci nazwy obszarów, które są potrzebne. W Arkuszu2 uruchamiasz filtr zaawansowany (karta Dane). Jeśli na początku pojawią...
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 :!:
Nikt nie ma pomysłu? Zostaje tylko VBA? Może jakoś z zakresem dynamicznym?
Dżiekie bardzo za pomoc działa super. Mam jeszcze jedno pytanie ponieważ powiększyłem obszar kopiowania do zakresu d6:J11 formuła działa ale niestety kopiuje tylko 1 raz jakie parametry muszę jeszcze zmienić żeby kopiowało tyle razy ile jest wskazane w komórce c6
Blok, to taka robocza nazwa, jaką nadałem grupie wierszy. I tak pierwszy blok to wiersze 2-8 drugi blok powstaje po użyciu przycisku "dodaj" - to wiersze 10-16 itd.... Co do sprawdzania kolorów, fakt, jest ta funkcjonalność przypisana przyciskowi "czyść dane" Jestem początkującym w zakresie VBA, więc pewnych rzeczy nie rozumiem.... Byłbym wdzięczny,...
Przy porannej kawie pomyślałem jak bym sobie to usprawnił. W arkuszu "S1" (śniadanie), zrobiłem "bazę" i tabelkę do składania jadłospisu. Wypełniałoby się tylko to, co zaznaczone ramką - czyli datę początkową oraz jakieś znaczniki w C3:H14 Arkusz wynikowy układa się "sam" (jest na formułach) - z wyjątkiem A1 oraz wiersza z alergenami (to też można zautomatyzować)...
A czy gdzieś napisałeś, że to ma działać w Excelu 2021? Nie piszesz też, czy może być VBA. Bez tych nowych funkcji i bez VBA, to zrobić to automatycznie będzie trudno. Mogę zaproponować taki półautomat w 3 etapach. Najpierw łączymy dane w dwa ciągi tekstowe za pomocą wybranego separatora. Ja zastosowałem średnik. [syntax=text]=POŁĄCZ.TEKSTY(";";;B1:E14)...
Odwołaj się do komórki zakresu... [syntax=vb]MsgBox Range("wartosc").Cells(1, 1)[/syntax]
Dziękuję, właśnie tak zrobiłem i działa 😎. A czy może wiesz jaka funkcja z VBA pozwoli na wysłanie zakresu do Windows live? Z Outlook temat działa, ale z Windows live już nie. Dzięki Damian
wyszukał kolumne z literą miesiąca i skopiował zakres do innej kolumny miejsca ale oczywiscie bez liczby miesiaca tylko same wartosci. Skoro kolumna misiąca jest literą, to jak określasz lipiec, a jak listopad? Do której 'innej kolumny' ma być skopiowany zakres z wybranego miesiąca?
Mam nadzieję że opisałem to w sposób zrozumiały. Niestety, nie bardzo. Podstawą w takim przypadku jest załącznik pokazujący układ danych. To co napisałeś jest niespójne i nie wiadomo jak chcesz tego używać. I po co angażować VBA do takiej prostej sprawy? A jeśli już o VBA mowa, to w swoim kodzie niepotrzebnie bierzesz number1 i number2 w cudzysłowy....
Ważne jest gdzie kopiujesz te dane. Wskazujesz jakieś okno, rozumiem, że plik musi być otwarty. A co gdy nie będzie? Najlepiej jeżeli to będzie ten sam skoroszyt w którym są makra. Wtedy łatwo zaadresujesz go poprzez ThisWorkbook i to pytanie wyżej nie ma wtedy sensu. Selekty do kopiowania nic nie wnoszą, To tylko strata czasu. Są przydatne np. podczas...
Dokładnie tak ma się to zachować. (czy da się to robić bez skrótu ctrl + n, czyli po wpisaniu automatycznie kopjuje) Po następnym wpisaniu daty w I4 powinno kopiować zakres dat z I4 do R4 itd.
To nie pomoże Pokaż właściwe pliki tu na forum, lub komuś z większą znajomością VBA na PW - ocena prawidłowości kodu będzie łatwiejsza :D
Wiem że kopiowanie ma się zacząć od A1 ale nie wiem jaki będzie dalszy zakres do skopiowania. Przerobiłem ten kod na number wylicza ci z col A ilość jak sam napisałeś wypełnionych komórek, czyli zwraca jakąś tam cyfrę, jeżeli chcesz zacząć kopiować kol A od a1+number to zapis jest Range(number)? Jest błędnym zapisem(gdy number zwróci ci np 10 to wygląda...
Parametr Offset odpowiada za przesunięcia No wlasnie jak zmieniam : sCol = "B" i parametr offset na (0,2) to faktycznie przesuwa mi, ale nie kopiuje tego co jest w kolumnie A
Zmodyfikuj np. tak :D [syntax=vbscript]Private Sub CommandButton1_Click() Dim rg As Range 'komórka docelowa - wystarczy lewy górny róg zakresu' Dim k As Integer Set rg = Range("Q3") k = rg.Value Range("arkusz1!I13:I169").Copy 'kopiuj' rg.Offset(0, k).Select Selection.PasteSpecial xlPasteValues 'wklej wartości' Application.CutCopyMode = False 'kasuj...
Witam Potrzebuję pomocy w stworzeniu kodu do exela w vba Chodzi o to aby sprawdzało czy w arkuszu WIATR kolumnie 5 jest text np. POLE i w kolumnie 7 zawierało się w dacie między od a do i jeżeli te kryteria się zgodzą dla danego wiersza żeby skopiowało do drugiego arkusza DANE i wywołać podgląd wydruku. Dobrze by było aby można było wybrać do przypisania...
A jakim dokładnie kodem próbujesz to kopiować? Może chodzi o sam zapis lokalizacji sieciowej? Czy ten folder masz zmapowany jako dysk (jakiś T: np.)?
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ż...
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.
Ale super pomysł! wielkie dzięki! i zamiast sztywnego zakresu podałam nazwę Tabeli, więc nie mam ograniczeń - BOMBA! jeszcze raz dziękuję. zamykam temat :-)
Jak w zakres destynacji wprowadzam np Range("A1", "H1") to kopiuje bez problemu tylko niestety cały czas w te same wiersze, dlatego chciałem aby destynacja zmieniała się za pomocą zmiennej ,,n'' która w konkretnym arkuszu zmienia się w zależności od ilości wierszy jednak niestety wywala błąd Patrząc na plik to błąd nie jest związany z zmienna "n" tylko...
Jeśli chodzi o klasyczne odwołanie, to nie jest to możliwe, gdyż odwołanie zwraca tylko wartość komórki, bez formatowania. Ponadto, nawet z użyciem VBA, komórka zawierająca formułę musi być sformatowana jednolicie (to znaczy można sformatować całą komórkę, ale nie poszczególne znaki). Szkoda, że nie dałaś pliku załącznika, bo wtedy łatwiej można by...
Skoro chcesz podzielić te dane na arkusze, to tak naprawdę wystarczy jedna pętla for, która dla każdego wiersza z danymi sprawdza, czy istnieje arkusz o nazwie równej nazwie klienta - a jeśli nie to go tworzy - po czym kopiuje do niego dany wiersz (lub zakres wierszy od-do, jeśli te dane masz uporządkowane po kliencie).
jeśli to są zakresy komórek, to możesz spokojnie nagrać makro - nie trzeba się bawić w ręczne tworzenie jego.
Stostując taki sposób deklaracji zmiennych zmienną wiersz masz zadeklarowaną jako Variant, a zmienną i jako Integer. Do operacji na nieciągłym zakresie możesz użyć [url=http://msdn.microsoft.com/en-us/lib... Union Twój kod można skrócić do poniższej postaci, nie trzeba zaznaczać komórek i przeskakiwać pomiędzy...
Tabelkę wstawisz [syntax=vbscript]ActiveDocument.Tables.A... Range:=Selection.Range, NumRows:=2, NumColumns:=2, DefaultTableBehavior:=wdWord9TableBehavi... możesz bezpośrednio z excela skopiować jakiś zakres i wkleić do worda, też otrzymasz tabelkę. Kolor słów/liter łatwo zmienisz w excelu (zastosuj to do komórki z tekstem "KolorTest") [syntax=vbscript]Cells(x,...
Może jeszcze raz jaśniej opiszę temat. :crazyeyes: Nie wiem czy właściwie odczytałem tą Twoją kombinację warunków :?: ale efekt wielokrotnego kopiowania jednej tabeli jednowierszowej, oraz pojedynczego kopiowania tabeli wielowierszowej - można zrealizować tak jak na zrzucie 959003 poprzez kod VBA (makro) z wykorzystaniem zmiennych tablicowych jak w...
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...
Mam tylko problem u mnie nazwa arkusza jest zawsze inna ( różne piliki są otwierane) Zamiast I jest jeszcze problem z zakresami, w pliku docelowym ma on być kopiowany w pierwszy wolny zakres. Więc tam, gdzie teraz jest przykładowo[syntax=vb]wswyn.Range("A2:D2... = wsSrc.Range("A2:D2").Value[/syntax] wstaw [syntax=vb]ost_w = wswyn.Cells(Rows.Count,...
http://obrazki.elektroda.net/69_12839796... Najpierw wpisałem zakres (i9:i13) a następnie wstawiłem wiersz...
Zakres danych mam podany (powiedzmy A1:A5 ) komórkę docelową chcę ustawić powiedzmy A6. To jest pod zaznaczonymi komórkami ;) Zmienic WorkRng(1).Offset(WorkRng.Co... Text:=koment na Range("A1000").NoteTex... Text:=koment
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)?
Dziękuję bardzo! Do pełni szczęścia brakuje mi tylko tylko jakby kopiowany był tylko zakres komórek A1:D45 i żeby ten arkusz był skopiowany jako wartość - bez formuł. Pozdrawiam
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)
Witam, potrzebuje stworzenia makra dla ponizszego problemu. Chce skopiowac kilka wierszy z danego arkusza, jezeli dana wartosc wystepuje w pierwszej kolumnie tychze wierszy. Skopiowane komorki a najlepiej tylko wartosci bez formatowania, chcialbym dodac do bazy danych juz istaniejacej w tym samym arkuszu na samym dole. Dla uproszczenia: szukamy w kolumnie...
witam :) Chciałbym napisać w Excelu w VBA funkcje, która kopiowałaby z ustalonego zakresu komórek tekst do pamięci (do schowka) po czym można by go było gdziekolwiek wkleić z zachowanie formatu i stylu tekstu, dat, godzin itd. Najlepiej zobrazuje to zdjęcie poniżej i pliki z załącznika. http://obrazki.elektroda.pl/3451101200_1... Efekt...
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.
Szukaj rozwiązania z poleceniem Dir , otwieraniem i zamykaniem plików w pętli Do Until . Było kilka podobnych tematów na forum. Przeszukiwanie arkuszy i kopiowanie zakresów również do znalezienia. Pisz, jeśli na czymś utkniesz...
No działa, ale tak nie prościej? Też ciekawe rozwiązanie - tylko w Twoim rozwiązaniu makro trzeba uruchomić na każdym arkuszu który chcę skopiować - fajne rozwiązanie :) A powiedz mi, czy jest w Twoim rozwiązaniu możliwość pominięcia jednej kolumny? Tak żeby kopiował zakres od A2:D i F2:L? Bo aktualnie mogę skopiować cały zakres od A2:L.
Kopiujesz tylko jedną komórkę CELLS(,,,) , kopiuj RANGE(CELLS(... Tu masz podpowiedź jak to zapisać [url=https://learn.microsoft.com/en-us/o... np. Range(Cells(1, 1), Cells(10, 4)) Range(komórka początku zakresu, komórka końca zakresu)
excel kopiować zakres makro kopiować zakres filtr makro kopiować zakres komórka
zalewa świece skuter nagrzewnica scenic huawei ładowanie
kondensator jamicon kondensator jamicon
Problemy z adapterem WF2113 w Windows 10: Rozwiązania Windows 10: Problem z aktywacją i komendą bcdedit