Dodatkowe kolumny z Łączenie A & B & C Tam zastosować podaj pozycie
Prosze o pomoc w jednej sprawie. Chciałbym w pracy zrobić pismo, w którym wykażę niezapłacone faktury. całość zrobię w korespondencji seryjnej ale stanąłem na samym początku. Otóż, mam tabelę przestawną. W kolumnie pierwszej NIP, w kolejnej nazwa kontrahenta, dalej symbol faktury i na końcu jej kwota. Wiadomo, że korespondencja seryjna działa wiersz...
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);...
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...
Coś takiego: [syntax=vb] Sub szukajDanejWartosci() Dim danaWartosc As Variant Dim liczbaWierszy As Integer Dim liczbaKolumn As Integer Dim i As Integer Dim j As Integer liczbaWierszy = 20 liczbaKolumn = 4 danaWartosc = 0 '<-- TEJ wartości szukasz w arkuszu For i = 1 To liczbaWierszy For j = 1 To liczbaKolumn If (Cells(i, j) = danaWartosc) Then 'MsgBox...
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...
A już myślałem, że jakiś ciemny jestem :) A gdyby tak zastosować (tablicowo) naszą ulubioną w ostatnim czasie MAX? Próba na pierwszym pliku kolegi marek003 : http://obrazki.elektroda.pl/9077995900_1... Gdzie w S1 wpisujemy po prostu A i dalej (przez Ctrl+Shift+Enter) =JEŻELI(CZY.BŁĄD(WYSZUKAJ.PIONOW...
po znalezieniu takich przypadków kopiowany był cały wiersz? W rozwiązaniu "formułowym" przeniesienie danych z kliku innych kolumn, dzięki funkcji wyszukaj pionowo, też nie stanowi problemu :D 1016346 Plik dostosowany do tego wariantu wymieniony w poprzednim poście.
Dzień dobry. Bardzo proszę o pomoc w rozwiązaniu pewnego problemu z funkcją WYSZUKAJ.PIONOWO, z którym niestety nie poradziłem sobie jak również nie znalazłem odpowiedzi na forum. Napisałem makro, które w kolumnie AV ma podać wyszukaną wartość z zakresu kolumn AC:AD, która odpowiada szukanej wartości (wartość "A" - znajdująca się w kolumnie AC) a z...
Witam wszystkich, Potrzebuję pilnie informacji jak zapisać makro działające jak WYSZUKAJ.PIONOWO z odwołaniem do arkusza2 czyli mojej tabeli danych. Temat pewnie nie byłby jakoś strasznie skomplikowany gdyby nie fakt powtórzenia obliczeń do końca aktywnych kolumn ale również na zasadzie powtórzeń w wierszach ze stałą równicą 7wierszy - powtórzenia oczywiście...
To całkiem inne zagadnienie, wogóle nie związane z tematem i bardzo prościutkie [np. za pomocą wyszukaj.pionowo()] ale załóż własny temat. (bo jak między innymi podziękujesz za pomoc???)
Wyobraź sobie, że lekarz, który bez wiedzy na temat choroby próbuje ktorze leki mogą pomóc Tylko ja moimi próbami nikogo nie zabije... ewentualnie sam się rzucę pod pociąg jeżeli mimo usilnych prób nadal nie będe mógł wymyślić co robię źle. Ja na to mówie reverse engineering. Wole odpalić skomplikowane makro i debugować je krok po kroku próbując zrozumieć....
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...
Plik w załączniku. I np.: trzeba wyszukać słowo WebService i usunąć wiersz tabeli, w którym to słowo występuje.
Nagłówki będą wszystkie w np wierszu nr 2. Jeśli chodzi o ciągłość to np od wiersza 3 do 20 będzie coś wpisane i dopiero wiersz 21 będzie pusty i wtedy makro ma się przerwać. Ale chce żeby samo się dostosowało jeśli wpisze coś w wiersze 21-23 to przerwie się wtedy na wierszu 24 bo on będzie pusty jako pierwszy po dopisaniu
Witam, Ja znam i używam jednej z czterech metod wyszukiwania danych. 1. z wykorzystaniem funkcji FIND() 2. z wykorzystaniem pętli FOR 3. z wykorzystaniem pętli FOR EACH 4. (niezałączona) z wyszukiwaniem binarnym na posortowanych danych Trzy z nich załączam w pliku "testowym". Znajduje się w nim 10.000 losowych, nieposortowanych rekordów: firma, miasto,...
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 ponownie mam problem z makro, stworzyłem poniższy kod i nie wiem dlaczego się nie wyszukuje tak jak bym chciał. [syntax=vb] Sub Data_usun() For Each wh In ThisWorkbook.Sheets For r = wh.Cells(65536, "A").End(xlUp).Row To 2 Step -1 If wh.Cells(r, "A").Value = InStr(1, wh.Cells(r, "A").Value, "Data:", vbTextCompare) Then wh.Rows(r).Delete Shift:=xlUp...
Wyszukaj.pionowo sprawdza się bardzo dobrze jeżeli dane nie powtarzają się (nr telefonu) Jeżeli może być parę wierszy z danym nr telefonu wtedy pozostaje do zastosowania autofiltr ... lub odpowiednio sporządzone makro (kopiujące autofiltr lub oparte na własnym "wybiórczym" kodzie).
1. Porównywać daty w instrukcji warunkowej. 2. Wyszukać ostatni niepusty wiersz i podstawić: Range("A" & ostNiepusty).Select
Witam Bardzo proszę o pomoc. Niestety moje umiejętności z vba nie są na najwyższym poziomie, a poniższe makro bardzo przyspieszyło by mi pracę. Często muszę tworzyć raport z wszystkich lat, dla szukanej przeze mnie nazwy ulicy. W załączeniu przesyłam plik z czterema arkuszami. Potrzebuję makro, które wyszukuje wiersze po nazwie ulicy. Nazwa ulicy znajduje...
Podmień całe makro Sub wyszukaj() wrk = "Arkusz2" 'TU WPISZ NAZWE ARKUSZA w cudzysłowiu Application.ScreenUpdating = False 'wyczysc zakres Sheets(wrk).Select zakrOd = Range("F6").End(xl... zakrDo = Range("G5").End(xl... Range(Cells(5, "F"),...
Gdy jest numer wiersza z dane('PODAJ.POZYCJĘ'), nie trzeba 'wyszukaj.pionowo', wystarczy INDEKS
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...
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"...
Witam, Potrzebuje stworzyć makro wyszukujące odpowiedni numer z zakresu w innym pliku i kopiujące dane. Posiadam dwa pliki: AMSTERDAM_SPC-Carbody shell_v2 oraz SPC_Raport Zadanie makro: W pliku SPC_Raport -> zakładka ‘Geometria’ znajduje się nr KTW (wpisywany z ręki) komorka Z7: http://obrazki.elektroda.pl/9144379200_1...
OK, mój błąd. Filtr zawiera się w makrze z buttona 'Szukaj'. Jego zadaniem jest wyszukiwanie w A2 wpisanego numeru w liście poniżej i zostawianie jedynie linijki z wyszukanym artykułem. Następnie musi ustawić się w pierwszej wolnej komórce z ilością dla tego wiersza. Jeżeli chodzi o sendkeys to dałam go po to aby idąc te 4 wiersze w dół poprzez offset.(4,0)...
Mogę zmienić, by wszystkie nazwy były takie same w obydwu plikach. Nie możesz, tylko musisz - jeżeli makro ma coś wyszukiwać i dopasowywać po nazwie, taka "radosna twórczość" jest niedopuszczalna. W Prod.xlsx - tabele w Sheet1, Sheet2 i Sheet3 najlepiej, żeby zaczynały się w tych samych komórkach (wiersz, kolumna). Liczba tabel (arkuszy) jest stała...
Samo wyszukaj.pionowo() będzie chyba za mało bo trzeba sprawdzić dwie komórki z nr seryjnym i kodem. Chyba że "dobuduje" się z przodu kolumnę pomocniczą łączącą nr seryjny z kodem. (Z opisu autora zrozumiałem że może się trafić przypadek np. 1235-5 i 1235-8) Może takie makro, ale nie wiem ile jest danych w pierwszym arkuszu. Przy dużej ilości danych...
Budujesz sobie string'a, mamy Np SourceData:="Arkusz1!R4C1:R111C29" widzisz, że argument jest w cudzysłowach - znaczy jest typu String. String możesz złożyć z kilku części, używając znaku "&" - Np SourceData:="Arkusz1" & "!R4C1:R" & "111" & "C29" i tu zamiast Np numeru wiersza możesz podstawić zmienną (niekoniecznie typu String), wtedy Dim ostW as Long...
Witam. Mam prośbę odnośnie stworzenia makro. W arkuszu "dane" potrzebuje wyszukać wartości powyżej 9 i poniżej -9 w kolumnie "cena". Tych kolumn "cena" jest kilka w arkuszu "dane". Gdy znajdzie takie wartości zaznaczy je kolorem na czerwono i wytnie cały wiersz i przeniesie na początek kolumny. Nie potrafię stworzyć makro z wyszukaniem takich wartości....
Hej zaczynam dopiero przygodę z makrami. Jestem typem osoby, która najlepiej uczy się i analizuje swoje błędy na prostych przykładach. Załączam plik, który przypomina plik, który chce zautomatyzować. Z danego pliku chcę 1) Wyszukać numery projektów (arkusz formatka) przypisanych do każdego z pracowników (lista wybierana pracowników z zakładki "projekty")...
Jeśli plik jest otwarty to makro pomija wykonanie otwarcia arkusza "baza". a jak jest otwarty to wykonuje dalsze instrukcje: kopiowanie potrzebnych wierszy. Pomija cała instrukcje czyli nic nie robi. czemu przed for each muszę dać otwarty=false a potem odnosić się do otwarty jako true Generalnie nie musisz dać na początku 'otwarty=false' bo zmienna...
Cześć, mam problem. Potrzebuję wiedzieć jak zrobić makro, które polega na ściąganiu danych z innego pliku. Ma wejść w inny plik, znaleźć konkretne słowo, przejść 5 komórek w prawo, skopiować wartość i wkleić w konkretne miejsce, potem przejść z tej piątej komórki na siódmą komórkę od tej znalezionej i skopiować ja w konkretne miejsce. Makro ma działać...
Witam, napisałem kod jak poniżej. W obecnej postaci kod nie działa jak powinien. Wcześniejsze próby działały, ale nie wykonywały tego co powinny. Generalnie zalezy mi na tym, aby makro odnajdowało wartość z komórki g12 z zakładki Makro w pliku Zeszyt1 i porównywało je z kolejnymi wartościami w kolumnie 3 i jeżeli równanie jest prawdziwe - przechodziło...
[syntax=vbscript]Sub Zawiera() Sheets("Arkusz1").Select a = InputBox("Podaj tekst do szukania: ", "Wyszukaj") ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If InStr(1, Cells(x, 2), a) > 0 Then Range(Cells(x, 1), Cells(x, 2)).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub [/syntax] Poniżej bez rozróżniania wielkości...
Witam. Tworząc nowe makra w excelu natknęłam się na problem, którego po wielu próbach niestety nie umiem pokonac ani przy pomocy pętli, ani operacji find itp. Otóż w arkuszu "Dane" dotyczącym zawieranych transakcji w kolumnach A-D mam kolejno Nazwisko, Data, Cena, Uwagi Potrzebne jest mi makro, które będzie wyszukiwać podane przeze mnie nazwisko w arkuszu...
Witam, mam następujący problem. Mam arkusz Zakupy Vat. Do niego dodałem kolumnę z wartościami (in jak inwestycje itd). Zastanawiam się czy za pomocą funkcji wyszukaj pionowo uda mi się rozpoznać komórkę z wartością in i skopiować cały wiersz do kolejnego arkuszu o nazwie Inwestycje. Czy to już trzeba będzie pisać makro? Najłatwiej będzie mi opisać mój...
Witam. Sprawa pojawiała się już kilkukrotnie na forum elektrody. Szukałem rozwiązania również w innych serwisach. Zacząłem naukę VBA, ale nie zdążę opanować go na takim poziomie, aby rozwiązać ten bieżący problem. Sprawa dotyczy arkusza z kilkoma setkami rekordów. Podział wg kategorii w kolumnach i wiele wierszy z danymi. Interesują mnie wartości z...
Tu do formatowania bym się nie czepiał. Jest powiedzmy ok (choć można było prościej) Ewentualnie zmienił bym warunek pojawiania się napisu "Blokada otwarta"/"Blokada zamknięta" co by z jednej strony "ustawiało" kolorki ale ... niestety nie zmieniała by się literka w kolumnie G I tu by mógł powstać kolejny wyjątek bo rozumiem że np. nagle znów byś chciał...
Witam, A czy konieczne jest do tego makro i kopiowanie za jego pomocą? Nie lepiej utworzyć tyle arkuszy ile jest krajów np. utworzyć jeden wzorcowy i powielić. Dane pobierać poprzez odwoływanie się do arkusza zbiorczego: - funkcje WYSZUKAJ, PODAJ.POZYCJĘ, PRZESUNIĘCIE Albo jeżeli jest to zawsze ten sam układ danych to zrobić odwołania ręcznie, na stałe.
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,...
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...
Cześć, potrzebuję pomocy z porównaniem dwóch dużych plików danych . Dotychczas używałem wyszukaj pionowo lub zwykłego if w excelu. Czy jest możliwość zbudowania makra które porównywało by dwa pliki kolumna po kolumnie ( pliki mają takie samo ułożenie i będą posortowane). Fajnie jeśli zakres kolumn, wieszy będzie można wpisać ręcznie. Piewsza kolumna...
Witam, Jestem wręcz zielony z VBA, a próbuję napisać makro które kopiowałoby dane z wygenerowanego poprzednio arkusza który wygląda tak: https://obrazki.elektroda.pl/1632067000_... do arkusza który wygląda tak: https://obrazki.elektroda.pl/1639209600_... No i tu mam kilka problemów. Dane które do mnie przychodzą i po...
Witam, szanowni koledzy i koleżanki potrzebuje waszej pomocy w stworzeniu dwóch rodzajów makro: - Makro "zapisz jeżeli" - Makro " wyświetl jeżeli" Mój brak umiejętności i wiedzy nie pozwala mi samemu rozwiązać danego problemu. I dlatego spieszę z wytłumaczenie mojego problemu licząc że pomożecie: W komórce "B3" z listy rozwijanej wybieram liczbę (od...
Sub Makro1() szuk = Sheets("WPROWADZANIE").Range("B2") With Sheets("EWIDENCJA") wrs = .Columns(2).Find(What:=szuk, LookAt:=xlWhole).Row 'jeśli nie znajdzie, przerwie komunikatem błędu /zastosować On Error/ .Rows(wrs).Copy Sheets("WPROWADZANIE").Cells(3, 1) 'tu można podstawić wynik Range().End(xldown).Row End With Sheets("WPROWADZANIE").Range("B2")...
Po powrocie do domu zrobię taki testowy arkusz w którym będzie oznaczone o co mi chodzi. Dodano po 4 Także wygląda to tak. Arkusz1 Wiersz 1 - tak wygladaja moje dane wejsciowe do których bym chciał dodać znaczniki (;?) (;?;) itp. Dlaczego sredniki? A to glownie po makro jezeli mialoby ono być wykorzystane (w arkuszu drugim jest rozpisane to samo jak...
Witajcie, Nie mogę sobie poradzić z następującym problemem. Mam arkusz, w którym jest lista "wolnych" klientów - nazwijmy go Klienci_Potencjalni, oraz kilka arkuszy z klientami konkretnych sprzedawców. Np Klienci_Basia, Klienci_Ania, Klienci_Janek. W arkuszu Klienci_Potencjalni sprzedawca może w pierwszej kolumnie wybrać siebie z listy rozwijalnej,...
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)...
wyszuka wiersz wyszuka pionowy makro wiersz makro
mytab android przełącznik kolumna kierownica mechanizmy magnetofonów
elfon wideomofon siemens iq800 suszarka
Nissan Qashqai J11 P0138 – błąd po wymianie sondy, dolot szczelny, tłumik sprawny Krups EA8260: Błąd 12 i czyszczenie pojemników
