Dzień dobry Chciałbym napisać formułę bez skryptu dowolnie wybrany argument. Klasyczne wyszukaj pionowo zwraca nam pierwszy napotkany argument. Dzięki komendom sort i wiersz możemy napisać formułę wyszukująca ostatni napotkany argument ale czy ktoś ma patent jak wyszukać dowolnie wybrany argument np trzeci lub czwarty.
1. Porównywać daty w instrukcji warunkowej. 2. Wyszukać ostatni niepusty wiersz i podstawić: Range("A" & ostNiepusty).Select
Możesz dokładniej wytłumaczyć (może załącznik zamieścić?) co chcesz osiągnąć, bo nie rozumiem? :) Jeżeli wyszukać ostatni niepusty wiersz w kolumnie z formułami, to np.: ost_wiersz = ActiveSheet.Columns(2).Find(... After:=ActiveSheet.Cells(1, 2), _ SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row...
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ęki pomocy wszystko gra i buczy - DZIĘKI brakowało tam tylko "=" przy wykonywaniu spełnionego warunku w sensie "b<=w" bo jak było samo "<" to nie brało pod uwagę ostatniego wiersza Pozwolę sobie opisać całość żeby kolejni studenci szybciej załapali. https://obrazki.elektroda.pl/9736696500_... https://obrazki.elektroda.pl/2550083000_...
Na początku musisz ustalić długość kolumny, którą będziesz przeszukiwać tzn. ostatnią niepustą komórkę. Możliwe jest to za pomocą: Application.WorksheetFunction.CountA(... Do wyszukania wartości użyć można: Selection.Find() Cały wiersz zaznaczasz za pomocą: Rows().Select Zaznaczony wiersz kopiujesz: Selection.Copy Wklejasz: Range().Select...
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...
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...
Zacznij od wyszukania ciągu i przypisania Nr wiersza: [syntax=vb]wrs = Columns(1).find(what:="OVERALL RESULT", lookat:=xlwhole).Row[/syntax]Jeśli to jest ostatni wiersz zakresu, to już z górki. Np [syntax=vb]Cells(wrs, "E").Formula = "=SUMIF(D:D,""aa"",E:E)"[/syntax] Bez VBA 1. W F1 wpisuję: =SUMA.JEŻELI(d:d;"aa";e:e) 2. W E1: =JEŻELI(A1="OVERALL RESULT";F$1;C1-B1)...
A jak ograniczyć żeby nie sprawdzało całego arkusz jak dam wiersz=wiersz+1? Pętla przerwie działanie jeśli trafi na pustą komórkę, więc jeśli w danych nie ma "dziur", to nie ma problemu. W innym przypadku musisz wyszukać ostatnią niepustą i do niej ograniczyć licznik pętli.
Te odległości między liczbami niewiele mają wspólnego z tytułem tematu i z poprzednimi pytaniami. To powinien być nowy temat. Poprzednio dane były odczytywane wierszami, teraz chcesz je odczytywać kolumnami. I obliczenia też muszą być inne. Problematyczne dla mnie jest to łączenie kolumn w jedną w aspekcie liczenia odległości. Trochę to abstrakcyjne....
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Ł...
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]
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...
Uruchom wiersz polecenia (cmd) jako administrator. Wyszukaj > cmd > klikasz prawym i uruchom jako administrator. Później wydaj komendę bcdedit /set nointegritychecks OFF Uruchom ponownie komputer. Ew. przeinstaluj ten sterownik który ostatnio instalowałeś.
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, Arkusz to baza pojazdów w mojej firmie. Arkusz ogólnie robi wiele innych rzeczy ale obecnie utknąłem na zapisie dotyczącym paliwa a dokładnie wyliczaniu pokonanego dystansu od jednego tankowania do drugiego by na bieżąco wyliczać średnie zużycie paliwa. Kombinuje z tym by po uzupełnieniu ostatniego wolnego wiersza - dane beda wpisywane w wyswietlane...
Witam, poproszę o pomoc w rozwiązaniu następującego problemu. W kolejności: włączam komputer, dochodzi do ekranu powitalnego, klikam myszką, pojawia sie ekran logowania, wpisuję hasło, klikam strzałkę zaloguj i w tym momencie pojawia się czarny ekran z kursorem myszki i kręcącym sie obok kółeczkiem. To kółeczko dodam kręci sie już od momentu włączenia...
Można także zainstalować aktualne oprogramowanie na płytach FAKE. Proszę najpierw przeczytać do końca!! Metoda: 1. Pobierz firmware hexfile z jyetech https://jyetech.com/firmware-dso-150-she... 2.Pobierz konwerter hex2bin z Sourceforge https://sourceforge.net/projects/hex2bin... 3. Skopiuj plik hexfile do folderu z plikiem hex2bin.exe 4. Przekonwertuj...
Masz racje, zapomnialam zamienić formule na wartości w makrze. Chcę aby formuł nie było ostatecznie ponieważ przy dużym pliku z np 50tys wierszy będzie plik dość ciężki przy kilku takich kolumnach z różnymi formułami (też bardziej złożonymi). Więc wolę uruchamiać makro i żeby ono wpisało wynik i zmieniło formuły na wartości. Gdy się coś zmieni po prostu...
Najprościej w twoim przypadku zaimportować arkusze do jednej tabeli (normalizacja) w bazie danych (np. Access). Dodaj oczywiście klucz, mówiący z jakiego arkusza dany wiersz pochodzi. Potem za pomocą kwerend wyszukasz to, czego dusza zapragnie. Nasuwa mi się dygresja - po dość długiej już obecności na forum - że ludzie uparcie dążą do zrobienia bazy...
Witam Proszę o pomoc. Potrzebuje wykorzystać poniższy kod do wyszukania określonego tekstu w skoroszytach zapisanych w katalogu "DANE" i skopiowania całego wiersza do skoroszytu "Zbiorczy" Jednym zdaniem chodzi o wyszukiwanie tekstu w wielu plikach xls i zapisywanie ich do jednego arkusza. Czy jesteście w stanie mi w tym pomóc? kod: Sub OperacjeHurtowe2()...
Automatyczna naprawa za pomocą Narzędzia do naprawy systemu podczas uruchomienia Naprawa MBR Komenda 1: bootrec.exe /fixmbr Komenda 2: bootsect.exe /nt60 all /force /mbr (narzędzie znajduje się na płycie instalacyjnej w folderze x:\boot; przełącznik /force wymusza nadpisanie mbr Te polecenia pozwalają naprawić główny rekord rozruchowy (MBR). Naprawa...
witam mam problem nad którym debatuję juz 2 dzień i bardzo prosze o pomoc. mam plik w excelu w którym w kolumnach notuję ceny z kolejnych dostawy w wierszach asortyment. Nie zawsze kupuję każdy asortyment wiec w przypadku kiedy nie ma go w dostawie w arkuszu pojawiają sie 0. W osobnej kolumnie potrzebuję aby excel wyliczał mi cenę z ostatniej dostawy....
Witajcie, Chciałbym do was zwrócić się z problemem w Excelu. Mianowicie, mam tabelę: http://obrazki.elektroda.pl/6613358500_1... Wiersz nr 1 zawiera daty, niemniej komórki z danymi (czyli datami) nie są jedna obok drugiej. Wiersz nr 2 zawiera nr tematów (np. na mojej rozpisce pod nr 1 znajduje się temat xy) Jak można zauważyć, tematy...
No teraz załapałem skąd co się bierze ;) Jednak staram się to przerobić na konkretny już przykład, jak na razie z mizernym efektem :cry: Jak by ta formuła miała wyglądać w następującym przypadku (dodam że główny problem to to, iż program sprawdza zawartość podanej komórki i wyrzuca zawartość tej kolumny (z konkretnego wiersza) który jest podany w komórce....
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...
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...
Dobra ostatnia rzecz która mi do głowy przychodzi. Simsy są zabezpieczone zdaje się za pomocą SecuROM. Uruchom konsole tekstową (wiersz poleceń) jako administrator. Nie pamiętam już Visty dokładnie. Ale zdaje się jak otworzysz pasek start i tam w polu wyszukiwania wpiszesz "cmd" to wyszuka ci to co trzeba prawym na tym i uruchom jak administrator. http://obrazki.elektroda.pl/6737261100_1...
hehe tak jak z fizyką jądrową :p znalazłem taki kod który działa w moim przypadku prawie dobrze tylko próbuję go trochę zmodyfikować ale mi nie wychodzi. Trochę topornie ale działa:) Dim OutCel As Range Dim InpZbior As Workbook Dim OstatniWiersz On Error Resume Next ChDrive ThisWorkbook.Path ChDir ThisWorkbook.Path On Error GoTo 0 ListaZbiorow = Application.GetOpenFilename("ze...
"Mój tekst" Sheets("Arkusz2").Range("D4")
Ostatnio zauważyłem, że po zamknięciu jakiegokolwiek okna i powrocie do pulpitu system często odświeża skróty programów które znajdują się na pulpicie (WinXP). Bardzo to zamula system. Komp w pewnym momencie nie reaguje na polecenia myszki czy też klawiatury. Po kilku sekundach system wraca do "normalności". Kiedyś nie miałem tego typu problemu a teraz...
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...
Witam! Od czasu do czasu korzystam z VBA lub po prostu rejestruję proste makro, żeby ułatwić sobie pracę. Ostatnio natrafiłem na problem. Zarejestrowałem proste makro ułatwiające dodawanie kolejnych odczytów do tabeli w arkuszu, który jest częścią większego skoroszytu, ale innych makro w nim nie ma. Ku mojemu zdziwieniu okazało się, że makro czasem...
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....
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);...
Mam dużą tabelę, która przyrasta o jakieś 500 wierszy miesięcznie. W jednej z kolumn są wypisani pracownicy wraz ze swoimi roboczogodzinami. Żeby było trudniej, to w każdej komórce kolumny z RBH może być od jednego do nawet 5-ciu nazwisk wraz z liczbą RBH. np. komórka: Kowalski 3 Nowak 4 Kliczko 5 Kolejności nazwisk w komórce są różne, a potrzebuję...
jakby wyglądał kod ten co wyżej bez powiadamiania o błędzie (to niestety przeszkadza) z czyszczeniem pola tekstowego (po wstawieniu przeze mnie czyszczenia niestety całość się zapętla i wychodzi zupełnie coś innego niż powinno) Nie do końca wiem o jaki komunikat ci chodzi. Czy o ten: "Brak danej w zbiorze". Jeżeli tak to wykasuj linię aa = WorksheetFunction.Match(Target(1),...
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...
Próbowałem w ten sposób zrobić makro. W zeszycie 2 zaznaczam to co mnie interesuje następnie kopiuje do ostatniego filtrowanego wiersza w zeszycie 1, tylko coś mi to nie wychodzi mógłby ktoś zerknąć? Poniżej kod: (powstały w oparciu o to co udało mi się wyszukać jeżeli bardzo źle to wygląda proszę o wyrozumiałość :)) Range("A1:H4").Select Application.CutCopyMode...
Chyba jednak się nie zrozumieliśmy... Załączam zrobiony na szybko załącznik ilustrujący ideę. Zależy mi na pominięciu okienka wyszukaj/zamień. Bo w tej chwili żeby powyższy sposób zadziałał muszę na dzień dobry wywołać okno wyszukiwania czyli ctrl+f, Nigdzie nie pisałem o tym okienku. Nie musisz go wywoływać. Wyszukujesz za pomocą funkcji wyszukaj.pionowo....
Po mojemu: zbyt mały rozmiar tablicy, "niekopiowalny" trzeci argument, ostatni powinien być "dokładne przeszukiwanie" (FAŁSZ). Spróbuj =WYSZUKAJ.PIONOWO(B$12;'Adresy obiektów'!A:K;WIERSZ()-16;0&... Wpisz formułę w B18 i przeciągnij/skopiuj w dół.
Witam Mam problem z komputerem. Wczoraj podczas próby uruchomienia starszej wersji systemu (xp, bo mam 2 systemy zainstalowane) włączyło się skanowanie dysku D i zaczęło się kasowanie plików – „usuwanie segmentu rekordów oddzielonego pliku” więc zrestartowałem komputer aby nie utracić danych (a nie było innej możliwości przerwania...
Prościej chyba się nie da. Z tym, że w tym przypadku nie szukasz k-tej naj/mniejszej/większej, więc wystarczy MIN, MAX (tablicowe). Np =MAX(JEŻELI(Dane!$A$2:$A$613... Możesz oczywiście "skomplikować" sobie użyciem kolumny pomocniczej w arkuszu "Dane" i wtedy wystarczy "zwykłe" MIN/MAX, ale po...
Witam. Dostało mi się w pracy dziwne zadanie... Na podstawie pewnych raportów przejazdów samochodów mam sprawdzać moment, w którym samochód dojechał do ostatniego punktu na zaplanowanej trasie. Tras jest aktualnie niewiele, ale w związku z dynamicznym rozwojem firmy i nowymi wymogami stawianymi przez "górę" (początkowo chodziło o sprawdzanie tylko miejsc...
Projekt programu w c++, napisany razem z AI: Mini RAG połączony z ręcznym lub automatycznym indeksowaniem plików tekstowych, i mini serwerem Http. W załączniku program, kod źródłowy oraz układ katalogów, które należy zapełnić plikami. Programu Mini RAG jest przeznaczony dla budżetowych komputerów. To jest wersja rozwojowa, edukacyjna, do domowych eksperymentów,...
http://obrazki.elektroda.pl/4155164900_1... Witam wszystkich Tym razem chciałbym zaprezentować jeszcze programowy projekt radioodbiornika internetowego. Prezentowany projekt jest rozszerzeniem przedstawionego wcześniej projektu odtwarzacza i dyktafonu na STM32F407VG. Połączenie z Internetem zapewnia moduł WiFi WF121-A (internal antenna)...
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...
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.
wyszukać wiersz ostatni wiersz wyszukać ostatni kolumna
ciśnienie akustyczne głośność napełniać drukarka karta pamięci goodram
Zwiększenie prędkości kursora w X-Mouse Button Control Brak podświetlenia i gaśnięcie Skoda Octavia 2.0 TDI
