Tak najprościej: On Error Resume Next 'wyłącza błąd jeżeli wpiszesz daną której nie ma w arkuszu 2 a = Sheets(1).Range("a1&quo... 'pobranie ciągu znaków z komórki A1 pierwszego arkusza w excelu kol = Sheets(2).Cells.Find(What... ' numer kolumny wpisanego ciągu znajdujacego się w drugim arkuszy excela...
Ja w tym kodzie błędów nie widzę - makro działa tak, jak je zapisałeś. Nie kończy się na wierszu 16, tylko ponieważ jest ono uruchamiana w zdarzeniu Change komórki, polecenie wpisujące coś do komórki: [syntax=vb]... Cells(c.Row, 12) = DateAdd("m", Cells(c.Row, 9), Cells(c.Row, 11)) ...[/syntax]powoduje ponowne wywołanie zdarzenia zmiany (co może wyglądać...
Dalej nie bardzo wiadomo, o co dokładnie chodzi. Masz makro, które po wykonaniu zwraca w kolumnie E formuły z odwołaniami względnymi do komórek z kolumn C i D. Jeśli pomiędzy kolumny C i D wstawisz dodatkową kolumnę lub kolumny, to formuły (obecnie w kolumnie E) dostosują się do nowych adresów kolumn źródłowych i formuły będą nadal działać prawidłowo....
Witam, Poszukuje rozwiązania problemu. Potrzebuję macro, ktore wyszuka wartości z kolumny B Arkusz1 i wstawi odpowiednią wartość z Arkusza2 z kolumny B odpowiednio co do liczby w Arkuszu1(kolumna B). Następnie macro powinno wklejać wartości(Arkusz1 kolumna B) dla danego numeru (Arkusz1 kolumna A), po przecinku w jednej komórce w Arkuszu3 w zależności...
Poniższe makro wstawi tą formułę w 20 komórek poniżej zaznaczonej komórki: i : [" & i & ".xls]. To tak na przyszłość, jakbyś chciał to kiedyś zmodyfikować.
Witam Potrzebuję pomocy w napisaniu makra. Mam w arkuszu1 dane w kolumnach od A5 do AB5000. W kolumnie G5 do G5000 znajduję się lista rozwijana z której użytkownik może wybrać kilka opcji. W przypadku kiedy użytkownik wybierze opcję "złomowe" chciałbym żeby makro przy użyciu przycisku przypisanego do tego makra wycięło wszystkie wiersze w których użytkownik...
Witam Proszę o pomoc w stworzeniu makra które kopiuje wiersze z jednego arkusza i wkleja w inny ale uwzględnmia 2 argumenty: Po kolei mam 2 arkusze 1. OPERACJE 2. MAGAZYN Operacje - wydania i przyjęcia magazynowe liczba rekordów zwiększa się co dzień, przewiduje max 8 tys rekordow (kolumna A - indeks matriałowy, kolumna B - wydanie/ przyjęcie załużmy...
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...
Cześć mam makro, które dzieli mi plik na mniejsze pliki - ale kopiuje do nich tylko po 1 linii oprócz nagłówków. Potrzebowałbym przerobić poniższe makro na takie, które kopiuje wszystkie unikalne wartości tzn. jeżeli w D3 mamy wpisane np. rower, samochód, pieszo kilka razy to makro będzie tworzyło plik z unikalnymi wierszami. Czy mogę prosić kogoś o...
Dzień dobry, Czy ktoś mógłby podać prostą procedurę polegającą na: - gdy któraś z komórek z kolumny A jest wypełniona, to w kolumnie B obok tej komórki wyświetla się aktualny czas - gdy nic nie wpisujemy, to makro nie działa, czyli nic nie robi
Witam, Potrzebuje napisać makro, ktore bedzie mialo dwie pętle. Pierwsza pobierać nazwy z nagłówka kolumn, kopiować je, przechodzic do nastepnego arkusza, tam druga pętla bedzię szukała wartośc pobranej z pierwszego arkusza, czyli nazwy kolumny. jesli znajdzie taką samą nazwe kolumny to kopiuje nagłówek z całą zawartością kolumny i wkleja ją do pierwszego...
Witam, mam makro sprawdzające wiersze w arkuszu Excel. Działa dobrze, jednak chciałbym aby jednym przyciskiem, który mam na Arkuszu1 program sprawdził wiersze w arkuszach w zakresie "Arkusz4:Arkusz36". Teraz muszę wklejać przycisk w każdym arkuszu, żeby zadziałało. Oto moje Makro: Sub przelicz() Const max As Integer = 36 Dim i As Integer i = 26 Rows("26:36").Select...
Witam - pierwszy mój post, wiec jakby co to przepraszam- mam prosty plik Excela z duża ilością danych, który muszę uporządkować. Generalnie 2 kolumny: pierwsza to produkt, druga to kod do niego przypisany. Produkty się powtarzają z innym kodem. Chodzi mi o to, żeby użyć makro do uporządkowania - aby w pierwszej kolumnie pozostały produkty bez duplikatów,...
Witam, Czy istnieje możliwość napisania w MS Excel makra, które będzie działało zgodnie z poniższym schematem: 1. W skoroszycie istnieje arkusz Jacek oraz Placek 2. W arkuszu Placek w zakresie A1:K500 występują wartości całkowite, które mogą się powtarzać 3. W arkuszu Jacek w kolumnie "W" istnieją wartości całkowite unikatowe - nie powtarzające się...
Witam, Poszukuję makra, które w przypadku gdy w arkuszu z tabelą natrafi na kolumnę oznaczoną 1 i 2, to te kolumny usunie i pozostawi wszystkie inne. Kolumn w arkuszu może być bardzo wiele. W załączeniu dodaję przykład pliku. Będę wdzięczny za pomoc.
Witam serdecznie, Bardzo poproszę o pomoc - mam kalendarz, który wykorzystuje makra, w którym chciałbym zablokować do edycji część kolumn/komórek/formuł. Gdy to robię to cały arkusz mam zablokowany do edycji. Gdy te same czynności powtarzam dla pliku bez makr, to zablokowane do edycji sa tylko te, które chce. Czy jest jakies ustawienie, które należy...
Cześć, może będziecie mogli mi pomóc w uproszczeniu makra. Codziennie rano dostaję plik który moje makro filtruje po różnych kolumnach, w dwóch z nich muszę założyć filtry na daty jak na screenie Czyli od najstarszej występującej w raporcie daty w tej kolumnie do dnia dzisiejszego + 1 dzień oraz puste. https://obrazki.elektroda.pl/4765304900_...
Witam W jaki sposób można zrobić, aby były blokowane komórki w kolumnie w zależności od wartości. Chodzi mi o to, że mam chroniony arkusz. Zależy mi na tym, że jeżeli wartość w wierszu drugim wynosi 1, to byłyby odblokowane komórki w kolumnie od trzeciego wiersza do dwudziestego pod daną wartością. Czyli np. w komórce B2 byłaby wartość 1 to komórki...
VBA nie obsługuje polskich nazw formuł, tylko ich angielskie odpowiedniki. Najprościej zrobisz to tak, że włączasz rejestrator makr, wpisujesz w Excelu formułę i kończysz rejestrowanie. Potem przechodzisz Alt+F11 do kodu, wchodzisz w moduł i odnajdujesz ostatnie zarejestrowane makro. Z niego kopiujesz wspomnianą formułę, ewentualnie poprawiając jej...
Skoro nagrało Ci się coś w rodzaju 'ActiveCell.FormulaR1C1 = "=TODAY()' to dopisz pod spodem 'ActiveCell = ActiveCell.Value' i po sprawie. To samo "bardziej po Bożemu": ActiveCell = Date Zamiast ActiveCell może być oczywiście dowolny Range(adres) lub Cells(wiersz, kolumna).
Kliknij 2x w kolumnę B.
Cel jest prosty, chcę aby w każdej komórce w kolumne, wstawiało mi makro formułe do momentu kiedy np w kolumnie A będzie cokolwiek wpisane. W programowaniu nie ma 'na przykład. Dlatego pokaż arkusz wejściowy i arkusz po wykonaniu makra.:)
W takim razie załącz plik bez kodu, żeby można było dodać kod. P.S. Dlaczego kolumna A jest pusta? Skoro tak ma być, to prosimy o przykładowy plik...
Ponieważ kolumna C to trzecia kolumna więc zamień we wszystkich Cells() jedynkę po przecinku na trójkę czyli ,1) na ,3) np.: Cells(1,1) na Cells(1,3) i dla pewności w lini kodu OstWrs = Cells(Rows.Count, 3 ).End(xlUp).Row
Przetestuj poniższe makro: [syntax=vb]Private Sub CommandButton1_Click() Dim DataPodana As Date Dim lCol& DataPodana = InputBox("Wprowadź datę dniówki w roku rozliczeniowym " & Date, , Date) On Error Resume Next lCol = Application.Match(CLng(DataPodana), Range("3:3"), 0) On Error GoTo 0 If lCol = 0 Then lCol = Application.Match(CLng(DataPodana), Range("3:3"),...
Działa i to super. Pytanie mam inne teraz, czy da się to tak zmodyfikować, aby to działało tylko wtedy jeżeli w kolumnie są jakieś dane, a jeżeli nie, to nic nie robi. I jeżeli po wstawieniu już wiersza to w przypadku ponownego użycia makra omija już wstawione makra i nic nie robi, a tylko wtedy jeżeli nie ma odstępu pomiędzy liczbami, jeżeli one się...
Cóż, w przypadku wstawienia kolumny należy skorygować makro. To nie funkcja w arkuszu, samo się nie zrobi...
wartość do przeniesienia nie jest stałe umiejscowiona. To nie jest żadna przeszkoda do rozwiązania zadania przy pomocy "przeciąganych" formuł :D można to zrobić np. tak jak na zrzucie :spoko: 1037180 Wystarczy w Twojej tabelce wstawić pomocniczą kolumnę z formułą: =LICZ.JEŻELI($B$1:B1;"wtorek")
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...
Wypróbuj takie makro: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column >= 2 And Target.Column <= 12 Then Cells(Target.Row, "M") = Application.UserName Cells(Target.Row, "N") = Date End If End Sub[/syntax]
Klasyczne pola wyboru czy opcji przy dużej liczbie kontrolek są trudne do obsługi. Sugerowałbym raczej rozwiązanie zastępcze z użyciem VBA. Coś takiego wstawiłem do przykładowego arkusza. W kolumnach B i C są tam wstawione do komórek znaki Unicode przypominające znak akceptacji i pusty prostokąt. Do obsługi tego jest makro zdarzeniowe, które reaguje...
Najpierw opis, potem problem. Przykładowy Excel 2013 o nazwie "POMOC" w nim są komórki scalone i nie scalone, niestety tak musi być. Przykładowo z folderze o nazwie "AAA" mam 2000 plików Excela o różnie zapisanych nazwach (imie i nazwisko, data itp.)a wyglądzie w środku jak plik o nazwie "POMOC".. W folderze "AAB" jest plik Excela o "BAZA". W "Bazie"...
Makro powinno przeszukać kolumnę C i jeżeli napotka słowo "dolek" to chciałbym, żeby w kolumnie D na wysokości danego "dolka" wstawiło liczbę stojącą w kolumnie B przy poprzednim "dolku". Chciałbym też żeby to makro albo drugie wstawiało kolumnę dalej wartość tylko takiego „dołka” przy którym wartość kolumny B jest mniejsza niż przy ostatnim...
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...
No dobra ;) Generalnie każdą formułę można wstawić makrem, wystarczy ją nagrać macro recorderem i troszkę zmodyfikować. Dla WYSZUKAJ.PIONOWO jest to coś takiego: [syntax=vb]Private Sub CommandButton1_Click() On Error GoTo myErr Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Sheets("Arkusz1") ost_wiersz = .Range("A"...
Zamiast 1 lub x wstawić nagłówek czy dodatkowo?
... " a " czy mógłbyś poprawić aby wstawiało Datę w komórkach w zakresie od B11 do B2000 i Godzinę od C11 do C2000 1. " a " co to jest to " a " w " If Target <> a " ? 2. "zbiorczo", tj. hurtem (?), czy sukcesywnie w miarę wpisywania danych w tym samym wierszu w zakresie kolumn 5 do 8 ? ps: trzeba by wstawić kontrolę zmiennej "i" (wierszy)
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...
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...
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...
Cześć! :) Mam taki problem: Mam plik Excela z listą osób: Liczba porządkowa (kolumna B), imię i nazwisko (kolumna C), potem miesiące (od stycznia do grudnia) i suma w kolumnie P. Chciałbym zrobić makro, za pomocą którego wyskoczy mi InputBox, w którym będę mógł dopisać na końcu listy nową osobę. Ponadto chciałbym, aby obok nazwiska tej osoby pojawiała...
Musisz zadecydować kiedy data ma być zapisywana do komórki. Komórka z datą ani nie może być wynikiem funkcji, ani działania makra. To Ty masz zdecydować jakie zdarzenie zapisze datę prania w kolumnie z datami prania. a mi zależy na dniu, w którym kod kreskowy będzie zeskanowany No właśnie do tego zdarzenia dodaj zapis daty prania...
To dlatego, że w tym pliku wykorzystujesz znaki ======= jako separator graficzny, natomiast Excel po wstawieniu tego w komórkę traktuje to jako zaczątek formuły i zwraca błąd. Wystarczy sformatować kolumnę, w którą wstawiasz te komórki, na sztywno jako tekst: ręcznie lub programowo, gdzieś na początku kodu umieszczając: [syntax=vb]Arkusz1.Columns(1).NumberForm...
Pewnie można, ale to już dłuższa historia... :) Najprościej - jeżeli plik-źródło jest w tej samej lokacji - wstawić kwerendę wybierającą dane (Dane->Importuj dane zewnętrzne->Nowa kwerenda bazy danych, wybrać Excel Files * i OK, wskazać plik-źródło (można zaznaczyć "Tylko do odczytu"), a dalej z kreatora" wybrać zakładkę, rozwinąć ją krzyżykiem, wybrać...
Chyba łatwiej zrobić dwuklik na wierszu, z którego chcesz kopiować. Równocześnie uruchamiasz makro i wskazujesz wiersz. Możesz też się upewnić, czy to właściwy wiersz. Oczywiście można też wstawić tam InputBox, tylko wtedy jak chcesz uruchamiać to makro? Jeśli chodzi o moją propozycję, to komórki docelowe wypisujesz po kolei jako adresy obiektu Range:...
ale ja mam kilka makr i nie chodzi mi o jedno konkretne. Pytanie moja milo na celu informacje czy da sie to zrobic jakos automatycznie zeby nie zmieniac wszyskich wartosci komorek z palca w formulach jakie to makro wkleja, bo jak wczesniej wklejalo do kolumny np K2 to terazpo wstawieniu dodatkowej jest to kolumna L2. A on pamieta ze ma wkleic do K2.
Niestety nie potrafię znaleźć rozwiązania Nie ma przykładowego pliku :cry: to możesz przystosować sobie do swoich potrzeb np. makro typu https://www.cognity.pl/uzupelnianie-pust... i to tak, że będzie Ci wpisywać te stringi automatycznie po zaznaczeniu kolejnej komórki w kolumnie D :D i to bez wciskania klawisza Enter...
Między Q i R powinna wchodzić nowa kolumna. Niestety zdaję sobie z tego sprawę, że może to zaburzyć porządek. Wstawienie kolumny tylko dla danego wiersza jest dobre. Pytanie czy to nie przesunie porządku kolumn od R.
Do nagłówka/stopki można wstawić obrazek...
Jak dodajesz wiersze do tabeli, to zawartość wierszy pod spodem przesuwa się w dół, ale wysokości wierszy pozostają bez zmiany (nie przesuwają się). Jest tak dlatego, że poza obrębem tabeli (w innych kolumnach) może być inna zawartość wymagająca innej wysokości wierszy. Żeby przesunąć wszystko w dół wraz z wysokościami wierszy trzeba wstawiać całe wiersze....
Poproś kogoś od obywateli, aby wykazać, jak włączyć makro trochę się obawiam, że nie jestem w stanie wytłumaczyć z mojej gramatyki w menu Narzędzia - makro - zabezpieczenie niedźwiedź średnia - Pan zdecydowała, czy umożliwić działanie makra [syntax=vb]Sub Petla() Dim isWsz As Boolean, i&, fnd$, rpl$ While Not isWsz i = i + 1 fnd = "[" & i & "]" rpl...
Witam. Potrzebuję pomocy z napisaniem makra, które będzie miało za zadanie automatyczne wstawienie nazwy urzedu po wpisaniu kodu mpk z podanych kolumn w Arkuszu2
Witaj, Tak, jest to możliwe. Dobrze byłoby, gdybyś wstawił przykładowy plik. Czy w docelowym arkuszu kolumna ma być zastępowana nowymi danymi, czy ma być doklejana do istniejących?
Kopiowanie formuł jest właściwością tabeli i w zasadzie sposób odwoływania się nie powinien tu mieć znaczenia. Mnie jednak po przekształceniu zwykłego zakresu w tabelę, to od razu nie zadziałało, dlatego zmieniłem sposób odwołania. Można też raz skopiować formułę, a potem powinno już działać automatycznie. Jeśli po wpisaniu czegoś do kolumny C chcemy...
Witam forumowiczow, Siedze nad dosc prostym makrem, ktore przeszuka kolumne G; jesli znajdzie tam wartosc "oplaty licencyjne" to w kolumnie R wstawi wartosc "koszty". Kod, ktory napisalam - oczywiscie - nie dziala. [syntax=vb] Sub FindAndReplace() Dim rCell As Range Dim xCell As Variant Set rCell = Sheets("YTD2012").Range("g2", Range("G65536").End(xlUp))...
Zrobić się da, ale trzeba trochę pokombinować... Piszę tego posta gdy problem już jest rozwiązany, a piszę dlatego, że podałeś rozwiązanie nie tylko pracochłonne, ale przekombinowane. Po co wstawiać dodatkowe kolumny, skoro można od razu - gdzieś w sąsiedniej wpisać formułę: ="''" & A1 & "'", a otrzymanym wynikiem napisać (wkleić specjalnie...
Prawidłowo przenosi wartości wraz z datą i zmianą, jednak nie zwraca w komórkach D5 i E5 danych do formularza z którego zostały wpisane , gdzie miało pokazywać dla jakiej daty i jakiej zmiany został wyeksportowany ostatni raport - ma to na celu wyeliminowanie możliwości wprowadzania dwukrotnie tego samego zamówienia. Da radę to zrobić? I jeszcze przy...
Witam, Czy ktoś jest w stanie pomóc mi w napisaniu makra które tworzyło by nowe arkusze w pliku każdemu z nich nadając nazwę z kolejnej komórki kolumny istniejacego arkusza (kolumna G dane zaczynąją się od G4). Z samym wstawieniem odpowiedniej ilości arkuszy byłbym wstanie sobie poradzić ale nadawanie nazw mnie przerosło. z góry dzięki. pozdrawiam,
Teraz makro wstawia za jednym kliknięciem we wszystkie wolne pole. Nadal nie jest to. Tamte proste makro umożliwiało mi wstawić pojedynczo wartości. Czyli klikam i wstawia wartości w C5, D5, E5, F6, następne kliknięcie to wstawienie w kolejne wolne komórki, czyli C7, D7, E7, F7. Za diabła nie wiem jak do tego podejść.
W nowym pliku bez makr działa mi dynamicznie jak chce. Tutaj w tym pliku "zeszyt1poprawki1" jakas blokada wynikająca z makr? W tym pliku masz włączone ręczne przeliczanie funkcji. W zakładce Formuły, w Opcje Przeliczania zmień "ręczne" na "automatyczne" - czy gdzie to tam masz w swoim excelu. Ta funkcja ma po prostu przepisywać wartości z kolumny F...
Druga część warunku pętli to przerwanie w razie powtórnego uruchomienia. Wiersz(e) należy wstawić o jeden niżej (Range("A" & i + 1).EntireRow.Insert) oraz (i = i + how_many + 1) Sub rows_influx() Dim i As Long i = 2 Do Until ActiveSheet.Range("A" & i) = "" Or ActiveSheet.Range("A" & i + 1) = ""...
Witam Tabela z uprawami - po wprowadzeniu działek do arkusza (kolumna C i D) okazuje się ze na niektórych polach jest więcej niż jedna uprawa. Wtedy wstawiam wiersz poniżej danej działki i wpisuję kolejne uprawy na danej działce (tylko kolumna E, G, F, natomiast C i D zostają puste w tym wypadku). Podobnie z usuwaniem zbędnych wierszy w danej działce....
Hej, udało sie trochę ogarnąć ten plik. Jednak teraz na 100% potrzebuje pomocy z dalszą rozbudową makra. Potrzebuje wstawić funkcję wyszukaj pionowo oraz chyba zapętlić pętlę po danej kolumnie. Czy ktoś da radę mi pomóc? w załączniku plik z makrem jaki udało mi sie stworzyć
makro wstawi excel makro wstawi makro kolumna
podłączyć falownik silnik schemat drzwi astra kolor pixela
bateria milwaukee pioneer zresetować
Hörmann RotaMatic 2 – błąd 2.1, fotokomórki SE1, diagnostyka i naprawa Schemat ideowy pralki Bosch WFC 1666 – dostępność, zamienniki, wiring diagram
