userform textbox

[VBA/Excel] UserForm z polem TextBox

[syntax=vbscript]Private Sub CommandButton1_Click() Dim W As Workbook Set W = Workbooks.Open("C:\PlikiExcela\Zeszyt1.x... W.Sheets(1).Range("A1") = Me.TextBox1 W.Close vbYes End Sub[/syntax]

Jak ustawić format daty w TextBox w UserForm w Excel VBA?

Nie, w UserForm, w sekcji UserForm_Initialize: Private Sub UserForm_Initialize() MultiPage1.Value = 0 DTPicker1.Value = Date MultiPage1.Value = 1 DTPicker2.Value = Date MultiPage1.Value = 2 DTPicker3.Value = Date End Sub

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Błąd w wyborze wskazanej komórki danego wiersza.

W poprzedni temacie załączony plik był pozbawiony tych błędów. Popełniłeś dwa błędy podczas dostosowywania kodu do własnych potrzeb: 1. W Arkuszu1 w kolumnie B muszą być unikalne wartości. Po tej kolumnie wyszukujemy wybraną pozycję z listy. W przesłanym pliku była pusta i dlatego był błąd wynikający z kodu: [syntax=vbscript] indeks = Application.Match(szukana,...

VBA Makro wyszukujące datę zgodną z datą w userform w textbox

Witam wszystkich, jako że dawno nie miałem okazji popracować z makrami to niestety pojawił się problem potrzebuje napisać makro które przeszuka cały skoroszyt z 41 arkuszami i aktywuje ten który w komórce B1 ma taką samą datę jak w userform wpisaną w textbox. Dzięki za wszystkie podpowiedzi.

Makro VBA do wprowadzania danych na serwer SQL z arkusza Inserter

próbuję właśnie formularzem, mam formularz i TextBox1, TextBox2... i na końcu ComboBox1. W załączeniu podesłałem jak wygląda. Teraz musiałbym do przycisku dodać pewnie to makro które pisałem, a do zmiennych tych WIP, TAT itd podłączyć jakoś że ma brać wartości z pól w userform textbox 1, 2,itd. tylko nie wiem jak. Podpowiedz plz

Excel VBA - Formatowanie dat w wielu TextBox-ach jednym makrem

Witam Do formatowania dat w TextBox-ach używam poniższego makra. Jak zrobić, żeby takie jedno makro działało na wielu TextBoxa-ch o różnych nazwach? Potrzebuję, aby to makro działało na około 60 TextBox-ach. Jak mogę dodać je do tego makra? [syntax=vb]Public Function FormatyDat() As String With UserForm .TextBox = Replace(.TextBox, "-", ".") .TextBox...

Jak napisać makra w VBA do Worda? Zadania z informatyki dla rodziny

Pierwsze zadanie moze byc wykonane za pomoca procedury: Sub ReverseText() Selection.TypeText (StrReverse(Selection.Text)&... End Sub Drugie byc moze powinno wygladac tak: Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 32 Then TextBox1.Locked = True End If End Sub ... oczywiscie po wczesniejszym...

VBA Excel - TextBox: Jak wyświetlić aktualną zawartość komórki?

miał na myśli przykładowy plik programu Excel z tym UserForm

EXCEL VBA - Enter kwadraciki po przeniesieniu danych do arkusza z TextBox'a

Witam znowu mam kłopot - mam na UserForm TextBox, z którego po naciśnięciu klawisza Wstaw dane z TextBox'a wstawiają mi się do Arkusza w wyznaczoną komórkę kodem: [syntax=vb] Private Sub Wstaw_Click() Range("A222").FormulaR1C1 = TextBox18.Text End Sub [/syntax] Problem pojawia się, gdy w TextBox przechodzę Enterem do kolejnej linii, bo po przeniesieniu...

VBA Excel - Jak wyświetlić dane z arkusza w textbox na userform?

Prośba o pomoc. Potrzebuję rozwiązać taki problem: mam utworzony userform z dwoma textboxami. Jak napisać procedurę aby po wpisaniu tekstu do textbox1 w drugim textbox2 wyświetlana była wartość przypisana w bazie do wartości w textbox1. Innymi słowy, jeśli w arkusz1 komórce A1 jest wartość "ZORRO" a w komórce B1 jest wartość 23 to chciałbym aby po wpisaniu...

Excel VBA - Automatyczne sprawdzanie istnienia plików PDF w folderze

Witam. Bardzo proszę o pomoc w napisaniu odpowiedniego kodu, niestety ja sobie nie umiem z tym poradzić.  Potrzebuję aby kod sprawdzał mi czy w wybranym folderze istnieje plik "PDF". Dokładnie to mam w oknie UserForm TextBox o nazwie "txtNazwiskoImie" w którym pokazuje mi się pracownik. W osobnym folderze (ścieżka folderu jest taka sama jak główny plik)...

Vba textbox w arkuszu zwraca datę

Cześć, przychodzę z takim problemem: w userform dodałam textbox, w który należy wpisać datę. Mój kod to na razie coś takiego: [syntax=vbnet] Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0 MsgBox "Wpisz cyfre!" End If End Sub Private Sub TextBox1_change() TextBox1.MaxLength = 10...

Excel 2010 VBA - formatowanie czasu w UserForm i ListBox

Proszę o pomoc. Próbuję stworzyć aplikację "Menadżera pracy pojazdów". Mam problem z formatem wyświetlania czasu wprowadzonego w okienku UserForm. W Textbox wpisuje czas (w formacie hh:mm), a w ListBox pokazuje mi wynik dzielenia a nie czas (hh:mm), a do arkusza przerzuca prawidłowo. Nie wiem gdzie ustawić prawidłowy format. Z góry dziękuję za pomoc...

VBA - Jak wypisać wartości z kolumny B do UserForm spełniające warunek?

Ale co to ma robić? ;) W UserForm podajesz warunek, a w TextBox pojawiają się po kolei zawartości komórek spełniające ten warunek?

VBA Excel: Jak przenieść dane z TextBox do ListBox w UserForm z limitem 30 komórek?

Jeśli ListBox wypełniasz przez RowSource, to przepisz listę do tablicy tymczasowej, wyzeruj i przypisz tablicę. Coś takiego: [syntax=vbscript]Private Sub UserForm_Initialize() Dim tbTemp() tbTemp = ListBox1.List ListBox1.RowSource = "" ListBox1.List = tbTemp End Sub[/syntax] Wtedy możesz dodawać przez AddItem. W innym przypadku będzie komunikat "Permission...

vba,programowanie,excel - Odświeżanie OptionButton.

Mam jeszcze jedno pytanie- mam w userform pola tekstowe textbox oraz przycisk. Chciałabym, aby po jego przyciśnięciu wszystkie pola były puste, bez tekstu. Ale tych pól mam dość sporo i nie chcialabym do każdego pisać oddzielnie komend txtBox1.Text= Empty bo zajęłoby mi to mnóstwo miejsca. Czy jest jakaś mozliwośc by w krótszej komendzie objąć zakres...

Uzupełnianie tabeli w Excel VBA za pomocą wartości z UserForm

[syntax=vbscript]Private Sub CommandButton1_Click() Sheets("Test").Select nw = Cells(Rows.Count, "E").End(xlUp).Row + 1 For x = 5 To 17 t = "TextBox" & x - 4 Cells(nw, x) = Me.Controls(t) Me.Controls(t) = "" Next End Sub [/syntax]

Excel- Szychtownica: Jak zminimalizować długie kody VBA?

Witaj A1...A30, ......G1...G30 co to jest? Objekty? (TextBox, Combo, Button, UserForm) ?

Wyświetlanie się podpowiedzi w "chmurce" VB

Witam was czy jest możliwość po najechaniu myszka na pole TextBox lub Label w UserForm aby pojawił się komunikat np. kliknij dwa 2 razy ?

Jak wyświetlić dane z arkusza w TextBox po wyborze z ComboBox w UserForm?

Hej! Chciałabym, aby w tym programie, który jest w załączniku, jeśli wybiorę w UserFormie -> ComboBox1 lub 2 dostawce/odbiorce, to chciałabym aby jego cale dane które sa w arkuszach były wypisane w oknie TextBox 1 lub 2. Czy mogłabym prosić o rade jakimi instrukcjami to można zrobić, bo pewnie sam worksheets nie wystarczy.

Kolejność elementów w Userform: Widoczność TextBoxów 14-16 na tle TextBoxa 12

Witam, mam taki niewielki problem związany z kolejnością elementów zawartych w Userform. Okno Userform służy do zobrazowania wyboru składników z arkusza. Dodatkowo aby poprawić efekt wizualny zastosowałem linie w postaci zminimalizowanych TextBoxów (14, 15 i 16) na tle TextBox 12 (normalnie tworzą wyimaginowane okna zobrazowanych danych). Aby bardziej...

EXCEL VBA - Walidacja cyfr i przecinka w TextBox1 podczas wpisywania kwoty

w TextBox wpisywana jest wartość raz z lewej strony a raz z prawej Zdaje się, że kolega Marek003 już z tym walczył. Co wywalczył, nie pamiętam, trzeba by poszukać tematu. Co do stawki. Wszystko jedno czy będziesz pobierał ją z label.caption, czy przypisywał do zmiennej. Jeśli do zmiennej, to poskładaj label.caption (jest typy String) przy UserForm.Initialize.

[vba][excel] - Jak sprawdzić numer indeksu kontrolki na UserForm

Witam, Możesz to zrobić prościej - przekazując referencję do kontrolki jako argument funkcji. Przykład: [syntax=vb]Private Sub TextBox1_Change() Call Wiadomosc(TextBox1) End Sub Private Sub TextBox2_Change() Call Wiadomosc(TextBox2) End Sub Private Sub TextBox3_Change() Call Wiadomosc(TextBox3) End Sub Private Sub Wiadomosc(ByRef sender As MSForms.TextBox)...

VBA excel - Kopiowanie danych z pliku txt do textbox

Witam, chciałbym skopiować dane po nacisnięciu przycisku z userform z otwartego pliku txt np: "C:\notatnik.txt" do textbox w userform (mam 5 textboxów gdzie dane z 5 wierszy w pliku txt mają być skopiowane do textboxów np: 1 wiersz z txt do textbox1, 2 wiersz z txt do textbox 2 itd). Po każdym imporcie danych plik txt jest czyszczony i zapisywany. https://obrazki.elektroda.pl/6886566600_...

VBA - Sprawdzenie kodu do wprowadzania danych wiersz po wierszu

Dobry kierunek - to nie obrazek a przykladowy plik, w szczególności, UserForm. Logiczne czas wpisac w jednym TextBox w formacie "gg:mm". Zamiast pola wyboru najlepsze radio guzik(Option Button), wtedy coś musi być zaznaczone.

Excel - Jak usunąć focus z TextBox po wykonaniu makra?

mam okno UserForm w którym jest tylko jedna kontrolka (...) TextBox zaczyna wykonywanie funkcji po kliknięciu na niego W takim razie dlaczego TextBox? Intuicyjnym rozwiązaniem jest Command Button. Tekst, jeżeli występuje, możesz przypisać do Caption. Jeśli to istotne, wygląd sformatować tak, żeby przypominał TextBox.

Excel/VBA - Zapełnienie kolejnych komórek textboxami - wyskakujące UserForm

No męczysz trochę....

Jak ustawić wartość textboxa, aby wpisać konkretne liczby? VBA i stawka VAT.

Czesc, mam problem z userform a dokladnie textbox. Jak ustawic wartosc textboxa, aby mozna bylo wpisac konkretne liczby, a dokladnie chodzi mi o cos takiego: [syntax=vbscript]If TextBox5.value = "0,00" Then MsgBox ("Wprowadz stawke z zakresu: 0; 0,05; 0,08; 0,23!") ElseIf TextBox5.value = "0,05" Then MsgBox ("Wprowadz stawke z zakresu: 0; 0,05; 0,08;...

Excel UserForm – jak zapisać stan CheckBoxów po zamknięciu i ponownym otwarciu?

Kolega Taczan podał mi kod którym mogę zmniejszyć tan mój bardzo długi kod, i tak zrobiłem jak mi napisał ale to wywaliło błąd który zaznaczył się na żółto. Ps. tak przy okazji w tym temacie. W oknie UserForm mam pole TextBox w którym chcę sprawdzić duplikaty, a dokładnie duplikaty w komórkach arkusza. Jak pokazałem na poniższym kodzie wszystko jest...

VBA, formularze - automatyczne wstawianie tekstu jeżeli TextBox jest pusty.

Witam, proszę o pomoc w poniższym. Robię arkusz do skanowania wyrobów, które przyjeżdżają na magazyn. Zrobiłam to za pomocą formularza w VBA. Chciałabym aby w przypadku gdy któryś z TextBoxów w formularzu nie będzie posiadał tekstu to automatycznie po zatwierdzeniu będzie wpisywać się wartość "brak". W załączniku podgląd. mój kod: https://obrazki.elektroda.pl/7807554200_...

VBA - Wstawianie bieżącej daty w TextBox za pomocą Ctrl + : w UserFormie

Możesz to zrobić w ten sposób: [syntax=vb]Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If Shift = 2 And KeyCode = 186 Then TextBox1.Text = Date End If End Sub[/syntax]

Excel VBA - Combobox - wypełnianie listy dla szukanej wartości

A nie byłoby prościej utworzyć listę przy Initialize na podstawie wartości z combo UserrForm1 ? Podmień procedurę w UserForm2 na [syntax=vb]Private Sub UserForm_Initialize() firma = UserForm1.ComboBox1.Value wrs = 2 ComboBox1.Clear With Sheets("Arkusz2") Do While .Cells(wrs, 4) <> Empty If .Cells(wrs, 4) = firma Then ComboBox1.AddItem .Cells(wrs,...

Jak ograniczyć liczbę kontrolek w Userformie VBA dla planowania produkcji?

Zrobiłem userformy ale wyszło mi ok 2,5tys (Comboboxów, textBoxów ...) Z ciekawości zapytam, jaki cudem wyszło ci te 2.5tys? Jak piszesz, że do wprowadzenia jest 250 danych.(Ty to powtarzałeś dla każdej zmiany i dnia?)

VBA: Jak edytować dane w ListBoxie i zmienić zakres komórek?

Kontynuując, pola tekstowe należałoby "uporządkować numerycznie" zaś jedną etykietę (data) nazewniczo, np. tak: [syntax=txt]lab_dzis => 'Etykieta z wyświetlaną "dzisiejszą datą" TextBox1 => 'Nazwisko TextBox2 => 'Ulica TextBox3 => 'Kod pocztowy TextBox4 => 'Miejscowość TextBox5 => 'PESEL TextBox6 => 'NIP TextBox7 => 'Telefon TextBox8 => 'Pocztel TextBox9...

vba - Kopiowanie do jednej komórki kilku textboxów niepustych

[syntax=vbnet] For Each Ctrl In UserForm1.Controls If Not TypeName(Ctrl) = "Label" Then If TypeName(Ctrl) = "TextBox" And Ctrl.Value <> vbNullString Then ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(0, 1).Value & Ctrl.Value & vbNewLine End If End If Next [/syntax]

VBA EXCEL; Kopiowanie wartości textbox do pierwszej pustej komórki w arkuszu

Witam, w ostatnim czasie chciałem utworzyć userform, w którym dokonywane będą skany kodów kreskowych (długość 14 znaków). Poniżej poszczególne etapy pracy formularza: 1)Skan kodu kreskowego w textbox, 2)Kopiowanie wartości text box (automatycznie/ textbox change() do akrusza karkulacyjnego, 3)Wyczyszczenie pola textbox oraz kolejne skany w kolejnej...

Excel: Automatyczne numerowanie listy pracowników w kolumnie 'A' po dodaniu

Fajne te Twoje pytania. ;) Ile sam sie przy nich uczę. ;) Znalazłem rozwiązanie na Twoje pytanie, daj mi 10 min to poskładam to czytanie i wrzucę tu. ;) [syntax=vb] Private Sub txtNazwisko_Change() Call AktualizujListe(txtNazwisko.Text, 0) End Sub Private Sub txtZnaczek_Change() Call AktualizujListe(txtZnaczek.Text, 2) End Sub Private Sub AktualizujListe(ByRef...

[VBA][Excel] Dynamiczne tworzenie etykiet na formie UserForm

Witam, Odświeżam temat mam problem dopiero się uczę i nie wiem jak pobrać z tak wygenerowanego TextBox wczesniej przypisaną wartość t = 1 ' TextBox Set NewTextBox = Me.Controls.Add("Forms.textbox.1") With NewTextBox .Name = "TextBoxNrZl" & t .Value = Sheets("Dane zasilające").Cells(i, 16) .Top = yStart .Left = xStart + 15 .Width = 60 .Height = 18 .Font.Size...

VBA Excel - ComboBox a dane wyświetlane w UserFormie

Witam Może coś takiego [syntax=vbnet]Private Sub ComboBox1_Change() obszar = "B1:T" & Cells(Rows.Count, "B").End(xlUp).Row TextBox1.Text = Application.VLookup(ComboBox1.Value, Sheets("Arkusz1").Range(obszar), 2, 0) TextBox2.Text = Application.VLookup(ComboBox1.Value, Sheets("Arkusz1").Range(obszar), 3, 0) TextBox3.Text = Application.VLookup(ComboBox1.Value,...

Jak dodać wybór godziny do kalendarza w Excel VBA?

Jest tam wykorzystana kontrolka 'dtPicker' Potwierdzając problem z cytowanego przez autora wątku i dyskusję o problemach z tą kontrolką - oto zachowanie tego pliku na moim komputerze :) http://obrazki.elektroda.pl/5826995400_1... Czyli tak jak mówiliśmy - dateTimePicker = samo zło :D Plik kalendarza rozbudowany o textbox do wyboru godziny...

Excel VBA - jak podpiąć listę towarów do ComboBox i wstawić dane do arkusza?

W UserForm1 wystarczy zrobić 3 proste rzeczy: 1. Aby załadować dane do comboboxa, dodaj: [syntax=vb]Private Sub UserForm_Initialize() Dim ostTowar As Long With Arkusz2 ostTowar = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 cmbTowar.RowSource = "Towary!" & Arkusz2.Range("A2:A" & ostTowar).Address End With End Sub[/syntax] 2. Aby przepisywać towar do textboxa...

Excel VBA - Jak zablokować 64 TextBoxy w UserForm pod warunkiem?

Witam [syntax=vb]Dim tb As Control Dim wiz As Boolean wiz = Not (Index = "") For Each tb In UserForm1.Controls If tb.Name Like "txt*" Then tb.Visible = wiz Next [/syntax] Jeśli jest to widoczne, ale zablokowany [syntax=vb]wiz = Index = "" For Each tb In UserForm1.Controls If tb.Name Like "txt*" Then tb.Locked = wiz Next [/syntax] nie zaleca się używania...

Wstawienie nowej wartości do arkusza Excel z formularza

Czy mógł by mi ktoś pomóc? Jestem zielony i nie znam sie na programowaniu w VBA. Wykonałem formularz z wykorzystaniem UserForm i chce dodać każdą daną z Textbox do arkusza i to mi się udaje, ale chce aby kolejne wpisanie wartości do TextBox było wpisywanie do wiersz a poniżej, a nie zastępowało te poprzednie. http://obrazki.elektroda.pl/1247350200_1...

[Excell] Jak ustabilizować format daty w Listbox UserForm?

problemem jest to ze data wyswietlana w listbox jest w amerykanskim formacie Bez obrazy, ale stwierdzam, że "leń patentowany" jesteś ... :-) ... "Rozwiązanie" masz pod nosem i sam się w pewnym sensie nim posługiwałeś. Właściwość " List " ... dlaczego nie sprawdziłeś składni tej właściwości ? " object.List(row, column) " Gdybyś zerknął w pomoc podręczną,...

