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
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...
Wklej kod makra u siebie. [syntax=vbscript] Sub kopiowanie() ' ' kopiowanie Makro ' ' Klawisz skrótu: Ctrl+k ' nowy_wiersz = 1 kolumna = 1 For wiersz = 2 To 11 Sheets("Arkusz1").Select Cells(wiersz, kolumna).Select Selection.Copy i_wstaw = Cells(wiersz, 7).Value For wstaw = 1 To i_wstaw nowy_wiersz = nowy_wiersz + 1 Sheets("Arkusz2").Select Cells(nowy_wiersz,...
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.
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....
Hmm a jeśli wykorzystałam poprzednie makro, które napisałam, które wstawia dodatkowy wiersz jeśli suma>20 i odwołuje się do niego. Natomiest nowe makro ma wyszukiwac pustego wiersza i wklejać do nowo otwartego pliku zakres 1:pusty wiersz do określonej zakłądki AERO. Mam coś takiego, ale wyrzuca mnie(po wstawieniu Breakpointu) w odwołaniu do otwarcia...
[syntax=vb][/syntax] Witam wszystkich Forumowiczów, Jest to mój pierwszy post na tym forum jednak od jakiegos czasu sledze watki na elektroda.pl . Jednoczesnie przepraszam za brak polskich znaków. Poszukuje kodu VBA do znalezienia pierwszej wolnej komórki w zakresie a nastepnie wklejenie do tej komórki w kolumnie A tego co znajduje sie w schowku . Powyzsze...
Wstaw moduł do pliku 'Aktywności NSM_glizda_TOTAL.xlsx' i wklej taki kod Update 22:25 Ups. miało być w pierwszy-wolny. Poprawiłem...
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.
[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
Cóż, być może w ten sposób Edit: nowy plik
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'?
Bez makr, to najprościej ;) : Wstaw nowy arkusz, w A1 wklej =ADR.POŚR("Arkusz1!"&ADRES... i skopiuj/przeciągnij w dół. Następnie możesz zaznaczyć kolumnę wynikową i przez...
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...
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...
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.
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)
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...
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, 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...
Tak tez probowalem,ale Jak w komorce zaznacze archiwizuj wiersz i ten wiersz zaznaczam, wycinam, w drugim arkuszu znajduje pierwszy wolny wiersz i wklejam. Super tylko, ze jak zrobic ,by wycial ten z zaznaczona komorka i znalazl pierwszy wolny wiersz. W tym drugim arkuszu. By tam wkleic. Ok probowalem makro zrobic nawet na zasadzie, by w tym drugim...
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ś?
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...
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...
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...
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.
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...
Dzień dobry, Na wstępie powiem że ze wszystkich sił starałam się nie fatygować nikogo by mi pomógł znaleźć rozwiązanie problemu, próbując sama zrozumieć dlaczego tak się dzieje. Jednak moja nieznajomość VBA wzięła górę i do co utknęłam w martwym punkcie (choć może nie do końca bo makro w sumie robi co chce). Makro które udało mi się stworzyć, przerabiając...
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ę...
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...
(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...
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...
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...
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,...
"'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?
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...
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...
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...
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...
Kopiuj wklej nie wystarczy. Muszę to robić kilka razy w miesiącu i za każdym razem jeden arkusz muszę przerabiać kilka razy a mam kilka arkuszy. Więc na zwykłe kopiuj wklej to cały dzień roboty. Znalazłem różne informacje na forum, ale nie udało mi się tego uruchomić, żeby działało. Jak wspomniałem jestem zielony jeśli chodzi o makra. Wczoraj cały dzień...
Bez użycia makra (zakładając, że komórka z tekstem "id" to A1): 1. W D2 wklej formułę (dopasuj zakresy) =PODAJ.POZYCJĘ(MAX.K(C$2:C$3... i skopiuj (przeciągnij) w dół. 2. Posortuj wg kolumny "miejsce".
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...
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...
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ę...
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, 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...
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...
OK. Przed pętlą For wklej: w sytuacji gdy dla któregoś wiersza dane znajdują się w którejś z kolumn H:J ale jednocześnie nie jest wypełniona kolumna E lub G Jeśli jest inaczej, trzeba to zrobić w pętli, sprawdzając każdy wiersz z osobna. Edit rano ;) Np czymś takim: [syntax=vbscript] For w = 8 To 40 If WorksheetFunction.CountA(.Range("E" & w &...
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]
Witam, Mam problem z napisaniem marka które wklejało by do treści maila jako tabele wybrane fragmenty tabeli z arkusza tak jak zamieściłem w komentarzu chce w formie tabeli komórki od A1 do D1 i w drugim wierszu od ostatnio wypełnianego wiersza z tabeli Ax do Dx, gdzie x - ostatni wypełniony wiersz w tabeli: https://obrazki.elektroda.pl/6111738300_...
Panowie i Panie potrzebuję pomocy w takim prostym makro jak wklejać tylko wartość a nie funkcję i formaty? [syntax=vbscript]Sub kop_działa() Dim wiersz As Integer, nr_wiersz As Integer nr_wiersz = 10 With Worksheets("LISTA") For wiersz = 3 To 200 Step 1 .Range(.Cells(wiersz, 24), .Cells(wiersz, 24)).Copy _ Worksheets("DRUK").Cells(nr_wiersz + 3, 3)...
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;...
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 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"....
No właśnie tutaj mam problem, bo dane odczytuję z aplikacji i mogę je mieć w pliku tekstowy gdzie kolejne wartości będą w osobnych wierszach. Teraz chciałbym je wkleić do kolejnych pól tabeli w Wordzie, ale juz nie jedno pod drugim, tylko w kilku kolumnach. Nie mam jakiegoś algorytmu wklejania do tabeli, adresować komórki do której trafić ma odpowiedni...
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"...
Cześć, Proszę o pomoc w napisaniu makra, które jeśli w arkuszu1 w kolumnie A, w jakimś wierszu będzie znajdować się literka "W" to wtedy skopiuje komórkę znajdującą się w tym samym wierszu w kolumnie B, wklei ją do arkusza2 w ostatnim wolnym wierszu w kolumnie A i usunie cały wiersz skąd została skopiowana. Bardzo proszę o pomoc!!!! Z góry dziękuję!!!
No cóż, opis nie jest bardzo czytelny, ale jeśli taki miał być efekt: https://obrazki.elektroda.pl/4588789900_... to kod, który to zrealizuje może wyglądać następująco: [syntax=vbscript] Sub FZ() r = 1 'kolejny sprawdzany wiersz (row) rstart = 0 'numer pierwszego w serii wiersza do którego wklejam wartości, jednocześnie numer wiersza...
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...
kopiowanie funkcji chodzi mi o przeniesienie do arkusza1 gotowego wzoru bedacego w komorce w arkuszu3, z tym ze, wzor liczy np. mnozac 4 komorki przez siebie w ustalony sposob - czyli wzor. Wzor moze ulec zmianie i zmieniam go w arkuszu3. Dlaczego ? Dlatego ze w arkuszu3 beda inne wartosci 4 kolejnych mnożonych komórek. W arkuszu3 wyliczam sobie współczynnik...
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...
tytuł tematu trochę zagmatwany, ale już wyjaśniam. Mam takie testowe makro: [syntax=vb]Sub agregacja() ' ' agregacja Makro ' ' Sheets("agregacja").Select Range("A3").Select Sheets("kohezja").Select Range("G1").Select Selection.Copy Sheets("agregacja").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False...
Witam, Proszę o pomoc w napisaniu makra - wydaje się być proste, ale nie mogę znaleźć sposobu na jego rozwiązanie. Chcę zrobić formularz do wpisywania przepisów i umieszczania ich w bazie (jeden wiersz = jeden przepis. Każdy produkt to kolejna kolumna) Utknąłem na pkt 4 - Wyszukaniu produktu (Input E9:E29) i wklejeniu odpowiadającej ilości (Input C9:C29)...
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...
Przetestuj [syntax=vb]Sub y() Dim rRng As Range 'definicja przetwarzanego zakresu Set rRng = Range(Cells(7, 3), Cells(19, 15)) 'wpisanie wartości z nagłówków kolumn 'najpierw formuły odnoszące się do wiersza 4 rRng.SpecialCells(xlCellTypeConstants).F... = "=R4C" 'wklejenie jako wartości For Each cl In rRng.SpecialCells(xlCellTypeFormulas) cl.Value...
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ć...
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...
Najprawdopodobniej co jest możliwe, aby to zrobić za pomocą formuły tablicowej. Ale po prostu zrobić, ich funkcja lub makro do rozwiązania. Jak już powiedziałem, specjalista w dziedzinie funkcji tablicowych, a następnie Maciej Gonet. Ja również jestem samoukiem i lubię makra. Specjalne literatury nie cieszył się, tylko F1 i analizy innych makr. W Twoim...
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...
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?
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))...
Witam, Mam pewien problem ze skopiowaniem a w zasadzie z wklejeniem danych z jednego arkusza do drugiego. Potrzebuję przekopiować każdy z wierszy z arkuszy Teryt Gminy, Teryt Mapy. itd i wkleic go do odpowiedniej kolumny w arkuszu "Polaczone dane z gmin" 21 razy. Pierwsza procedura w makro działa poprawnie, niestety w drugiej gdzie kopiuje dane z Tery...
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...
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")...
Zmień nazwę 1-go arkusza na "Brudnopis" A1 i B1 traktuję jako nagłówki, czyli dane zaczynają się do 2-go wiersza Otwórz Edytor VB i w kod arkusza 'Arkusz3' wklej Private Sub Worksheet_Activate() Range("A1") = "Kod" Range("B1") = "Nazwa" Application.ScreenUpdating = False IleWierszy = Worksheets(1).Range("A1...
A pod jakim rozszerzeniem plik zapisałeś? Bo u mnie na 2007 7200 liczb w dwóch kolumnach wkleja się bez problemu jako transpozycja... I czy tych liczb jest dokładnie 7200?
... 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...
to samo makro wkleisz do modułu arkusza "zamówienia" to raz, aczkolwiek próbowałam już tego wcześniej i nadal nie działało..... BO nie będzie działać żadne makro typu "Worksheet_Change" poprzez zmianę wartości komórki wprowadzonej formułą o tym, że zmiany tylko wpisane "ręcznie", a nie uzyskane poprzez formuły będą działać to nigdzie na necie nie pisało...
Witam. Mam ok 60 plików CSV (pliki tekstowe oddzielone przecinkami) znajdują się w jednym folderze. Pliki mają różne nazwy (przykładowo: 21172001 6.28.18 13.07.05) każdy plik ma tyle samo kolum (po przecinku) wiersz pierwszy: a,b,c,d,e,f,g,h,i, wiersz drugi: 1,1,1,0,0.00,0.00,N-m,0,0 wiersz trzeci: 1,1,1,0,0.00,0.00,N-m,0,0 Potrzebuję makro które: 1....
Funkcja jest, nazywa się: [syntax=vb]=KOMÓRKA("adres";A1)[/syntax] albo [syntax=vb]=ADRES(WIERSZ();NR.KOLUMNY())... nie wiem czy i w jaki sposób to ma rozwiązać Twój problem... Raczej bym zdjął to hasło albo napisał makro do wypełniania tych komórek co chcesz albo pokombinował z kopiuj-wklej specjalnie.
Możesz otworzyć sam plik czymś takim (zakładam, że nazwa będzie stała): [syntax=vba] Workbooks.OpenText Filename:="D:\Dokumenty\Nowy Dokument tekstowy.txt", _ Origin:=1250, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, _ Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1,...
Sub szukaj() Dim komorki As String For i = 1 To 5 For j = 1 To 5 If Cells(i, 1).Value + Cells(j, 1).Value = 500 Then komorki = komorki & i & " i " & j & "," End If Next j Next i Cells(1, 2).Value = komorki End Sub To wpisujesz do nowego modułu (alt+f11, insert, module). Potem w arkuszu dajesz przycisk...
Cześć, mam makro, które wkleja mi konkretne wartości z różnych kolumn z pliku Dane do nowego pliku. Niestety nie umiem przerobić tego makra tak, żeby otwierać ten plik z którego wklejam tylko raz. Bo teraz za każdym razem przy kopiowaniu z kolumny A muszę otworzyć plik, a potem jak kopiuję z kolumny C znowu otwiera mi się okienko w którym muszę wybrać...
Witam, Kolejny raz mam nietypowy problem, a przynajmniej taki z którym ja nie potrafie sobie sama poradzić. Czy istnieje sposób aby skopiować zakres danych np. A1:E11 i wkleić go w taki sposób, aby automatycznie każdy wiersz wkleił się tyle razy ile przypisane ma w kolumnie F? Jest to potrzebne do dalszego dokompletowania danych. Czyli wartość z A3:E3,...
Proszę krok po kroczku 1. "Baza danych" musi mieć identyczną budowę (jeśli chodzi o kolumny) jak arkusz spisowy (zwłaszcza pod względem komórek scalonych :!: ) :arrow: najlepiej zrobić do wydruku kopię arkusza "Arkusz danych (2)"; 2. Ze wzoru arkusza spisowego robisz zrzut stopki wydruku 932190 3. W "Arkuszu danych (2)" wyfiltrowujesz tylko dane z...
Tak jak masz funkcję [syntax=vb]Private Sub GetDataFromRow(iRow As Integer) With ThisWorkbook.Worksheets("baza") Me.TextBox1.Text = .Range("A" & iRow) Me.TextBox2.Text = .Range("B" & iRow) Me.TextBox3.Text = .Range("C" & iRow) Me.ComboBox2.Value = .Range("D" & iRow) Me.ComboBox1.Value = .Range("e" & iRow) Me.TextBox6.Text = .Range("f" & iRow) Me.ComboBox3.Value...
Już nie mam pomysłu co może być nie tak Jeżeli masz plik o rozszerzeniu xlsm , włączysz w opcjach wykonywanie makr, wkleisz kod do jakiegoś modułu, w arkuszu masz wypełnione kolumny A, C, D, E :arrow: to musi działać :!: :D Winna jest koleżanka sama sobie :D , że nie wypełniła zalecenia kolegi (at)dt1 "Zamieść te sposoby (może nie milion, wystarczy...
Program masz "prawie" gotowy. Pomyśl, potrzebujesz odwołać się do Nr wiersza komórki spełniającej kryteria (tutaj zmienna "abc", zadeklarowana jako 'Range'). Będzie to wartość właściwości 'Row'. Następnie należy znaleźć lub określić Nr ostatniej w wierszu. Zadziałaj podobnie (metoda End), jak masz to z licznikiem pętli. Pozostaje przeliczenie (wymnożenie)...
Wyobraź sobie, że lekarz, który bez wiedzy na temat choroby próbuje ktorze leki mogą pomóc Tylko ja moimi próbami nikogo nie zabije... ewentualnie sam się rzucę pod pociąg jeżeli mimo usilnych prób nadal nie będe mógł wymyślić co robię źle. Ja na to mówie reverse engineering. Wole odpalić skomplikowane makro i debugować je krok po kroku próbując zrozumieć....
Utworzyłem makro które kopiuje zakres danych z jednego skoroszytu "Dane" do drugiego "GOW" w pierwszy wolny wiersz kolumny B arkusza "GO1" i "GO2" Niestety formuła nie jest idealna, widzi wstawioną tabelę w arkuszach "GO1" i "GO2" jako zajęty wiersz i wkleja wszystkie dane pod tabelą. Właściwe działanie jakie powinna wykonać formuła to wklejenie zakresu...
Co ma wspólnego makro do zaznaczania aktywnego wiersza z funkcją, której nagłówek pokazujesz? Jak i do czego używasz tej funkcji? Zaznaczanie aktywnego wiersza masz zrobione formatowaniem warunkowym z formułą: [syntax=text]=KOMÓRKA("ROW")=WIERSZ()[/s... z tym są dwa. Pierwszy - należy właściwie zaznaczyć zakres komórek, w którym to formatowanie...
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)
Witam, szanowni koledzy i koleżanki potrzebuje waszej pomocy w stworzeniu dwóch rodzajów makro: - Makro "zapisz jeżeli" - Makro " wyświetl jeżeli" Mój brak umiejętności i wiedzy nie pozwala mi samemu rozwiązać danego problemu. I dlatego spieszę z wytłumaczenie mojego problemu licząc że pomożecie: W komórce "B3" z listy rozwijanej wybieram liczbę (od...
A gdzie jest ten plik FV wzór.xlsm :?: A gdzie jest ten kod testowany przez Ciebie :?: (at)Prot zamiast pomagać piszesz ciągle jakieś uwagi, które nie mają znaczenia... jeśli nie możesz lub nie chcesz pomóc to proszę zakończ te komentarze. Sprawa jest banalna (jestem jednak laikiem więc dla mnie nie). W sumie z wszystkim sobie poradziłem, moje makra...
Dlatego, że w wyszukiwanej kolumnie wartości nie są unikatowe. Funkcja zwróci pierwszy znaleziony, czyli w tym przypadku zawsze 27 wiersz. Należałoby znaleźć pozycję w tabeli i przesuwać górną granicę o WIERSZ()-n, zachowując dolną. Formuła miałaby z 20cm... Będzie prościej makrem. Wklej w kod arkusza "arkusz 2", przetestuj (zmiana w A2), dostosuj do...
makro wklej wklej pusty wiersz wiersz makro
radmor 300mhz glowica laserowa kupie uszkodzone laptopy
schneider sedna schneider sedna
Instalacja Windows XP 32-bit na Dell Latitude E6430 Czy mogę użyć kondensatora 4.7 nF zamiast 6.8 nF?
