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...
Jesteś uparta i nie dajesz załącznika, więc masz poradę nieco bardziej szczegółową, ale zgodną z tym, co pisałem wcześniej. Szukasz nagłówka w drugim wierszu, potem ostatniego wypełnionego wiersza w kolumnie z tym nagłówkiem: [syntax=vbnet]Dim nag As Range, ostw As Long Set nag = Rows(2).Find("Nagłówek") ostw = nag.End(xlDown).Row[/syntax]nag oznacza...
Makro jak wyżej działa :) i wiem że mogę wyszukać nazwę jaką chcę. Chodzi mi tylko jak ustawić aby funkcja If działała w kolumnie z daną nazwą, do ostatniego niepustego wiersza. Ponieważ ta kolumna ma stałą nazwę ale może mieć różne położenie w arkuszu.
To było mówić że makro ma być w innym pliku. Kłopotem było to że makro pobierało nazwę pliku z pliku w którym nastąpiło wywołanie procedury. Poniżej poprawka. [syntax=vb]Sub OrderBuilder() ' ' OrderBuilder Makro ' Order building ' ' Klawisz skrótu: Ctrl+q ' Dim i As Long, ostWrs As Long 'otwarcie plików Workbooks.Open Filename:="D:\Desktop\NotWMS\Działa\expo...
Niestety na służbowym kompie nie zobaczę Twojego pliku, więc tylko kilka wskazówek. 1. Proponuję przygotować szablon do kopiowania w oddzielnym arkuszu, nieużywanym przez kontrolerów. Można tam zapisać w razie potrzeby coś jeszcze, a docelowo można go będzie ukryć. 2. Żeby skopiować obszar (tabelkę), musisz wiedzieć gdzie to trzeba skopiować. Możesz...
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...
Witam Jestem początkujący w temacie VBA. Mam problem z napisaniem makra które wyszukało by wartości z zakresu A5 do ostatniej niepustej komórki w kolumnie A arkusza "kartoteka zlecen produkcyjnych" w arkuszu "kartoteka indeksow" zakres A2 do ostatniej nie pustej komórki w kolumnie A i jeżeli znajdzie taką samą wartość przekopiował wartości z kolumny...
witam...no już mi ręce opadają.... Porwałem się z motyką na księżyc i już naprawdę sporo zrobiłem... potrzebuję pomocy... Chodzi mi o napisanie funkcji, która będzie w danej komórce przepisywała wartość ostatniej komórki z pewnego zakresu ponad tą komórką... Dodam, że nie wszystkie będą wypełnione i często też będą puste. no i jeszcze do tego tak musi...
Wykorzystaj funkcję wyszukaj.pionowo() z 0 (zerem) jako ostatni argument. Lub tak jak masz zrobione za pomocą wyszukaj() tylko zmień źródło z indeksu na nazwę i zakres kolumny przeszukiwanej na nazwy a nie indeksy. Jeżeli chcesz jednak makro to to podaj hasło do projektu makra lub zamieść załącznik z odblokowanym projektem makr.
Dzień dobry potrzebuje takiego makra (3 pliki załączone) pewnie jakieś pętle będą potrzebne 1. kliknij w START w pliku Start.xlsm 2. Otwórz pliki Raport skrócony.xlsx i raport_roznic_vat_i_pogrupowan.xlsx 3. w pliku raport_roznic_vat_i_pogrupowan.xlsx od arkusza 3 w tym wypadku Immomok Sp. z o. o. do ostatniego arkusza (co miesiąc może być inna liczba)...
[url=http://www.ozgrid.com/VBA/find-meth... masz przykład jak ta funkcja można wyszukiwać w całej kolumnie. Ostatni listing pokazuje jak wyszukać kilka wartości i wstawić komentarz - w Twoim wypadku musisz wyszukiwać w arkuszu 2, a wstawiać nie komentarze, a znalezione wyniki do arkusza 1.
A pierwszy wiersz w kolumnie B masz wypełniony? Zliczasz niepuste komórki i jeśli pierwsza jest pusta, nie wyszuka Ci ostatniej wartości. Wówczas zmień linijkę: [syntax=vbscript] For r = 2 To Application.CountA(Sheets("baza").Range(... [/syntax]
Wrzuć kawałek tego pliku tekstowego. i potem sprawdzał czy dane słowa znajdują się w kolumnie dajmy na to A A konkretnie? Worksheets("2010").Cel... 2) bo to nie jest kolumna "dajmy na to A"... Skoro jesteś bardzo początkujący, to na początek wypisz sobie w punktach co makro ma po kolei robić. Ciut podpowiem: 1. Otwórz plik...
Witam, Podpinam się do wątku, ponieważ potrzebuję pomocy do stworzenia kodu VBA działającego podobnie do kombinacji wyszukaj poziomo i połącz teksty, ale zwracającego komórki zawierające wybrany fragment tekstu. Makro ma robić pętlę po wszystkich kolumnach, aż do ostatniej wypełnionej i zwracać komórki zawierające np. nazwisko lub słowo np. raport oddzielając...
Witam, Uprzejma prośba o pomoc / podpowiedź / wyjaśnienie (na wstępie nie jestem programistą …. niestety!). 1. Formatowanie kilku zakresów jednocześnie. Chce nadać (za pomocą makra w VBA Excel) kilku zakresom danych ten sam format. Zakresy tu np: (B15:B38) (B51:C62) (B98:D112) Format to: ###,00;[Czerwony] - ###,00;- Bez tła (przeźroczyste tło)...
Witam, potrzebuję makro do Excela w VBA. Łamie sobie głowę, żeby to napisać i może ktoś umiałby to poskładać w sposób logiczny w makro. Z góry mówie, że to wygląda na dość obszerne makro ale myśle, że dla kogoś kto dobrze ogarnia VBA nie będzie z tym miał problemu. Dla mnie jest to troche ciężki temat :| Program ma kopiować komórki J2:J, K2:K, L2:L...
Można zrobić to stosując makro, które w pętli przeszuka kolumnę komórka po komórce i po napotkaniu szukanej wartości skopiuje cały wiersz do nowego arkusza. Następnie wznowi przeszukiwanie od miejsca zatrzymania i po napotkaniu szukanej wartości - kopia wiersza. I tak do ostatniej niepustej komórki. To co napisałem wygląda prawie jak przepisane od Ciebie,...
Wypróbuj poniższy kod. Założenia: - kolumna A - dane do wyszukania - kolumna B - szukane frazy - założyłem, że też tam będzie jakiś nagłówek, więc odpowiedni zakres jest deklarowany od wiersza 2, w kodzie jest odpowiedni komentarz - jako, że makro operuje na mechaniźmie filtra zaawansowanego to dane w kolumnie A muszą mieć nagłówek , który będzie użyty...
Witam, potrzebuję makro do Excela w VBA. Z góry mówie, że to wygląda na dość obszerne makro ale myśle, że dla kogoś kto dobrze ogarnia VBA nie będzie z tym miał problemu. Dla mnie jest to ciężki temat, gdyż jestem nowy w programowaniu i tak jakbym potrafił napisać na kopiowanie komórek makro tak w tym wypadku jest to troche trudniejsze i nie potrafie...
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, tworzę plik excela do wydań produktów z magazynu do poszczególnych działów. W arkuszu 1 mam nazwy działów, w których każdy jest połączony hiperłączem do osobnego arkusza do ostatniego wolnego wiersza: =HIPERŁĄCZE("#magazyn1!A"&(MAX(JEŻELI.BŁ...
Robiłem kiedyś dokładnie taki plik jak piszesz - nie ma potrzeby nawet stosować makr. Skaner konfigurujesz tak, żeby po sczytaniu kodu wysyłał znak ENTER - co w Excelu powoduje przejście do kolejnej komórki - to w kolumnie A. W kolumnie B funkcją WYSZUKAJ.PIONOWO wyszukujesz po kodzie dane w arkuszu-bazie i zwracasz potrzebną kolumnę. Oczywiście kod...
Hej Zacząłem właśnie uczyć się samemu VBA i utknąłem z jednym problemem. Moje Makro ma a zadanie przy każdym uruchomieniu wyszukać ile wierszy jest zapisanych w pliku w kolumnie D i w tylu też wierszach w kolumnie T wpisać cyfrę "1". Zrobiłem pętle która przechodzi do pierwszego pustego wiersza i zwraca jego adres i wartość dla uzyskania liczby wierszy...
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...
Cześć Próbuje od jakiegoś czasu rozgryźć mój problem. i jak na nowicjusza słabo to idzie - trochę poszukałem i próbuje dostosować do swoich potrzeb pomysły innych z podobnym do mojego problemu. A wiec: mam dwa pliki - jeden bazowy (u mnie nazwany "baza.xlsx" - znajduje się w innej lokalizacji) oraz drugi Main.xlsx Oba plik mają ten sam układ - 20 kolumn....
Teraz jest ok. Scieżka nie jest wymagana więc uruchomienie makra na komputerze przy innej sciezce pliku nie jest tez problemem. Co mi jednak wyskoczylo jeszcze to dwie rzeczy. Plik lista.xls zmodyfikowalem tak, aby dostosować go do własnych potrzeb. Przykładowy plik wrzuciłem w załącznik. Powstają dwa problemy: Pierwszy to fakt, że raport zwrotu pobierany...
Zanim zaczniesz coś kodować w VBA (albo czymkolwiek innym) musisz wiedzieć czego chcesz. Młodzi programiści zwykle od razu rzucają się do klawiatury, sam tak robiłem i czasem nadal robię, ale to ostatecznie zabiera więcej czasu, niestety. :) W tym przypadku czy ten numer klienta jest poprzedzony jakimś charakterystycznym tekstem, albo jest zawsze w...
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...
DZIĘKUJE BARDZO, BEZ POMOCY NIE UDAŁO BY MI SIĘ WYKONAĆ TEGO ZADANIA. W projekcie pozostało mi jeszcze kilka spraw tzw. kosmetycznych. Choć jak dla mnie nie do ogarnięcia I tak: Arkusz rozszerzyłam i ma teraz 18 kolumn (A:S) ---> kolumny automatycznie się dostosowywały do zawartości (tutaj chyba użyteczna będzie Columns ("1:18").AutoFit);...
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"...
Ma ktoś może jakąś propozycję jak można wybrnąć z takiej sytuacji ? W ostateczności z problemu wybrnę wstawiając odwołania bezwzględne * przyjmę że maksymalnie z jednego stanowiska będzie jakieś 30 tys wierszy czyli zrobię alokację od wiersza 1 do 30 tys a drugie stanowisku zacznę alokować od wiersza 30 001. Wtedy zadziała ale będzie problem z nadwymiarowością...
Witam! Mam w pliku Excel arkusz dla każdego tygodnia roku kalendarzowego o nazwach T-01, T-33, T-43 itd. W arkuszu posiadam makro do szybkiego tworzenia nowego arkusza przenoszące układ i formatowanie obecnego arkusza i dodatkowo przenoszące do nowo tworzonego arkusza wiersze dla których wartość w kolumnie J jest większa od zera. Plik służy mi do cotygodniowego...
Ale jakich makr nie umiesz stworzyć? Ja tego nie zrozumiałem. To po kolei: 1. Do arkusza "Firma 1" wklejam dane z innego pliku od kolumny E do AB - mniej ważne gdzie to wklejasz, ważniejsze co dokładnie. Czy umiesz określić zakres do kopiowania? np. A5:Z123, albo kolumny A do Z od wiersza 5 do ostatniej wartości w kolumnie C (nie może być w tej kolumnie...
Dziękuję wszystkim za pomoc i podpowiedzi. Uzyskałem efekt, który chciałem osiągnąć, po dodaniu kolumny pomocniczej z funkcją "Jeżeli.Błąd(Wyszukaj.Pionowo....." i po zastosowaniu poniższego kodu w moim pliku z przykładem. [syntax=vbscript]Sub Dodaniewartoscizprzeciwnejlisty() lLstRw = Cells(Rows.Count, 6).End(xlUp).Row lLstRw2 = Cells(Rows.Count, 1).End(xlUp).Row...
Prot serdecznie Ci dziękuje za zainteresowanie. jednak w załączonym pliku w arkuszu Stock widzę tylko zdublowaną tabelę zamówień, a wartości "Sat. Stock" są stałe (nie uwzględniają danych odnośnie dostaw) i w dziwnych relacjach do tabeli planowanego "zużycia"...Rozumiem, że zamieściłeś tylko przykładowy plik, więc trudno się ustosunkować do Twojego...
Zapomnialem zaznaczyc ze jestem troche zielony.. Dodano po 24 Ohm, juz zamkniete, zrobilem, dziekuje. Wszedlem po prostu w makra, nagralem makro - edytowalem je w visual basicu i wkleilem kod do przycisku :)) wyglada on tak: ActiveCell.FormulaR1C1 = "=VLOOKUP(R23C12,Podsumowania!R3C1:R32C5... Range("I27").Select Pozdrawiam. Dodano po 19 Niestety...
Cześć, mam podobny problem który był już poruszany, ale zdaje się ze mniej skomplikowany i nie nie mogę dopasować go do tamtych rozwiązań. Mam plik w którym jest kilka arkuszy z zaciągniętymi raportami. Teram muszę zrobić z nich raporty. Niestety utknęłam na pierwszym :( Próbuję w zakładce "AAA" w zakresie "A3:ostatni wiersz z danymi" odnaleźć komórkę...
Ok to pokombinuje i jakby co to napisze. Jeszcze jakbyś mógł mi odpowiedzieć na 3 pytania. Jesteś pewny że to tylko trzy pytania? :) Jak zrobić przy ostatniej tabelce. gdzie np. b/l=0,5 to współczynnik mi =0,354 ... I Czy można połączyć że szuka poziomo b/l i jak znajdzie to weźmie pionową wartość przypisana do odpowiedniego b/l? Wykorzystaj funkcje...
Witam, Mam zarejestrowane takie oto makro: Sub Makro4() ' ' Makro4 Makro ' ' Columns("A:D").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Columns("G:G").Select Selection.Delete Shift:=xlToLeft Range("A1").Select ActiveWorkbook.Worksheets("BI").Sort.Sor... ActiveWorkbook.Worksheets("BI").Sort.Sor... Key:=Range("A1"),...
wyszukać ostatni kolumna makro wyszukać wyszukać makro
podgrzewanie przedniej szyby szyby badanie przetworników tip147 tip142
resetowanie drukarki canon pixma reset tuszu canon
Power bank 50000 mAh - ile razy naładuje urządzenia? Volkswagen Passat B5 1.9 TDI - Elektronika Drzwi