[VBA] Formularze- dodanie adresu ZAKESU do TextBox za pomocą myszki

Ale gdy wskazujesz obszar to ten inny skoroszyt staje się aktywnym (no bo jak wskazujesz obszar bez aktywacji innego skoroszytu) żebyśmy się dobrze zrozumieli mam otwarte dwa pliki (a plik z makrem) i (b - dowolny inny) żeby wskazać obszar pliku b muszę go wywołać.(czyli otwierasz a uruchamiasz userform przechodzisz do pliku b wtedy uruchamiasz inputbox)

Makro VBA: Warunek If zawsze zwraca True zamiast False - jak to naprawić?

Kod łatwiej się czyta, kiedy umieścisz go w znacznikach... Na Twoim miejscu zacząłbym od usunięcia [syntax=vb]On Error Resume Next[/syntax]bo to, że błędy ukrywasz nie znaczy, że one znikną... Nie wiem też, czemu mają służyć te linijki z XlApp - jeżeli chcesz się odwołać do bieżącego pliku, to się robi inaczej (zakłądajc, że jest to makro w Excelu)......

Jak skopiować wartości z TextBox i ComboBox między UserForm w Excelu?

Witam W pierwszym Okienku1 w kontrolce TextBox wpisuję literę np. "x" co wywołuje drugie Okienko2 . Chciałbym aby w nim uaktywniło (już wpisane) te same wartości co były w pierwszym Okienku1 (TextBoxy i ComboBoxy). Chciałem zapytać jak to zrobić?

