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. 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...
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=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]
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,...
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...
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...
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...
Znalazlem problem, kopiowanie zadzialalo. Dzieki za porady.
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.
Dlaczego nie załączyłeś pliku? Przecież na obrazku niczego nie można sprawdzić. Podejrzewam, że linie obramowania, które Ci się nie kopiują są przypisane do sąsiednich komórek. Ramka rozdziela komórki, ale nie musi być przypisana do obu, może być przypisana tylko do jednej z nich. Wtedy przy kopiowaniu trzeba zadbać o to by obramowania były przypisane...
U mnie bez kolumn pomocniczych, za to z nazwami (żeby łatwiej można ogarnąć formułę). Dane - to zakres danych źródłowych, numkol, numwie, numer - formuły pomocnicze, formuła kolnr zawiera adres początku zakresu wynikowego w formie adresu mieszanego, w tym przypadku [syntax=text]F$2:F2[/syntax]Formuła finalna w arkuszu jest formułą zwykłą, którą można...
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...
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 .
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 ?
Dobry wieczór, Formuły otoczone nawiasami klamrowymi są to formuły tablicowe. Formuły te działają w inny sposób niż formuły zwykłe. Zatwierdza się je nie samym Enter, lecz kombinacją Ctrl+Shift+Enter. Komórki z tymi formułami można kopiować w całości w zwykły sposób, natomiast gdy poddaje się je edycji trzeba na końcu użyć Ctrl+Shift+Enter. Formuła...
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...
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. Na samym początku chcę powiedzieć, że moja wiedza w zakresie programowania VBA, jest bardzo ograniczona. Potrzebowałbym skryptu, który powoduje kopiowanie komórek w dół kolumny. W taki sposób, że kopiuje komórki z numeru rejestracyjnego do kolejnego numeru. Jak napotka kolejny numer to kopiuje zasięg do kolejnego numeru. Z góry dziękuję za jakąkolwiek...
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 ?
Ja z reguły kolorami w arkuszach pomocniczych zaznaczam że formuły w danych komórkach są inne/"niestandardowe" więc trzeba zwrócić uwagę na ich kopiowanie (co nie znaczy że bez kolorów są zawsze takie same (w tym przypadku każdy miesiąc ma inną formułę) Dlatego najlepiej by było gdybyś zrozumiał jak jest stworzony arkusz test35. (tabela start i stop...
Jak przerobic to makro, aby dane z komórek z jednego arkusza: B3:B500, M3:M500, U3:U500, Y3:Y500, AM3:AM500, AQ3:AQ500 pobierało do mojego arkusza , ale w te same miejsca, czyli B3:B500, M3:M500, U3:U500, Y3:Y500, AM3:AM500, AQ3:AQ500 ? [syntax=vb]Sub Otworz() Dim wb As Workbook Dim ws As Worksheet Dim strQ As String Dim actWS As Worksheet Application.ScreenUpdating...
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...
Witam, potrzebuję makro, które sprawdzałoby komórkę, w której jest wpisana data i kopiowała inną w tym samym wierszu, w której znajduje się jakaś wartość. Chodzi o to, żeby użytkownik zaznaczył/wpisał datę, albo zakres od jakiegoś dnia do innego - wtedy makro sprawdzałoby czy w kolumnie B znajdują się takie daty, jeśli tak, to wartość z kolumny G w...
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...
Witam. Otóż chcę przenosząc formułę o jeden wiersz w dół, aby komórki w formule zwiększały się o 100 a nie o 1. Tzn. w komórce B1 mam formułę sumującą A1:A100, kopiując tą formułę do komórki B2, formuła zwiększa mi się względnie o 1 czyli A2:A101, a chciałbym aby zwiększała się o 100 czyli A101:A200. Szukałem trochę, ale nic nie znalazłem. Czy tak się...
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...
Jeśli makro, następnie tak
Witam Was, w VBA jestem zupełnym amatorem, w zasadzie korzystam z nagrywania. Pojawił się pewien problem Mam jeden plik z którego chcę kopiować zawsze te same zakresy komórek, do innego pliku. Zasada jest prosta otwieram jeden plik bazowy z którego kopiuję dane i wklejam w pasujący zakres w drugim otwartym pliku, plik do którego kopiuję zawsze ma inną...
Trochę niezrozumiale opisane. Z tego co rozumiem to nakładają Ci się zakresy, bo nie masz zadolarowanego pierwszego zakresu przed kopiowaniem (zaznacz zakres funkcji u na zaznaczonym zakresie naciśnij F4). Najlepiej zamieść jakieś dokładniejsze informacje, screena z opisem krok po kroku co chcesz zrobić, a co wychodzi nie tak.
Zawsze możesz też zrobić tak aby Makro pytało Ciebie przy odpaleniu z jakiego pliku zewnętrznego ma kopiować jaki zakres danych.
Zadziałało, ale tylko w przypadku jednego wiersza, pociągnięcie w dół formuły powoduje przesunięcię zakresu w dół za każdym razem o wiersz. Pewnie to banalne, ale nie wiem jak kopiować formułę, żeby wyszukiwany parametr się zmieniał, ale zakres pozostawał taki sam. :) https://obrazki.elektroda.pl/9974754200_... https://obrazki.elektroda.pl/1918696000_...
Cześć, zwracam się do Was z uprzejmą prośbą o pomoc w rozwiązaniu następującego problemu. Potrzebuję skopiować wartości z zakresu B10:C23 w plikach JEDNOSTKAA i JEDNOSTKAB do pliku OCENA_ZBIORCZA w kolumny odpowiadające nazwom tych plików. Dotychczas potrzebowałem tylko kopiować wartości z pliku JEDNOSTKAA i realizowałem to za pomocą prostego makro:...
1. Napisać makro. 2. Kopiowanie wartości: Ctrl+c Ctrl+Alt+v opcja>wartości 3. Odwołanie: = > klik w scalony zakres > Enter
Cześć, przepraszam, ale mam być może banalny problem , ale nie siedziałem dość długo w excelu i nie mogę sobie poradzić. Generalnie mam taki skoroszyt o nazwie < "Lista" > w którym zapisuje sobie wszystkie lokalizacje, jedna pod drugą. Często zdarza się że musze jakąś lokalizacje zaraportować, zanalizować itd i pomyślałem sobie że zamiast za każdym...
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????
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ę)...
Podsumujmy: 1a. Czy powyższy kod ma kopiować do arkusza "Zbiorczo" ostatni wiersz z innych kopiowanych arkuszy, 1b. Czy też powyższy kod ma kopiować do arkusza "Zbiorczo" wszystko (jakaś tabela, zakres komórek, itd.) z innych kopiowanych arkuszy, ale robi to pomijając ostatni wiersz Pytanie: Z jakich arkuszy i skąd one są kopiowane - z jakiegoś innego...
W szczególności co oznacza 7 różnych rodzajów typów? Coś mi mówi, że nie są to typy w rozumieniu programistów. I co oznacza różny zakres danych. Można kopiować więcej lub mniej danych w zależności od "typu", brać dane z innych miejsc? Ogólnie schemat powinien być podobny do tego: pętla po wierszach do końca (jak zdefiniujesz koniec? może do napotkania...
Witam, Uprzejma prośba o pomoc / podpowiedź / wyjaśnienie (na wstępie nie jestem programistą …. niestety!). 1. Formatowanie kilku zakresów jednocześnie. Chce nadać (za pomocą makra w VBA Excel) kilku zakresom danych ten sam format. Zakresy tu np: (B15:B38) (B51:C62) (B98:D112) Format to: ###,00;[Czerwony] - ###,00;- Bez tła (przeźroczyste tło)...
Dzień dobry, proszę o pomoc w wykonaniu makra w Excelu. Zewnętrzny program eksportuje dane do Excela w postaci tabelki o kilku kolumnach. Ręcznie usuwam niepotrzebne mi kolumny zostawiając tylko jedną z potrzebnymi danymi w Kolumnie A. Teraz w kolumnie B1 wstawiam formułę =("słowo1" &$A1&" słowo2"). Teraz muszę ręcznie przekopiować zakres w kolumnie...
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...
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...
Zgadza się chciałbym kopiować z arkuszy o identycznym nazewnictwie (-4) i skonsolidować zakresy znajdujące się w tych arkuszach do jednego podumowującego arkusza w nowym skoroszycie. Zakres danych zaczyna się w tym samym miejscu, jednak w zależności od arkusza ma zmienną ilość wierszy Przykładowy plik o identycznej strukturze zamieszczam poniżej. Na...
Zobacz w załączniku, czy ta propozycja spełnia Twoje oczekiwania. To jest makro zdarzeniowe, które reaguje na wpis dokonany ręcznie (nie przez makro), ale można kopiować z innej komórki. Wypełniać komórki można tylko pojedynczo. Jeśli chce się zmienić proporcje składnika, trzeba usunąć wpis istniejący (delete), a następnie wpisać nowy. Makro nie przelicza...
Witam, Szukam rozwiązania na tworzenie prostych wydruków w Excelu. W zakładce Arkusz1 jest lista komponentów które przyjmujemy na magazyn. Codziennie dochodzą nowe pozycje. Do każdej musimy wydrukować drobna "etykietę" (zakładka Etykiety2, szare pola) Etykieta to tylko 3 komórki z Arkusza1 - za każdym razem jest to zakres B2:D2 lub B3:D3 ; B4:D4 i itd...
Witam Dopiero zaczynam z Vba Exel i mam problem z przyśpieszeniem swojej pracy. Mam 2 arkusze. W pierwszym uzupełniam wiersze od (a2:h22) oraz komórkę "k1". Po włączeniu makra chcę by komórki z podanego przed chwilą zakresu dopisywały się w drugim arkuszu od "a2:h" a komórka "k1" żeby skopiowała się tyle razy ile dopisało się wierszy i to do ostatniej...
ten InputBox nawet nie jest tu konieczny bo zawsze z każdego pliku źródłowego z tego samego arkusza i tej samej komórki będzie spływała jakaś wartość do tej samej komórki w arkuszu UZYWANE. Więc muszę i tak wpisać ręcznie Array. Problem pojawia się wówczas gdy chciałbym nie tylko kopiować ze wszystkich Arkuszy1 do Arkusza1 w UZYWANE. A jeżeli w plikach...
Robiłem kiedyś podobne makro, ale zapisuje ono zakres złożony z iluśtam kolumn i 40 wierszy do kolejnych plików ich nazwa jest nazwą oryginału plus numer i jest logowana. [syntax=vbs]Sub import_export() ' ' import_export Macro ' This macro reads the selected excel file and splits it to multiply parts of given (def = 40) rows excl one- sheet files '...
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...
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...
I cóż? Nikt nie ma pomysłu jakby to można fajnie zautomatyzować?
Poszerz zakres i zastosuj clear zamiast clearcontents.
[syntax=vb]Sub kopia() If ActiveCell.Column <> 4 Then MsgBox "Wybierz indeks z kolumny D": Exit Sub ow = Sheets("Arkusz2").Range("C" & Rows.Count).End(xlUp).Row + 1 If ow < 15 Then ow = 15 r = ActiveCell.Row Range(Cells(r, "C"), Cells(r, "H")).Copy Sheets("Arkusz2").Range("C" & ow) End Sub [/syntax]
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...
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...
Miałeś w regule formatowania adres z $, czyli bezwzględny. Powinien być względny D2, ewentualnie $D2, ale przed 2 nie może być $. Można kopiować formatowanie, można od razu ustawić cały zakres, ale regułę piszemy dla pierwszej komórki.
Jeśli dobrze rozumiem wystarczy przesunąć zakresy. Przykład w załączniku.
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...
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...
excel warunkowe kopiować zakres excel makro kopiować zakres makro excel kopiować zakres
wyskakujące okienko router zodiak trzaski cyfrowy polsat niekodowane
kolokwium obwody kolokwium obwody
Odblokowanie przycisków w telewizorze MANTA 1905 bez pilota Elektryczna pompa wody VW T5 – funkcje, objawy awarii, diagnostyka
