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.
Wklej do modułu pliku z linka i uruchom. Makro w tej postaci "wydłubało" 1341 wierszy. Po wszystkim wyeksportuj, lub skopiuj arkusz "Wynik" do swojego pliku. Reszta w komentarzach.[syntax=vb]Sub Yoasia() ileArk = 2 'są dwa z danymi w pliku z linku. Zmień jeśli jest inaczej. 'tu sprawdzimy czy jest arkusz wynikowy, wstawimy jeśli nie 'nie zmieniaj kolejności...
Ok. Zrozumiałem. napisałem małe makro dla zakresu i pętlą sprawdzanie. plik w zalączeniu. kod: Option Explicit Sub ZakresPetla1() Dim wiersz As Long For wiersz = 19 To 30 Step 1 Do While Cells(wiersz, 2).Value = Range("E16").Value Range("F16").Copy Cells(wiersz, 3).PasteSpecial wiersz = wiersz + 1 Loop Next End Sub
[syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then Application.ScreenUpdating = False w = Target.Row Set a = Sheets("Arkusz2") nw = a.Cells(Rows.Count, "A").End(xlUp).Row + 1 Range(Cells(w, "A"), Cells(w, "D")).Copy a.Cells(nw, "A") Range("E" & w).Copy a.Cells(nw, "E").PasteSpecial...
Sprawdź załączony plik.
Czyli to poprzednie makro powinno to robić, niedoróbka ... Edycja: Sprawdź 880784
Witam, mam problem, jestem nowy i nie mam zbyt dużej wiedzy o VBA. Szukam sposobu aby makro skopiowało cały wiersz w jednym arkuszu i wkleiło go tyle razy ile wynosi wartość w jednej z komórek w tym własnie wierszu. Nastepnie makro ma przejść do kolejnego wiersza, ale pominąć te wklejone. Bardzo licze na pomoc, wierszy mam naprawde mnóstwo a jest to...
Najpierw wyznacz pierwszą wolną komórkę [syntax=vbscript] lastRow = Range("BZ" & Rows.Count).End(xlUp).Row + 1 If lastRow < 3 Then lastRow = 3 End If [/syntax] nastęnie wkopiuj: [syntax=vbscript] Sheets("Dane").Range("BZ" & lastRow) [/syntax]
Mówią, że deklarowanie zmiennych, to dobra cecha programisty. Są języki, gdzie bez deklaracji się nie da. W VBA nie jest _wymagane_ deklarowanie, ale jak chcesz, to używaj 'Dim'.;) P.S. Wykorzystałeś makro 'Kopiuj2'?
Makro z postu 16 nie wkleja kopiowanego obszaru do nowego arkusza, poza tym wszystko działa :P W moim poście wyżej jest już prawie takie makro jak ma być tylko żeby w arkuszu docelowym po wklejeniu kolejne kopiowania były o jeden wiersz niżej niż poprzednie.
Mam jednak pytanie jak to się dzieje że wkleja to w odpowiednie miejsce? Cały mechanizm makra polega na przechodzeniu krokowym (założyłem wstępnie od wiersza 1 do 10 - ale to można odpowiednio dostosować do potrzeb) wzdłuż kolumn arkusza 1 i porównywaniu wartości z odpowiednimi komórkami arkusza 2 :D Jeśli makro napotka w którymś wierszu inne wartości...
Wklej w kod arkusza :[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "C47" Then If LCase(Target.Text) = "przelew" Then 'Przelew, PRZELEW, przelew Rows("48:49").EntireRow.Hidden = False Else Rows("48:49").EntireRow.Hidden = True End If ElseIf Target.Address(0, 0) = "C47:E47" Then 'jeśli pusta też ma odkrywać to...
Wydaje mi się że nie potrzebujesz kopiowania, wystarczą formuły (w załączniku) Jedynie na co potrzebujesz makro to na wklejenie aktualnej daty np w A2, po zmianie tekstu w B2
Witam, Jestem totalnym amatorem w pisaniu makra i utknąłem w miejscu. Problem polega na tym, że potrzebuję aby ostatnia wypełniona komórka z kolumny A została skopiowana do końca danych w kolumnie B. Za każdym razem będzie różna ilość wypełnionych wierszy w kolumnie B dlatego nie mogę ustawić zakresu na sztywno, a jak nagrywam makro to właśnie tak się...
dopiero zaczynam przygodę z VBA To zacznij od nagrywania makr (włącz rejestrator makr zaznacz interesujące cie dane kopiuj - wklej specjalnie + transpozycja i masz makro)
Nie rozumiem, przecież mam go wklejonego w kodzie arkusza
A wbudowany filtr oraz kopiuj-wklej nie wystarczy?
Nagraj makro: zaznacz pierwszy wiersz z formułami, skopiuj go, przeciągnij w dół i wklej specjalnie jako formuły. Potem podejrzyj wygenerowany spróbuj go dostosować do swoich potrzeb.
Witam, Potrzebuję przerobić kilka tys. rekordów. Pewnie to banalne makro ale jestem zielony :( Chcę skopiować wiersz 8 i wkleić go w miejsce 11 i 12 i dalej 13 w miejsce 16 i 17 itd. Lub analogicznie pole A8 kopiuj-wklej w miejsce A11 i A12 i dalej jak wyżej (bo dane i tak mam w tej jednej kolumnie). Pomoże ktoś?
Chciałam, zeby zaznaczyło mi wiersze od 1 do n+1 Do tego użyj Rows. [syntax=vbscript]Rows("n:n").Select[/syn... Choć obawiam się, że koleżanka myli komórki z wierszami.
Jeszcze pytanie co ma uruchamiać makro? Przycisk "ręczny" (jak już wypełnisz wszystkie "tak") czy jak już wpiszesz słowo "Tak" to stworzy się dokument? Dodano po 45 Przykład uruchamiany przyciskiem: [syntax=vbnet] Sub tworzenie_kart() sciezka = "C:\Users\Marek\Desktop\" Set a = ThisWorkbook.Worksheets("tabelka") ow = a.Cells(Rows.Count, "A").End(xlUp).Row...
Wszystko jest ok. A jak zrobić, żeby każda kolumna z pliku txt została wklejona do Excela również w oddzielnych kolumnach?
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...
Cześć Wszystkim Proszę o zrozumienie ale dopiero raczkuję w vba i staram się sam rozwiązywać problemy ale teraz obecny problem mnie przerasta. Mam 12 tabelek, każda tabelka to jedno podejście do badań przez osobę kontrolującą . Uzupełnia wyniki i blokuje Swoją część. Ponieważ mój czysty formularz zawiera 12 takich tabelek chciałbym stworzyć takie makro...
tu masz makro kopiujące te dane z arkusz1 z komórkek b5:b10 do aktywnego arkusza do kolumny D kopiowanie z kolumny w Arkusz1, następnie transpozycja i wklejenie w wierszu w aktywnym arkuszu (każde użycie makra wkleja do kolejnego wolnego wiersza wiersza)
Makro sobie z tym poradzi. Najważniejsze jest przypisanie Nr pierwszego wiersza. Zastanawiam się nad LP, może powinna być skorygowana? Wystarczy w tym przypadku (wiersze od 3 w dół) za każdym Next wstawić nową linię (Enter) i wkleić [syntax=vb]Cells(i, 1) = i / 2 - 0.5[/syntax]
Witam, potrzebuję pomocy w napisaniu makra, które jeśli znajdzie w przeszukiwanej kolumnie liczbę - to skopiuję odpowiadający jej wiersz i wklei obok... Pokaże na przykładzie: https://obrazki.elektroda.pl/9481950800_... Mam plik z czterema kolumnami - makro powinno przeszukać kolumnę C (wiersz po wierszu - max.300 wierszy) i jeśli znajdzie...
dodanie takiego makra jak poniżej, nie wyświetla mi napisu "hello" Popełniasz błędy: - wprowadzając "prywatne makro arkuszowe" do modułu uniwersalnego :cry: , jeśli to samo makro wkleisz do modułu arkusza "zamówienia" i dokonasz zmiany treści komórki - zamiast ujętej tam formuły wprowadzisz tam 1 - to uzyskasz Twój pożądany efekt - "hello" :D ; - nie...
Cóż, być może w ten sposób Edit: nowy plik
W nowszych wersjach jest zapewne "Ten skoroszyt". W załączniku jest już wklejone. Jeśli tylko 1-szy arkusz i tylko jeden warunek, to może filtrem go (w załączniku)? Jak już pisałem, przypisać dane z (jak wynika z opisu, ostatniego) wiersza, to żaden problem. Za to wzorów druków PZ jest w Internecie mnóstwo. A znając życie i tak będziesz musiał zrobić/dostosować...
Szczerze mówiąc, ma się to nijako do tego co chciałbym osiągnąć ponieważ wystarczy, że ktoś wypisze więcej wierszy i wklejony regulamin na to najdzie. [syntax=vbscript]Sub Makro5() ' ' Makro5 Makro ' ' Sheets("Regulamin").Select Selection.Copy Sheets("Formularz").Select ActiveSheet.Paste ActiveWindow.SmallScroll Down:=21 Range("A1:G43").Select Range("G43").Activate...
A jak zmienić kod aby do zmiany wartości była uwzględniana tylko kolumna C, ale skrypt był wyzwalany po zmianie w kolumnach B, C, D. Do tych kolumn wklejam jednocześnie dane, po wklejeniu danych do trzech kolumn skrypt nie działa. Wstępna ocena dostępnych informacji Witam ponownie, Zrozumiałem, że chce Pan zmodyfikować skrypt w Google Apps Script tak,...
Witam, Posiadam w pracy pewien program zakładowy do którego muszę wklepywać numery zamówień. Jest to trochę męczące zajęcie, ponieważ na dzień mam 150 pozycji do wpisania a właściwie przepisania z arkusza w excelu. Każdy numer muszę przepisac lub wkleić osobno. Każdy numer zamówienia mam w osobnym wierszu, dlatego po kolei kopiuje sobie komórkę i wklejam...
Zmienną zadeklarowałem. A mógłbyś dokładnie wskazać gdzie tą pętle wkleić w istniejącym kodzie?
Zaimportowałem plik raportu miesięcznego magazynu do Arkusz1 , mam w nim trzy kolumny : nr dokumentu, nr zlecenia i wartość. W pliku występuje co losową ilość wierszy podsumowanie danego zlecenia. Potrzebuję makro wyszukujące wiersz w którym w komórce (pierwsza kolumna) wystąpi tekst „Razem konto” a następnie zostanie wykonane kopiowanie...
... w komórce D2 ma znajdowac się różnica pomiędzy C2 i C3. później w komórce D4 powinna znajdować się różnica pomiędzy C4 i C5... Tego na początku nie wyjaśniłeś. Dla mnie para C3 i C4 jest też parą taką samą jak C2 i C3 czy też C4 i C5. Możesz (po wypełnieniu D2) nagrać makro. Tu wodze fantazji można puścić... np. skopiuj zawartość D2 a następnie...
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
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...
Dzięki koledze adamas_nt i jego sugestii co do "automatycznego" pobrania numeru kolumny (i wiersza w domyśle) poprawiłem nieznacznie moje makro. Wystarczy teraz wkleić w arkusz "dane" gdziekolwiek twoją tabelę z danymi (jak by ona nie wyglądała). Nacisnąć wstaw kody i kody wewnętrzne zostaną wstawione bez względu na to gdzie znajduje się tabela z danymi...
Udało mi się napisać makro służące do kopiowanie i wklejania w innym arkuszu. Tylko teraz mam problem aby wklejanie odbywało się w kolejnych wierszach, tzn. pierwszy wiersz wklejony A2, następny A3 itd. Ktoś mógłby pomóc? [syntax=vbscript]Sub Makro8() ' Makro8 Makro ' ' Range("C4:C11").Select Selection.Copy Sheets("Dane").Select Range("A3").Select Selection.PasteSpecial...
Dzięki za szybką odpowiedź. Niestety masz rację i niedokładnie opisałem problem i nie dostałem tego czego oczekiwałem. Przepraszam. Postaram się dokładniej przedstawić całą sytuację. Co miesiąc dostaję zbiorczy plik z danymi (Raport), jeden wiersz arkusza odpowiada jednemu handlowcowi. Ponadto każdy handlowiec ma swój indywidualny plik. Pod koniec miesiąca...
Tak. Przykład jest wycinkiem tego co potrzebuję. Pozostałe rzeczy ogarnę sobie (znajdź ostatni zapisany wiersz w arkuszu do którego chcę wkleić, skopiuj i wklej). Problem polega na tym, że potrzebuję właściwie wskazać zakres do skopiowania i tutaj moje pytanie.
adamas_nt próbowałem wkleić to polecenie wiersz po wierszu w moim makro. I niestety przy każdym otwieranym pliku muszę nadal klikać na "nie aktualizuj"(w EXCEL 2003) lub "kontynułuj" (W EXCEL 2007). Dla uściślenia informacji (dla nowo przybyłych). Makro, które próbuję usprawnić znajduje się tutaj: http://www.elektroda.pl/rtvforum/topic21...
Dziękuję, ale chyba nie o to mi chodzi. Moje makro działa do momentu usunięcia duplikatów w drugim arkuszu. Teraz dla każdego dopiero co wklejonego wiersza potrzebuję mieć dzisiejszą datę w kolumnie AE. Myślałam, żeby zrobić to za pomocą If komórka pusta then albo For each puste... no ale próbuję i nie wychodzi :/
Witaj. Może być. Nie do końca zobrazowałem sobie, jak Kolega dokładnie chce to robić, ale wydaje mi się, że odpowiednie makro powinno załatwić sprawę. Za pomocą makro możliwe jest śledzenie zmian w arkuszu, możliwe jest też wykonywanie dowolnych czynności (jak choćby kopiuj/wytnij/wklej/usuń) na wierszach.
Witajcie, z góry proszę o wyrozumiałość bo to całkowicie moje pierwsze kroki z jakąkolwiek formą programowania. Z góry też zaznaczę, że przejrzałem mnóstwo tematów na tym i innych forach, znalazłem nawet teoretycznie pasujące rozwiązania, ale po wielu próbach nie potrafię ich zaimplementować w moim przypadku. Mam 180 arkuszy tak samo zbudowanych, z...
Dzięki wielkie za propozycje. W praktyce dalej da się myszką, lub przy użyciu przycisków offica dalej źle wkleić nie jako wartości. czy wogóle możliwe jest stałe przypisanie działania przycisków w obrębie pracy z tym plikiem? Jeszcze pytanie czy ten kod aktywuje się automatycznie z uruchomieniem pliku w którym to makro będzie? Opcja wyłączenia jego...
To jeszcze wymaga doprecyzowania. Co jeżeli w kolumnie F jest pusto a w E coś jest, albo odwrotnie? Może chodzi ci o usuwanie całych wierszy? Niezależnie od odpowiedzi użyj metody Delete. W pierwszym przypadku z obiektu Range z odpowiednią do potrzeb wartością Shift, w drugim Rows. Obiekt powinien wskazywać właściwy element do usunięcia. Zalecane jest...
:) no rzeczywiście to rozwiąże problem tylko jednego zaznaczenia. A jak teraz zrobić pierwszą część pytania z początkowego wpisu? Makro musi wiedzieć który button jest zaznaczony i z tego samego wiersza wkleić zawartość komórki z kolumny A, wkleić do Arkusza. A1 i uruchomić inne makro.
Tak prawie. Nie musi zliczać wierszy i podawać liczby porządkowej kolejno, a skopiowane tablice powinny być wklejone jako wartości.
Mysle ze podstawowym problemem jest: a1:iv65536 I tu jesteś w błędzie. Zbiór zawiera się w zbiorze. W drugą stronę byłoby to bardziej prawdopodobne. Czasem zdarza się, że wcześniej autor nie przewidział rozrostu arkusza i zadeklarował zmienną odnoszącą się do Nr wiersza jako Integer, ale to raczej dotyczy wszystkich wersji. Najczęstszą przyczyną "wysypywania"...
Gotowe makro napisane pod Excel 2003: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-09-22, autor sidsysunia ' ' Klawisz skrótu: Ctrl+q ' Sheets("zestawienie").Select p = Range("c1") 'tu sprawdza ile masz pozycji Range("a2:b" & p).Select ' tu zaznacza wszystkie pozycje bez nagłówka Range("a2:b" & p).Copy 'kopiowanie Sheets("przeliczanie").Select...
nowe rekordy muszą się wklejać po kolei w te tabele obok (A1:D1, A8:D8 itd.) :?: :?: :?: Czy to ma znaczyć, że nowe rekordy mają być dopisywane do poszczególnych tabelek z tym samym ID ??? Jeśli istnieją jakiekolwiek racjonalne przesłanki, że poszczególne segmenty tabeli nie mogą być dziesięcio-wierszowe :cry: to w kodzie te dane mają kopiować się...
Hej Od pewnego czasu borykam się w pracy z monotonną czynnością kopiowania i rozdzielania ilości w wierszach w pliku excelowym, chciałbym zakończyć to bezsensowne przeklejanie i stworzyć makro, niestety jestem amatorem, wcześniej głównie pracowałem już na stworzonych przez kogoś makrach i je tylko edytowałem. Chciałbym aby makro weryfikowało mi kolumne...
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...
"'to powstawiać do Arkusz3 wiersz=licznik" nic tu nie jest zaznaczone na zielono więc nie wiem co powstawiać? Zresztą bardzo proszę, a bardziej szczegółowe wyjaśnienie, bo makro to wkleję do modułu, a nie do Arkusza?
Wklej w kod arkusza (nie do modułu) - to procedura zdarzeniowa. Tak, "układa" dane w wierszach. Edit: Oj chyba "kopnąłem się" o jedną kolumnę. Plik w załączniku poprawiony...
Chcę uzyskać przeniesienie całych wierszy z Arkusza1 do Arkusza2 jeśli zostanie spełniony określony warunek. Jeśli w kolumnie stan pojawi się wartość "Zakończony" to całe wiersze mają być przeniesione do Arkusza2, natomiast w Arkuszu1 wykasowane. W załączniku plik Excel Cześć! Rozumiem, że chcesz, aby wiersze z Arkusza1, które spełniają określony warunek...
Hej, mam mały problem, staram się zrobić w miarę prostą rzecz(tak mi się wydawało), mianowicie: mam plik w excelu z którego to wczytują mi się 4 zmienne, powiedzmy a,b,c,d. Każda z nich ma przypisane wartości odpowiednich komórek z excela (to sobie zrobiłem). czyli teraz mam 4 zmienne które maja nadane wartości przez użytkownika (np. a = Cells(i, j))...
Po złożeniu zamówienia w necie kumpel przepisuje teks na kartkę i mam zabawę wklepywania danych do excela. W excelu napisałbym mu makro ze skrótem klawiaturowym, ale z programowania jestem prawie zielony. Czy jest jakiś prosty sposób dodania do paska skrótów do aplikacji bądź skrótu klawiaturowego kopiującego zaznaczony tekst ze strony internetowej...
Można tak, jak niedawno zasugerował kolega Maciej: Wpisz w dowolną komórkę liczbę 160, skopiuj ją do schowka (ctrl+c), zaznacz zakres, wklej specjalnie (ctrl+alt+v) > dodaj Oczywiście, żeby to zadziałało musisz mieć w komórkach liczby (nie tekst), a zakres sformatować niestandardowo (typ "0000")
I teraz zupełnie nie wiem co mam zrobić z makrem które zrobiłeś, za duże uproszczenie. Przepraszam.. Mam je trochę skomplikować?? ;) Wydaje mi się że tutaj powinnam wstawić fragmenty odpowiedzialne za kopiowanie: Napisałaś, że warunkiem kopiowania jest: Kopiuje wartości które spełnią warunek taki że kolumna "B" zawiera "tak" do ostatniego pełnego wiersza...
Wszystko prawie ok. Pojawia się problem że przy większej ilości wklejeń zostawia przerwy i powiela ten błąd. Jakiś pomysł? Już znalazłem i naprawiłem w = w + 14 Należało to zmienić i śmiga :D.
Dzień dobry, Oczywiście przycisk jest tylko jedną z możliwości wywoływania makroinstrukcji. Można użyć np. skrótu klawiaturowego. Zakładam, że to co Pan chce wkleić jest w schowku w pamięci. Do poprzedniego makro dodałem instrukcję ActiveSheet.Paste, która wkleja zawartość schowka w miejscu kursora. Dalej wykonywana jest makroinstrukcja jak poprzednio...
Witam. Nie znalazłem na forum podobnego problemu, więc postanowiłem założyć nowy topic. W załączniku jest plik mt940 czyli txt. Chciałbym napisać makro, które importowało by wybrane dane z tego pliku i wklejało je do Excela w wybranej kolumnie w kolejnych wierszach. Jeśli ktoś otworzy ten plik zobaczy, że początek każdego wiersza zaczyna się od symbolu...
(at)adamas_nt - bardzo dziękuję Ci za pomoc! To już prawie działa, ale pojawia się jeszcze jeden problem, z którym też nie potrafię sobie poradzić. Chodzi konkretnie o "wdst". Poprawie zaczyna się od 3, ale chodzi o to, żeby kopiowało do wiersza 3,4,5,6,7 i do 8 już nie(bo tam jest inna wartość), a następnie kopiowało do 9,10,11,12,13 wiersza i do...
Witam Nagrałem makro, które kopiuje mi wybrane komórki z jednego pliku i wkleja do innego i odwrotnie. Jednak to makro działa bardzo wolno. Czy byłaby możliwość napisania innego prostszego kodu, który działał by szybciej. Generalnie celem makra jest przeniesienie wartości z pliku 1.xls Arkusz1 z wiersza 9 z kolumn E, H, L, O, R, U, W do pliku 2.xls...
Witam, mam następujący problem i byłbym bardzo wdzięczny za każdą okazaną pomoc. Plik z przykładem dodaję w załączniku. W arkuszu przechowuję dane o różnej wielkości. Raz 20 wierszy jak w przykładzie, a czasami mniejsza ilość. Chciałbym zrobić makro które przeszukuje zakres danych i jeżeli w kolumnie D (godzina) znajdzie pustą komórkę to wytnie cały...
Witam, Wyjaśniam co robię z taką ilością danych - po skopiowaniu do już istniejącego arkusza są obrabiane przez formuły excela mające na celu powiązanie ich z innymi danymi (praca na słownikach w kilku innych arkuszach+2,3 duże tabele przestawne zawierające pozostałe dane). Zawsze robiłem wklejanie ręczne ale przy kilkunastu tysiącach wierszy jest to...
Witam Mam wielką prośbę o pomoc z napisaniem kodu VBA. Przepraszam, ale to sprawa pilna. Mamy arkusze o nazwach: "BAZA", "DANE" i BRAKUJĄCE. W arkusz BAZA wkleiłam dane liczb które są posortowane rosnąco. W pliku DANE widzimy, że makro odnalazło brakujące liczby, dodało wiersz lub wiersze i dodany wiersz lub wiersze zrobiło na kolor zielony (0153-6000-0153-00000007/13;...
Wyszło mi coś takiego[syntax=vb]Sub Pobierz() Dim nazwa As String Dim ark As Worksheet Dim wrs As Long, j As Integer, i As Long nazwa = "Arkusz2" 'nazwa arkusza docelowego 'tutaj 2 dla porównania z 1 ThisWorkbook.Activate 'gdyby nie był Sheets(nazwa).Range("A2:H65536").ClearCo... 'czyścimy wrs = 2 '1-szy wiersz docelowy j = 3 '1-sza kolumna źródłowa...
Witam! Mam problem z poprawnym działaniem mojego makra. Zadaniem makra jest skopiowanie zakresu danych z arkusza "faktura" do innego skoroszytu o nazwie rejestr2 arkusz "Rejestr". Kopiowane dane mają być wklejane do pierwszego wolnego wiersza. Poza tym trzeba sprawdzić czy faktura o danym numerze już istnieje w rejestrze. jeżeli istnieje to ma się wyświetlić...
Raczej koledze chodzi o te np. 2 najprościej zaznacz kol b i tekst jako kolumny i zakończ clubs, rozwiązania faktycznie działa, a czy istnieje możliwość aby dane wklejane do kolumn A i B w momencie wklejania automatycznie wykonywały "tekst jako kolumny" i zamieniały wartości tekstowe na liczbowe aby działo się to automatycznie bez konieczności zaznaczania...
1. Admin ma zawsze rację 2. Kiedy nie ma - patrz pkt 1 :D No, w każdym razie dzięki za awans :) Rzecz w tym, że zawsze szukam najprostszych rozwiązań. W takim razie jeszcze jedna próba: A gdyby tak zamiast do zmiennej, zapisywać wiersz pod wierszem w tymczasowym arkuszu, skopiować do schowka i wkleić do Notepad'a cały zakres?
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",...
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...
Witam serdecznie, Mam drobny problem (dla was drobny), chcę aby w moim zleceniu po zapełnieniu przez użytkownika wszystkich przygotowanych pozycji mógł on dodać kolejną odpowiednio skonfigurowaną. I tak nagrałem makro które kopiuje mi przygotowane pola, odnajduje w arkuszu pierwszy wolny wiersz i wkleja mi to co przygotowałem. Jest jeden problem chciałbym...
Ja to widzę tak: jeżeli wartości w komórkach w wierszu B są takie same to wtedy zaznacz (kopiuj) komórki z wiersza wyżej (jeżeli w wierszu B ilość komórek, które maja takie same wartości wynosi 3 - tak jak w tym wypadku to w wierszu wyżej ma zaznaczać dokładnie tą samą ilość komorek) - dlatego lecę po kolumnach. Następnie po kopiowaniu chciałam odpowiednio...
Kopiowania i wklejania, tudzież opcji odwrotnej nie polecam. I tak w efekcie końcowym po wklejeniu wierszy (w trybie projektowania ma się rozumieć) trzeba ręcznie zmienić właściwość LinkedCell na właściwą. W tym momencie makro działa prawidłowo. Po usunięciu wierszy też makro działa właściwie. Dalej drukuje zaznaczone. Można oczywiście w VBA napisać...
Taka liczba danych to już prędzej do Access https://support.office.com/pl-pl/article... Wiem ile Excel ma wierszy i tu jest problem. BO nie moge zrobić zaznacz wszystko i wklej do excela. Makro jest jedynym jak dla mnie rozwiązaniem.
Spróbuj np. tak - najpierw zaznaczasz dane w wybranej (pojedynczej) kolumnie, potem wykonujesz makro. [syntax=vb]Application.ScreenUpdating = False For w = Selection.Row To Selection.Row + Selection.Count - 1 Step 2 Cells(w + 1, Selection.Column).Value = Cells(w, Selection.Column).Value Next w Application.ScreenUpdating = True[/syntax] PS. Takie rzeczy...
Skoro jest pusto od kolumny F (wszystkie wiersze) Skoro tak, to sprawdzenie wiersza 1 musi działać. https://obrazki.elektroda.pl/4101858100_... Mam nadzieję, że obrazek wszystko wyjaśnia... P.S. Makro powinno nazywać się OstatniaKolumna.
Witam, Potrzebuję makra które po wybraniu z listy rozwijanej (kolumna C) przeniesie cały wiersz z arkusza all do innego arkusza jednocześnie wykasowując ten wiersz a arkuszu all. Dobrze byłoby gdyby była zachowana możliwość przenoszenia później pomiędzy arkuszami. Przerobiłem makro znalezione w internecie, działa mniej więcej ale są problemy: - wiersz...
Witam, jako początkujący w VBA zaciąłem się nad zagadnieniem jak skopiować dane z kilku zakresów w jednym arkuszu do drugiego arkusza w momencie wyboru i wskazania konkretnej komórki. Mam arkusz formularza, z którego chcę uruchamiając makro, otworzyć arkusz rejestru i bez przeszukiwania pierwszego wolnego wiersza wskazać dowolną zaznaczoną przez siebie...
kopiuje wiersze z jednego arkusza i wkleja w inny z makrem, które zrobi update stanu magazynu tak wkleja lub update? kolumna A - indeks matriałowy, kolumna B - wydanie/ przyjęcie Zwykle SUMA.JEŻELI w magazynie nie graje? Dodano po 1 Dołącz przykład
Scalanie to nie jest - moim zdaniem - właściwa droga. Raczej trzeba wypełnić wszystkie wiersze w kolumnie A, posortować, w końcu usunąć zbędne wpisy. Nie jest z tym tak dużo roboty, gdy czynność trzeba powtarzać wielokrotnie, można ewentualnie napisać makro. Można to zrobić tak: 1) w kolumnie A w pierwszej wolnej komórce (arkusz ANG - PL, komórka A3)...
Wklej łaskawie kod, który Ci się chrzani ;) Funkcji sprawdzających czy dany proces istnieje jest kilka. Pytanie jakie informacje posiadasz, w jaki sposób chcesz określić który konkretnie proces Cię interesuje? Jeśli znasz PID, sprawdź OpenProcess() . Jeśli znasz tylko nazwę, albo część nazwy, musisz enumerować wszystkie aktualne procesy przy pomocy...
Witajcie, mam ogromną prośbę o pomoc w stworzeniu makra dla pliku. Męczę się z tym już kilkanaście godzin i niestety brakuje mi zwyczajnie wiedzy programowania VBA. Czy ktoś z Was mógłby mi pomóc stworzyć marko? Wkrokach opiszę co chciałbym, aby makro robiło. 1.Po naciśnięciu przycisku ( wiem jak przypisac marko do przycisku) odblokuj aktualny skoroszyt....
Jest kilka sposobów, których tu można użyć. Podam 2 warianty bez użycia makr. Jeśli problem występuje często, to można również użyć makra. Moja propozycja: 1) Zaznaczamy drugą kolumnę (kol.B) na wysokość danych. 2) Do komórki w pierwszym wierszu (B1) wpisujemy formułę: ="1|"&A1 3) Przytrzymując Ctrl naciskamy Enter. Wariant 1: 4) Kopiujemy kolumnę przez...
Spróbuj [syntax=vb]Sub Makro() wrs = 2 'pierwszy wiersz zakresu ile = 36 razy = 30 Do While Cells(wrs, 1) <> "" wrs = wrs + ile For i = 1 To razy Rows(wrs & ":" & wrs + ile - 1).Insert shift:=xlDown Rows(wrs - ile & ":" & wrs - 1).Copy Rows(wrs & ":" & wrs + ile - 1) Next wrs = wrs + ile * razy Loop End Sub[/syntax]
Witajcie Szukam sposobu by skanując produkt, zaznaczyć komórkę w odpowiednim rzędzie i kolumnie. Rozkład jest taki: A1 - zeskanowany numer z "Numer porządkowy" (A4:A10) B1 - zeskanowana waga C1 - ilość tabel F1 - wierszu z porównanego kodu (A1 z zeskanowanym) Schemat przebiega tak: zaznaczam komórkę (np: A1) -> skanuje (wkleja skan) w zaznaczoną komórkę...
Mam stworzony plik excel. Założenie jest jego takie: W arkuszu zrodlo jest baza osób które mogą lub już/jeszcze nie mogą mieć wykonane badanie. Makro, które mam w pliku kopiuje mi wiersze posiadające informację zaproszenie do arkusza korespondencja . Na podstawie danych z tego arkusza powstanie korespondencja seryjna i zostaną rozesłane zaproszenia....
Witajcie, mam dość według mnie ciężki temat do zrobienia. Chciałbym aby makro kopiowało dane uzupełnione przez pracowników z poszczególnych arkuszy do Arkusza PH1 i wklejało dane jedno pod drugim. Czyli sprawdzało który wiersz jest ostatnim w którym już są dane w PH1 i wkleiło je pod nimi. I tak po kolei z każdego arkusza pracownika do PH1. Ilość zapisanych...
Rozwiązaniem problemu jest zastosowanie pętli: For i= ... to ... ... Next Biorąc pod uwagę nazewnictwo plików zastosowałbym: Workbooks.Open FileName:="ścieżka\plik_" & i & ".xls" gdzie i będzie kolejnym numerem w nazwie pliku. Zrezygnowałbym tu z poprzedzającego zera. W przypadku tej pętli wszystkie powtarzające się polecenia...
Mój plik obecnie wygląda tak jak załączony w pierwszym poście tylko tam jest kilka pozycji a ja wierszy mam kilkanaście tysięcy. Nie goni mnie to tak na dziś do końca roku muszę się uporać jak to robić w miarę automatycznie. Poprzednia osoba siedziała 3-5 dni i używała opcję kopiuj wklej i tak puszczała do druku.
https://obrazki.elektroda.pl/4334732600_... chodzi mi o to, że jak nacisnę zmiana asortymentu to powyższa tabelka mi się skopiuje i wklei poniżej przycisku. Ogólnie to jeszcze umiem napisać i nagrać, ale w jednym arkuszu mam wiele zmian i pod każda zmianą taki przycisk. A taki przycisk nie działa dla innych zmian, tylko dla pierwszej....
Witam serdecznie. Potrzebuję stworzyć makro, które w przypadku gdy w kolumnie H będzie "0", wytnie z kolumny J wartość liczbową i wklei ją do kolumny O w tym samym wierszu. Próbowałem stworzyć takie makro, ale niestety bez rezultatu. [syntax=vbscript]Dim rng As Range Dim rngCell As Range Dim lngLstRow As Long lngLstRow = ActiveSheet.UsedRange.Rows.Count...
Dzięki temu, nie usuwając pliku a dopisując do niego wiersze można stworzyć swego rodzaju spis poszukiwanych pingów. Jedna sugestia z mojej strony. Opóźnienie należałoby dobierać doświadczalnie w zależności od osiągów sprzętowych. Czasami trwa to naprawdę długo. Dodane po chwili Działanie polecenia ping można przyspieszyć dodając po ping.exe "-n 1"....
Hej zaczynam dopiero przygodę z makrami. Jestem typem osoby, która najlepiej uczy się i analizuje swoje błędy na prostych przykładach. Załączam plik, który przypomina plik, który chce zautomatyzować. Z danego pliku chcę 1) Wyszukać numery projektów (arkusz formatka) przypisanych do każdego z pracowników (lista wybierana pracowników z zakładki "projekty")...
Powinno pomóc: Niestety nie pomaga. Komunikat pojawia się wtedy, gdy makro pobiera dane z pliku w którym jest trochę większa liczba wierszy. Nie wiem dokładnie jaka jest ta granica (załóżmy że 5 wierszy), ale jeśli plik zawiera jeden, dwa, lub trzy wiersze, wtedy komunikat się nie pojawia. Zawartość schowka to wszystkie dane z pliku z którego makro...
makro wklej wklej pusty wiersz wiersz makro
silnik dymić biały spawarka głośny rosnąć temperatura silnik
pralka electrolux ews11064sdu odkurzacz basenowy
John Deere 5720 - Przepalający się bezpiecznik stacyjki Jak wzbudzić prądnicę od pralki Polar?