[syntax=vbscript]Sub Kraje() Application.ScreenUpdating = False Sheets("Kraje1").Select ow = Cells(Rows.Count, "A").End(xlUp).Row Range("A2:A" & ow).Copy Sheets("Dane1").Range("J1") For x = ow To 3 Step -1 Rows(x & ":" & x + 4).Insert Sheets("Dane1").Range("A8:D12").Copy Cells(x, 1).PasteSpecial xlPasteValues Next Sheets("Kraje2").Select ow = Cells(Rows.Count,...
Nie wykrzacza się, ale nic nie kopiuje. Arkusz pozostaje pusty...
Witam. Prosiłbym o pomoc, mianowicie do poniższego makra potrzebuje wstawić warunek, jeżeli w pliku są puste arkusze, to ma ich nie kopiować. Z góry dzięki za pomoc.
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...
Nie sprawdzałem działania, ale: Błąd 1: nieprawidłowa instrukcja Rows.Count (x 1 Up, powinno być XLUP). Lepiej: FinalRow = Cells(Rows.Count, 1).End(xlUp) Lub FinalRow = ActiveSheet.UsedRange.Rows.Count Błąd 2: Pętla For. Jeżeli przypisujesz wartości zmiennej i , to: Next i lub (również prawidłowo) samo Next bez jawnego nazwania zmiennej....
Oj, to był tylko przykład :) Jeśli już musisz na "selectach", to dopisz gałąź [syntax=vb]For Each ws In Worksheets If ws.Name <> "rowdata" And ws.Name <> "wynik" Then ws.Activate Range("M2:Q2").Select Range(Selection, Selection.End(xlDown)).Select If Selection.Rows.Count < 1001 Then Selection.Copy Sheets("rowdata").Select Range("a10000").End(xlUp).Offset(1,...
Spoko, mogło by wyglądać tak: Sub Makro1() Dim temp As Variant Dim wiersz As Long wiersz = 1 Do While Cells(wiersz, 8) <> "" If Cells(wiersz, 8).Value = 0 Then Cells(wiersz, 10).Cut Destination:=Cells(wiersz, 15) wiersz = wiersz + 1 Loop End Sub Dodano po 2 jaszcze taka uwaga makro działa poprawnie do pierwszej pustej komórki w kolumnie przeszukiwanej
(at)speedy9 , w temacie napisano wyraźnie - makro. EDIT: W dalszej dyskusji podałem rozwiązania za pomocą formatowania warunkowego zaproponowanego przez (at)speedy9 ale z nieznanego mi powodu zostało to wycięte. Więc podaje tu: =ORAZ(CZY.PUSTA(1:1))... Ot tylko tyle dla wiersza 1, dalej można sobie formatowanie kopiować.
Sprawdź wartość zmiennej plik przed pętlą. Jeśli pusta, to nieprawidłowy lub pusty folder...
Ok Działa, ale nie przenosi do innego arkusz. Ponadto kopiuje tylko wiersz A2 i to jest dziwne bo w kodzie jest umieszczony zakres od A2 do U3. Nie wiem czym to jest spowodowane. To może tak, zarejestrowałem nowe makro: Sub kopiowanie() ' ' kopiowanie Makro ' ' ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 Range("A1:U2").Select Selection.Copy...
Nie bardzo rozumiem, o co konkretnie chodzi. Przydałby się jakiś przykład w pliku, pokazujący jakie masz dane i co z nimi chcesz robić. Generalnie do testowania liczb można wykorzystać w VBA funkcję IsNumeric, albo zapożyczoną z Excela funkcję WorksheetFunction.IsNumber. Ich działanie różni się w szczegółach, na przykład funkcja IsNumeric traktuje puste...
Witam, dzieki bystrosci uzytkownika PRL mam makro ktore kopiuje dane z zakladek. Chcialbym jednak ograniczyc zakres kopiowanie i nie kopiowac wierszy pustych. Czy tos mi pomoze? Dziekuje[/table]
każde kolejne sczytanie z czytnika do Arkusza "NAZWA ODDZIAŁU" A2 kolejno wklei dane do pustej komórki w Arkuszu "DANE" Jeśli skaner korzysta tylko z komórki A2 :?: to możesz wykorzystać makro jak w załączniku 1063586
Przypisz tym kombinacje 2 puste makro t.z. Makro z tym komunikatem
Dwie wątpliwości: 1) Czy te formuły będą takie jak w przykładzie tzn. będą się odwoływać tylko do danych z tego samego wiersza? 2) Czy to ma być kopia z zaznaczenia (zaznaczam x wierszy i to kopiuję, tylko dokąd? jak określić miejsce docelowe?), czy kopia wszystkiego co jest (do ostatniego wypełnionego wiersza w określonej kolumnie), wtedy miejsce docelowe...
Opisz dokładniej okoliczności powstania błędu, żebyśmy mogli to odtworzyć. Najlepiej załącz plik. Załączam plik. Usunięta została tylko procedura sheet change zgodnie z Twoją sugestią. Skopiowanie jakiegokolwiek tekstu/wartości z przeglądarki i wklejenie go do komórki A2 nie powoduje żadnych problemów. Formatowanie zostaje ciągle takie samo. Podczas...
Sprawa jest bardziej skomplikowana niż się na pierwszy rzut oka wydaje, bo Target.Value w zdarzeniu Change będzie też przyjmowało puste wartości (przy czyszczeniu/usuwaniu komórki), a także może być zakresem Range() np. przy kopiuj - wklej do kilku komórek (podobnie przy czyszczeniu zakresu komórek), przez co makro będzie się wywalać. Trzeba ew. je...
Mnie te makra nie zawiesiły Excela ani razu, ale testowałem je na wersji 2007 i 2010. Być może problem jest spowodowany przez połączenie wklejania danych ze schowka z wstawianiem komórek. Jeśli formatowanie komórek nie ma znaczenia i kopiowane są stałe (tak to przynajmniej wygląda w przykładowym pliku), to może zrezygnować z kopiowania na rzecz przypisywania...
Hej, Dziś bez żadnego kodu, bo pytanie otwarte. Mam makro które tworzy mi tabelkę w przyszłości więcej niż jedną i chciałbym żeby makro kopiowało daną tabele do Otuloka. Jak można to zrobić ? Aktualnie już samo makro mi robi gotowego (at) do wysyłki jednak jest on pusty i tabelkę trzeba sobie przykleić.
Pierwszą rzeczą, która przychodzi do głowy jest Autofiltr na przemian przez kolumny i Kopiuj SpecialCells(xlCellTypeVisible)
Sprawdź takie makro: Cells(CC, 3).Cut zastąp linijką Cells(CC, 3).Copy . Makro działa od pierwszego wiersza, jeśli pierwszy wiersz Twojej tabeli to nagłówek, początkowe parametry CA oraz CC zmień na numer wiersza, od którego zaczynają się faktyczne dane. Makro działa do momentu napotkania pierwszej pustej komórki w kolumnie C.
Funkcja jeżeli, jeżeli pole obok nie jest puste wypełnij wartością zgodnie z uznaniem.
Hej, Mam 2 arkusze, w 1-generuje się raport pozycji na podstawie innego makra, w 2-uzyskany raport 1 ma zostać przeniesiony do ostatniego wiersza, niezapisanego i stworzyć 1 wspólną listę, poszperałam tu na forum i znalazłam makro, dopisałam jeszcze, by przed kopiowaniem wyfiltrował wartości puste i kopiował bez nich. Makro to działa, ale w związku...
Wypróbuj w "główny" takie makro [syntax=vb]Sub makro() ostw = Range("C65536").End(xlUp).Row Range(Cells(ostw - 2, 1), Cells(ostw, 11)).Copy Cells(ostw + 1, 1) End Sub[/syntax]Formuły powinny "ułożyć się" wg kolejności wierszy. Nie wiem tylko skąd pobierać nazwisko klienta...
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
Hej, zwracam honor i już dodaje spakowany plik. Odnośnie "bazy danych" - dlaczego to nienajlepszy pomysł? Plik docelowo w mojej głowie robi raport z np. 2 miesięcy, a każdy kolejny dzień jest tabelką niżej - codziennie wartości wpisywane w te kolumny się różnią, a potrzebne są do rozplanowania zmiany. Wcześniej miałem ten plik z macro, które kopiowało...
Makro w Twoim pliku jest b.dobrze zaszyfrowane. No, może tylko mi nie udało się odszyfrować ;) Żeby nie tracić czasu napisałem od nowa (module2). Wszystko oparłem o w/w funkcję 'Find' Zrozumiałem, że pkt2. w kolejnych miesiącach dotyczy sprawdzania poprzedniego i tak zrobiłem. Sprawdź (nie testowałem wiele), w razie czego dostosuj do własnych potrzeb....
Witam wszystkich życzliwych, z góry bardzo dziękując za pomoc. Zasięgałem już porady na tym forum ale potrzebuję doprecyzować już na konkretnym przykładzie. W załączeniu zamieszczam projekt, który potrzebuję stworzyć. Do rzeczy, potrzebuję stworzyć makro, które będzie przeszukiwało folder z plikami w których będą dane źródłowe i przenosiło te dane do...
Brak załącznika to poważny mankament! Nie wiadomo, jakie dane są w kolumnie "O". W kodzie PRL jest sprawdzany warunek: [syntax=vbscript]Sheets(x).Cells(y, "O") >= -30[/syntax]Otóż warunek ten spełniają nie tylko liczby >= -30, ale również puste komórki, dowolne teksty, w tym teksty puste, wartości logiczne. A jeśli w komórce jest wartość błędu, to program...
gdyby ktoś zmodyfikował mi makro Na pewno ktoś się znajdzie, kto rozróżni nagłówek od bloku.
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...
W 'Workbook_BeforeClose' kopiujesz zakres, otwierasz 'główny', określasz pierwszy pusty wiersz 'Cells(Rows.Count, "A").End(xlUp).Row + 1', wklejasz, 'Me.Save'.
wpisywane "ręcznie", a nie poprzez formuły - jak ogarnąć drugą część mojego problemu? Żeby wykorzystać makro zdarzeniowe :D to proponuję wykorzystać jednak inną kolumnę np. wolną obecnie kolumnę A :spoko: . W załączonym pliku proponuje w przedostatniej komórce kolumny A wprowadzić wartość 1 , a wówczas cały ten wiersz (od B do AH) zostanie wstawiony...
Witam, Potrzebuję makra, które będzie kopiowało i wklejało zawartość wiersza w którym: Jeżeli w kolumnie G komórka zawiera wartość to wstaw <pod nią> wiersze n-1 i skopiuj dane z tego wiersza. Czyli w komórce g8 pojawia się wartość 3 to makro wstawia pod 8smym wierszem 2 puste i kopiuje cały wiersz 8 do wstawionych wierszy. Mam nadzieję że dość,...
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...
Do makra można przypisać skrót klawiaturowy, ale nie może to być ani "'" ani F9 tylko konstrukcja typu Ctrl+Shift+A Można też uruchamiać makro za pomocą przycisku lub przypisać je do kliknięcia w obraz lub kształt.
Witam, Jako, że to dopiero moje początki w VBA proszę o pomoc. Potrzebuję stworzyć jak najprostsze makro żeby po kliknięciu przycisku kopiowało wybrane komórki (zawsze będą one w jednym wierszu) z Arkusza1 do Arkusza2 w kolejny pusty wiersz zaczynając od wybranej przeze mnie komórki i dodając przed całym tym ciągiem kopiowanym kolejnej liczby porządkowej....
Wniosek w powyższej korespondencji: Jest skoroszyt Truck.xls, w nim arkusz danych Aero. Chceme kopiowac do nowo utworzonego skoroszytu wiersze z Sumy>20. Pytanie: w którym skoroszycie Truck lub nowom chceme wstawic puste wiesze? Lub w obu?
Cześć, Chciałbym napisać makro, które będzie kopiowało daną wartość z kolumny w dół kolumny w pustych wierszach, do momentu napotkania innej wartości. Nie mam pomysłu jak to zrobić. Proszę o pomoc.
Witam, Potrzebuję pomocy osoby doświadczonej w posługiwaniu się Excelem. Stworzyłam raport, ale nie do końca spełnia on moje oczekiwania. Proszę o pomoc. Dodam, że wszystko w Excelu robię metodą prób i błędów, ale tym razem nie mam pomysłu, jak poprawić formuły… W arkuszu „Karta” w kolumnie AE (i adekwatnie AI, AL., AS, AV, AZ, BD)...
Makro poniżej przesuwa nazwiska w prawo o wartość numeru grupy+1, a następnie usuwa puste komórki w obszarze danych. Nazwiska nie są posortowane. Jeżeli jest potrzeba. sortowania to na początku makra dopisać sortowanie.[syntax=vbscript]Sub Przepisz_Nazwiska() Dim Tab_Opis As Variant With ActiveSheet Tab_Opis = Array("Grupa 1", "Grupa 2", "Grupa 3",...
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...
Przyczyną błędu jest tylko to, co napisał adams_nt : powinna być deklaracja typu jak poniżej: Ewentualnie program mógł by sprawdzić czy akrusz B jest otwarty, jeżeli jest nie otwierać go ponownie a jeżeli jest zamknięty otworzyć go. Założyłeś, że Twoje makro będzie kopiować z pliku B.xls aktualnie zaznaczony wiersz - ono nie otwiera pliku [ponownie]....
Gdy wyłącze filtry w tym pliku to po uruchomieniu makra dane kopiują się bez fragmentu zaznaczonego na żółto. Jeśli filtr jest włączony to kopiuje w taki sposób, że fragment na żółto się pojawia (czyli kopiuje również puste komórki z formułami). Innych różnic nie znalazłem, błąd wyskakuje w każdej z nich.
Właśnie to pozwoliłem sobie zmienić w przesłanym przykładzie w makrze kolegi adamas_nt Wpisz zamiast ostatniWiersz = 100 to ostatniWiersz = Sheets("Arkusz1").Cell... 1).End(xlDown).Row Wtedy makro samo policzy ile jest wierszy i będzie się wykonywało tylko do ostatniego wiersza. Warunek dane w kolumnie...
Tak. W kolumnie LP nie wpisujesz. Makro rekordy z pustym LP przenosi do zbiorczego i wypelni LP sam 'Data wpływu' - format daty
W pierwszym pliku są kolumny z danymi (w tym w którym jest makro), chcę żeby do drugiego pliku kopiowało tylko wybrane kolumny po konkretnym nagłówku, 40 kolumn, 40 nagłówków, chcę żeby do pustego pliku brało tylko wskazane przeze mnie kolumny po wartości nagłówka (nagłówek jest w pierwszej komórce każdej kolumny, A1, B1 itd).
1. Wiec w tym ostatni pliku potrzebowal bym w zakladce pionowo jakis przycis (makro) ktory by automatycznie usunol czesc tekstu "6pao" i "6pac" poniewaz wszystkie kody kreskowe to posadaja to z przodu ale w systemie sa tylko liczby aktualnie jest tam "6pao" ale czsami jest "6pac" czsmiami sa pomieszane jet to i to wiem ze mozna to usunac formula albo...
Tak na szybko: [syntax=vbscript]Sub Kopiuj() Dim irow As Integer Dim wiersz As Integer Dim kolumna As Integer wiersz = 1 kolumna = 1 For irow = 2 To 6000 If Len(Cells(irow, 1)) > 0 Then Worksheets("Arkusz_2").Cells(wiersz, kolumna).Value = Worksheets("Arkusz_1").Cells(irow, 1).Value kolumna = kolumna + 1 End If If kolumna = 17 Then kolumna = 1 wiersz...
Do samego kopiowania lepiej użyć funkcji for each, która odczyta dane z każdego arkusza i przekopiuje cały zakres. Przyjrzyj się temu rozwiązaniu: Private Sub CommandButton1_Click() Application.ScreenUpdating = False Set wswykaz = ThisWorkbook.Worksheets("Wykaz&... wswykaz.Range("A2:F65536&qu...
Excel nie ma takiej wbudowanej funkcji kopiowania. Można to zrobić np. poprzez autofiltr który jednym kliknięciem eliminuje ci puste i możesz zaznaczyć to co widać i skopiuje się "po kolei" - bez pustych Można w 2007 i wyżej kombinować coś poprzez usuń duplikaty ale jak nazwa wskazuje usunie zarówno powtarzające się puste komórki jak i komórki o tej...
Witam. Domyślam się że to co potrzebuję jest bardzo proste. Mianowicie potrzebuję pomocy żeby stworzyć przycisk dzięki któremu będę mógł kopiować wartości z jednego arkusza do aktywnego arkusza (w którym znajduje się przycisk) do konkretnej kolumny z tym żeby jak będzie kopiować do kolejnego pustego wiersza. Czyli np. po naciśnięciu przycisku z arkusza...
Przy wstawianiu nowych wierszy nie kopiowały się niektóre formuły, później pola te zostawały puste więc makro je pomijało. Problem rozwiązany :) Dodano po 23 Dzięki wszystkim za pomoc :)
Witam, wiem że był podobny temat, jednak tamten mi nie pomógł a ciężko znaleźć jakiekolwiek informacje w internecie. Od kilku dni męczę się z tym kodem, chciałbym aby po kliknięciu przycisku dodawał się nowy arkusz z nazwą pierwszego + kolejny numer po prawej stronie według kolejności, mam makro tworzące kolejny arkusz, lecz pusty oraz mam makro kopiujące...
Witam, pokrótce opisz mój problem na podstawie zamieszczonego poniżej pliku 'przykład1'. Makro które w nim utworzyłem ma za zadanie: kopiować z arkusza '3' wiersz z ciągiem 4 cyfr do arkusza '1'. Potem z tego arkusza kopiować kolumnę 'J' do arkusza '4'. W przypadku analizowanego przykładu, makro ma się zakończyć, gdy wszystkie wiersze (30) z arkusza...
Super! Dokładnie o to chodziło! Tabela przestawna rozwiązuje sytuację. Ale żeby ją utowrzyć, trzeba mieć zbiorczo podsumowane wszystkie faktury, bez pustych wierszy. Jak to zrobić automatycznie dla wszystkich arkuszy? Żeby było tak jak na screenie :) https://obrazki.elektroda.pl/1574377400_... EDIT: nie trzeba mieć pustych wierszy -...
row = Cells.SpecialCells(xlCellTypeLastCell).r... - może być puste row=cells(rows.count, 3).End(xlUP).row Aby przetestować: row = Cells.SpecialCells(xlCellTypeLastCell).r... MsgBox row
Witam wszystkich mam poważny problem z dodawaniem nowego wiersza za pomocą przycisku. Stworzyłem tabelkę, która zawiera wiele list rozwijanych i funkcji jeżeli to coś tam. Przycisk z odwołaniem do Makra dodaje mi kolejny wiersz zachowuje listy rozwijane ale nie przenosi funkcji i pojawiają się puste komórki. Czy może ktoś wie jak powinno wyglądać prawidłowe...
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...
pieknie!!! do pelni szczescia brakuje mi tylko zeby jak dodaje wiersz przepisywal rowniez ilosc w te puste komorki, w przykladzie o tym zapomnialem. jesli znajdziesz chwile to prosze dodaj to do kodu.
Czasem pomaga skopiowanie całej zawartości arkuszy, elementów VBA do nowego pliku (Ctrl+c, Ctrl+v) Spotkałem się też z podobnym zjawiskiem przy makro kopiującym spory zakres, zdefiniowany "z górką" (dużo pustych wierszy/komórek). Gdy w v2003/2007 szło to bardzo sprawnie, v2013 "myśli" nad tym denerwująco długo. O dziwo: im więcej pustych, tym makro...
Makro zrobiłem poprzez zarejestruj makro. Ale zawsze była jakaś zmiana, Oprócz arkuszy A i B utworzyłem dwa tymczasowe. Sprawdzam czy nazwa A i B są jednakowe, jak tak kopiuję do C, jak nie zostawia puste. Później kopiuję ręcznie pozostałe dane. Wyciągam niepuste wg nazwisk. Kopiuję do arkusza D i nadaję pojedyńcze numery
Witam. Mam arkusz "obliczenia" w którym są dane liczbowe i puste komórki. Zależało by mi aby makro działało w następujący sposób: 1. po pojawieniu danych w tym arkuszu "obliczenia" makro samo się uruchamiało. 2. Chciałbym aby kopiowały się te dane, które są większe od zera( dokładniej nie kopiowało pustych komórek). Dane są od komórki F4. 3. makro...
Czy jest to operacja powtarzalna, to znaczy będziesz w przyszłości ponownie zrzucać tych 25 arkuszy do jednego arkusza? Bo jeśli nie, to, moim zdaniem lepiej to zrobić na piechotę, kopiując dane z poszczególnych skoroszytów do jednego. Można wcześniej np. ustawić różne kolory tła dla poszczególnych arkuszy, jak również ponazywać zakresy komórek obejmujących...
Tego załącznika nie da się odczytać. Jest uszkodzony. Zresztą już jego wielkość 256 bajtów wskazuje, że jest praktycznie pusty.
Witam! Szukam skuteczniejszego sposobu na obliczanie danych po przefiltrowaniu. Mianowicie w kolumnie A mam nazwę jednostki, przyjmijmy, że mam tam Firma 1, Firma 2 i Firma 3. W kolumnie B mam termin przesyłania przez nich zamówień. I teraz po przefiltrownaniu Firmy A mam jej terminy które dziele na 3 części, te przesłane do 14, 30 i powyżej 30 dni....
Mam następujący problem: Stworzyłem makro jak było opisane powyżej, ale jest problem z rekordami pustymi. Wszystko jest ok jak tekst się zaczyna od początku komórki - jeśli nie trzeba wpisać w filtrze wyszukiwania "*". Chciałbym żeby wpisywać tekst w innej komórce i kopiować filtr wyszukujący do innej która dostawia "*" po obu stronach tekstu. Próbowałem...
Ok sory źle to wytłumaczyłem, więc tak : 1. Wchodzisz do pliku rejestr 2. Uruchamiasz makro przyciskiem "wygeneruj zlecenie cent" 3. Makro przypisane do tego przycisku robi to: a. Generuje kolejny numer w najbliższym pustym wierszu. b. Otwiera wzór zlecenia o nazwie zlecenie cent C. Kopiuje nowo nadany numer w rejestrze i wkleja go do otwartego wzoru...
Witam Mam napisane makro na wyszukanie pierwszej pustej komórki i działa dobrze, ale ja potrzebuję aby wyszukało pierwszą komórkę o zawartości 0,00 . Wartości 0,00 kopiowane są za pomocą formuły z innego arkusza. Pozdrawiam.
Jestem początkującym użytkownikiem VB. Makra robią świetną robotę. Chcę zaprogramować coś podobnego jak qbicz tylko w podanym kodzie utknąłem w pierwszym wierszu. Makra nagrywane w Excelu Zaczynają się od pustego nawiasu: np. [syntax=vb]Sub makro() End Sub[/syntax] Z góry dzięki za pomoc.
Długo nikt nie odpowiada, więc chyba coś tu nie jest jasne. Excel może działać (upraszczając nieco) poprzez formuły lub poprzez makra. Formuły nie mogą niczego przenosić, mogą jedynie "kopiować", a ściślej zwracać wynik tam, gdzie wcześniej wpisano formułę, pozostawiając dane źródłowe bez zmiany. Formuły działają automatycznie, przeliczają się same,...
Ale dla którego wiersza tabeli 1 ma szukać? Dla jednego czy wszystkich? Jak go chcesz wskazać jeżeli jednego? W najprostszym przypadku uruchamiasz makro stojąc w jakimś wierszu Tabeli 1. Makro znajduje numer wiersza i zapamiętuje klucz wyszukiwania łącząc zawartości komórek z jakimś separatorem, np : Kolumna 1 & "|" & Kolumna 2 & "|" &...
Wydaje mi się, że na moje potrzeby jest ona zbyt automatyczna i może być tak, że będzie więcej formuł kopiować niż ja potrzebuję. Poza tym tak jak wspomniałam, nie chcę żeby formuły były widoczne, chcę je zamieniać na wartości, aby odciążyć plik. Poza tym nie chodzi tylko o taką prostą funkcję dodawania. Wolałabym, aby ktoś pokazał mi jak makro odnieść...
Tam akurat jest 10 siedlisk i ten zakres będzie wystarczający. ID(jest stałe wszędzie jest 4) | ID gniazda(i ID znajduję sie w kolumnie E) | ID Siedliska (tutaj wartość jest w wierszu nr 1) | Powierzchnia(tutaj właśnie chciałbym przekopiować wartość komórki z tabelki. Przy pustej komórce przechodzi dalej. Mam nadzieje ze dobrze zrozumiałem Twoje pytanie.
Witam mam makro kopiujące formułę chodzi mi o to żeby kopiowała się zależnie od danych zawartych w kolumnie b (czyli do pierwszej pustej w b) a nie jak teraz mam do a500 [syntax=vb]Sub wstaw() ActiveSheet.Range("A1").Select ActiveCell.FormulaR1C1 = "1" ActiveSheet.Range("A2").Select ActiveCell.FormulaR1C1 = "=IF(RC[1]<>"""",R[-1]C+1,"""")" Application.CutCopyMode...
Podbijam, Mam też podobny problem. Chciałbym by makro porównywało wartości dla danego produktu z dwóch plików, jeżeli się rożnią to by wstawił obok np. do kolumny C A to nazwa produktu B to ilość W dwóch plikach taki sam układ. W kolumnie A i B mogą być puste wiersze. Poratuje ktoś ? :) Pozdrawiam Paweł Dodano po 1 Cześć, Dziękuję, Ale mam jeszcze jeden...
Witam wszystkich, jestem początkująca w pisaniu makr i VBA i mam problem z kopiowaniem części kolumny. Może był już poruszany ten temat ale go nie znalazłam, ani nie znalazłam odpowiedzi w podobnych. Napisałam kod metodą prób i błędów ale nie działa tak jak chcę. Kopiuje wybrany zakres z kolumny ale wkleja go gdzie popadnie. Chodzi mi o to żeby zakres...
Trochę nieścisłości jest w tym Twoim opisie. Piszesz, że w kolumnie E arkusza Brudnopis po wyczerpaniu nazwisk będą błędy #N/D. Tymczasem w pliku przykładowym są puste teksty. To jak w istocie będzie? W załączonym kodzie są uwzględnione oba warianty. Gdy już się zdecydujesz jak ma być, możesz sobie ten kod troszkę uprościć. W sprawie tworzenia nowego...
w miejsca w których powinny być, czyli w miejscach w których pojawiają się w drugim arkuszu Jak makro ma to ocenić? Co z wierszami bez indeksu w A? Myślałam żeby znaleźć te wartości z prawda i ich indeks minus 1 wtedy indeks plus 1 wstawić pusty wiersz i wstawiać wiersze
Makro jest proste i nie wymaga wiele pracy. W pierwszej kolejności sprawdzasz długość tabeli. Następnie w pętli powtarzanej tyle razy ile wynosi długość z pierwszej komórki pobierasz do zmiennej wartość do wyszukania w drugiej tabeli i kopiujesz resztę potrzebnych danych. Przechodzisz do tabeli z wynikiem, wyszukujesz wartość ze zmiennej w pierwszej...
na chwilę obecną poradziłem sobie w dosyć podobny sposób: 1.zapisałem sobie 2 puste pliki z zarejestrowanymi makrami 2.otwieram plik z logami 3.kopiuje zawartość do plików z pkt1 4.uruchamiam makro które mi przetwarza dane i tworzy pliki wynikowe-raporty właśnie mam taką sytuację ,że zmieniają mi się nazwy i kolejność arkuszy -,- trudno użytkownik będzie...
Nagraj makro i dostosuj do swoich potrzeb. Dzięki. Nie pomyślałem i rzeczywiście udało się. Będę tylko wdzięczny jak ktoś mi podpowie co należy dopisać jeżeli chcę np edytować komórkę w kolumnie C pod ostatnią wypełnioną komórką (w kolumnie są też puste komórki) Dodano po 1 Mam takie teraz makro: [syntax=vbscript]Sub wstawianie_bezduplikatów() Sheets("Arkusz1").Select...
Bardzo dziękuję za pomoc. Mam tylko jeszcze jedno pytanie. Co zrobić żeby w przypadku gdy plik o danej nazwie już istnieje i chcę zrezygnować z zapisu pliku nie wyskakiwał mi błąd: Run-time error '1004' Method 'SaveAs' of object'_Workbook' failed I jeszcze jedna sprawa: Załóżmy, że w kopiowanym arkuszu "xyz" są puste komórki np:A2, C3, D5. Jak zrobić...
Jeżeli chodzi o kopiowanie kolorów, to najpierw na początku porządnie wyczyść arkusz celu z kolorów: [syntax=vb]wscel.Range("A2:E65536").Clea... wscel.Range("C2:E65536").Interior.ColorI... = xlNone[/syntax] Sam kolor jest zaszyty w zmiennej Range(...).Interior.ColorIndex, zatem kopiuj go razem z danymi w ten sposób: [syntax=vb]wscel.Range("C"...
Witam forumowiczów. Potrzebuję makro, które zaoszczędziło by mi wiele czasu na wypełnianiu wielu dokumentów potrzebnych do prowadzenia działalności. Chodzi o wypełnianie dziennego zestawienia sprzedaży załącznik DZS.xlsx Chodzi o to, że na podstawie zawartości komórki z kolumny 07 różnej od pustej pliku Październik.xlsx w pliku DZS kopiowała się data...
Przedstawione makro kopiuje drugi wiersz arkusza "Schell" z każdego pliku umieszczonego w podrzędnym katalogu o nazwie "xls" do pierwszego pustego wiersza arkusza o indeksie 1. Nie można skopiować pliku do pliku. Natomiast można skopiować całe arkusze lub wyznaczone zakresy poszczególnych arkuszy. Opisz stosując właściwe nazwy obiektów. Lista plików...
Witam, potrzebuję pomocy przy stworzeniu makra, które kopiowałoby zawartość arkuszy i wklejało je jeden pod drugim w arkuszu "zestawienie". Dokładniej mówiąc - mam plik, w nim trzy arkusze (np. aaa, bbb i zestawienie), chciałbym aby makro skopiowało cały arkusz "aaa" (bez nagłówka) do momentu napotkania pustego wiersza i wkleiło do arkusza "zestawienie",...
Witam, Czy znalazła by się osoba pomocna w napisaniu makra? Chodzi o makro rozbijające komórki "etapy pracy" na kilka po napotkaniu znaku ";". Jeśli pomiędzy kolejnymi znakami jest pusta przestrzeń ("; ;") taka wartość nie powinna być przenoszona. Dodatkowo makro miało by "przesuwać" kolejne wiersze w dół. Przykład jak to ma wyglądać umieściłem w załączniku....
Dziękuję za pomoc. Już dawno zaprzestałem bezmyślnie kopiować i wklejać, wiem o co chodzi taki głupi to ja nie jestem, jeśli chodzi o temat to wykorzystałem formułę jak również i makro w jednym i w drugim przypadku działa bez problemu, jeszcze raz dziękuję za pomoc. Uważam temat za zamknięty.
...Zwykle przeciaganie fukcji nie działa, bo przy k... Co autor miał na myśli? Czy formuła z kolumny B porównuje każde dwie komórki w kolumnie? Tzn. A3=A2, A4=A3, A5=A4 ... itd.? Jeżeli tak to (pod warunkiem, że nie ma w kolumnie A pustych komórek) wystarczy wpisać formułkę w pierwszej komórce w kolumnie B i kliknąć dwa razy na jej prawy dolny róg.
Wklej w kod arkusza Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "A1" Then ostW = WorksheetFunction.CountA(Range(&... + 1 Cells(ostW, 2) = Target.Value End If End Sub Jeśli dopuszczasz puste wiersze to zamiast tych dwóch linijek wewnątrz, wstaw If Cells(1,...
Mam trzy arkusze, w których rozliczam stany magazynwe. Pierwszy to dokument, gdzie w zależności od wyboru dokumentu PZ, bądź WZ zapisuję stany magazynowe do arkusza rejestr (wydania, bądź przyjęcia). Na podstawie drugiego tworzę rejestr wydań, i wszelakiego rodzaju bilanse. Chciałbym aby z arkusza dokument kopiowały mi się dane do arkusza rejestr (aby...
Koledzy posiadam takie makro kopiujące z plików do jednego arkusza. Wszystko działa, problem polega na tym że zaszyte mam gdzie makro ma zaczynać kopiowanie i zazwyczaj kończy na pierwszy wolnym polu. Z tego powodu czasem omija dane jak komórka jest pusta. Czy ktoś mógłby zasugerować jak powinno wyglądać makro kopiujące cały arkusz? Option Explicit...
Witam, borykam się z następującym problemem. Nagrałam makro do przycisku, które kopiuje arkusz (zawsze ten sam, nie ten aktywny - niestety). Po skopiowaniu arkusza następuje usunięcie wszystkich wprowadzonych danych, żeby znowu mieć pustą formatkę na nowy tydzień. Jak wprowadzić w tym kodzie warunek, żeby w danym zakresie czyściło zawartość ale z wyjątkiem...
Cześć. Posiadam dwie takie same tabele w dwóch arkuszach (jeden dokument), w pierwszym ma tylko jeden wiersz w którym wpisuje dane np. data, imię, nazwisko. I potrzebuje aby kopiowało się w pierwszy wolny wiersz do drugiej tabeli. Taka baza danych, którą uzupełniam przez tabele w pierwszym arkuszu. Wydaje się łatwe, ale już trochę siedzę i nie potrafię...
Witam! temat wałkowany po tysiąckroć ale cóż począć skoro im więcej czytam tym mniej rozumiem. Proszę więc o idiotoodporną podpowiedź jak skonstruować makro przenoszące wiersz zawierający 17 wartości (17 kolumn) do nowego arkusza w tym samym układzie wg kryterium z kolumny A, wybieranego z listy rozwijanej ( pusta i dwie pozycje tekstowe). Warunkiem...
Nie wiem jak napisać pętlę, która będzie potrafiła kopiować tylko niepuste komórki ze wskazanej kolumny. Załóżmy, że w Arkuszu1 w kolumnie A jest 2000 komórek, z czego dane znajdują się tylko w 500 z pustymi w różnych miejscach pomiędzy. Chciałbym napisać makro, które utworzy nowy plik we wskazanej lokalizacji (stałej - U:\Lukasz\Raporty\) o zmiennej...
Na chwilę obecną mam VBA, które działa w następujący sposób: Jeśli w kolumnie "6" w arkuszu1 zaznaczę "x" to kopiuje odpowiednie komórki do pierwszego wolnego wiersza w innym arkuszu. Aby odwrócić działanie tego makra, dobrze byłoby wiedzieć gdzie te "odpowiednie komórki" lądują w 2-gim arkuszu. No wiesz, żeby nie biegać i szukać po wszystkich szufladach......
To nie było gotowe rozwiązanie, ale schemat podzielenia nazwy pliku, oczywiście w ten sposób możesz też podzielić nazwę pliku. Tak, potrzebna jest pętla. Mniej więcej taki algorytm musisz pomyśleć gdzie to wkleić, bo część już masz zrobione 1. Wyszukujesz plik są różne sposoby wyszukania i w związku z tym różne konstrukcje pętli. 2. Jeżeli jest plik...
:) Ale nie ma tego złego ... Ściągnąłem od ciebie metodę sprawdzenia ilości wierszy. Do tej pory zawsze robiłem to w pętli warunkowej dopóki ostatnia komórka nie była pusta. Tak samo tu chciałem zrobić. A tak w jednym wierszu kodu można zamknąć takie sprawdzenie. :) Miło tak czerpać wiedzę. I ta nuta rywalizacji. :) No ... idę spać.
kopiować makro makro kopiować makro pierwszy pusty
nadawać 433mhz zresetować pralka indesit delphi mondeo
Odblokowanie skrzyni biegów Ursus 3724: porady Brak mocy w Volvo S80 2.4D po usunięciu DPF