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...
[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...
Tak masz racje, chodziło mi czy coś takiego jak przedstawiłam jest możliwe do zrealizowanie przez inputboxa. Domyślam się, że jest do zrealizowania. Mogę przygotować konkretny wzór/wzory. Dziękuje z góry za dotychczasową pomoc. Zasiadam do zrobienia wzoru/wzorów w Excelu. Dodano po 1 Podpięłam załącznik Excela o nazwie "wzor2". W nim przedstawiłam dwa...
np: [syntax=vba]Option Explicit Sub bbb() Dim w As Long Sheets("Historia_ZLEC").Select On Error Resume Next w = Columns(4).Find(What:="kierowca", LookAt:=xlWhole).Row On Error GoTo 0 If w = 0 Then MsgBox "Nie znaleziono", vbOKOnly, "Uwaga": Exit Sub If Cells(w, 6).Value = "NIE" Then Range(Cells(w, 4), Cells(w, 6)).Select Else MsgBox "Nie znaleziono",...
W Twoim makrze w miejscu gdzie jest nazwa na sztywno zastosuj funkcję INPUTBOX. Wpisaną wartość (1 lub 2 lub 3 itd) wprowadzasz do nazwy pliku wg schematu" Folder_plików + stałay_przedrostek_nazwy + wprowadzana_wartość + ".xlsx" Jeśli chodzi o kopiowanie komórki to raczej nie pomogę bo ja stosuję VBA do innej aplikacji. Ale możesz zrobić rekording makra...
Zrobiłem coś takiego i śmiga: Sub Wkleja_dane Dim akt_wiersz As Long Numer_prac = InputBox("Podaj numer karty") Windows("XXX.xlsx").Activate Sheets("XXX").Select Columns("A:A").Select Set cell = Selection.Find(What:=Numer_prac, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False,...
Chciałbym też dodać do tego makra zasadę, aby akceptowało przy wyszukiwaniu max 10 znaków. Jak wpiszesz więcej niż 10 to dostaniesz komunikat.(zrezygnowałem z jednego if-a bo anulowanie inputboxa przejmie xFRg) [syntax=vbscript]Sub FindRange() 'UpdatebyArekD2022 Dim xRg As Range Dim xFRg As Range Dim xStrAddress As String Dim xVrt As Variant xVrt =...
no własnie. według mnie mozna by zrobic przycisk wyszukaj i w tym przycisku inputbox i zeby w arkuszu wyszukiwało to co sie wprowadza do inputboxa, a wkolejnym inputboxie wpisac wartośc i ona sie wpisuje w tym wierszu co wczesniej znalazło wynik tyle ze kilka kolumn dalej. tylko nie moge sobie z tym poradzic jak napisac kod
Witam, Przeszukałem forum, ale nie znalazłem rozwiązania. jestem nowym użytkownikiem VBA i nigdy wcześneij nie programowałem, ale skonstruowalem sobie program do faktur, wcześniej już ktos pomagał mi wyedytowac poprawnie kod, moze i tym razem ktoś oświeci mnie na przyszłość. Mam plik faktury, w którym po kliknięciu jedngo z przycisków, kolejno wyskakują...
Witam To fragment kodu z ktróym mam problem i szukam pomocy Do taj pory kod sprawdzał czy w komórce jest wartość i petla działała tak długo jak zakres. Jednak w wypadku kiedy zamiast zakresu dam InputBox czyli "y" petla wstawia w okno przegladarki tekst który jest cały czas wpisany w okno i nie przerywa petli mimo ze w kolumnie B nie ma wiecej wartości....
cześć, chcę w formularzu zrobić przycisk, który wyświetla mi inputboxa1 (zrobiłam go), a następnie drugiego inputboxa, w którym będzie inne pytanie. I odpowiedzi: 1) jeśli w pierwszym było TAK a w drugim TAK, ma się wyświetlać text1 (msgbox) 2)jeśli w pierwszym było TAK a w drugim NIE, ma się wyświetlać text2 3)jeśli w pierwszym było NIE a w drugim...
Witam, Stworzyłem plik EXCEL z makro, który wyszukuje po kolumnie automatycznie filtrując - pokazując przefiltrowanine dane. Problem polega na tym że jak chce wpisać do textboxa z drugiej kolumny program zaczyna szukać po tej kolumnie pomijając filtr z pierwszego textboxa. http://obrazki.elektroda.pl/3810156800_1... Czy jest możliwość...
Wygląda na to, że słabo sprecyzowałem mój problem. Chodzi mi o to,że w momencie, gdy wyświetlona jest formatka z textbox'ami to nie mogę przesunąć arkusz, aby wyszukać dane do wpisania w te textbox'y. Podobnie mam w innym makro. Uruchamiam makro, pojawia się inputbox z poleceniem wpisania danych z arkusza. Jeśli akurat jestem w innej części arkusz,...
Witam serdecznie. Od krótkiego czasu zajmuję się pracą z Excelem oraz VBA i mam do wykonania pewien projekt. Sęk w tym, że nie mam wystarczających umiejętności do wykonania go. Ogólnie moja praca polega na stworzeniu panelu startowego, w którym będą przyciski. Po ich naciśnięciu powinny pojawiać się MSGboxy, wybierające dane z tabeli (w moim przypadku...
Witam, Może ktoś pomoże z taką zagwozdką związaną z autofiltrem: Chciałbym za pomocą funkcji inputbox działającą w pętli wprowadzać kolejne kryteria autofiltra i na koniec uruchomić jednokolumnowy autofiltr z tymi kryteriami. Kod wygenerowany rejestratorem: ActiveSheet.Range("A4:O19... Field:=2, Criteria1:=Array("038/WD", "143/WD", "450/WD",...
Witam, Mam problem odnośnie aktualizowania danych w innym pliku Excela za pomocą ListBox. Tzn, w jednym pliku Excela mam UserForm z Listbox która zaciąga dane z konkretnego pliku Excela. W tym UserForm mam dodatkowo 19 Textboxów do których po kliknięciu na wiersz w Listbox kopiowane są wybrane wartości. Problem u mnie polega na tym że jak chce zaktualizować...
Jak w temacie: jak dodać dane do konkretnego arkusza używając inputboxa w user form, Jak można dodać dane do konkretnego arkusza w momencie kiedy dostaje wiadomość o braku towaru na liście?
Cześć. Otwierając plik nie umiem spowodować żeby z użyciem daty systemowej arkusz od razu otwierał się w tym arkuszu gdzie ta data występuje. Założenie w każdym arkuszu w komórce A1 jest data unikatowa. W skrócie telegraficznym 1 arkusz to 1 data. Arkuszy jest sporo. Mam coś takiego z użyciem InputBoxa [syntax=vbscript]Sub wywołanie_nazwy_arkusza2()...
hmm... a nie było by łatwiej i przyjemniej (a napewno szybciej) gdyby użyć filtrów? [syntax=vb]Sub wyszukiwarka() Dim wartosc As String Dim zakres As Range wartosc = InputBox("Wpisz tytuł filmu, który chcesz wyszukać", "Wyszukiwarka filmów", "", 500, 500) Set zakres = Worksheets("filmy").Range("F4:F327") zakres.AutoFilter Field:=1, Criteria1:="=" &...
Witam Panowie głowię sie od jakiegoś czasu nad jedyn makrem do Excela i brakuje mi jednej rzeczy. Mam pętlę wszystko ładnie działa ale do pełnej automatyzacji prcesu potrzebuje jednej rzeczy. Po zakończeniu pętli chciałbym aby pojawiło się pole wyboru (okienko) i 4-5 aktywnych przycisków, każdy miałby przypisaną inną wartość, przyjmijmy od 1 do 5. W...
Witam. mam do napisanie program , w którym wprowadzane dane w ciągu ( inputbox) - imie, nazwisko, data ur. ,ulica, nr domu, nr mieszkania, kod poczt. i miejscowość. dane maja być rozdzielane za pomocą ( , ) i wpisywane do odpowiedniej kolumny w excelu
Witam Zajmuję się obecnie tworzeniem grafiku zatrudnienia. System jest dwuzmianowy. Wszystko będzie jeszcze rozbudowane, jednak stworzyłem już działające podstawy. Zatrzymałem się w trzecim UserForm3, gdzie należy wpisać dni w jakich pracownicy nie mogą przybyć do pracy, czyli ich wolne. Nie wiem zupełnie jak napisać program by odpowienie wartości z...
Cześć, Mam pewien problem do rozwiązanie. Może ktoś zechce mi pomóc. Potrzebuję utworzyć Okienku UserForm w excelu, które ma wybierać dane na zasadzie filtrowania i wyświetlania danych. Wszystkie dane znajdują się w pliku excel. Zawiera on 1 arkusz: dane Widok User form tak jak w pliku excel. Chodzi o to że w userform: użytkownik z listy rozwijanej...
Cześć! :) Mam taki problem: Mam plik Excela z listą osób: Liczba porządkowa (kolumna B), imię i nazwisko (kolumna C), potem miesiące (od stycznia do grudnia) i suma w kolumnie P. Chciałbym zrobić makro, za pomocą którego wyskoczy mi InputBox, w którym będę mógł dopisać na końcu listy nową osobę. Ponadto chciałbym, aby obok nazwiska tej osoby pojawiała...
Witam mam pytanie odnośnie programowania w vba w excel-u 2007 - chciałbym aby po wciśnięciu przycisku wyskoczyło Inputbox (z tym nie mam problemu) ale chciałbym aby po wpisaniu interesującej mnie treści, znalazła się ona w określonej komórce dla przykładu C3. W momencie kiedy komórka jest już zapełniona (znajduje się w niej już jakiś tekt/wartość) po...
Cześć, Jest to mój pierwszy temat, którego nie mogę przeskoczyć korzystając z wcześniejszych postów, bazy wiedzy wujka google. Do Textbox-a umieszczonego na formularzu chcę dodać'wpisać zakres automatycznie wskazując myszką dowolny plik excel- arkusz i zakres komórek. Problem w tym, że mając wyświetlony formularz okno Excela jest nie aktywne. Chciał...
Witam was serdecznie, Jest to mój pierwszy post oraz pierwsza styczność z VBA. Potrzebuje zrobić w swoim skoroszycie okno, które wyskoczy zaraz po otwarciu pliku. Chciałbym by po wpisaniu liczby do danego pola tekstowego i wciśnięciu przycisku zostały one przepisane dajmy na to do komórki A1. Pozdrawiam oraz liczę na wyrozumiałość :)
Cześć, napisałem poniższy kod w VBA do ochrony wszystkich arkuszy (jest ich ponad 100). Napisałem również taki sam kod do zdjęcia ochrony. Problem polega na tym, że w momencie kiedy uruchamiam makro (zarówno do założenia ochrony jak również do zdjęcia ochrony) wpisywane hasło jest widoczne. Chciałbym, aby wyświetlały się czarne kropki/gwiazdki tak,...
Witam potrzebuję waszej pomocy. Próbuję stworzyć UserForm z dwoma listboxami które bazują na jednym textboxie i jednym comboboxie Pierwszy listbox służy mi do znalezienia użytkownika, nastepnie po wybraniu pozycji w comboboxie (nowy/istniejący) chciałbym aby w drugim listboxie pokazywało mi zamówienia tego klienta (lub nie jeżeli jeszcze nie dokonał...
Witam Szukam wszędzie i nie mogę znaleźć rozwiązania prostego problemu... Mianowicie za pomocą InputBox wpisuje jakiś numer i chciał bym wyszukać go w pierwszym skoroszycie (111) w kolumnie A Jeżeli znajdzie: to zwróci wartość tego samego wiersza z kolumny B przejdzie do skoroszytu o tej odczytanej nazwie i wydrukuje zakres komórek np. (A1:E20) jeżeli...
Witam, mam pewien problem, którego samodzielenie nie potrafie rozwiązać. Mam w arkuszu excela w jednym wierszu, w poszczególnych komórach daty, które odpowiadaja poszczególnym datą reprezentujacycm soboty, niedziele i swieta w danym roku kalendarzowym. W te dni pracuje pewna grupa pracowników. Pod każda data zaznaczam, czy pracownik pracował, czy tez...
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....
Na przykład: Dodano po 2 jest progress , dziękuje a jeszcze mam prośbę jak ewentualnie skopiować komórki z tytułami przed wartościami dla przykładu jeżeli mam załóżmy wyszukany numer 3456 a w wierszu mam imie , nazwisko adres to żeby kopiowało Imie: Jan Nazwisko: Kowalski Adres : Łąkowa 35 etc
Witam Mam takie makro. W kolumnie A w arkuszu są wpisane nazwiska . 1-Zadaniem makra jest wyszukanie wszystkich takich samych nazwisk i wyświetlenie ich . 2-jeśli jest pusty wiersz w kolumnie ; to ma przejść do następnego z nazwiskiem 3- jeśli są trzy kolejne puste komórki to makro ma się zakończyć Teraz makro szuka, ale zatrzymuje się jak jest puste...
Witam. Proszę o POMOC. Do poniższego kodu potrzebuję dopisać, aby "Wyszukaj" działało dodatkowo w obrębie wielu arkuszy. Ewentualnie proszę o inne rozwiązanie, chodzi mi o wyszukanie numeru kontraktu w całym pliku excela. Pozdrawiam. [syntax=vb]Sub Znajdz() Dim szukane As Variant szukane = InputBox("Wpisz szukane słowo", "Wyszukaj") If szukane = ""...
Dzień dobry. Jestem początkujący w VBA i mam pytanie do Szanownego Grona Specjalsów od VBA. Morduje się z pętlą, żeby wyszukała mi wyraz w kilku arkuszach i go podświetliła gdy znajdzie. Może być podświetlenie samego szukanego wyrazu lub wiersza w którym występuje szukana fraza. Załączam kod, który na razie szuka mi wyraz w arkuszach i podświetla go...
Skleciłem taki kod. Sub wyszukaj() Dim tekst As String Dim dana As String Dim w As Integer Set ark1 = Sheets("dane") For i = w To ark1.Range("a65536").E... j = 1 Do While j < 2 On Error GoTo koniec Cells.Find(What:=w, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart,...
[syntax=vb]Sub PrzeniesOsobe() Dim x As Long, OstW As Long, Osoba As String Sheets("Szukaj").Select OstW = ActiveSheet.UsedRange.Rows.Count + 1 x = 1 'Jeżeli arkusz 'Dane' nie ma nagłówka lub x = 2, jeżeli ma nagłówek Sheets("Dane").Select Osoba = InputBox("Podaj nazwisko: ", "Przeniesienie do 'Szukaj'.") While Cells(x, 1) <> "" If Cells(x, 1)...
Hej, Mam problem z excelem. Raz w miesiacu musze uzupelniac tabele ze szkoleniami jakie odbyli 200 osob 37 roznych szkolen. Dane dostaje w wersji Jan Kowalski szkolenia HR 20/01/2019 musze je przepisac do tabeli gdzie w kolumnie mam nazwe szkolen, a wiersze odpowiadaja danym pracownikom. Jestem w stanie do pustej tabeli przy pomocy formul przeniesc...
Hej, Mam problem z excelem. Raz w miesiacu musze uzupelniac tabele ze szkoleniami jakie odbyli pracownicy w danym miesiacu- 200 osob 37 roznych szkolen. Dane dostaje w wersji Jan Kowalski szkolenia HR 20/01/2019 musze je przepisac do tabeli gdzie w kolumnie mam nazwe szkolen, a wiersze odpowiadaja danym pracownikom. Jestem w stanie do pustej tabeli...
Znalazłem i przerobiłem coś takiego: [syntax=vb] Sub Kopiuj_Do() a = Val(InputBox("Soort numer")) Cells.Select Selection.ClearContents y = 2 x = 1 Worksheets("Blad2").Cells(1, 1).Value = "Baan" Worksheets("Blad2").Cells(1, 2).Value = "Pos" Worksheets("Blad2").Cells(1, 3).Value = "Bcode" Worksheets("Blad2").Cells(1, 4).Value = "Artikel" Worksheets("Blad2").Cells(1,...
excel inputbox inputbox excel excel wyszuka
podłączenie dwóch monitorów kopiować pendriva pendriva samsung world
rosyjska głowica rosyjska głowica
Opel - Rozruch tylko po podaniu paliwa do przepustnicy Identifying RS31021513105: Electronics or More?