Dodatkowe kolumny z Łączenie A & B & C Tam zastosować podaj pozycie
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...
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...
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
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...
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")...
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...
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...
[syntax=vb][/syntax] Witam wszystkich Forumowiczów, Jest to mój pierwszy post na tym forum jednak od jakiegos czasu sledze watki na elektroda.pl . Jednoczesnie przepraszam za brak polskich znaków. Poszukuje kodu VBA do znalezienia pierwszej wolnej komórki w zakresie a nastepnie wklejenie do tej komórki w kolumnie A tego co znajduje sie w schowku . Powyzsze...
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....
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ć....
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...
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...
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).
Plik w załączniku. I np.: trzeba wyszukać słowo WebService i usunąć wiersz tabeli, w którym to słowo występuje.
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"),...
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...
Gdy jest numer wiersza z dane('PODAJ.POZYCJĘ'), nie trzeba 'wyszukaj.pionowo', wystarczy INDEKS
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...
1. Porównywać daty w instrukcji warunkowej. 2. Wyszukać ostatni niepusty wiersz i podstawić: Range("A" & ostNiepusty).Select
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"...
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...
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...
[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...
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.
Tu masz kod tego makra. Procedurę SzukajUlicy() podepnij pod jakis przycisk. Myślę, że z resztą sobie poradzisz. [syntax=vb] Option Explicit Sub SzukajUlicy() Dim ws As Worksheet Dim lWiersz As Long Const lKolumnaUlicy As Integer = 5 'E lWiersz = 4 'początkowy wiersz zawierający dane Dim sNazwaUlicy As String Dim Znalazlem As Boolean sNazwaUlicy = InputBox("Podaj...
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....
Witam, Dziękuję za odpowiedź. Ja te pliki do analizy danych mam zrobione przez wpisywanie nazw plików, kolumn i wiersz oraz funkcje (bez makr) wyszukaj.poziomo, wyszukaj.pionowo, podaj. opozycję i przesunięcie - działa to w miarę sprawnie (chociaż dość długo czasem "mieli" to Excel) - ale trzeba wcześniej popracować "ręcznie" nad danymi źródłowymi ......
Witam proszę o poradę jak stworzyć makro, podam kolejność jak miało by funkcjonować: w exelu mam przycisk (Wyszukaj) pod który można przypisać makro i w arkuszu np. WPROWADZANIE mam zaznaczone jedno okienko np. B2 - tutaj mam wpisać jakieś nazwisko np. Kowalski, potem musiałoby przeszukać kolumnę np. B w nowym arkuszu pod nazwą EWIDENCJA i jeżeli by...
Proponuję rozwiązanie oparte na funkcjach UDF, które jest dość elastyczne. Nie wiem jak to ma działać - czy dane są wprowadzane i przeliczane jednorazowo, czy są potem zmieniane. Tu jest możliwość zmiany danych (z pewnymi ograniczeniami). Plik podstawowy (BAZA) musi zawierać makra, więc musi być zapisany w formacie wspierającym makra np. xlsm. Załącznik...
Witam, Bardzo dziękuję za szybką odpowiedź - zaproponowane rozwiązanie działa tak jak potrzebuję. Widzę że gdy usunę dane z niektórych wierszy, ponowne uruchomienie makra "odtwarza" brakujące dane, jednak gdy ilość potrzebnych powtórzeń się zmniejszy niepotrzebne wiersze się nie kasują - wiem, że wynika to z niedoprecyzowania opisu, także poprawię to...
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)...
z tym wyzwaniem męczę się ponad 4 godziny :) czy jest możliwe napisanie makra, które przeszuka nr osoby z arkusza "raport" w arkuszu "konta" (UWAGA ! 1 OSOBA MOŻE MIEĆ KILKA KONT) i jak wyszuka to doda tyle wierszy pod wartością szukaną z arkusza "raport" ile wyszukał w "kontach" i wklei to w osobnych wierszach? ze skopiowaniem danych z kolumny "zaległość"?...
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...
Dzień dobry, Dyskusja zeszła na boczny tor i kręci się wokół funkcji WYSZUKAJ.PIONOWO. Widzę, że sprawa nie jest jasna więc rzecz ma się tak. Opis funkcji w okienku wprowadzania danych jest skrótowy i nie wchodzi w szczegóły, stąd może wydawać się nieprecyzyjny. Ale kluczowe znaczenie ma tam słowo "domyślnie". Funkcja WYSZUKAJ.PIONOWO domyślnie przyjmuje,...
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...
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]
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...
W dużym skrócie ... 1. ... dwa zakresy danych ... 2. ... na podstawie wartości z jednego zakresu ... wyszukać wartość w drugim zakresie ... 3. ... jeżeli makro znajdzie ... wartość to zostawia ją bez zmian ... 4. ... jeżeli natomiast wartości w zakresie jest brak to usuwa cały wiersz zakresu 1, 2 i 3 - raczej jasne ... ale 4 ... ? Który wiersz zakresu...
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Ł...
Dzień dobry, Czy da to się zrobić za pomocą funkcji - jeśli tak to jak? Jeśli nie to makro to ugryzie? Coś takiego przychodzi mi do głowy =WYSZUKAJ.POZIOMO(.....PODAJ.POZYCJE())? W wierszach (nazwy grup) są wartości: A,B,C1,C2.., D (przypisane do dat) W kolumnach są daty czynności. Czy w danym wierszu (nazwie grupy) da się ustawić funkcje, która będzie...
https://obrazki.elektroda.pl/9396852000_... Wstępna ocena dostępnych informacji Na załączonym ekranie widoczne są dane zapisane w arkuszu kalkulacyjnym Excel. Arkusz zawiera trzy główne tabele: 1. Tabela 1 (kolumny A-D): zawiera dane liczbowe pod nagłówkami „LO”, „CW”, „ZW”, „CO”. 2. Tabela 2 (kolumny E-H): na razie wypełniona jedynie w...
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...
Ok, jestem po dłuższej przerwie... Ogarnąłem temat z funkcją wyszukaj.pionowo z wpisaniem treści formuły do komórki: [syntax=vbscript] Range("K50").Formula = "=VLOOKUP('HDK'!A43, 'HDK'!A:E, 5, False)" [/syntax] lub [syntax=vbscript] Arkusz1.Cells(w, kIL.Column).Formula = Application.WorksheetFunction.VLookup("C... Worksheets(Arkusz1.Cells(w, 2).Value).Range("C:E"),...
wyszukaj wiersz makro wyszukaj wyszukaj makro
volvo silnika gdańsk częstotliwość mikser dioda migać
toyota corolla listwa zasilajaca
Intel MEI, AMD PSP – Kontroler PCI Simple Communications w Windows: identyfikacja i sterowniki Poprawa jakości zdjęcia: Canon, Nikon, Sony – redukcja szumu, wyostrzanie, AI super‑rozdzielczość