VBA - Szukanie ciągu znaków oraz podawanie godziny (w komórce obok)

Cześć Czy ktoś pomoże rozwiązać mój problem? :) W Excelu posiadam okno UserForm z polem TextBox. Chciałbym aby po wpisaniu numeru seryjnego np, G20A61627 excel wyszukał je w jednym z arkuszy w kolumnie oraz podał obecną godzinę w tym samym wierszu, natomiast kolumnę obok numeru seryjnego. Obecnie kod wyszukuje wolne pole w kolumnie "Data oddał" https://obrazki.elektroda.pl/6582089700_...

EXCEL VBA - Jak wyłączyć zdarzenia dla CommandButton?

Nie da się tego na wprost poprawić. Kłopot polega na zastosowanej przez ciebie metodzie sprawdzania czy wprowadzone dane są prawidłowe. Metoda exit textbox'a jest wykonywana wcześniej niż następuje przyciśnięcie (w tym przypadku Visual najpierw odczyta zdarzenie exit a dopiero później resztę) a to odbiera jakikolwiek manewr "wyłączenia" z pod obsługi...

VBA Excel - jak poprawnie zorganizować struktury programu z UserForm'ami?

Taki przykład. Na jednej formie mam ListBoxa, który w zdarzeniu initialize pobiera dane z tablicy1 (wcześniej załadowane od tablicy z arkusza) . Procedura w zdarzeniu Change (TextBox) filtruje dane w arkuszu (poprzez porównywanie ciągów w TextBox i arkuszu) i tworzy nową tablicę2 z pasującymi rekordami, która trafia do tego listBoxa (w miejsce tablicy1)....

