'1. Znajduje ostatni wiersz w bazie '2. Dodaje nowy wiersz '3. Kopiuje wiersz 4 z Input do bazy '4. Wyszukuje produkty z Inputu w Bazie :?: A po co wyszukiwać skoro z powyższego zapisu wynika, że ten "produkt z inputu" będzie w nowym wierszu (dokładnie :please: Wiersz+1 ) Proponuję dokładnie przemyśleć budowę swojej bazy (czy to ma być baza produktów...
w kolumnie D mogą być zarówno nazwiska jako Text jak i wartości numeryczne Jakim sposobem nazwiska mogą być numerami? jeżeli jest nazwisko może być kilka identycznych nazwisk - stworzenie przycisku next, który szukał by następnego klienta o tym samym nazwisku i ponownie dane do labeli Kod którym zakodowałam szukanie po Id H poniżej. Proponuję przerobić...
Wynik Trim zapisz do zmiennej. Jeżeli wynikiem jest pusty wiersz to zrób clear zaś jeżeli nie to wpisz wynik do komórki.
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.
Chciałbym, żeby to makro wyszukiwało mi ostatni wolny wiersz i tam wklejało dane z plików, czyli: [syntax=vb]wiersz = Sheets("dArk").Range("C65536").End(xlUp)... + 1[/syntax] Niestety moja znajomość VBA jest na razie (mam nadzieje :D ) na niskim poziomie i dołączenie tej części kodu wywala mi błąd. Druga rzecz. Pobierane dane nie zawsze są tej samej...
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_...
Pisząc kod jak poniżej: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then wszystko działa tak jak chciałem, ale tylko w zakresie podanej komórki. A czy można i jak zapisać aby działało w całej kolumnie? I jeszcze jedno pytanie: Wiersz = ActiveSheet.Cells(ActiveSheet.Rows.Count... "D").End(xlUp).Row -formuła wyszukuje...
Super to wygląda :) Bardzo dziękuję. Chciałbym prosić o ostatnią modyfikację: czasami nazwisko znajduje się za imieniem np. Agnieszka AAAAA - w obecnym stanie macro nie wyszukuje "AAAAA" - czy mógłbym prosić o korektę kodu?
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]
Cześć, nie jestem biegły w VBA i zwykle swoje makra tworzę przez nagrywanie. Potrzebuję makra, które będzie wyszukiwać pierwszy wolny wiersz, zaznaczy zakres kilku kolumn (np. od A do B) i będzie sumować wartości. Cały szkopuł jest w tym, że dane, które będą sumowane miewają różną liczbę wierszy. Dlatego nagranie sumy nie zdaje egzaminu, bo zawsze sumuje...
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, potrzebuje pomocy na utworzenie makra - postaram sie dobrze wytlumaczyc tabela 1 : kolejnosci rozladunkow- ktore zmieniaja sie w trakcie pracy mamy max 10 rozladunkow na auto. 1 kolumna- klient, 2 kolumna- tempteratura, 3 kolumna- kod trasy tabela 2 : lista wszystkich klientow przewidzianych w ciagu dnia do rozladunku 1 kolumna- liczba palet:...
Dobry wieczór. Zwracam się z prośbą o wskazówkę czy coś można usunąć w logach. Wczoraj wieczorem niespodziewanie pojawił się na ekranie wiersz poleceń na niebieskim tle i zaczęło coś się w nim wpisywać. Nie wiem dokładnie co to było, ale podobne do admin/system... i coś dalej. Natychmiast został odłączony internet. Komputer przeskanowany Defenderem...
Witam jak w temacie nie działa mi wyszukiwarka w systemie Windows 10 Wersja 10.0.18363 Kompilacja 18363, mianowicie nie mogę nic wpisać w pasku zadań w opcji wyszukiwania, tak samo nie po kliknięciu klawisza Windows i próby wpisania z klawiatury np. kalkulator, nie wyszukuje mi w menu start tego kalkulatora (taki przykład). Próbowałem już naprawić to...
Dzień dobry, Excel nie jest stworzony do obróbki tekstów, ma ograniczony zestaw funkcji tekstowych, więc tego typu zadania są dość trudne i rzadko daje się znaleźć rozwiązania uniwersalne. Dane wejściowe muszą być dokładnie zdefiniowane, bo trzeba określić jakieś zrozumiałe dla Excela kryteria wyszukiwania. Dlatego ważny jest w takim przypadku załącznik...
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()...
No właśnie o tym zapomniałem , a jest to bardzo ważne tzn. kolumna A - NR.budowy jest zależna od kolumny N która jest okresem pobytu pracownika na wybranej budowie tzn. pracownik o ID 01072 przebywał na dwóch budowach 348,339 w okresie 17-29 na 348 i 1-16 na 339 i teraz przy składaniu ręcznym lista płac jest przypisana do ostatniego dnia na budowie...
Witam. Poszukuje informacji jak napisać makro lub przykładu takiego makro które przeszukiwałoby kolumnę A i jeżeli znajdzie dwie lub więcej komórek które mają ten sam numer (przykład numeru: 1.1.15.202) gdy znajdzie chciałbym by wówczas dodało do siebie wartości z tych wierszy (wiersz zawiera 12 komórek) gdzie są wartości liczbowe, dodam że nie wszystkie...
Pustość w określonym wierszu da się wykazać np. sortując wiersze, ale widzę, że sortowanie u ciebie odpada. Można wykryć pusty wiersz w danej kolumnie "stojąc" w niej wcisnąć najpierw END, a potem strzałkę w dół (lub w gorę dla wstecznego wyszukiwania). Można to zastosować w kodzie VBA + zrobić makro w stylu "skocz do następnego pustego rekordu". Ostatni...
To nie idąc na łatwiznę, w ramach nauki, algorytm powinien wyglądać następująco: • ustalasz ilość wierszy do wyszukiwania na podstawie ostatniej nie pustej komórki w kolumnie E • w pętli przechodzisz poszczególne wiersze w kolumnie E porównując czy wartość w komórce jest zgodna z szukanym wzorcem np. "WSTRZYMANY" • jeżeli nie jest...
Dziękuję za ostatni kod bardzo mi pomógł. Mam jeszcze jedną pewnie ostatnią prośbę. Chciałbym że dla każdego pliku w katalogu po operacji zapisania pliku, excel sprawdził jedną kolumnę w której raz na jakiś czas pojawi się "+" i jeśli się pojawi to żeby nazwa pliku została zapisana do worda. (Tak żebym miał w wordzie na koniec listę plików w których...
To jak pizsesz resztę programu? Bo to świadczy o jakimś dużym niezrozumieniu problemu. Chodzi mi o przejrzystość programu. Wyszukiwanie ręczne znaku z tablicy jest powolne. Ale na chwilę obecną nic mi nie wyświetla LCD. Pierwszy wiersz pełnych prostokątów. Wygląda na to że wyświetlacz reguguje tylko na ostatnio wysyłaną komendę. Np. jak wysyłam ostatnią...
We wszystkich podobnych przypadkach, a jest ich już ostatnio kilka, chodzi o to samo. Dla potomnych: Rzecz w tym, że sprawdzane liczby muszą być unikatowe/różne. Dlatego należy dodać do wyniku formuły, który może być równy w wielu przypadkach, ułamek wyniku funkcji WIERSZ(), który będzie różny w każdym wierszu, lub NR.KOLUMNY() dla działań w poziomie....
Sortowanie załatwiłem przez nagranie makra i skopiowanie tego co chciałem jak tutaj: Range("A:I").Sort Key1:=Range("B2"), Order1:=xlAscending co do wyszukiwania ostatniego wiersza z nazwiskiem możesz zrobić w pętli przez porównanie. Np (dla wierszy od D2 w dół) taką jak poniżej, to nie wiem za bardzo jak...
Dalej nie do końca rozumiem o co ci docelowo chodzi. Po twojej ostatniej wypowiedzi wnioskuje że chcesz mieć jedynie jakieś zabezpieczenie przed dublem gdy będziesz nadawał numery wewnętrzne dla danej "grupy" KOD EAN/INDEX/ NAZWA. Więc sortowanie nie będzie konieczne, tym bardziej jak kody będą wprowadzane "czysto" ręcznie. Poniżej (na razie bez makr)...
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...
Up Witam, Mam mały problem i mam nadzieję, że pomożecie mi. Potrzebuje makro które: 1. Przeszuka mi około 60 arkuszy pozycje np. 'Malina'. Informacja szukana znajduję się zawsze w kolumnie 'B'. 2. Potem skopiuje cały wiersz z tą informacją. Bo potrzebne mi są wszystkie informacje z wiersza gdzie znajdziemy 'Malina'. 3. Zapisze mi to w arkuszy o nazwie...
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ść...
Witam. Mam pliki 1.xls który ma w kolumnie A wpisane niepowtarzające się numery. Drugi plik 2.xls do którego chcę skopiować numery, wszystki od ostatniego w pliku 1. http://obrazki.elektroda.net/30_12556027... Mam takie kody, z których można skorzystać, bo działają, w innym pliku. I na ich podstawie wykonują się inne funkcje. Ale nie wiem jak...
1. Jeśli połączysz imię i nazwisko w kolumnie pomocniczej (=A2&" "&B2), to będzie już możliwe uzyskanie unikatów (osób/pracowników). Jeśli tabela przestawna nie zwraca Ci oczekiwanych rezultatów, pozostaje wykorzystanie funkcji wyszukiwania. W kolejnej kolumnie pomocniczej indeksy (kilka tematów niżej był przykład z JEŻELI(LICZ.JEŻELI()=1;MAX();itd)...
Ogólnie tu jest kwestia poprawnego żonglowania Do while Cells(i,1) <> "" (czyli określenie ostatniego zapisanego wiersza) , warunku if i poprawności adresacji komórki przez liczbę( czyli dla celnego określenia użyj sformułowania Sheets(" [syntax=vbscript] Dim i, c, d As Integer Dim dzien As String i = 1 c = 1 d = 1 'określenie ilości komórek...
Witam, Myślę że po dwóch latach trochę bym inaczej ten kod dzisiaj napisał (czytaj: uprościł), mianowicie: n , domyślnie równą Nothing .
Jakieś sugestie jak można to zrobić? Z pełnym szacunkiem dla założeń Twojego projektu, lecz pierwszy krok, który musisz zrobić to wszystko dokładnie przemyśleć :idea: . 1. Musisz znać precyzyjnie strukturę plików źródłowych i wynikowych; (nie może być tak, że szukasz w kolumnie A tekstowych nazw produktów - typu "żżżż " i jednocześnie w tej samej kolumnie...
Piotrus_999 niestety żadna odmiana języka C mi nie "podchodzi". Jak ktoś się uczy to powinien słuchać rad ludzi bardziej doświadczonych. Ciekawe co znaczy nie podchodzi? Ale jak chcesz pisać jakieś program to niestety o asemblerze musisz zapomnieć. Ale dalej Twoja sprawa. Każdy ma prawo się katować na sposób przez siebie wybrany :) Aby sprawdzić jak...
a co ze znakami "+-E,." (plus minus E przecinek i kropka)? no i jeszcze wielkie liczby jak będę miał więcaj czasu to jeszcze pomarudzę ;) tak czy siak Dialerowi należą się podziękowania (poza tym bąbelkiem, wrrrrr ;) ) -------dopisek--------- tJanusz: - bez sensu? no nie całkiem. - eof konieczny? wcale nie bo zobacz w programie Dialera wystarczy pętlę...
"Mój tekst" Sheets("Arkusz2").Range("D4")
mam błędy z źródła Application Error i .NET Runtime oraz ostrzezenia z źródła winlogon i Search i Perflib Błędy z źródła Application Error, .NET Runtime oraz ostrzeżenia z źródła winlogon, Search i Perflib mogą wskazywać na różne problemy z systemem Windows lub zainstalowanymi aplikacjami. Oto kroki, które możesz podjąć, aby zdiagnozować i rozwiązać...
Rzeczywiście - nie tu deklaracja początkowych zmiennych a i b Tak powinno być [syntax=vb]Sub trzeci() Dim a As Double Dim b As Double Dim c As Double 'Worksheets("dane").Select 'Start przeszukiwanych kolumn c = 1 While Len(Cells(1, c).Value) > 0 'Jeżeli nagłówek kolumny jest "cena" to wykonaj If Cells(1, c).Value = "cena" Then 'Start tabeli a = 2...
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...
witam, mam za zadanie zrobić grafik do pracy jeden arkusz w którym każdy będzie mógł sobie wpisać urlop. a czas pracy dniówki/nocki oznaczony jest kolorami jasny/ciemny. drugi problematyczny arkusz to arkusz dla kadr tzn godzinowka z wykazem godzin przepracowanych w danym miesiacu oraz nadgodzin. pracownikow jest ok 50 wiec troche pisanie zawsze pod...
Witam Mam komputer znajomej (laptop Toshiba) który nie chce się uruchomić. System operacyjny jaki na nim jest to Vista Home Basic. Problem objawia się czarnym ekranem w momencie wczytywania systemu (nic nie było instalowane, po prostu od razu czarny ekran przy starcie się pojawił) Próbowałem uruchomić w trybie awaryjnym nic nie dało Próbowałem uruchomić...
Obejście konta z ograniczeniami.: 1. Jesteśmy zalogowani jako użytkownik z ograniczonymi prawami (konto musi mieć hasło jak nie mam to je zakładamy {menu start> panel sterowania> konta użytkowników> wybieramy konto, na którym jesteśmy obecnie zalogowani> i klikamy na utwórz hasło> wpisujemy hasło w podane dwa pola> klikamy na utwórz hasło). 2. Przechodzimy...
Jak najbardziej należy się uczyć i VBA ale z kolei nie wszystko na raz. Piszesz że słabo znasz excela (funkcje) a chcesz się brać od razu za VBA. Można ... tylko boje się że się wcześniej zniechęcisz całkowicie do excela nie tylko do VBA (tym bardziej jak nie miałeś do czynienia z jakimkolwiek programowaniem). Poniżej kod i przykład który za przyciśnięciem...
Witam, mam problem z programem napisanym w Excelu 2003, sprawa wygląda tak: mam jeden arkusz z danymi zaprojektowany w ten sposób że każda kolumna zawiera dane jednej grupy produktów w początkowych wierszach następnie jest jeden wiersz z typem danej grupy produktów a następnie znajdują się kody poszczególnych produktów każdy w osobnym wierszu (jeden...
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...
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....
Dzień dobry, jeżeli jest taka możliwość, to proszę o pomoc w sformułowaniu niżej zdefiniowanych formuł, bo sam zapętliłem się. Formuły mają wyszukiwać ostatnie po lewej stronie, w stosunku do kolumn KW1 i KW2, komórki i zwracać ich zawartość. Występują dwa rodzaje zawartości: liczba i charakterystyczny tekst. Charakterystyczny tekst zawsze składa się...
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...
Witam Czy ktoś miałby chwilkę i mógłby mi pomóc? (może być makro lub jeśli się da to funkcje z arkuszem pomocniczym). Mam problem z kopiowaniem wierszy i ich dublowaniem do gotowego arkusza. Mam skoroszyt, który zawiera 3 arkusze robocze: "Re_1", "Re_2" , "Re_3" oraz arkusz wynikowy "Wynik". Do "Re_1", "Re_2" , "Re_3" dopisywane są nowe wartości. Potrzebuje...
Witam! Chciałbym uprościć sobie codzienne wpisywanie danych na koniec zmiany roboczej, bo obecnie muszę codziennie wypełniać 5 różnych skoroszytów (plików raportu) stworzyłem plik o nazwie „!wpisywanie” który po uzupełnieniu zawiera wszelkie dane potrzebne do uzupełnienia każdego z pliku raportów i chciałbym go odpowiednio zaprogramować...
ostatni wiersz wyszukać ostatni wiersz znaleźć ostatni wiersz
filtr skuter naprawić zmywarka candy peugeot partner filtr paliwa
Wentylator w opalarce MacAlister MHG2000 nie działa Czas mnożenia liczb całkowitych przez komputer
