w przykładzie zeszyt3 [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, OstWrs As Long OstWrs = Cells(Rows.Count, 1).End(xlUp).Row 'ile wierszy Application.ScreenUpdating = False For i = OstWrs To 2 Step -1 If Cells(i, 1) <> Cells(i - 1, 1) Then Rows(i).Insert Next i Application.ScreenUpdating = True End Sub[/syntax] A tu kod z nazwą - ale nie...
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...
Zawsze chcesz wstawiać nowe wiersze jako przedostatnie (pomiędzy cyfrą 2 i 3 w kolumnie A)? Jak w input boxie wpiszesz 2, tzn. że chcesz wstawić łącznie dwa wiersze w zaznaczeniu, czy do każdej scalonej w kolumnie B komórki dostawić dwa puste wiersze w kolumnie A ?
Witam, Mam makro jak w ostatnim fragmencie kodu w temacie: http://www.elektroda.pl/rtvforum/topic15... Makro rozwiązało problem z tego tematu, jednak pojawił się kolejny - otóż muszę w puste komórki w kolumnie A1 wstawić takie daty, żeby w kolumnie była ciągłość. Kod: Sub rows_influx() Dim i As Long i = 2 Do Until ActiveSheet.Range("A"...
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...
Tak z ciekawości zapytam: A co z tą wstawioną (bez skojarzeń proszę), nową kolumną? Ma jakieś znaczenie dla obliczeń? Jaki jest cel takiego działania? Dlaczego makro rozpoczyna od aktywnej komórki? Co, jeśli C2 jest pusta?
czyli aby bylo 21111 10 aaa 5 bbb 3 ccc 2. Nie wiem czy takie cos jest mozliwe Hmmm, teraz już będzie trudniej ;) Na szczęście Excel i VBA oferują coś a'la tabelki przestawne. Zmień zapytanie SQL na Sql = "TRANSFORM [SIGN] & "" "" & Sum([hours]) " & _ "SELECT [Activity],...
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....
Witam wszystkich forumowiczów Mam problem z prostym makrem, mianowicie potrzebuję aby w każdym arkuszu makro automatycznie wstawiało pierwsza pustą kolumnę. W moim makrze wstawiane jest tyle kolumn ile arkuszy w zeszycie i to tylko w akurat podświetlonym arkuszu. Wiem, że mógłbym to zrobić operacją na wielu arkuszach ale niestety potrzebny jest mi automat....
Dobry wieczór, Powinien Pan użyć formantu ActiveX. W przypadku formantów formularza może Pan tylko wybierać z listy i widoczna jest tylko jedna kolumna, poza tym formant nie zwraca wartości tylko indeks (połozenie na liście). W przypadku formantów ActiveX ma Pan do wyboru pole listy lub pole kombi. Pole kombi wydaje mi się jednak wygodniejsze. Nie trzeba...
Witam! Potrzebuję makro, które w momencie gdy w pliku "plik w którym ma być makro do wstawiania" w kolumnie J (w przedziale J2:J23) znajdzie się wartość inna niż pusta komórka skopiuję dla "użytego" wiersza dane z zakresu kolumn K:Q do arkusza o nazwie identycznej z wartością w komórce J, do pierwszego wolnego wiersza w kolumnie B w pliku który ma stałą...
Witam! Szukam skuteczniejszego sposobu na obliczanie danych po przefiltrowaniu. Mianowicie w kolumnie A mam nazwę jednostki, przyjmijmy, że mam tam Firma 1, Firma 2 i Firma 3. W kolumnie B mam termin przesyłania przez nich zamówień. I teraz po przefiltrownaniu Firmy A mam jej terminy które dziele na 3 części, te przesłane do 14, 30 i powyżej 30 dni....
Dzień dobry, Jaka kompletna świeżynka w VBA i proszę o pomoc. Próbuję napisać makro, które będzie wstawiało pusty wiersz, jeśli w kolumnie E znajdzie pełną komórkę. Ten pusty wiersz ma wstawić pod wierszem, w którym znajduje się ta pełna komórka. Napisałam coś takiego: [syntax=vbscript] Sub Wstawianie_Wiersza() Dim BL As Range Dim xCell As Range Set...
Dzięki za kod ale nie wiem co robię nie tak bo mi nie działa. Robię to w ten sposób że nagrywam puste makro (tzn klikam ikonkę narywania a potem od razu stop). Potem wchodzę w edycję tego pustego makra i wklejam podany kod. Robię tak ponieważ nie umiem robić tego poprzez wstawianie modułów. Pytanko tylko czy przy nagrywaniu mam to makro nagrać w "Ten...
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...
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 :/
Wtam, doszedłem do etapu, w którym musze wykorzysta makro. Mam 2 kolumny: A.................B dana1 || 2011-04-15 dana2 || 2011-04-16 dana3 || 2011-04-20 dana4 || dana5 || dana6 || Jak zrobić makro, które sprawi, że jeśeli w komórce A jest wpisana dana to w komórce B wstawi dzisiejszą datę która w niezmienionej formie już tam zostanie? Wierszy w kolumnie...
Z przesłanego pliku wynika, że tylko bardzo niewielka część ofert skutkuje zawarciem umowy - co powoduje, że w kolumnie P jest "więcej dziur niż sera" :D Konieczne jest zatem (jeśli baza danych jest "chronologiczna") odwrócenie procedury wyszukiwania. Dla nowych rekordów - można to zrealizować kodem: edycji starych rekordów w celu modyfikacji wpisu...
1. Klikam przycisk "Dodaj wiersz" 2. Makro dodaje jeden wiersz nad wierszem sumy zostawiając formatowania komórek. W tym przypadku numeruje z automatu kolejny wiersz w pierwszej kolumnie a drugi pozostawia pusty Uruchom sobie makro które jest w pliku to zobaczysz. Problem mam że przy wstawieniu tego makro i przypisaniu w nim zakresu "Tabela2" i tak...
Witam Potrzebuje makra, a nie funkcji. W arkuszu "dane" w kolumnie D wystąpić tekst: "xxxx"; "yyyyyyy" ; "zzzzz" lub puste komórki. W arkuszu "dana" w kolumnie E mogą wystąpić następujące teksty, które są brane pod uwagę pod makro:"aaaaaaa";"yyyyyyy";"zzzzz", inne teksty lub cyfry, znaki specjalne lub puste komórki nie są brane pod uwagę. Podałam przykładowy...
Zaproponowany uprzednio kod makra przystosowany jest do określonego układu tabeli :!: :D tzn. po zmianie układu kolumn trzeba stosownie kod zmodyfikować :cry: Dodatkowo makro nie przystosowane jest do "niespodzianek" typu "nadziewanie" pustych komórek pojedyńczą spacją czy wprowadzania nietypowych wierszy tabeli z nazwami podzbiorów danych :sm31: :cunning:
No sumy częściowe jak najbardziej mi pozwolą posortować i zsumować odpowiednią kolumnę. Chyba nie dość dokładnie opisałem w czym rzecz ;-) Suma, 30 (pusty wiersz) Miałem na myśli makro, które znajdzie wiersz podsumowujący i wstawi poniżej pusty wiersz (lub 2, 3 wiersze ...) poniżej. Dokładniej, muszę popracować w dwóch, trzech wierszach poniżej nad...
Witam, Mam jeszcze jeden dość złożony temat do bardziej zaawansowanych użytkowników. Mam w arkuszu makro, które po dwukrotnym kliknieciu w kolumnie C, wstawia w niej wartość, "zaktualizowane". W jaki sposób zmodyfikować kod, aby dla klikniętego wiersza sprawdzało czy dodana jest jakaś wartość w kolumnie E (jeśli dwukrotnie kliknę A9 to ma sprawdzić...
Zakładając że układ kolumn i danych jest stały - nie piszesz szczegółów, wystarczy w określonej komórce wpisać (zakładając że 3 jest w komórce 1A): = 1A&" "&1C&" "$1G Jeżeli natomiast układ danych jest różny w każdym wierszu, trzeba by napisać makro uwzględniające puste komórki.
Witam, Temat ogólnie już był poruszany, ale został zablokowany a ja chciałabym stworzyć coś dodatkowego do niego i nie wiem jak. Konkretnie chodzi mi o taką tabelkę jak w załączniku 1 i stworzenie do niej makra by oddzielały się wiersze po nagłówku "Obiekt" i dodatkowo by tam gdzie jest nagłówek "Godziny" tworzyło się auto-sumowanie dla powyższych kolumn...
Witam, Potrzebuję makra, które będzie kopiowało i wklejało zawartość wiersza w którym: Jeżeli w kolumnie G komórka zawiera wartość to wstaw <pod nią> wiersze n-1 i skopiuj dane z tego wiersza. Czyli w komórce g8 pojawia się wartość 3 to makro wstawia pod 8smym wierszem 2 puste i kopiuje cały wiersz 8 do wstawionych wierszy. Mam nadzieję że dość,...
No i ... ? Do czego mamy się odnieść (tj. ci którzy ewentualnie poświęcą swój czas na ten temat), do przypadku sprzed lat wielu, tyczącego się pewnie w szczegółach innej sprawy ? Opisz dokładniej swój kłopot z KS i zamieść jakieś przykłady, na któryh próbowałeś działać z tamtymi kodami. Pokrótce: 1. Musisz mieć bazę danych w pliku excela z takimi polami...
Witam, Mam następujący problem: w arkuszu Excel mam dane z datami w kolumnie A od komórki A2 w dół. Dane są w porządku malejącym, ale mają luki - tzn. np. po 26/01 czasami jest od razu (bez pustego wiersza) 24/01. Chcę napisać makro, które w takim wypadku wstawi odpowiednią ilość pustych wierszy w miejscach, gdzie brakuje dat. Póki co mam kawałek kodu,...
Witam, Potrzebuje zbudować makro które, będzie kopiowało wiersz(lub wiersze) z tabeli jeżeli spełnia warunek. A mianowicie: W Arkuszu1 mam tabele o określonej szerokości (16 kolumn) bez okreslonej ilości wierszy. W Arkuszu3 w komórce B2 wpisywanybyłby warunek (tekst) W Arkuszu2 jest pusty odpowiednik Arkusza1 (tylko nazwy kolumn). Marko działałoby w...
Witam Mam do uzupełnienia dość spory arkusz. Zazwyczaj chodzi o wpisanie wartości w dwóch komórkach, ale często sprawy się komplikują i muszę wstawić nowy wiersz, skopiować kilka potrzebnych komórek z wiersza powyżej (nie wszystkie), wprowadzić zmianę w jednej komórce i sformatować wiersz. Jako, że jest tego dość dużo, a czasu mam mało, chciałem użyć...
Dzień dobry, Dziękuję za wyjaśnienie w kwestii sumy liczb nieujemnych. Tak jak myślałem, chodzi o to, żeby co najmniej jedna wartość była niezerowa, więc jeśli liczby są nieujemne, właściwym kryterium jest suma. Formuły z ostatniego postu znowu nie rozumiem, bo w tej wersji, którą Pan załączył w komórkach B166 i C166 nie ma żadnych liczb. Ale zostawmy...
Witam! W kolumnie H w komórkach H5:H15 mam wpisane formuły =JEŻELI.BŁĄD(WYSZUKAJ.POZIOMO($G5;$C$1:$... itd. Stworzyłem makro które w założeniu powinno skopiować do innego pliku o nazwie "plik z danymi" do arkusza "Dane" do A8 zakres danych z kolumn H:Z tylko z wierszy dla których w H5:H15 funkcja zwraca wartość. W pliku z danymi od A8 do...
Witam wszystkich, po raz kolejny wracam do vba w excelu i znowu ściana. Mam ciąg danych pomiarowych zawierających wartości w poszczególnych dniach roku dla kilku lat. Potrzebuję: - wyszukać ile jest wartości, które występowały przez określoną liczbę dni z rzędu np. 2, 3, 4 i tak do n dni, w danym roku, ale ich wartość jest większa równa 0,1 - a potem...
Mam nadzieję, że nie zamęczam. Musiałem niestety odrobinę przemodelować tę tabelę stąd też pytanie - Co w poniższym kodzie, trzeba zmienić żeby zamiast kol. B,C,H przerzucał kol. B,C,V z arkusza "kontrole" (kolumny od R stanowią tablice pomocnicze - w zał. plik)? [syntax=vbscript] Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column...
Nie znam się na VBA exel. Potrzebuje makra które do exelu 2013, które porówna dane z 3 arkuszy, o nazwach "1", "2","3". W każdym arkuszu 1 , 2 i 3 mam jakieś dane. W kolumnie A (dla każdego arkusza) mam siedem cyferek. W kolumnie B (dla każdego arkusza) jest ciąg liczb ze znakami specjalnymi"-" i "/" W kolumnie C ( dla każdego arkusza) nazwisko Przykład...
Racje, może nie do końca jasno opisałem o co mi chodzi. -------| A | B | C 1 2------- 5 3--------2 4--------3 ... ... 1000 ---7 Mam Arkusz w którym tabela zajmuje dla przykładu 1000 wierszy (nie uzupełniam kolumny B, C itd. ponieważ do opisu nie jest mi to potrzebne). Chciałbym, aby makro podliczało mi liczbę wierszy w których znajdują się jakiekolwiek...
Witam! Jestem tu nowa i potrzebuję pomocy bardziej zaawansowanych użytkowników, ja dopiero staram się uczyć VBA, niestety napotkałam problem jak dla mnie nie do przejścia. Próbowałam przerobić inne makro na swoje potrzeby jednak ewidentnie coś jest z nim nie tak a ja nie potrafię zdiagnozować w czym problem. Przyznam, że nie mam już siły - może znajdzie...
Nie no... tak to się nie da. Aby zrobić mniej więcej to co chcesz trzeba jednak zaprząść jakieś makro. Poza tym trzeba by było zrobić jakaś systematykę w danych. Chodzi o to że opis jednego stropu masz w ok 50 wierszach a w innym przypadku wystarczy 10. Poza tym fotki. Tu trzeba inaczej podejść do problemu. Jak znajdę chwilę to może coś wymyślę (ale...
Co masz na myśli pisząc że "nie działa"? U mnie działa zgodnie z opisem... Komentarze do poszczególnych linii: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) 'w zdarzeniu przy zmianie w arkuszu If Target.Address = "$A$1" Then 'jeżeli adres komórki której dotyczy zmiana = A1 ost_w = Worksheets("Dane").Range("A" & Rows.Count).End(xlUp).Row...
Aby nie rozbijać wątku na PW - postanowiłem wkleić moją porażkę: Witam, wiesz powiem wprost zagadnienie mnie przerosło i czas mnie sporo goni o tyle o ile rozumiem lub prawie rozumiem to co pisze to jednak nie rozumie tego co makro robi. Doskonale zdaję obie sprawę z moich braków w językach programowania i dlatego zwracam się do ciebie poprzez PW. Makro...
... Jak naciśniemy w arkuszu Kosztorys pole B7 czyli to białe puste szybko dwa razy to otwiera się Listbox z wyborem danej pracy ... Wszystko działa ok ... No niezupełnie ... ' ListBox1_Click ' usuwa z komórki ' AB7 ' wartość liczbową i po zamknięciu okna nie można go już ponownie otworzyć bez wstawienia tam liczby. ... Potrzebne są tylko trzy zmiany....
W jednym arkuszu co jakiś czas jestem zmuszony tworzyć min. 5 wierszy (odpowiednio sformatowanych) i jest to dosyć czasochłonne, dlatego od kilku dni zmagam się z napisaniem makra, które by to trochę usprawniło. Chodzi o to aby przez buttony móc kopiować 5 wierszy z jednego arkusza do drugiego w odpowiednim miejscu. Problem polega na tym, że te miejsca...
Witam eksperci. Moja przygoda z vba zaczęła się jakiś czas temu, ale nadal raczkuję w tym temacie i wciąż natrafiam na przeszkody. Proszę o pomoc w tym temacie-mam tabelkę: Load NumberPartNumber 111111111aaaadddrrrr 2222222sssskkkk 33333wwww 44444444mmmmaaaaa 5555555xxxxccccvvvvmmm 666666ssssjjjjoooo 77777777bbbbbgggg load to kolumna A part-B Numer...
Dzięki serdeczne, ale jak zrobić aby dodawał cały wiersz?? a nie tylko w kolumnie nr 1?? Dodano po 8 i drugie pytanie, jeżeli ustawie od 1 to 9999 jak zrobić aby zakończyło sprawdzanie, jeżeli komórka jest pusta??
Witam, Myślę nad zrobieniem czegoś w stylu wyszukaj.pionowo + zamień, dla tekstu zawartego w jednej komorce. Chodzi o to że z innego skoroszytu chce wyciągać wartości odpowiadające tekstowi zawartemu w powiedzmy komórce C1. Nie byłoby w tym nic trudnego gdyby w tej komorce znadowal sie tekst tylko dla jednego rekordu a wynik wyszukaj pionowo mialby...
Powinieneś załączyć przykładowy plik Excela, bo za dużo jest niejasności w tym, co napisałeś. Przykładowy kod, który działa wg Twojego opisu: [syntax=vbscript]Sub AddSheets() ' zakładamy, że nazwy nowych arkuszy ' są w komórkach od B5 w dół Dim ostw As Long, w As Long ostw = Arkusz1.Cells(5, 2).End(xlDown).Row For w = 5 To ostw Sheets.Add(After:=Sheets(Sheets.Count))....
bardzo dziękuje ,wszystkie teraz chodzi jak powinno , a utworzone tabele w oddzielnych plikach wyglądają tak jak chciałam, ogromne dzięki. W poprzednim miesiącu projekt nie został wdrożony i teraz powróciłam do jego realizacji. Próbuje rozwiązania, które zaproponowałeś i przy uruchomieniu makra z wysyłką pojawia sie komunikat "compile error: USER -...
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...
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...
Nie chcę nikogo obrażać ani się wywyższać itd. Liczę na pomoc, jak w pierwszym poście niestety muszę sie posiłkować goal seekiem gdyż wynik końcowy jest sumą bardzo wielu zmiennych opartych na formułach. Dałem taki przykład aby niepotrzebnie nie wprowadzać zamieszania. Zakres komórek zmienianych pokrywa się z moim arkuszem roboczym i operacje na tych...
Witam mam problemik z Excelem. Mam np dane w kolumnie A w kolejnych wierszach np 1,1,2,3,3,3,4,5,5,5 czy jest jakas formuła która z automatu porównała by te dane i przed każdą zmianą danych wstawila pusty wiersz aby pozniej wygladalo to tak 1,1 pusty wiersz, 2 p[usty wiersz 3,3,3, pusty wiersz 4 i tak dalej? Z gory dzieki za pomoc
Na formułach można spróbować to zrobić tak Zakładając, że mamy zajęte kolumny A oraz B - wstawić pusty wiersz pustą kolumnę między nie (w ten sposób kolumna B przejdzie do C). Zakładam, że dane są od pierwszego wiersza. kolumna B1 będzie zawierać formułę =C1 Kolumna B2 będzie zawierać formułę =JEŻELI(CZY.PUSTA(C2);B1;C2) od B2 można wszystko rozciągnąć...
Bardzo dziekuję za pomoc. Dodano po 2 Ok. Działa. Dzięki. PS. Możecie polecić jakiś podręcznik/ stronę inernetową w której są opisane polecenia VBA i ich zastosowanie tak aby można byloby się uczyć samemu? Dodano po 16 Z kolumną J jednak nie dokonca jest w porządku ponieważ aktualizuje komórki aż za tabelkę. Wydaje mi się że w przypadku kolumny J ten...
Z VBA w Excelu mam do czynienia od niedawna i chciałbym prosić o pomoc z kodem jakim dysponuję. Powstał on poprzez rejestrację makra i skopiowanie pewnej części z sieci. Ta zarejestrowana część nie daje mi spokoju bo można to osiągnąć w bardziej uniwersalny sposób dla wszystkich arkuszy w pliku. Tak więc chciałbym aby zawartość komórek w zakresie od...
Witam! Potrzebuje stworzyć makro które umożliwiło by mi wyszukanie niepustych komórek z jednego wiersza pełnego różnych danych. Np Wiersze (między pełnymi komórkami jest różna ilość pustych komórek): 3 22 4 88 cw z zz eff d aa 7 31 2 75 ah b nh kk e bb Potrzebuje aby wyglądało to tak: 3 4 aa 7 2 bb Czyli chcę aby wstawiło mi wartość pierwszej niepustej...
Witam, Mam mały problem z makrem które wcześniej dobrze mi działało(chyba?).. Chodzi głównie o to że mam zestawienie pracowników i wszystkich klientów. W 1 arkuszu o nazwie "Dodaj" -> jest przycisk i przypisane do niego macro: =Client_list!$B:$B C24 =PRZESUNIĘCIE(db!B:B;PODAJ.POZYCJĘ("RET"... Głównie chodzi o...
Witam wszystkich - to mój pierwszy post i miło mi znaleźć się na tym forum. Mam problem następującej treści. Codziennie eksportuję dane do pliku .csv, np. eksport.csv. Dane zapisywane są w 3 kolumnach. Stworzyłem drugi plik (np. drukuj.xls), który ma konkretnie wyglądać - mieć zmienioną orientację strony na poziomą i powiększoną czcionkę, ale te same...
Witam, Na początku przepraszam jeżeli powielam temat lub coś takiego ale przeglądałem tematy odnośnie kopiowania danych i jakoś nie mogę znaleźć rozwiązania mojego przypadku. Chodzi mi o kopiowanie danych z arkusza2 z komórki A5. W powyższej komórce będę miał zapisywaną wartość która zmienia się przy każdym otwarciu pliku (kurs waluty ze strony www)....
wstawia kolumna makro wstawia tekst makro kolumna
honda civic termostat zestaw naprawczy pompa pasywny korektor
marantz pm6005 lampy miniaturowe
Radio 2 DIN Eunavi nie pamięta ustawień - przyczyny i rozwiązania Odpowietrzanie układu chłodzenia Audi A8 TFSI 2018