Excel- Okno UserForm, wyświetlanie i sprawdzanie formatów.

Chciałbym zadać kilka pytań związanych z wyświetlaniem i sprawdzaniem formatów w oknie 'UserForm'. Jedno z nich: mam poniższy kod umieszczony w oknie 'TextBox' Ogólnie to kod dział poprawnie jednak problem pojawia się kiedy okno 'TextBox' umieszczę w 'Frame', wówczas kod przestaje działać i nie informuje mnie o niepoprawnie wprowadzonej formie daty....

Visual Basic: Jak wyświetlić dane z komórek A1 i B1 w polach tekstowych?

Tak masz zasięg w całym formularzu (i projekcie, dopóki formularz jest otwarty): Private Sub UserForm_Initialize() GetObject ("c:\zeszyt1.xls") Workbooks("zeszyt1.xls"... End Sub Private Sub CommandButton1_Click() TextBox1 = Worksheets("Arkusz1")....

Re: Wyświetlanie daty w formacie rrrr-mm-dd w textbox

Witam, mam userform w którym wyświetlane są recordy z arkusza "Baza". Jednym z tych pól jest data gwarancji (kolumna G). W bazie zapisana jest w formacie rrrr-mm-dd natomiast w formularzu w textbox wyświetla się w formacie mm/dd/rrrr. Jak to zmienić żeby wyświetlało się w formacie rrrr-mm-dd jak w bazie.

Excel 2003/VBA - Zawieszanie się przy użyciu ComboBox w UserForm

Wyjaśnie jeszcze raz w czym problem. Gdy uruchomię plik excel'a uruchomia się userform, w którym trzeba wypełnić pola. Po wypełnieniu pierwszego pola i przejścia do combobox'a, excel się zawiesza. Plik umieszczony na forum jest bez makr bo one nie tworzą problemu. Nie jestem informatykiem a grzebie w makrach dla samego siebie aby ułatwić pracę sobie...

Wstawianie wartości TextBox w odpowiednią komórkę

Witam, mam formularz UserForm, w którym użytkownik wybiera produkt oraz datę, a następnie wpisuje w TextBoxa jakąś wartość. Chciałabym, aby wartość z TextBoxa zapisywała się do odpowiedniej komórki w Arkuszu 1. Wrzucam przykładowy plik.

Wstawianie dat w zależnosci od róznicy między nimi VB

Witam, mam mianowicie taki problem mam Date1 i Date2. Data1 jest to data ostatniego sprawdzenia np.22.01.2016, a Data 2 jest to data kolejnego sprawdzenia po roku, po 2, 3,4,5 latach czyli np.:22.01.2018. Dzień i miesiąc są takie same, tylko rok ulega zmianie. Pracuje w USerForm, mam formularz i teraz chciałabym aby przy podwójnym kliknięciu w pole...

[VBA] - Listbox - multiselect - textbox do arkusza.

(at)clubs Hej Clubs, zauważyłem pewien "błąd". W momencie gdy wartości w kolumnie są jednakowe, kod tego nie obsługuje i pozostawia pustę pole. Rozumiem, że "usedrange.find -> xlvalues tego nie ogarnia? Stworzyłem drogę okrężną, z nanoszeniem wartości na zaznaczonych wierszach za pomocą listbox_change i objektów przy init userforma, ale wywala mi się...

[VBA Excel] Jak skrócić/sprawnie poprawić ten kod?

Dzieki bardzo, Wlasnie chcialem dac ci znac ze ogarnalem temat, jesli mozna mam jeszcze dwa pytania, co do pytania odniosnie nazw kontrolek to zapisuje je tak zeby pozniej wiedziec o co chodzi - mam mala sciage, (wiem ze to moze wydawac sie smieszne, ale dopiero sie ucze) 1) w tym samym userform udalo mi sie zrobic podsumowanie z listbox (textbox1)...

