Mała przeróbka makr: 912681 Wiersze można dodawać ze ściśle określonego zakresu, który sam sobie ustalasz ("If ilewrs > 10 Then Exit Sub"). Usuwanie wierszy tylko pojedynczo, od ostatniego, aby zachować porządek.
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....
[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$2" Then Application.ScreenUpdating = False nw = Sheets("Baza").Cells(Rows.Count, "A").End(xlUp).Row + 1 Range("A2:C2").Copy Sheets("Baza").Cells(nw, 1).PasteSpecial xlPasteValues Range("A2").Select Application.CutCopyMode = False Application.ScreenUpdating =...
Potrzebuję gotowego makra, które będzie dodawało mi nowe wiersze. Może ktoś da radę pomóc. Mamy przykładowo w kolumnie D takie wartości: 1 D 2 5 3 1 4 30 5 8 6 100 Makro miałoby teraz dodawać pod spodem tyle wierszy ile jest napisane w tej kolumnie - 1. Np. Mamy w komórce 2D wartość 5 to pod spodem trzeba dodać 4 puste wiersze. w komórce 3D mamy 1 to...
To zależy ile docelowo przewidujesz wierszy w tabelce. Jeśli nieokreśloną, to tylko VBA...
Działa super! Tylko właśnie problem mam z tym aby do skopiowanych wartości dodał jeszcze dwie kolumny i przypisał tam wartości, które by pobrał z nazwy pliku. Przykładowo plik o nazwie 34_190_2023-05-19, w którym znajduje się 20 wierszy, makro kopiuje wszystkie + dodaje kolumnę z datą "2023-05-19" + kolumna z numerem "190" dla wszystkich 20 wierszy...
Proszę o pomoc. Chcę, by z arkusza pierwszego po wciśnięciu przycisku "add" cały dany wiersz kopiował się do czwartej zakładki "zamówienie". Plik ma mieć docelowo ok.200 wierszy, więc chodzi o to, żeby przekleić to makro do kolejnych wierszy. Nie w każdym wierszy w arkuszu 1 będzie wduszony przycisk add, dlatego też program musi wiedzieć, że ma kopiować...
Cześć, jest zupełnie początkująca. Potrzebuję makra, które doda mi wiersz w prawie każdej zakładce (zakładek mam 31). Mam przycisk, zarejestrowałam makro, ale jak wiadomo przycisk mi działa tylko do jednej zakładki. Sub Makro3() Makro3 Makro Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End Sub I w tej jednej...
Witam! Proszę forumowiczów o pomoc. Jak przerobić następujące makro znajdujące się w załączonym pliku tak, żeby: 1) Przycisk [Dodaj] umieszczał w tabeli poniżej określoną w komórce M6 liczbę wierszy o treści wpisanej tak jak w komórkach B6:K6 2) Obecnie przy dodawaniu wpisów w kolumnach C oraz F makro wstawia puste pola, a ma wstawiać dane z wiersza...
Witam, ten [url=https://www.elektroda.pl/rtvforum/t... temat idealnie wpasowuje się w mój problem. Czy można przerobić makro z postu #11 [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next w = Target.Row k = Target.Column If k = 7 Then If Target.Value > 1 Then a = w + 1 b = a + Target.Value - 2...
Cześć, Zwracam się z prośbą o pomoc, ponieważ potrzebuję napisać makro, które kopiowałoby wybrany wiersz, od pola B2 w Arkuszu1 (to wiem jak to zrobić) a następnie wklejałoby go w następne. Tu zaczynają się schody, ponieważ nie chcę na sztywno wpisywać zakresu wklejania. Warunek ma być następujący, jeżeli w kolumnie A (NAZWA DOSTAWCY), nie ma żadnej...
Witam, mam następujący problem znalazłem takie oto makro które świetnie działa, ale oczywiście nie u mnie (ja go nie napisałem, jeśli chodzi o makra to jestem zielony) [syntax=vbscript] Sub Dodaj_Wiersz() Dim lOstRw& Dim sForm$ lOstRw = Cells(Rows.Count, 1).End(xlUp).Row Rows(lOstRw).Offset(1, 0).Insert (xlShiftDown) Rows(lOstRw).Copy Rows(lOstRw).Offset(1,...
Witam serdecznie Potrzebuję pomocy w napisaniu makra które by działało w następujący sposób: W kolumnie A mam powiedzmy 10 różnych tekstów pod sobą, w kolumnie B mam liczby całkowite przy nich. Potrzebuję powstawiać wiersze dla każdego tekstu o takiej liczbie wierszy jak w kolumnie B przy danym tekscie i żeby teksty były pod sobą. np: A1 / B1 Kot 5...
Witam serdecznie, Potrzebuje pomocy w napisaniu marka, poniewaz sam nie potrafię. Tabela: W kolumnie T w kolejnych wierszach są wpisane jako tekst ścieżki na dysku. Czasem jest to jedna ścieżka, a czasem dwie lub trzy oddzielone ";" (średnikiem). Czyli ścieżki to takie główne wartości oddzielone ";" średnikami. Makro: Makro ma przeszukiwać tekst (wartości)...
Witajcie, Moja znajomość vba jest taka sobie od razu mówię ;) czy ktoś mógłby pomoc z takim tematem. w kolumnie A mam nazwy w kolumnie B liczby. Liczby w kolumnie B będą się cyklicznie zmieniać. Chodzi o makro, które: pobierze wartość z komórki w kolumnie B np B3 = 5 i pod B5 wstawi 5 pustych wierszy. Ktoś, coś ? Z góry dziękuję za pomoc i wskazówki!...
Witam. Jestem początkujący w VBA więc proszę o wyrozumiałość. Szukam pomocy przy wykonaniu kodu który ułatwi mi pracę z formularzem, a mianowicie chciałbym kod który: 1wszym kliknięciem przycisku DODAJ 1. Skopiuje wartość z komórki B1 Arkusza1 do komórki D5 Arkusza2 (to zrobiłem samodzielnie) (wartośći B1 Arkusza1 zdefiniuje listą rozwijaną) 2gim kliknięciem...
Witaj. Wygląda na to, że w tym arkuszu takiego makra nie ma. Opisu, jak ma to makro działać również nie ma (ma sobie dodawać losowo wiersze z losowymi formułami na podstawie losowych kryteriów?), jakiejkolwiek próby rozwiązania też nie ma. Czego więc oczekujesz?
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...
Cześć, Chcę stworzyć makro, który sumuje dane w komórkach kolumny P i w momencie gdy suma przekroczy 20 wstawia pusty wiersz. Po czy sprawdza dalej, aż do ostatniej aktywnej komórki. Makro, które utworzyłam nie wyrzuca mi błędu, ale jedyne co robi to przechodzi od komórki P1 do pierwszej pustej. [syntax=vbscript]Function PrzejdźDoOstatniego1() Dim ile...
W Twoim opisie coś nie gra :cry: Jeżeli w kolumnie G ilość w pierwszym wierszu jest np. liczba 9... Ma skopiować dane z wiersza powyżej . To znaczy, z którego wiersza ma kopiować jeśli zmiany wprowadzasz w "w pierwszym wierszu" :?: :D Wierszy mam około 2 000 tyś 2 mln wierszy to musisz pomieścić w dwóch tabelach wykorzystując całą wysokość arkusza (jeden...
Dokładnie tylko makro mi pomorze. Jeszcze raz pomóżcie - mogę zapłacić.
Witam serdecznie, Bardzo proszę o pomoc w kwestii poniższego kodu. Jestem na bardzo podstawowym poziomie i nie mogę poradzić sobie z tematem pętli. Napisałam makro dodające linie z identycznymi wartościami i faktycznie dodaje to, co powinien do pierwszego wiersza danej wartości. Ale bardzo zależy mi na tym, aby zostawiało tylko ten pierwszy wiersz (sumujący)...
Spakowałam dwa przykłady. W drugim przykładzie w kolumnie A, arkusza1 cyfra 5 pojawia się w tej samej kolumnie(A) a nie pojawia się w innych arkuszach "arkusz2 i arkusz3". Też jest brana za duplikat. Potrzebuje edycji kodu która pozwoli mi na dodawanie większej ilości kolumn(np 100) jak makro znajdzie duplikat w kolumnie A. Zdaje sobie sprawę że będzie...
Powinno być ScreenUpdating, a nie DisplayAlerts. Poza tym niepotrzebne są te selekcje. Wystarczy: [syntax=text]Rows(281).Delete Shift:=xlUp 'usuwa 281 wiersz [/syntax]
potrzebujesz pomocy z kodem w VBA czy szukasz kogoś kto napisze całe makro? Dodano po 1 Przygotowałem w zasadzie bardzo proste makro: Kopiuje Twój arkusz "x1" (nazwałem go "Template") i w nim zmieniam tylko dane. Nazwę nowego arkusza biorę z arkusza "Wyświetlenie odczytów" z kolumny A czyli "Lp." ale idzie to łatwo zmienić w kodzie (dodałem tam komentarz)...
Witam Jak napisać makro które będzie przeszukiwało kolumnę A i B http://obrazki.elektroda.pl/4124127900_1... Jeżeli w kolumnie B będzie więcej niż jeden ciąg znaków to dodaje wiersz i scala komórki jak na zdjęciu poniżej wartość z komórki A wkleja do scalonej komórki a wartości z kolumny B z danego wiersza wkleja do oddzielnych komórek...
Źle to opisałem. Szerokość stałą wiem jak uzyskać, choćby nawet dopisując ją do For i = 1 To 24 Chodzi mi o to, żeby zautomatyzować (nie musieć określać go ręcznie poprzez edycję tej funkcji) zakres np j = 1 to X gdzie X to ilość wierszy, która może być zmienna, w zależności od tego ile makro zaimportuje z pliku wejściowego. Jestem jeszcze zielony w...
W załączonym pliku nie ma tabeli!!! Wybacz mój błąd, chodzi mi o makro dodające wiersze tak jak w załączonym pliku.
że makro odnalazło brakujące liczby, dodało wiersz lub wiersze i dodany wiersz lub wiersze zrobiło na kolor zielony I gdzie to makro?
Wygląda mi to na jakieś "kombinowanie" i, znając życie, nie będzie to działało tak, jak chcesz - bo zaistnieją jakieś warunki, których teraz nie przewidzisz, ale tak na szybko można próbować takim makrem, jak w załączniku. Cała "sztuka" to dodawanie / usuwanie wierszy od końca, żeby zakres się w pętli nie przesuwał. Usuwanie zakłada, że usuwasz wiersze,...
Jeśli dobrze zrozumiałem, chodzi o "wyszukiwarkę" dodającą wybrane pozycje do kolejnych wierszy. Wtedy w grę wchodzi proste makro. Przykład w załączniku.
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...
Dodałem jeszcze możliwość ukrywania kolumn z niepotrzebnymi dniami w miesiącu, aktualizację dni miesiąca na pasku jak również zmiana koloru na szary dni sobota i niedziela. UWAGA!, nie zmieniaj (nie dodawaj nie usuwaj żadnych kolumn i wierszy) bo to spowoduje że makro będzie niepoprawnie działać
Korzystam z podobnego rozwiązania ale potrzebne jest też formatowanie warunkowe (aby zaznaczać tylko zakres wiersza). Zaznaczanie aktywnego wiersza za pomocą formatowania warunkowego i VBA 1. Zaznaczanie aktywnego wiersza Definiujemy nazwę: AktywnyWiersz=0 Wpisujemy formułę w VBA w sekcji Worksheet - SelectionChange Private Sub Worksheet_SelectionChange(ByVal...
Coś w tym stylu. Makro będzie trzeba przerobić, żeby zamiast 'Target', zapamiętywało ostatni wiersz i od niego do końca kopiowało. To jest uzależnione od tego, jak wpadają dane do 'D402'. P.S. Dlaczego nie chcesz, żeby makro, które dodaje wiersze do 'D402' dodawało też wiersze do plików Joanny i Katarzyny? To się robi jakiś bezsens wg mnie. Tym bardziej,...
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....
Powiedzmy że działa - potestuj. Trochę info o pliku: Podstawa: Makro sprawdza w nagłówku (w wierszu drugim) gdzie jest tekst "Zadanie" i "Grupa interwencyjna" jak również w wierszu trzecim szuka ostatniej niepustej komórki. (po tym rozpoznaje ile jest poszczególnych kolumn. Jeżeli zmienisz nazwy dodawać dowolną ilość kolumn do zadania i do pracowników....
Cześć wszystkim, mam 2 małe problemy makrem do zaznaczania wierszy. 1. Pierwsze makro dodaje mi obramowanie do zaznaczonego wiersza - w tym kodzie chciałbym dodać zakres w jakim ma ono działać (tylko w obrębie tabeli) Od wiersza 42 do 305. If w > 0 Then With Rows(w) .Borders(xlEdgeBottom).LineStyle = xlNone End With End If With Target(1).EntireRow...
Proszę o przykładowe makro kopiujące pierwszy wyfiltrowany wiersz z listy do nowego arkusza. W nowym arkuszu wklejane wiersze muszą dodawać się jeden pod drugim wraz z datą ich kopiowania.
Witam Proszę o pomoc. Czy istnieje możliwość utworzenia makra dodającego wiersz do tabeli w pierwsze wolne miejsce? Chodzi mi o wprowadzenie danego wiersza (kilka wypełnionych komórek) do tabeli, z której będą po czasie usuwane pojedyncze wiersze, a makro ma wprowadzać wpisane komórki w pierwszym wolnym wierszu tabeli. Bardzo proszę o pomoc. 979805...
Dzień dobry, Wydaje mi się, że sprawę załatwi nadanie zakresowi roboczemu nazwy, pod warunkiem, że nie będzie się usuwać ostatniego wiersza ani ostatniej kolumny, a dodawać nowe również przed ostatnim wierszem i przed ostatnią kolumną, a nie za nimi. Poza tym nagłówki kolumn też trzeba aktualizować ręcznie. Gdyby istotne było, żeby tabela się automatycznie...
Czyli ustawiasz kursor w którymś z wierszy, naciskasz przycisk i ma się dodać wg wartości w tym wierszu? Oj, żebyś żonie nie uprzykrzył ;) Nie rozsądniej byłoby zrobić to za pośrednictwem formularza? Wybierasz z pól kombi (stan w podglądzie) i dodajesz pod przyciskiem. Update 7:50 Coś jak w załączniku. W ostateczności wykorzystaj makra...
Masz tam dwa rodzaje makr - jedna grupa tylko zmienia kolor tła, druga grupa zmienia kolor tła i dodaje tekst. Nie wiem, czy chcesz ograniczyć działanie wszystkich makr do kolumn C i L, czy tylko tych, które wpisują tekst. W każdym razie do każdego z makr, które mają mieć ograniczony zakres dopisz na początku (pod nagłówkiem) takie 3 wiersze: [syntax=vbnet]...
Szanowna, wcześniej już miałem pytanie: konik95 napisał: W mojej Bazie danych są jednak pewne elementy, które powinny być do wszystkich skopiowanych wierszy dodawane ręcznie? Tylko teraz widzimy jak wypełnić pola( NumerNazwaWersjaData utworzenia dokumentu) Z Numer a Wersja mniej więcej jasne. Dane skąd Nazwa i Data? Wątpliwości, że mamy wymyślić.
Pliki .xsl można dodawać, .xslx - niestety nie, ale wystarczy spakować np. ZIPem i już się będzie dało. Twój opis jest na tyle zawiły, że sądzę, iż lepiej nadawałby się do jego realizacji MS Access... tak czy inaczej spróbuj opisać co chcesz osiągnąć bardziej ogólnie, na wyższym poziomie abstrakcji - nie na poziomie komórek, wierszy i kolumn tylko funkcjonalności.
Niestety z tego co napisałeś i pokazałeś w pliku nie wynika, jak chcesz tego używać. W załączonym pliku nie ma Arkusza1a, a arkusze 2 i 3 są puste. Więc nie wiem, czy to ma być używane w jednym arkuszu, czy w kilku. Generalnie proponowałbym nadanie nazw zakresom i odwoływanie się do tych nazw w makrach. Gdy rozszerzasz taki zakres przez dodanie wiersza...
(at)maciejgonet Dzięki wielkie za pomoc! Miałbym jeszcze tylko pytanie co do działania całego makra. Czy da się z niego wyeliminować zapisywanie w historii sytuacji kiedy ktoś dodaje nowy wiersz? Makro oczywiście wtedy działa tak jak powinno i zapisuje zmiany, czyli zapisuje np. 16000 pustych komórek które zostały dodane przez wstawienie nowego wiersza....
Użytkownik dodaje / ukrywa wiersze przyciskami +/-. Arkusz jest chroniony i musi taki zostać dla użytkowników, znajdują się tam formuły, które nie mogą być modyfikowane. Jeśli jest opcja Nie chroń arkusza, to wiersze się dodają / ukrywają, po włączeniu ochrony pojawia się:...
Wygląda całkiem nieźle. Jak dodawać kolejne wiersze?
Witam, jako, że raczkuję w VBA proszę o pomoc. Mianowicie, potrzebuje w pliku w zał. : Arkusz "Cena katalog 2019" - kolumna A - podwójne kliknięcie na daną komórkę w kolumnie A np. A5 powoduje skopiowanie danych z tej komórki do Arkusza " Oferta PDF " komórka B17. Każde kolejne podwójne kliknięcie powoduje dodanie wiersza w Arkuszu "Oferta PDF" pod...
Szukam takiego marka, które po każdym wierszu z danymi: Wstawi wiersz (zaczynając od 3 wiersza). Wartość z C3 przeniesie do C4 (konkretnie datę) Zsumuje wartości D2+D3, E2+E3, F2+F3, G2+G3, I2+I3 Liczby od D4 do I4 zamieni na wartości. Wstawi wiersz 6 Wartość z C5 przeniesie do C6 (konkretnie datę) Zsumuje wartości D4+D5, E4+E5, F4+F5, G4+G5, I4+I5...
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...
Czyli wstawianie arkusza opanowane. Teraz mamy wpisywać *jakieś* dane w jakiś sposób. Można założyć, że linia po linii (ale to założenie wynikające tylko z kontekstu wcześniejszych postów). W jaki sposób działa teraz wpisywanie do jednej linii? Makro, które już Kolega posiada zaczyna wpisywać od komórki, która jest aktualnie zaznaczona i wypełnia ileś...
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...
Idealnie, Dziękuję Ci bardzo ;] Dokładnie o to mi chodziło. Mógłbym Cię jeszcze prosić o dodanie do tego kodu, opcji która dodawałaby date kopiowania w 17 kolumnie kopiowanego wiersza?
Witam. W jaki sposób określać zakres działania makra (chcę aby zakres adaptował sie do ewentualnie wstawianych/usuwanych wierszy)? Nie umiem pisać kodu. Zawsze nagrywam makro ale wtedy zakres jest zapisany jako konkretne adresy komórek i po dodaniu lub usunięciu wierszy zakres pracy działania makra nie jest właściwy. Przykład: 1 Mam sformatowaną komórkę...
Dzięki wielkie. Imię dodaje tylko do pierwszego wiersza z danego skoroszytu. Ale najważniejsza jest prędkość. Zrobię testy i zaprezentuje wyniki:) Czas na wyniki testu:ść Ilość plików: 142 stare makro: 1. wczytywanie z formularzy: 35sek 2. Dodawanie: 1min 2sek Nowe makro: 1. wczytanie plus dodanie 20sek :D Podsumowanie: Podczas używania starego makra...
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...
można zrobić i funkcie któras będzie działała jak inne funkcje excela (np suma() z tym że za każdym razem przy wejściu do takiego pliku excela będzie monit o makro. Przyznam że nie jestem za dobry w makrach ale poprzez logiczne myślenie :) coś takiego stworzyłem Function KOMENTARZ(a As Integer, b As Integer) As String KOMENTARZ = Cells(a, b).Comment.Text...
marcinj12, Dzięki za tę podpowiedź. Poprawie to w kodzie i zobacze czy choć trochę przyspieszyło. Szczerze mówiąc to nie wiem, która zajmuje więcej czasu, wydaje mi się, że delete, ponieważ jest odpalana dwa razy (w dwóch arkuszach). Jeżeli chodzi o ilość danych, to przy około 300 wierszach radzi sobie w miare szybko, jednak już przy tysiącu, niestety...
Hmm... Trochę więcej tych danych, niż się spodziewałem. Najprościej byłoby dodawać[syntax=text]WYSZUKAJ.PIONOWO(RAN... MIN w kolumnie C, to 2, MAX - 32, suma kolumny 80326 (losowań) w 5000 wierszach :( Nie mam tyle cierpliwości. No i będzie się działo gdy zmienią się dane w kolumnie C. LOS, MAX.K, INDEX(... w...
Nie wiem, czy da się osiągnąć taki efekt jak zamierzasz. Trzeba by było wymyślić jakieś sprytne makro. Standardowo Excel potrafi ukryć wszystkie puste wiersze, a tu należałoby pozostawić pierwszy pusty odkryty. Myślę, że lepiej wykorzystać te mechanizmy, które zostały przygotowane, a nie walczyć z Excelem. Tu należałoby wykorzystać tabelę Excela. Ona...
dodawanie wierszy makro dodawanie wierszy makro dodawanie
awaria ekspresu philips procesor zimny naprawa układu scalonego zmywarka
bateria hilti problemy diagbox
Sterowniki do oscyloskopu VOLTCRAFT DSO-2020 na Windows 11 Termistor NTC do lodówki Whirlpool - dobór i parametry
