scalić pomijając kody Och, nie chce mi się już przerabiać (czytaj: znacznie upraszczać kodu, bo tablica w takim przypadku jest zbędna). Dołożyłem scalanie, podkreślanie i takie tam... Resztę sobie dopracuj. Makro wystarczy uruchomić z poziomu arkusza źródłowego (dla ułatwienia dałem przycisk). Na "przywitanie" dostałeś (prawie) gotowca. Ale następnym...
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"),...
Witam, Bardzo dziękuje za pomoc !!! Ale chyba za „cienki jestem” aby zrozumieć zastosowane funkcje i ich składnię – prośba o wyjaśnienie … jak te makra mają działać – i które kolejno: A. - które makro ma być wywołane jako pierwsze … i w jaki sposób ? B. - które makro ma być wywołane jako drugie … i w jaki sposób...
Dziekuje za odpowiedz z kursu napewno skorzystam i wezme sie za prace... poszedlem troche na latwizne i udalo mi sie przerobic czyjes makro i smiga wysmienicie moze komus tez sie przyda pozdrawiam Sub OperacjeHurtowe() Dim wbkSkoroszyt As Workbook Dim i As Long, szukWiersz As Long, wiersz As Long Dim sciezka As String ' okreslam sciezke szukania...
Witam. Proszę o pomoc w przerobieniu makra z Excela 2003 na makro pod Excel 2007. Wywala w linii z : Application.FileSearch ponieważ Excel 2007 nie obsługuje tej komendy. [syntax=vb] Sub OperacjeHurtowe() Dim wbkSkoroszyt As Workbook Dim i, wiersz As Long Dim sciezka As String dato = Range("B3") ' nazwa folderu z plikami do pobrania danych sciezka =...
Szukam rozwiązania jak sobie z tym poradzić Na podstawie Twojego przykładowego pliku (tego drugiego :D z nagłówkami ) widzę, że we wszystkich wypadkach występowania błędu #N/D konieczne jest tylko zdublowanie pozycji z kontami "5". Jeśli to było by tylko tak - to można wykorzystać do korekty proste makro jak w załączonym pliku. Po uzupełnieniu pliku...
Witam. Potrzebuję pomocy z importem wielu plików txt do excela. Pliki txt mają podobne rozłożenie różnią się jedynie wartościami oraz liczbą wierszy. Potrafię stworzyć makro na kopiowanie z wybranego pliku txt określonych kolumn od np 20 wiersza. Dziś potrzebuję stworzyć makro do importowania wielu plików txt znajdujących się np: "c:/a/". Znalazłem...
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...
Przepraszam, faktycznie podałem mało informacji, ale pisząc post zakładałem, że problem jest już rozwiązany, nie szukałem pomocy, chciałem osobom, którym Excel sprawi podobne kłopoty zasugerować, co może pomóc. A to ma sens na dużym poziomie ogólności, wątpię, żeby kod tu wiele pomógł, zwłaszcza mało zaawansowanym użytkownikom makr, takim jak ja. Do...
Chcę aby w arkuszu produkcja kolumna N , wpisując słowo 'got.' formuła przekopiowała mi cały wiersz do arkusza zrobione. No a jak "kolumna N" nie zna dobrze VBA :?: :D To jeśli W Excelu porusza(m) się biegle szuka(m) innych możliwych rozwiązań dla uzyskania pożądanego rezultatu. Przykładowo w Excelu 2007: 1. Porządkuje skoroszyt Produkcja.xls :sprawdzam...
Witam. Nie znam niestety VBA i mogę liczyć tylko na Waszą pomoc. Musze napisać makro, które skopiuje mi dane z pliku csv/txt do arkusza, przypisując jednocześnie nazwę pliku z którego zostało skopiowane.. .To jakby połaczenie tych dwóch kodów: Sub Importuj() Dim rg As Range Dim sciezka As String, plik As String, linia As String Dim T As Variant sciezka...
Witam, Mam problem z edycją Makra (poskładanego z kilku znalezionych, nieco edytowane). Makro tworzy już dodatkowe arkusze zmieniając ich nazwę. Wybiera i zapisuje dane od 2 wiersza w nowych arkuszach. Chciałbym jednak by zaciągał również pierwszy wiersz z arkusza "OPIS" jako nagłówek. Zależy mi również na tym, by automatycznie edytował również szerokość...
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...
W przykładzie użyłem kolumny pomocniczej. Tu podpowiem: w komórkę E2 wklejasz formułę =LICZ.JEŻELI(A$2:A2;"Razem konto") i przeciągasz w dół do końca zakresu. Na wynikach w tej kolumnie opierasz całą resztę. Najpierw funkcja PODAJ.POZYCJĘ, gdzie argumentem "wartość szukana" jest funkcja WIERSZ(). Jeśli komórka wynikowa ma być w...
Mamy tu sytuację, gdzie wiele rekordów, pasuje do wielu. Rozpatrzmy wszystko od końca. Faza III: możemy po prostu zliczyć ilości po obu stronach (podobnie jak w fazie II) i oznaczać "do wprowadzenia" wiersze "jak leci". W obecnym kształcie, makro szuka najmniej dopasowanych w zbiorze (patrz kolejność przypisania zmiennej 'ar')* Być może trzeba dołożyć/zmienić...
Chcesz aby przy kopiowaniu pomijal wiersze, gdzie juz wpisano recznie w kolumnie X? Nie dokładnie o to mi chodziło, ale już znalazłem swój błąd w rozumowaniu. Szukałem makra aktualizującego, a to już dużo roboty, bo opórcz jednej kolumny identyfikującej dane reszta jest specyficzna i unikalna. Dokładnie chodziło mi o to żeby makro sprawdzało, które...
Jeszcze raz dzięki, co do nagłówka już sobie poradziłam (poniżej kod - dla zainteresowanych). Private Sub Dzielenie_Click() Dim wbBook As Workbook Dim wsSheet As Worksheet Dim rnStart As Range Dim rnData As Range Dim i As Long Application.ScreenUpdating = False On Error GoTo myErr Set wbBook = ThisWorkbook Set wsSheet = wbBook.Worksheets("Prowizja&quo...
Makro do przetestowania. Uwagi: 1. Najlepiej wrzucić kod do modułu "normal.dotm". Najprościej: otworzyć Worda z menu 'Start', nagrać dowolne makro wybierając miejsce przechowywanie "szablon globalny". Następnie zastąpić je poniższym, włączyć referencje i zamknąć Worda z zapisem szablonu. Makro będzie dostępne w każdym dokumencie. Żeby nie rozsyłać makra...
Ok, troszke musialem modyfikowac moj arkusz... I musze cala sytuacje nakreslic od nowa: W bazie w "Arkusz1" szukam okreslonego powtarzalnego "tekstu" w kolumnie "H". Jesli znajde np. w kolumnie H5 kopiuje odpowiadajace mu wiersze A5:D5 do "Arkusz2" rowniez do A5:D5 na sam koniec. Unikatowa wartosc wystepuje w kolumnie "A" i chcialbym zeby makro sprawdzalo...
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", ""False"")" Przecież wiersz z tą funkcją znajduje się w procedurze którą zamieściłem w moim poście. Napisałem też, że makro ukrywa to co ma ukryć, natomiast szukam rozwiązania problemu powstającego wtedy, kiedy użytkownik podwójnie kliknie na pasek tytułu Excela - wtedy się wstążka "odkrywa", mimo iż programowo...
Gotowe makro napisane pod Excel 2003: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-09-22, autor sidsysunia ' ' Klawisz skrótu: Ctrl+q ' Sheets("zestawienie").Select p = Range("c1") 'tu sprawdza ile masz pozycji Range("a2:b" & p).Select ' tu zaznacza wszystkie pozycje bez nagłówka Range("a2:b" & p).Copy 'kopiowanie Sheets("przeliczanie").Select...
Coś takiego tylko żeby szukało wiersze z kolumny A wiersze z kolumny B, a nie z A i B. Sub Makro1() 'cała procedura liczy się hoho i jescze trochę (ale tak to jest z VBA) 'dane na Arkusz1, wyniki na Arkusz2 maxrow = 20 'przeszukiwany zakres maxcol = 20 Sheets("Arkusz2").Acti... Sheets("Arkusz2").Cell...
Witam. Poniższy kod z VB Excel potrzebuję przerobić na C# tak by wyświetlał się w datagirdview. Zadaniem kodu jest zliczanie wierszy o takiej samej nazwie w kolumnach A:B, sumowanie wierszy w kolumnie D, usunięcie policzonego wiersza. [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-09-22, autor sidsysunia ' ' Klawisz skrótu: Ctrl+q...
stąd: ostWrs = .Cells(.Rows.Count, "B").End(xlUp).Row Wydaje mi się że nie to chcesz docelowo uzyskać. Myślę że chcesz określić do którego wiersza wpisać dane więc jak na sztywno wpiszesz że ostWrs = 8 to zacznie wpisywać od 9 ale ... dla zrozumienia i nauki: rozbijmy to : ostWrs = .Cells(.Rows.Count, "B").End(xlUp).Row Count to "liczba/ilość wszystkich/kiego"...
Witam, W VBA jestem początkujący , niestety nie mogę sobie poradzić ze stworzeniem poniżej opisanego makra . Mam kilkaset plików w formacie .csv o nazwie RRRRMMDD_prognoza (gdzie: RRRR-rok, MM-miesiąc, DD-dzień). Ich zawartość chciałbym zaimportować do excela tak, by zawartość każdego z tych plików pojawiła się jeden pod drugim (względem narastającej...
Jeżeli możesz umieścić wynik w innej kolumnie niż B to wystarczy formuła: =JEŻELI(DŁ(B2)<=6;B2;(ZASTĄP(B2;SZUKA... Pod warunkiem, że 1.250,00 to 1250. Jeżeli trzeba podstawiać w tej samej kolumnie, to można tę formułę przekształcić w makro, zapętlić, postawić warunki itd Dodano po 4 Eeeh, coś mnie naszło i zrobiłem coś takiego...
Przejrzyj dobrze kod. Ostatnią funkcję masz "zaremowaną". [syntax=vb]'Call GetOnlyGoodValues(x1, x2, x3, x4, x5, x6, x7, x8, x9)[/syntax] Wewnątrz GetOnlyGoodValues wykonywane jest przeszukiwanie. Działa to dobrze bo sprawdzałem, ale generowanie czegokolwiek trwa baaaardzo długo. Zapis do komórek Excela mija się z celem o czym już pisałem. Właśnie dodałem...
Witam. Potrzebuję pomocy w napisaniu makra, które znacznie ułatwi mi pracę. Makro miałoby działać w ten sposób: W kolumnach A, B, C, D znajdują się dane zamówienia. Każde zamówienie jest zdefiniowane w innym wierszu. Algorytm szuka pierwszego zamówienia, które ma wartość "1" w kolumnie D i zapamiętuje jego dane kopiując je do komórek CN4 (wartość kolumny...
Nikt nie chce Ci niczego wytykać i dlatego pewnie brak odzewu. Ale co mi tam... Nie specjalnie interesuje nas wynik z nagrywarki makr bo z "normalnym" VBA ma on niestety niewiele wspólnego :) Powtarzające się ActiveSheet, nadmiarowe i niepotrzebne Select itp rozmywa tylko sens. Cóż, nic lepszego jeszcze nie wymyślono. Założę się, że gdyby ogłosić konkurs...
---> 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...
Dzień dobry, od dłuższego czasu szukam sposobu na zaznaczanie w Excelu wiersza i kolumny aktywnej komórki. Internet jest pełny rozwiązań wykorzystujących formatowanie warunkowe lub wprost kolorujących te wiersze i kolumny, znalazłem jednak leciwy już, ale fenomenalny w swojej istocie kod, który zamiast kolorowania po prostu zaznacza wiersz i kolumnę...
Witam, Bardzo dziękuje za pomoc i podpowiedzi. (at)JRV Masz całkowitą rację - wystarczy odwołać się do If Weekday(kolejny_dzien) = vbMonday Then przez dzień tygodnia, dla: Doc.Cells(p_w + i, p_k).Interior.Color = RGB(122, 122, 122) i wtedy „dopisać kolor tła” (jest w załączonym przykładzie ;-) ) Nie wiem dlaczego „zafiksowałem się”...
Cześć, nadal próbuję sił w VBA. Idzie jak krew z nosa. Tym razem potrzebuję odczytać wartość komórki lub sekwencji z ciągu znaków, która zaczyna się na konkretną cyfrę (znak) "7". Dla rozjaśnienia. Mam zestaw danych w pliku kod.txt, który zawiera zestawy: - złożone z kilku wierszy (ilość zmienna, raz są trzy raz więcej) - poszczególne grupy zawsze zaczynające...
potrzebujesz pomocy z kodem w VBA czy szukasz kogoś kto napisze całe makro? Dodano po 1 Przygotowałem w zasadzie bardzo proste makro: Kopiuje Twój arkusz "x1" (nazwałem go "Template") i w nim zmieniam tylko dane. Nazwę nowego arkusza biorę z arkusza "Wyświetlenie odczytów" z kolumny A czyli "Lp." ale idzie to łatwo zmienić w kodzie (dodałem tam komentarz)...
Korzystam. Sam szukałem możliwości dostania się do tego co wyświetla Excel po zastosowaniu filtra. Wydawało mi się logiczne, że gdzieś to istnieje, bo choćby metoda Subtotal zlicza "to co widać" a nie wszystko, łącznie z tym co ukryte... Dzięki Twoim podpowiedziom prostsze okazało się stworzenie dodatkowej tablicy z parametrami do kolejnego filtrowania....
Przepatrzyłem kilka przykładów z sieci i udało się sklecić coś co działa poprawnie. Abyście nie szukali nadaremno - zamieszczam kod: [syntax=vb] Sub OblatywaczPrototypów() Dim MyDir As String Dim CurrentFile As Variant Dim i As Integer Dim ChosenFile As String ChosenFile = Application.GetOpenFilename(FileFilter:=... Files (*.xls), *.xls", Title:="Wybierz...
p.s. Dzień dobry Panie Macieju, miło Pana widzieć, 01 lutego mi pan pomógł, to jest dalsza część sprawy. Tak, zgadza się, nazwa arkusza to liczba, niestety nie mogę tego zmienić bo nazwa arkusza czyli liczba zaczyna się od ,np. 104,105,120,147,148 itd. Ta liczba oznacza nr kontraktu. Wiem, że może to w przyszłości generować problemy. Sprawa wygląda...
Trochę to nie jest jasne. Chcesz pokazać wszystkie wiersze, gdzie w kolumnie 6 jest data dzisiejsza albo z komórki? Jeżeli tak to poczytaj o Range.AutoFilter i dowiesz się jak to dokładnie zrobić. Proponuję utworzyć zmienną typu String (albo Date, zależy jaki masz format) pobrać tam kryterium filtrowania i potem użyc już gotowego. Niby to samo, ale...
Teraz funkcja działa jak powinna :) Człowiek uczy się cały czas :) Dzięki za wyjaśnienia. Jednak sprawdziłem na 40 tys. danych (40 tys. formuł wpisanych jedna pod drugą z kolejnym numerem znajdowanego wyniku) i ... to rozwiązanie nie zadowoli autora bo... przelicza jeszcze dłużej niż w mojej pierwszej wersji bez makra. (od 15 min mam dla excela 97%...
https://obrazki.elektroda.pl/8440835000_... Jak to się stało? Posiadam dostęp do konta bankowego, w sumie sam je założyłem, jednak nie jest ono na moje dane, to jakiś inny mężczyzna. Jestem zabawny, pulpit posiada dwie ikony: kosz(wiadomo) i nad nim folder ,,zlew". W zlewie trzymam pliki .txt z rekordami login::pass do różnych kont:...
makro szukać koniec wiersz szuka makro makro szuka
ricoh reset bębna wykaz kodów błędów miernik dzwiek
anoda tytanowa sprawdzenie uc3845b zamiennik
Viva VS9000 – tuner cyfrowy DVB-S czy analogowy? Ferguson AF 3018, MPEG-2, satelitarny Zbyt cichy alarm w kuchence Gorenje - przyczyny i rozwiązania