VBA - Aktywacja CommandButton po wpisaniu tekstu w TextBox

[syntax=vb]Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then Me.CommandButton1.Enabled = True End Sub Private Sub UserForm_Initialize() Me.CommandButton1.Enabled = False End Sub [/syntax]

VBA EXCEL Jak uniknąć ERROR 1004 przy generowaniu PDF z nazwą z textboxów w VBA?

Cześć, Próbuję wygenerować pdfa z takiego kodu, jednak ciągle wyskakuje mi ERROR 1004. Gdy textboxy, które będą stanowiły nazwę pdfa, są puste, wtedy mogę wygenerować plik, ale nie ma on nazwy. Zatem problem jest z zadeklarowaniem zmiennych, jednak już kombinowałem na różne sposoby i problem jest ten sam. Proszę zatem o pomoc. Private Sub pdf_Click()...

Makro w excelu. Dlaczego suma nie zostaje obliczona?

Aby było 0 przy wchodzeniu do arkusza DANE trzeba w kodzie arkusza wpisać: Private Sub Worksheet_Activate() For i = 1 To 11 Cells(i + 2, 9).Value = 0 Next i End Sub Co do przecinka samo Val czy CSng w tym przypadku nie wystarczy bo raz pobierasz dane z arkusza a raz wpisujesz z ręki. Można to było uzależnić od "rozbicie" ale stwierdziłem...

[VBA/Excel] - Dodawanie nowego wiersza do arkusza na podstawie danych z forma

Napisz coś co bardziej rozjaśni problem. W tytule piszesz że, chcesz dodawać nowy wiersz do arkusza a w treści że, będziesz dopisywał dane. To co w końcu? Jak pobierasz zmienne z UserForm i co z nimi robisz? Pozdrówka Chodzi o dodawanie informacji o nowym filmie, czyli wpisanie liczby porządkowej, tytułu, rozmiaru, czasu trwania, lokalizacji i informacji...

VBA - Userform -> podaj date -> znajdz -> wstaw w wierszu.

1. Zdecydować się na jakiś konkretny sposób wyszukiwania: For Each Next, For Next, Match, Find, itd. 2. W zależności od niego ułożyć kroki postępowania: a) zmuszenie użytkownika do satosowania jednego zapisu daty w TextBox - dowolność wykluczona b) weryfikacja poprawności wprowadzonej daty c) konwersja na datę 3. Wyszukiwanie w danym zakresie 4. Reszta...

