Są różne sposoby na znajdowanie ostatniego pustego wiersza, mój ulubiony jest taki: widoczną komórkę w kolumnie B wypełnioną tekstem, idąc od ostatniego wiersza w górę. Liczba 1048576 to ostatni wiersz excela 2007, dla kompatybilności z 2003 należało by użyć 65536. Przed wykonaniem sprawdzania poleceniem ShowAllData próbuje się zdjąć kryteria autofiltra...
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...
Proponuję spróbować takiej modyfikacji :D : [syntax=vbscript]Sub sortuj_dane_realizacja_zaladunkow() ' ' sortuj_dane_realizacja_zaladunkow Makro ' ' Dim nw As Long nw = Sheets("Realizacja załadunków").Cells(Rows.Count, "A").End(xlUp).Row ' wyznacza ostatni wiersz tabeli więc po co tu -7 'Range("D8").Select ActiveWorkbook.Worksheets("Realizacja załadunków").Sort.SortFields.Clear...
Podstaw pod argument Source - jest typu string... 1. znajdź ostatni wiersz i przypisz do zmiennej: ostW =Range("A" & rows.count).end(xlup).row jeśli nie ma nic "pod spodem" lub ostW =Range("A3").end(xldown).row jeśli kolumna A jest zawsze pełna. Jeśli nie, wybierz inną - pełną (bez dziur) 2. podstaw zmienną do string'a ... SourceData:= _ "Arkusz1!R4C1:R"...
Czemu jak już zrobiłeś przykład nie załączyłeś go do postu? (spakuj na przyszłość zipem i załącz) Po prostu wykorzystaj funkcję wyszukaj.pionowo() Zamknąłem w pętli i sprawdza po kolumnie M czy wysłano (dlatego tez na końcu pyta czy wysłałeś. Poniżej z paroma "wodotryskami". Makro nie sprawdza poprawności adresu mailowego więc jeżeli będzie zły a ty...
Hmmm... Kilka uwag na początek: Po pierwsze primo: jeżeli chcesz uniezależnić program od nazw arkuszy, wystarczy zamiast: kolejnym wierszu.
Tak, tak rozumiem tylko jak to sie mówi: " A u mnie to działa normalnie " ciekawe od czego to zależy... ?hmm Niestety Excel to wredny typ. Pusta komórka czasem nie jest pusta a tego nie widać i wiele innych podstępów Micro$hita ... potestuje u mnie jeszcze i dam Ci znać jak coś wyknuje jeszcze Pozdrawiam .... a rzeczywiście .... zwielokrotniłem twoje...
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"...
Oczywiście. Co prawda w batchu też by się dało ale wygodniej zrobić to PowerShellem. Wtedy można to zupełnie zautomatyzować. Np.: foreach ($i in get-childitem *.csv) { if ($i.name -eq "1.csv") {(get-content $i)[0..((get-content $i).count-1)]|add-content wynik.csv} else {(get-content...
W internecie są opisy jak znaleźć ostatni wiersz z danymi. Wpisz do do VBA dodaj 1 i powinno rozwiązać to sprawę.
Rzeczywiście autor nie ma talentu do przekazywania informacji. Wydaje mi się że o to mu chodziło (załącznik). Do autora topiku: Nie da się funkcjami wydrukować tylko wybranych stron. Można ukrywać widoczność ale wtedy ostatecznie będą białe/czyste strony drukowane. Pozostaje makro - w sumie proste ale ... w makrach położenie poszczególnych komórek jest...
Które obiekty Range były błędnie zdefiniowane? Na przykład tu (i dalej): tekst adresu w stylu A1. Zmienna ostd określa ostatni wypełniony wiersz w kolumnie "Wartosc calkowita PLN" w kolejnych przetwarzanych arkuszach. Offset jest używany kilka razy i nie wiem, o które użycie konkretnie pytasz. Jeśli o to: [syntax=vbnet]With kWceur.Offset(1)[/syntax]to...
1b. Kod ma kopiować wszystkie na prawo arkusze z tego samego pliku i wszystko wrzucać do arkusza zbiorczo z ostatnim wierszem. Może opisze od początku moje działania: Mam plik XXX, w którym jest jeden arkusz o nazwie Panel. W nim mam różne porobione przyciski z makrami. Pierwszy przycisk pozwala mi na kopiowanie do mojego XXX danych z innych plików...
Cześć Od kilku dni rozkminiam makro, które pomoże mi zautomatyzować pracę. Co tydzień pobieram dane z różnych arkuszy kopiując do jednego arkusza. Żmudne i nudzące zajęcie. Nie jestem programistą, ale z pewnością da się to jakoś ogarnąć makrem. Dla zobrazowania pokazuję fragment pliku. To czego potrzebuję to: - w jednym arkuszu (w przykładzie jest to...
Witam wszystkich, Potrzebuję linijkę kodu vba aby odnieść się do wiersza z konkretną wartością w kolumnie B. Obrazując problem wygląda to w ten sposób. Mam pliki A i B, chciałbym aby makro gdy jestem w pliku B odnalazło wiersz w pliku A po zmiennej która każdorazowo będzie wpisana w pliku B w komórce F3. Dodam, że oba pliki są otwarte, nazwa pliku A...
Sory że tyle pytań ale łatwiej od razu wiedzieć o co chodzi niż napisać kod a potem go przerabiać "paręnaście" razy bo autorowi nie o to chodziło. Jeszcze "jedno" pytanie: Czy pod przyciskiem aktualizuj plik ma tworzyć/sprawdzać od początku wszystkie umowy w arkuszu ogólnym i ewentualnie korygować je w poszczególnych arkuszach? Czy tylko ma złapać ostatni...
Teraz kolego to ładnie kopiuje wszystkie wystąpienia. Bardzo Ci dziękuję za Twą pomoc. Próbuję jeszcze zmienić coś w kodzie ponieważ po zakończeniu instrukcji w arkusz1 zostaje tylko jeden wiersz ( ostatni ) a reszta jest ukrywana. Może mi się uda doczytać jak to zmienić. tak to wygląda : https://obrazki.elektroda.pl/2877661100_...
Witam, mam problem z napisanie makra które chowałoby wiersze po kolei, tzn. jeden przycisk chowa 4 wiersz, po kliknięciu go ponownie chowa się także 5, po ponownym kliknięciu jeszcze 6 i tak dalej, drugi przycisk odrywa te wiersze od tyłu, czyli jeśli ostatni schowany wiersz to był wiersz nr 6 to go odkrywa, po kolejnym kliknięciu odkrywa wiersz nr...
Nowa propozycja: [syntax=vbscript]Sub Wypełnij() Dim ost As Long ost = Range("B2").End(xlDown).Row ' ostatnia komórka wypełniona w dół ' ost = 2000 Range("A2").FormulaLocal = "=H2&B2&D2" 'to można pominąć, a formułę wpisać ręcznie Range("A2").AutoFill Destination:=Range("A2:A" & ost) Range("E2").FormulaLocal = "=C2&"" ""&D2" 'to można pominąć, a formułę...
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...
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,...
Witam, panowie i panie, próbuje stworzyć makro, które będzie formatowało dane w predefiniowany przeze mnie sposób. Chce aby (zawsze w ten sam sposób) makro formatowało mi zaznaczony obszar danych (tak jak w załączeniu). O ile sam format tabeli (wewnętrzne linie tabeli) to nie problem, to nie wiem jak „kazać” makru format pierwszego i ostatniego...
A co siedzi w Twoim Arkuszu1 w kolumnie P :?: Jeśli tam będzie ciąg numerów faktur (typu "999/rr") to makro wchodzi na ostatni (zarejestrowany) wiersz tej kolumny, tworzy nowy numer (o 1 większy - jeśli jest to faktura z tego samego roku lub 001 - dla nowego roku) i zapisuje go w rejestrze (w kolumnie P). Problem jedynie może być z przechwyceniem tego...
Chciałbym, żeby to makro wyszukiwało mi ostatni wolny wiersz i tam wklejało dane z plików, czyli: [syntax=vb]wiersz = Sheets("dArk").Range("C65536").End(xlUp)... + 1[/syntax] Niestety moja znajomość VBA jest na razie (mam nadzieje :D ) na niskim poziomie i dołączenie tej części kodu wywala mi błąd. Druga rzecz. Pobierane dane nie zawsze są tej samej...
1. Porównywać daty w instrukcji warunkowej. 2. Wyszukać ostatni niepusty wiersz i podstawić: Range("A" & ostNiepusty).Select
[syntax=vb]iLastPos = GetFirstEmptyRow(ThisWorkbook.Worksheets... - 1 [/syntax] Adamas, właśnie autorowi napisałem, że brakuje ww funkcji. Gdzieś ją posiał... A funkcja najzwyczajniej zwraca ostatni wiersz z podanego arkusza, jak widać.
Musisz określić ostatni zapisany wiersz w danej kolumnie, np. poprzez (dla kolumny A): [syntax=vb]Dim lOstRw& lOstRw = Cells(Rows.Count, 1).End(xlUp).Row[/syntax] Później w komórce poniżej ostatniej zapisanej wpisujesz formułę sumowania dla zakresu od wiersza 1 do ostatniego zapisanego wiersza w danej kolumnie (dla kolumny A): [syntax=vb]Cells(lOstRw,...
Witam, mam taki problem z dopisywaniem poszczególnych konfiguracji w tabeli arkusza Excel z poziomu SolidWorks. Chciałbym, żeby makro dopisywało wiersz z konfiguracją o jeden większą niż poprzednia, interesują mnie tylko trzy ostatnie znaki, np. 099, lub 078, lub 088. Problem pojawia się przy dojściu do liczby 100, bo wtedy makro dopisuje mi zamiast...
Błąd pojawia się na linijce Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats... Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False Wtedy w arkuszu DANE OD PLANISTY przechodzi na ostatni wiersz arkusza pomimo tego że wcześniej zaznaczył od wiersza H9 w dół uzupełnione wiersze po czym zrobił to z kolumnami w lewo jednak...
chciałbym poinformować,że nie dawno odkryłem VBA Hmm... Skoro odkryłeś, może warto nauczyć się go wykorzystywać? Do rozwiązania swojego zadania potrzebujesz kilku rzeczy: 1. Określić nazwę folderu nadrzędnego. Tu można wykorzystać FileSystemObject, Np [syntax=vbscript]Dim oFSO As Object, srcFldr As String, parFldr As String Set oFSO = CreateObject("Scripting.FileSystemObject...
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_...
Witam Szanowni forumowicze, mam pewien problem z pętlami którego nie mogę rozwiązać. Mam listę ( kilka tysięcy pozycji) dotyczącej rezerwacji miejsc noclegowych. Arkusz w załączniku. Gdy klient dokonuje rezerwacji powstaje jeden wiersz ze statusem zatwierdzona w kolumnie rezerwacja, jeśli rezerwacja zostanie anulowana pojawia się identyczny wiersz z...
Witam w poniższym pliku mam utworzone makro, które ma za zadanie sprawdzać pewne założenia a wyniki analizy kopiować do arkusza "4". Pętla w nim umieszczona powinna wykonywać określoną procedurę, aż nie zostaną poddane analizie wszystkie wiersze w arkuszu "2" (w tym wypadku 15 razy). Makro wykonuje jednak tylko jeden cykl, jeżeli się nie mylę analizując...
i nie ma prawa ( choćby ze względu na średnik ) poprawione odnośnie ostatniego wiersza Sub Makro1() kolumna = 1 ostatni = ActiveSheet.UsedRange.Rows.Count For i = 1 To ostatni Cells(i, kolumna).Select If ActiveCell.Value <> ActiveCell.Offset(1, 0).Value Then ActiveCell.Offset(1, 0).Insert Shift:=xlDown i = i...
Pustość w określonym wierszu da się wykazać np. sortując wiersze, ale widzę, że sortowanie u ciebie odpada. Można wykryć pusty wiersz w danej kolumnie "stojąc" w niej wcisnąć najpierw END, a potem strzałkę w dół (lub w gorę dla wstecznego wyszukiwania). Można to zastosować w kodzie VBA + zrobić makro w stylu "skocz do następnego pustego rekordu". Ostatni...
Kolego. A co ja Ci wysłałem? Mam pytanie korzystam z bardzo podobnego kodu poniżej, ale pojawił się problem po skopiowaniu np 10 wierszy z arkusza 1 i następnie kopiowaniu kolejnych linii z arkusza 2, linie z arkusza 2 nie wklejają się w pierwszy wolny wiersz pod tymi 10-cioma z arkusza 1 tylko nadpisują się na 10-tym, kasują ostatni wiersz. Czy w...
Witam serdecznie, Potrzebuje napisać makro, które znacząco przyspieszy mi prace. Chodzi o to by dzieliło gotowy raport na części i każdą z nich zapisywało w oddzielnym pliku pod nazwą taką jak wartość w kolumnie. Dla ułatwienia (w celach poglądowych) stworzyłem mocno uproszczoną wersję tego raportu. Chodzi o to żebym mógł szybko podzielić ten raport...
Ależ to wcale nie musi być kłopotliwe. Wystarczy wykorzystać jedno ze zdarzeń arkusza związane z jego aktywacją i w nim: - znaleźć ostatni wiersz do zablokowania - zaznaczyć blokadę we właściwościach komórki powyżej znalezionego wiersza - zablokować arkusz Ot cała polityka. Stosując to w pozostałych (w których to konieczne) arkuszach nie musisz nic...
Skoro się dopiero uczysz VBA to zacznij od dobrych praktyk, a jest nią deklarowanie zmiennych. Poczytaj o deklarowaniu zmiennych i ich typach. Staraj się nie używać Selectów, zamiast (tu jest także odpowiedź na Twoje pytanie): [syntax=vb]Range("T2").Select Selection.AutoFill Destination:=Range("T2:T" & wier), Type:=xlFillCopy[/syntax] Możesz napisać:...
Dziękuję za ostatni kod bardzo mi pomógł. Mam jeszcze jedną pewnie ostatnią prośbę. Chciałbym że dla każdego pliku w katalogu po operacji zapisania pliku, excel sprawdził jedną kolumnę w której raz na jakiś czas pojawi się "+" i jeśli się pojawi to żeby nazwa pliku została zapisana do worda. (Tak żebym miał w wordzie na koniec listę plików w których...
Udało mi się nieznacznie poprawić kod. Wszystkie potrzebne dane po użyciu makra uzupełniają się w danym wierszu formularza ale dzieje się to w sposób niekontrolowany. Oznacza to że raz pobiera dane w sposób pożądany a raz nie pobiera wcale lub kopiuje dane w zupełnie inne miejsce. Może wynikać to ze złego zdefiniowania programu. [syntax=vb] Option Explicit...
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...
1. Jeśli połączysz imię i nazwisko w kolumnie pomocniczej (=A2&" "&B2), to będzie już możliwe uzyskanie unikatów (osób/pracowników). Jeśli tabela przestawna nie zwraca Ci oczekiwanych rezultatów, pozostaje wykorzystanie funkcji wyszukiwania. W kolejnej kolumnie pomocniczej indeksy (kilka tematów niżej był przykład z JEŻELI(LICZ.JEŻELI()=1;MAX();itd)...
---> kolumny automatycznie się dostosowywały do zawartości (tutaj chyba użyteczna będzie Columns ("1:18").AutoFit); ---> włączenie opcji zawijania tekstu . ---> Każda komórka była obramowana jak w pliku źródłowym ---> kolumna R zsumowała wartości z kolumn L, N, O i była zapisana w formacie księgowym. Kolumna E i F – format daty (dd-mm-yy). Jak...
Dziękuję bardzo za odpowiedź i przepraszam, że dopiero teraz odpowiadam. Kod działa super i znacznie szybciej niz poprzedni :), ewelacja. Jedyna rzecz która mnie niepokoi to to, że nie odróżnia wierszy " Qbad/Data" od " do wprowadzenia". " do wprowadzenia" powinny byc wiersze dodatkowe-tzn. jeżeli w ark "dane" są 3 wiersze zamówienia PO12345 a w ark"forecast"...
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...
Np można przeszukać kolumnę od dołu Też racja. Ale znowu może wystąpić problemik (nie żebym się czepiał :) ) jeżeli ostatni wiersz jest z asortymentem bez kodu lub w komórce w kolumnie w której znajdują się kody towarowe poniżej tabeli jest jakiś inny wpis np. jakaś suma albo "podpis". Wtedy zapewne należałoby np sprawdzać ilość wierszy po innej kolumnie...
To dlatego że trochę zamieszałeś z opisem ;) Pisałeś o podziale według dwóch kolumn A i B - przy takim założeniu musiały by to być niepowtarzające się pary. Póki co linijkę: If tabl(i, 1) = c And tabl(i, 2) = druga_kolumna Then zamień na: If tabl(i, 1) = c Then i powiedz czy to jest to, o co Ci chodzi? Jeżeli chodzi o dynamiczna...
Witam, mam problem z programem napisanym w Excelu 2003, sprawa wygląda tak: mam jeden arkusz z danymi zaprojektowany w ten sposób że każda kolumna zawiera dane jednej grupy produktów w początkowych wierszach następnie jest jeden wiersz z typem danej grupy produktów a następnie znajdują się kody poszczególnych produktów każdy w osobnym wierszu (jeden...
Propozycja makro łączącego komórki tak jak chciałaś. Makro wykorzystuje dane z kolumn H i I, zastępuje formuły w komórkach scalanych. Usuwa formuły w kolumnie J (aby umożliwić modyfikację danych w razie potrzeby). Nie ingeruje w formatowanie warunkowe, które było już ustawione w arkuszu. Makro jest zapisane w module uniwersalnym. Działa w arkuszu aktywnym....
makro ostatni zapisać wiersz ostatni zapisany wiersz makro makro ostatni zapisany wiersz
czyszczenie nastawnika karta smartcard zdalne webasto
Grundig GQN21225X – miganie pulpitu, przyczyny alarmu temperatury i usterki panelu Erbauer EMC18-Li – ładowarka wyzwala bezpiecznik, zwarcie w zasilaczu SMPS