Połączenie makr - Chciałbym połączyć dwa makra w jedno

Witam, Możliwe, że temat już się przedawnił i odpowiedzi nie uzyskam, ale kto wie:) Co do powyższego makra mam jeden mały problem, za każdym razem makro zwraca mi wartość prawdy, czyli knyps=TRUE, uruchamia zawsze makro1. Może to wynika z tego, że chciałbym, aby WymZloz był definiowany przez użytkownika za pomocą InputBox. Krótko mówiąc, ja to zadeklarowałem...

Jak napisać skrypt w Excelu do symulacji losowania Multi Lotka?

Słuchajcie mam cos takiego: Szanowni koledzy juz sie trudze i trudze i ni hu hu nie umiem dobrnąć do konca :( otóż robię makro symulujące losowanie multilotka z tym ze potrzebuję jeszcze takiego myku który bedzie wskazywał ilość trafień. Zrobiłem juz user forma i skrypt mniej wiecej taki: Option Explicit Private Sub CommandButton1_Click() Dim Ilosc_liczb...

Excel makro kalkulator - Kod do Enter nie zapisuje danych z textboxa

Mam rozwiązanie. Niech klawisz "0" nazywa się "C0" wtedy: Private Sub C0_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) C0.BackColor = &H80000010 ' Zmieniamy kolor przycisku End Sub Dla klawisza "1", który nazywa się "C1" Private Sub C1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,...

Jak eksportować dane z Label lub TextBox do pliku txt w Visual Basic?

Zapis danych do pliku tekstowego można realizować przez FileSystemObject, jak w przykładzie. Przykładowo wpisałem dwie linie tekstu z wartościami pobranymi z textboxa i labela. [syntax=vb] Sub Pisz_plik() Set oFS = CreateObject("Scripting.FileSystemObject... Set oFSFile = oFS.CreateTextFile("...ścieżka pliku txt", True) With oFSFile .WriteLine Userform1.TextBox1.Value...

Excel- wydruk jednego arkusza dla wielu pracowników

Mam w moim pliku dodane okno (na poniższym screenie) na podstawie którego drukuję arkusz z odpowiednimi danymi. Ogólnie to wszystko jest OK. Poniżej jest kod który wszystko przesyła do arkusza. Okno pozwala na wydruk pojedynczej listy dla jednego pracownika. Jak zrobić aby okno miało możliwość wydrukować taki sam arkusz dla wielu pracowników? http://obrazki.elektroda.pl/3447331200_1...

Jak uniknąć błędu dzielenia przez zero w VBA Excel przy pobieraniu danych?

Nadal błąd tym razem zmodernizowałem kod i dla próby zrobiłem miniaturkę mojego programu w którym chodzi o to by dane były wpisywane do arkusza poprzez formularz i po kliknięciu na formularzu przycisku oblicz wynik został wpisany do pola wynik w komórce D5 arkusza i zarazem pojawiał się na formularzu w TextBox4. Mimo że nie wywala błędu , tym razem...

Wyszukiwanie zleceń po roku z comboBoxa w VB - jak to zrobić?

Podsumowując: 1) Jest/ma być formatka=Formularz=okienko=UserForm 2) Są w nim/niej przynajmniej: 2x ComboBox (lista zleceń, osoby), 2x TextBox (dodawanie zlecenia, edycja zlecenia ... numeru ? ... inna ?), 2x Label (wyświetlanie zlecenia/wartości/osoby/inne ?), 5x CommandButton (edycja, dodawanie, usuwanie, szukanie, zamknięcie formatki) 3) Potrzebne...

Jak dynamicznie wyświetlić wartość z komórki Excel w TextBox VBA?

Nie wiem co mogłem zepsuć kopiując powyższą formułkę ale zwyczajnie nie działa. No ja też nie wiem... :) To jest label na UserForm'ie, który podpinasz w zdarzeniu Initialize? Edit: Mała korekta :) Zamiast zdarzenia Activate lepiej wykorzystać Initialize.

UserForm z 2 listboxami które bazują na 1 textboxie i 1 comboboxie excel vba

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ł...

VBA EXCEL: Jak zastąpić MsgBox userformem w pętli wyszukiwania?

1. if Szukaj_dalej = True Then moim zdaniem przycisk nie ma wartość, może mieć tylko zdarzenie click 2. UserForm należy tylko do wyświetlania lub danych wejściowych? 3. Private Sub TextBox2_Change() 'adres TextBox2 = ActiveCell.Offset(0, 2) End Sub dlaczego zmiany wpisu danych wybrano zdarzenie Change 4. Jaky Algorytm, który działa cały...

Excel- Kwestionariusz pracownika. Rozszerzenie możliwości pliku

Ja będę chciał jeszcze trochę rozwinąć temat powyższej 'Ankiety' i jeszcze dodać do filtra dodatkową opcję. Jak widać na załączonym screenie dodałem do filtra jeszcze jedno okno 'ListBox' z pracownikami. W zaznaczonym kółeczku jest wstawione okno 'Label', jak zrobić aby w oknie 'Label' pokazało mi ilu pracowników jest zaznaczonych w powyższej liście?...

Excel VBA Kopiowanie danych z jednego Okienka (UserForm) do drugiego

Witam W programie mam kilka Okienek. W pierwszym wpisuję dane w kontrolki Textbox . Po wpisaniu określonego znaku w jedną z kontrolek wywołuję drugie Okienko i chciałbym aby w nim skopiowane zostały dane z pierwszego Okienka w kontrolki o tej samej nazwie (kontrolki mają te same nazwy co w pierwszym, ponieważ zostały skopiowane i pewna ich część została...

Excel VBA – jak scalić i obramować komórki kodem w programie magazynowym?

ok czaje ale mam inny problem: Private Sub TextBox1_Change() Dim tekst As String, wynik As String tekst = TextBox1.Value wynik = TekstEtykiety(tekst, "Magazyn") If wynik <> "" Then Label1.Caption = wynik Else wynik = TekstEtykiety(tekst, "Magazyn2") If wynik <> "" Then Label1.Caption...

Excel VBA - Dodawanie danych z TextBoxów do kolejnych pustych rzędów - użycie For

Nie wiem jaki jest sens używania własnego UserForma zawierającego te same właściwości co wbudowany w Excela Formularz ... https://obrazki.elektroda.pl/9755796900_...

VB - Visual Basic 2010 Express - problem z operatorami

Witam, to moje pierwsze kroki w tym programie i natknąłem się na pewną przeszkodę której sam nie jestem w stanie wyminąć. Mianowicie proszę o pomoc lub podpowiedź gdzie znajdę wytłumaczenie poniższego problemu. Chcąc od czegoś zacząć moją naukę z visual basic zrobiłem w Excelu kalkulator odsetek, stworzyłem odpowiedni userform i taki kod: [syntax=vb]Private...

Jak ustawić focus na pole formularza po wydruku etykiet VBA Excel?

UserForm1.TextBox4.Value = "Wpisz symbol towaru" UserForm1.TextBox3.Value = "" UserForm1.TextBox5.Value = "" UserForm1.nazwa.Value = "" UserForm1.TextBox6.Value = "" UserForm1.TextBox7.Value = "" TextBox4.SelStart = 0 TextBox4.SelLength = Len(TextBox4.text) Rozumiem że fokus ma być na TextBox4 dodaj taki 'myk' [syntax=vbscript]UserForm1.TextBox4.Valu...

Jak wyszukiwać nazwiska w UserForm z obsługą duplikatów i przyciskiem Next?

Panowie, Dziękuje za pomoc. Widzę, że mało czytelnie predstawiłam problem. Chodziło mi o zastosowanie maski w textbox do wprowadzania daty. Maska w postaci ____-__-__ jest wprowadzona do textboxa jako text i tag. Opis maski w kodzie powyżej. Problem pojawia się w momencie jeżeli wprowadzimy datę do bazy zapiszemy nowy rekord i przeszukujemy ponownie...

Jak wyświetlić dane po wyborze z Combobox w Userform w Excel VBA?

Witam ponownie mistrzu chyba utknąłem i proszę o pokazanie właściwej drogi - muszę zrobić sortowanie w combox-ie - do zrobienia, wrzucić te same dane ( tzn komórki z tymi samymi nazwami które są posortowane combox-em) do listbox-a i tak jak zaznaczę daną nazwę wrzuci mi wszystkie pozostałe dane tej konkretnej nazwy w textbox-ie. hmm chyba się poddaję,...

[VBA][Excel] Nadawanie wartości wielu polom na UserFormie

Możesz odwołać się do wielu kontrolek w pętli np w ten sposób: 'definiowanie Dim tabl_kontrolek(1 To 6) As Control Set tabl_kontrolek(1) = Label1 Set tabl_kontrolek(2) = TextBox1 Set tabl_kontrolek(3) = Label2 Set tabl_kontrolek(4) = TextBox2 Set tabl_kontrolek(5) = Label3 Set tabl_kontrolek(6)...

VBA Excel - Automatyczne daty w UserForm zależne od wartości TextBoxa

Ten parameter masz jako miesiące, nie lata... Czyli: [syntax=vbscript]TextBox6.Value = Format(DateAdd("m", Kalibracja1.Value, TextBox5.Value), "yyyy-mm-dd")[/syntax]

EXCEL / VBA - UserForm zapisuje dane w tym samym wierszu po kliknięciu przycisku

Ostatnio zacząłem bawić się vba w excelu i niestety chwilowo utknąłem ;) mam dwa problemy: 1) Mam userforma w którego wpisywane są dane i po zatwierdzeniu przyciskiem "zapisz" wszystko trafia do odpowiedniego akrusza w excelu. ww. userform wywoływany jest przez przycisk na w innym arkuszu (commandButton) Private Sub cmbDodajDefekt_Click() DodajDefekt.Show...

VBA Excel - Textbox, przypisywanie danych z arkusza

Deklarację zmiennej wrs umieść w nagłówku i dodaj usuwanie... Coś w ten deseń [syntax=vb]Dim wrs As Long Private Sub EMAILONE_Click() 'MsgBox "i tu przepisujesz odwrotnie niż wczytanie przy Initialize" & vbNewLine _ & "czyli najpierw Find w razie poprawki a jeśli Err>0 to do ostatniego wiersza" With Sheets("DANE_PRZETWORZONE") ostatniwiersz1 = .Range("A65536").End(xlUp).Row...

EXCEl/VBA - Liczba miejsc po przecinku w zależności od listy z Combobox

Splitem go i policz. Np [syntax=vb]Private Sub CommandButton1_Click() Dim a As Double Dim b As Double Dim dr As Integer a = TextBox1.Value b = TextBox2.Value liczba = Split(UserForm1.ComboBox1.Value, ",") dr = Len(liczba(1)) Me.Label5.Caption = Round(a + b, dr) End Sub[/syntax]

VBA błąd 449: Call OpenExcel – jak poprawnie przekazać argumenty do procedury?

Witam Próbuję odwołać się do procedur z poziomu vba, ale powstaje błąd 449 arument not optional i nie bardzo wiem co z tym fantem zrobić. Chciałbym, żeby procedury były wykonywane dlatego odwołuję się do nich za pomocą Call. Może coś robię nie tak, dziękuję za każdą pomoc, kod wygląda tak: Błąd występuje w linii Call OpenEcxel. Te procedury znajdują...

Aktualizacja ilości sztuk w bazie magazynowej Excel VBA po wyborze w ComboBox

Dodaję załącznik z plikiem oczywiście dane zostały zmienione. Gdy wchodzi się do pliku pojawia się na start userform wybieramy pierwszą opcję dodawania do magazynu. Gdy już będzie widoczny arkusz do wprowadzania danych to wpisujemy datę, z listboxa wybieramy selekcję następnie wpisujemy ilość w zielony textbox (jeżeli chcemy coś dodać) lub czerwony...

VBA Word 2013 - UserForm nie uruchamia się przy otwieraniu pliku

Jest, ale w Initialize są odwołania do nieistniejących kontrolek (albo pomyliłeś nazwy): TextBox26 ComboBox1 Zaapostrofuj i pójdzie... Druga sprawa - zapisujesz plik: ActiveDocument.SaveAs FileName:="NOWY PLIK" & ".doc" Spróbuj z okienkiem dialogowym, Poniżej przykład kodu: Application.Quit

Excel VBA - Jak przyporządkować dwie różne komórki do jednego textboxa?

Witam. Jestem żółtodziobem w temacie VBA i nie mogę przeskoczyć pewnej rzeczy, która pewnie jest banalnie prosta więc proszę o poradę a mianowicie jak przyporządkować dwie różne komórki w różnych arkuszach tego samego skoroszytu do jednego textboxa, inaczej mówiąć chciałbym wpisać coś w textboksie znajdującym się na userformie i chciałbym aby wstawiło...

[vba-excel] Jak dopisać dane do kolejnego wiersza w Excel VBA?

Próbuje, ale ciagle mi błąd wywala taki jest mój kod wiersze od A - E to textboxy, a od F-G comboboxy Private Sub CommandButton1_Click() Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1).Value = marka Range("B" & Range("B" & Rows.Count).End(xlUp).Row + 1).Value = model Range("C" & Range("C" & Rows.Count).End(xlUp).Row + 1).Value = rokprodukcji...

Dodawanie pozycji do bazy przez Userform jaka pętla VBA excel?

Udało mi się uporać z usuwaniem wybranej pozycji. Natomiast nadal jest problem z dodawaniem, tzn. dopóki dodaję kolejne pozycje do bazy i nie zamknę userforma z dodawaniem jest prawie ok. Prawie, bo baza nie zawsze na bieżąco aktualizuje listboxa. Większy problem pojawia się wtedy kiedy zamknę userforma odpowiadającego za dodawanie firmy do bazy i włącze...

Jak stworzyć program do porównywania routerów według parametrów?

no więc poprawiamy: Private Sub UserForm_Initialize() ComboBox1.Clear ComboBox1.AddItem ("brak") ComboBox1.AddItem ("100") ComboBox1.AddItem ("1000") ComboBox1.ListIndex = 0 ComboBox2.Clear ComboBox2.AddItem ("brak") ComboBox2.AddItem ("NIE") ComboBox2.AddItem...

VBA problem z podwójna pętlą "if them else"

Znalazłem rozwiązanie. Nie wierze ze było takie proste. zamykam temat. [syntax=VBA]Private Sub Anuluj_click() Unload Me Dodaj1.Hide Menu.Show End Sub Private Sub UserForm_Initialize() ComboBox2.AddItem "Nie" ComboBox2.AddItem "Tak" ComboBox1.RowSource = "A2:A13" End Sub Private Sub ok_Click() If ComboBox1 = "wybierz" Or TextBox1 = "" Or TextBox2 = ""...

Wyłączający się plik Excela

Która wersja Excela się wyłącza? Mógłbyś może podesłać kod tego makra? Wersja Excela 365, Kod makra : Private Sub CommandButton1_Click() Me.CommandButton2.Visible = True Me.CommandButton1.Visible = False Me.Height = 350 End Sub Private Sub CommandButton2_Click() Me.CommandButton1.Visible = True Me.CommandButton2.Visible = False Me.Height = 285 End...

Word - Word - automatyczna zmiana daty przy drukowaniu

Mógłby być to exel, używam worda z uwagi na to, że łatwiej mi upchać po 3-4 tabelki na stronę :) Chodzi o to, że mam tabelkę z grafikami i chce wydrukować załóżmy na 6 tygodni. To wpisuje datę początkową i automatycznie na kolejnych kartkach wychodzących z drukarki data się zmienia. Excel ma coś takiego jak "wpasuj w stronę" w obcjach wydruku w ustawieniach...

VBA - kopiowanie z textbox do pierwszej wolnej komórki

Cześć, chcę napisać makro, które ma kopiować wartości z textbox'ów (które są w UserFormie) do pierwszej wolnej komórki w kolumnie. Ma to wyglądać tak: użytkownik po wpisaniu wartości w textbox'ach naciska "OK" i te wartości mają się przekopiować w pierwszą wolną komórkę w kolumnie. Do tej pory zrobiłem coś takiego: [syntax=vbscript] Private Sub OK_Click()...

Excel - automatyczne przejście do kolejnej komórki po skanowaniu kodu kreskowego

wolałbym jednak zrobic to w excelu Rzecz w tym, że ostatni znak w stringu skanera musi być Enter'em (char 13), w przeciwnym wypadku komórka pozostanie w trybie edycji. Jeśli nie chcesz grzebać w konfiguracji skanera, to spróbuj z UserForm i sprawdzaniem długości ciągu przy TextBox_Change. Dołóż "licznik" sczytanych kodów, label z poprzednią zawartością...

Excel VBA - zaznaczanie całego tekstu w TextBox po błędzie danych

Mam funkcję sprawdzającą która sprawdza czy wprowadzona dana jest liczbą. Jeżeli jest źle ma krzyczy żeby poprawić i wraca do textbox'a. If IsNumeric(UserForm1.TextBox1.Value&#... = False Then MsgBox "Złe dane. Popraw." UserForm1.TextBox1.SetFocus 'TO TU Else UserForm1.TextBox1.Value = CStr(Round(UserForm1.TextBox1.Va... 2))...

VBA - Jak zdefiniować Range z wartości TextBoxa?

Nie, pole tekstowe jest w UserFormie, ale próbowałam już dodawać jego nazwę przed nazwą pola tekstowego i to nic nie zmienia