userform initialize

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

VBA: Ładowanie danych z tabeli Excel do ListBox w formularzu użytkownika

Może(w jednym programie ). Nie może w tym samym UserForm kilka UserForm_Initialize lub UserForm_Activate etc.

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Jak znaleźć procedurę UserForm_Initialize w VBA?

Szukasz procedury UserForm_Initialize w VBA? Otwórz Edytor VBA, przejdź do kodu formularza i wybierz zdarzenie Initialize, aby przygotować formularz przed wyświetleniem.

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

EXCEL - Jak otworzyć konkretną zakładkę MultiPage przy uruchomieniu UserForm?

Tak nie dobrze? Private Sub UserForm_Initialize() MultiPage1.Value = 4 End Sub

Excel VBA - Jak ustawić RowSource dla ComboBox z wypełnionych komórek?

zobacz to [syntax=vb]Private Sub UserForm_Initialize() ost = Worksheets("Kolor").Cells(Rows.Count, 1).End(xlUp).Row userform.SMkolor.rowsource = "Kolor!A1:A" & ost End Sub[/syntax]

ComboBox-dlugość listy rozwijana zależnie od ilosci pozycji

jedna z możliwości [syntax=vbscript]Private Sub UserForm_Initialize() ComboBox1.RowSource = Range("A1:A" & Sheets("Arkusz1").Cells(Rows.Count, 1).End(xlUp).Row).Address End Sub[/syntax]

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

No nie przesadzaj, drogą dedukcji :) Private Sub UserForm_Initialize() For i = 1 To ThisWorkbook.Worksheets.Count ComboBoxNazwa.AddItem Sheets(i).Name Next End Sub

VBA - jak wyczyścić pole formularza z domyślną wartością '2016'?

Zaznacz pole formularza, w oknie "properties", odszukaj kategorii "Data" i wyczyść zawartość obu podrzędnych. http://obrazki.elektroda.pl/3614040900_1... Sprawdź także w Userform_Initialize (jeśli jest), czy nie ma tam przypisania.

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.

Excel Vba - wyświetlanie określonego obszaru w formie

Można to zrobić np w ten sposób:[syntax=vb] Dim Nazwane_zakresy(2) Private Sub UserForm_Initialize() Nazwane_zakresy(0) = "zakres1" Nazwane_zakresy(1) = "zakres2" Nazwane_zakresy(2) = "zakres3" ComboBox1.List() = Nazwane_zakresy ComboBox1.ListIndex = 0 End Sub Private Sub ComboBox1_Change() ListBox1.RowSource = ComboBox1.List(ComboBox1.ListIndex) End...

Excel 2013 - VBA - Rozwijana lista - invalid property value

Witam Pliki musisz pakować rar/zip itp. Co do ładowania danych do comboboxa odpowiedzialna jest część j.n musisz dopisać z jakiej zakładki są pobierane dane czyli [syntax=vbnet]Private Sub UserForm_Initialize() Dim i As Long i = 2 'bez nagłówka 'zapisanie do tablicy Do While Sheets("Articles").Cells(i, 1) <> "" AddItem Sheets("Articles").Cells(i,...

Excel - Błąd przy wyświetlaniu listy z jednym wpisem w kodzie VBA

może zobacz tak [syntax=vb]Private Sub UserForm_Initialize() Set mysht = Sheets("ListaPracowników") LastRow = mysht.Range("B" & Rows.Count).End(xlUp).Row With lstSzkolenia .ColumnCount = 4 .ColumnWidths = "80pt;50pt;50pt;50pt" For I = 2 To LastRow .AddItem mysht.Range("B" & I) .Column(1, lstSzkolenia.ListCount - 1) = mysht.Range("J" & I) .Column(2,...

Jak załadować sformatowane godziny do ComboBox w VBA Excel?

:) ... sformatować ... bowiem to co widzisz jako format godzinowy w arkuszu, to tylko zwykła excelowa ściema. W komórce jest właśnie to, co ci się wyświetla w liście kombinowanej ... :) Np.: [syntax=vbscript]Option Explicit Private Sub UserForm_Initialize() Dim tbl(), indeks With Arkusz5 'tbl = .Range(Cells(10, 4), Cells(10, 15)).Value 'lub tbl = .Range("d10:o10").Value...

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

Jak połączyć VBA i porównać 2 różne arkusze przez wybranie ComboBox ? ?

Witam mam formularz z dwoma polami ComboBox W UserForm Initialize ma kod dla ComboBox [syntax=vbscript] Dim NazwyArkuszy As Integer For NazwyArkuszy=1 To Worksheets(NazwyArkuszy).Count With ComboBox1 .Additem Worksheets(NazwyArkuszy).Name end with With ComboBox2 .Additem Worksheets(NazwyArkuszy).Name end with [/syntax][/code] Mam funkcję pod przyciskiem,...

[VBA] odczyt danych do ComboBox z zewnętrznego pliku

[syntax=vbscript]Private Sub UserForm_Initialize() 'ComboBox1 - Podtyp1 ComboBox1.ColumnCount = 2 'druga kolumna w comboboxach 1 i 2 - wyświetlenie opisu obok trzycyfrowego kodu Dim kod1 As Range 'GetObject, aby można było zaciągnąć dane z innej lokalizacji With GetObject("C:\Users\biuro\Desktop\prg\ba... 'docelowo w innej lokalizacji sieciowej...

[excel] Jak edytować zaznaczony wiersz w ListBox na UserForm w Excelu?

Tu dodałem jeszcze usuwanie wiersza z pewnymi zabezpieczeniami edit: Teraz mi przyszło że zamiast przycisku edytuj kod z pod tego przycisku można umieścić na podwójnym kliknieciu w listbox (na danym wierszu) wtedy dane się zczytają do okienek edycyjnych. Podmieniłem załącznik

Excel 2010 VBA: Jak dodać wartości do ComboBox w UserForm1?

Private Sub UserForm_Initialize() For i = 0 To 5 Me.ComboBox1.AddItem "Tekst_" & i Next End Sub albo Private Sub UserForm_Initialize() Me.ComboBox1.AddItem "Tekst_1" Me.ComboBox1.AddItem "Tekst_2" 'itd. End Sub

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.

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

Hej, Nadal to samo.. Może problem leży gdzieś w initialize?? Nie mam pomysłu, naprawdę.. ;x Private Sub UserForm_Initialize() Dim say As Integer Application.ScreenUpdating = False say = WorksheetFunction.CountA(Worksheets("Dat... ListBox2.RowSource = "Data!A2:I" & say ListBox2.ColumnCount = 9 ListBox2.ColumnWidths = "120;250;60;60;60;60;60;60;60"...

VBA Excel: Jak zastosować pętle dla comboboxów z tym samym RowSource?

No właśnie.. jak wkleiłem to do Private Sub UserForm_Initialize() A dlaczego do Initialize? Po mojemu najprościej będzie: jedna procedura z argumentem przekazywanym przez ComboBox. Wystarczy wkleić kod ComboBox'a 50x, zmieniając nazwę na kolejny Nr. W razie korekty, jest tylko jedna procedura do poprawienia. Taki szybki przykład w załączniku.

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

Udoskonalenie arkusza: Wybór wolnej pozycji i sprawdzanie ceny podzespołu [UserForm, Excel]

Proponuje zmienić nazwy zmiennych "placowka, podzespol" aby były różne dla każdego ComboBox. np. tak: [syntax=vbscript] Private Sub UserForm_Initialize() Dim ost As Long With Arkusz1 ost = .Cells(.Rows.count, "C").End(xlUp).Row If ost = 2 Then ComboBox1.AddItem .Range("C3").Value ElseIf ost > 2 Then placowka = .Range("C3:C" & ost).Value ComboBox1.List...

Jak uruchomić UserForm przy starcie z minimalizacją skoroszytu Excel?

W procedurze UserForm_Initialize wstaw: Application.WindowState = xlMinimized Pozdrawiam

VBA EXCEL Zaznaczony obszar jako źródło dla Listbox

... no i można zamykać ....... :->

Makro w excelu. Dlaczego suma nie zostaje obliczona?

Co do kursora w okienku to w "sekcji" UserForm_Initialize() na końcu (przed End Sub) umieść "focusa" Private Sub UserForm_Initialize() ... ... ... TextBox1.SetFocus End Sub Jak możesz to zdejmij "opłatę" za załącznik w poprzednim poście - to dla ciebie pomoc nie odwrotnie. (skasuj załącznik i dodaj jeszcze raz z opcją wyłączenia punktów).

EXCEL MAKRO problem z makrem do przycisku drukującego arkusz

dzięki za pomoc znalazłam błąd zamiast UserForm_Initialize() miałam UserForm1_Initialize()

MS EXCEL 2010 - Filtrowanie danych w rozwijanej liście formantu ComboBox

To nie taki hop-siup: w VBA masz trochę ograniczoną liczbę obiektów którymi by można to wykonać w miarę prostu, więc trzeba samemu napisać dwa fragmenty kodu: jeden odpowiedzialny za wyłuskanie niepowtarzających się wartości z podanego zakresu i drugi, który je posortuje rosnąco (zakładając, że te dane mają być posortowane). Można by do tego wykorzystać...

Jak odświeżyć dane w ComboBox w Excel przy dodawaniu nowych pozycji?

Przeglądałem. Na jeden wątek znalazłem już rozwiązanie co do pkt. z odświeżaniem. Po prostu dołączyłem do kodu uruchamiającego formularz w arkuszu 1 wiersz: "Call UserForm2.UserForm_Initialize" Cały kod uruchamiający: [syntax=vbscript]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = 1 And Not Intersect(Target, Range("Description"))...

Excel VBA: Wyszukiwanie i wyświetlanie zadań z dzisiejszą datą w ListBoxie

[syntax=vbscript]Private Sub UserForm_Initialize() ow = Cells(Rows.Count, "BB").End(xlUp).Row For x = 2 To ow If Cells(x, "BA") = Date Then Me.ListTODO.AddItem Range("BB" & x) Next End Sub [/syntax]

Excel VBA: Rozbudowa kodu dla przycisków ActiveX i ukrywania kolumn

Np. przy inicjalizacji okienka/arkusza (bo nie napisałeś gdzie sią umieszczone boxy) wyłącz cztery checkboxy pozostawiając pierwszy. wersja dla okienka: "end sub" dla klikniecia checkboxa kod włączający kolejny checkbox. [syntax=vb]Private Sub CheckBox1_Click() For i = 60 To 64 If Columns(i).EntireColumn.Hidden = True = True Then Columns(i).EntireColumn.Hidden...

Jak wczytać wartość do ComboBox z ActiveCell i umożliwić wybór z listy?

Nie mam pojęcia co robię źle bo nie działa [syntax=vb]Private Sub UserForm_Initialize() Combobox1 End sub Private Sub UserForm_Activate() With Me.ComboBox1 ComboBox1 = Clear ComboBox1.SelText = ActiveCell.Offset(0, 5) ComboBox1.RowSource = "Dane!d2:d7" End With End Sub Private Sub UserForm_Initialize() Combobox1 end sub Private Sub ComboBox1_Click()...

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

VBA Excel Multipage - Błąd przy inicjalizacji wielu ListBoxów na stronach

...ListView, który jest inną kontrolką niż ListBox (ma inne właściwości i inaczej się do niego ładuje dane). Ten sposób ListView2.ListItems = "'BAAN 3'!G8:K97" ładowania danych NIE JEST poprawny dla ListView, zapomnij o nim. To działa tylko z ListBox'em. USUŃ z formy wszystkie ListBoxy które tam miałeś... Zamiast nich wstaw i skonfiguruj...

Jak ustawić pozycję formularza na ekranie w nowym Excelu? [Excel]

Chodzi mi o to by ulokować otwieraną formę pośrodku (centralnie) na ekranie. [syntax=vbscript]Private Sub UserForm_Initialize() frmkolekcjoner.StartupPosition = 0 frmkolekcjoner.Top = (Application.Height / 2) - (frmkolekcjoner.Height / 2) frmkolekcjoner.Left = (Application.Width / 2) - (frmkolekcjoner.Width / 2) End Sub[/syntax]

Jak zmienić ilość wyświetlanych kolumn w UserForm1

Możesz to przykładowo ustawiać kodem przy inicjalizacji formularza :spoko: [syntax=vbscript]Private Sub UserForm_Initialize() With Sheets("Arkusz1") ostWrs = .Range("A65536").End(xlUp).Row lista = .Range("A2:D" & ostWrs).Value 'zapisanie do tablicy 2LBox.ColumnCount = 4 2LBox.ColumnWidths = "60pt;230pt;10pt;50pt" 2LBox.List = lista End With End Sub[/syntax]

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]

[Excel, VBA] - Lista rozwijana zależna od pola wyboru.

[syntax=vbscript]Private Sub ComboBox1_Change() [F1] = ComboBox1 End Sub Private Sub OptionButton1_Click() Me.ComboBox1.RowSource = "Arkusz1!A1:A5" [F1] = ComboBox1 [E1] = "litera" End Sub Private Sub OptionButton2_Click() Me.ComboBox1.RowSource = "Arkusz1!B1:B5" [F1] = ComboBox1 [E1] = "cyfra" End Sub Private Sub UserForm_Initialize() Me.OptionButton1...

[vba][Excel] - Dodawanie pozycji listy do CmboBox (AddItem)

Witam Chciałbym prosić o wyjaśnienie przyczyny pewnego błędu. W mojej procedurze wykorzystuje metodę AddItem dla dodania nowej pozycji listy w kontrolce ComboBox. Wszystko jest ok gdy dodaję do listy kolejną pozycję problem pojawia się gdy na liście nie ma jeszcze żadnych pozycji, czyli gdy dodaję pierwszą pozycję. Fragment kodu wygląda tak: [syntax=vb]...

Puste comboboxy w UserFormie [Excel]: Ładowanie przy otwartych dwóch plikach i edytorze VBA

Nie ładują się comboboxy w UserFormie . Mam otwarte dwa pliki Excela na 1 monitorze , na drugim edytor VBA . W momencie uruchamiania formularza F5 gdy nie jest kliknięty plik odpowiadający uruchamianemu formularzowi , kontrolki texbox i listbox są puste . Nie wiem czy to może powodować jakieś komplikacje przy użytkowaniu przez inne osoby ? Pliki pobierają...

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

Excel/VBA - Sumowanie komórek z wyświetleniem wyniku

"Wyskakujące okno" - trzeba wykorzystać UserForm, MsgBox sie do tego nie przyda. Przy zdarzeniu Initialize formularza, wpisz wywołanie procedury zamykającej formularz przez Application.OnTime (opis z przykładem w pomocy). Sumuj przez Worksheetfunction.Sum(argumenty), wartość przypisz do Label.Caption i... to wszystko.

EXCEL, VBA - Jak stworzyć formatkę do modyfikacji numerów z zerami?

Kolejny problem :) Jak ustawić by ta formatka była zawsze na wierzchu? Próbowałem: Private Sub UserForm_Initialize() AlwaysOnTop Me.Caption End Sub Niestety nie działa :( Najlepszym rozwiązaniem byłby dodatkowy guzik na formatce dzięki któremu by się włączało / wyłączało status on top. Guzik wiem jak dodać itp ale kodu już nie :( Proszę o pomoc

Excel VBA - ComboBox - błąd podczas pobierania zawartości listy z tablicy

Nie analizowałem dokładnie, bo strasznie jakieś "nieprzyjazne" to makro. 1. Co ma znaleźć się w kolejnych ComboBox'ach? 2. Jakie zadanie ma ta linijka: 'Me.Controls(nazwa).ListIndex = .Cells(i, z).Value' 3. Raptem masz 3 ComboBox'y w jednej ramce. Dlaczego tak potwornie skomplikowałeś procedurę 'UserForm_Initialize'? Powiedz co i jak, to spróbujemy...

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

witaj dzieki: ale u mnie to nie dziala powiec co jest nie tak Wpisałem tak Private Sub UserForm_Initialize() Dim objExcel As Object Set objExcel = GetObject("c:\Zeszyt1.xls") End Sub Private Sub Command1_Click() Text1.Text = Workbooks("Zeszyt1.xls").Worksheets("Ark... End Sub pomocy prosze

formularz vba - zapis,edycja - Zapis i edycja wprowadzonych danych do formularza

Skoro tylko jeden rekord, to wystarczy, w UserForm_Initialize przywrócić wartości poszczególnych kontrolek. Tak naprawdę nie potrzebujesz dwóch przycisków - wystarczy jeden, który załaduje dane z istniejącego formularza (ten z UserForm1.Show). Cały kod zapisywania zamiast w module Formularze_VBA, proponuję umieścić bezpośrednio w zdarzeniu kliknięcia...

VBA Excel - Zdarzenie DblClick w Listview powoduje wystąpienie _Activate

Ano tak to już jest z Excelem ;) Nic nie jest doskonałe... Sama forma i jej podstawowe kontrolki są elementami tej samej biblioteki (FormCoćTam.dll). Natomiast ListView to w skrócie element "doklejony" z innej biblioteki (CośTam.ocx). Stąd "różne" zachowanie. Nie wiem do czego (nie opisałeś tego) potrzebne Ci zdarzenie przy aktywacji, ale jeśli możesz...

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

Excel opcja listy z autouzupełnianiem

Ad.1 Zerknij do ostatniej linii UserForm_Initialize. Tam jest przypisanie listy ComboBox'a do tablicy. Odwróciłbym to. Wykorzystałbym tę tablicę globalnie, z wypełnieniem jej już przy otwarciu pliku. W UserForm2 zamiast dodawania wartości do listy ComboBox'a w pętli, przypisywałbym tablicę. Plik co prawda będzie się otwierał ciut dłużej, za to inicjacja...

Excel - VBA Drukowanie. Dodanie opcji wyboru drukarki.

To że się poddałem nie znaczy że nie próbowałem. Uwierz że próbowałem ale nic z tego mi nie wychodzi. Nawet wkleiłem kod w takiej postaci jak zapodał kolega Aldrin do UserForm_Initialize ale to powoduje że ten kod jest już inicjowany w momencie jak kliknę na przycisk którym otwieram okno UserForm. A gdzie tam żeby kod był inicjowany po otwarciu listy...

Jak wywołać ListBox z innego arkusza w Excelu? Błąd przy UserForm.

A jak zrobić taką rzecz: mam zdefiniowaną nazwę dla danych z tabeli, które znajdują się w zakładce Baza. Listbox chcę wywołać przyciskiem z zakładki o nazwie Bilans jako Userform1.Show. Tym userformem jest właśnie ten z listbox, dla którego mam takie makro: Private Sub UserForm_Initialize() ListBox1.RowSource = Range("Firma").Address End Sub Kiedy próbuję...

VBA - Podpinanie do Combobox'a zdefiniowanej listy w arkuszu.

uchuchu aż tak dobry jeszcze nie jestem... Coś jaśniej ? Dodano po 1 Mam coś takiego i mi nie działa. Gdzie błąd ? Dodano po 35 Kolega wie czy nie bardzo ?

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 wyświetlić numer wiersza wybranego pracownika z ListBox?

Poniższy kod pokazuje listę w ListBox, i chciałbym aby po kliknięciu (zaznaczeniu) żądanej pozycji w arkuszu w odpowiedniej komórce pokazało w jakim wierszu znajduje się ta pozycja: [syntax=vb]Private Sub UserForm_Initialize() Dim ostWrs As Long With Sheets("4") ostWrs = .Range("B65536").End(xlUp).Row Lista = .Range("B2:D" & ostWrs).Value lstFiltr.ColumnCount...

Visual Basic - Excel, wklejanie text boxa do komórek

Chcę aby to co znajduje się w Label po kliknięciu Buttona znalazło się w komórce np. h14 ..jak dodać pozycję (chodzi mi o items) w ComboBox ? [syntax=vb]Private Sub UserForm_Initialize() ComboBox1.AddItem "Nowak" ComboBox1.AddItem "Kowalski" ComboBox1.AddItem "Jackowski" ComboBox1.AddItem "Majewski" ComboBox1.AddItem "Wojewódzki" End Sub[/syntax]

Excel - user form - problem z wyłączaniem skoroszytu

Witam stworzyłem plik Excel, który planowo ma działać tak, że po uruchomieniu programu skoroszyt jest niewidoczny a jedynie samo okno UserForm. Problem jest taki, że faktycznie uruchamia się sam UserForm, jednak gdy wywołam jakikolwiek arkusz poprzez przycisk w UserForm, to przy jego wyłączaniu - wyłączają się wszystkie inne arkusze. Użyty przeze mnie...

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

[Listy rozwijane VBA] ComboBox1 działa poprawnie, Combobox2 nie wyświetla listy - kod wewnętrzny

Witam, mam problem z listą rozwijaną Combobox2, w Combobox1 wszystko jest w porządku - po wybraniu pierwszych znaków pojawia się lista rozwijana. W Combobox2 nie mogę jej uzyskać. Oto kod: [syntax=vbscript]Private Sub UserForm_Initialize() Dim ost As Long With Arkusz1 ost = .Cells(.Rows.count, "C").End(xlUp).Row If ost = 2 Then ComboBox1.AddItem .Range("C3").Value...

jak dodać dane do konkretnego arkusza używając inputboxa w user form

jak dodać dane do konkretnego arkusza używając inputboxa w user form Np. tak: .MatchRequired = True ", a z drugiej poprzez " If cbGra.ListIndex = -1 Then Cancel = True ". Teraz bez wyboru, jakiejś wartości z listy, klawisz dodawania gier jest "nieaktywny", a nieistniejącej, na liście, gry nie wybierzesz. Możesz to zrobić "pośrednio", jak wyżej w kodzie,...

Jak zrobić listę rozwijaną za pomocą combo box?

Projektując formę, we właściwościach comboboxa masz RowSource. Możesz je ustawić tak, aby wskazywało źródło danych w arkuszu, np. [syntax=vb]Sheet2!A1:A7[/syntax] Jeżeli zakres może się zmieniać dynamicznie, wtedy np. w zdarzeniu Initialize formy wstawiasz: [syntax=vb]Private Sub UserForm_Initialize() ost_w = Sheet2.Cells(Sheet2.Rows.Count, 1).End(xlUp).Row...

Jak dodać wiadomość przy konkretnym warunku VBA Excel

Poszukuję pomocy w pewnej błahej pewnie sprawie. Napisałem ponizsze makro które pozwala mi na wybranie w combo boxie tylko danych z listy. Wszystko jest fajnie tyle tylko iż wolałbym aby zamiast standartowego komunikatu móc wpisać własny. Z góry dziękuję za pomoc Dodano po 1 Dodano po 1 może pomocny bedzie plik z danymi

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

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

Sprawa jest zapewne prosta, ale siedzę już kilka godzin nad tym i nic nie mogę znaleźć w tym temacie. Ogólnie mam jakiś tam plik w którym otwiera się okno TextBox ze zwykłym butonem który ma potwierdzić wprowadzone zmiany w oknie TextBox. Napisałem taki kod do tego UserForm: Private Sub CommandButton1_Click() Arkusz2.Range("A3")...

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

Witam Dziś postanowiłem pobawić się Combobox'em. Może ktoś pomoże jak mógłbym to zrobić i czy jest to do zrobienia. Chce w Userform'ie zrobic Combobox'a z listą - to osiągąłem przez: Private Sub UserForm_Initialize() Worksheets("Arkusz1").... ComboBox1.RowSource = "B5:B170" End Sub Listę mam a chciałbym aby...

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 - stoper - Niestabilne działanie. Olbrzymia zasobożerność.

Cześć, niżej wrzuciłem kod dla stopera, który wyświetla się w prezentacji PowerPoint. Niestety skrypt pożera olbrzymie zasoby i bywa niestabilny. DA się go jakoś zoptymalizować ? [syntax=vbscript]-----------------------... Dim dteStart As Date Dim dteFinish As Date Dim dteStopped As Date Dim dteElapsed As Date Dim...

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

Makro VBA: Debugowanie błędu przy edytowaniu danych z listy w Excelu

Witam Mam takie makro wyrzuca mi debuga w jednym miejscu i nie moge dojś dlaczego? Co jest nie tak? Private Sub cmdEdytuj_Click() ' Wprowadzenie danych z listy do okienek pozycja = lstSala.ListIndex If pozycja = -1 Then MsgBox "Nie wybrano danych do edycji" & Chr(10) & "Wybierz dane do edycji." Exit Sub End If For k = 1 To 29 Controls("txt" & k & "v").Value...

Excel - VBA jak zrobić Forme "zawsze na wierzchu" ?

Dzięki to znalazłem sam w sieci sęk w tym, że nie wiem jak z tego skorzystać :/ Dlatego proszę o pomoc tutaj jestem początkujący w VBA :) Put this in a module: Code: [syntax=vb]Private Const SWP_NOSIZE = &H1 Private Const SWP_NOMOVE = &H2 Private Const HWND_TOPMOST = -1 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName...

Jak zrobić aby Excel widział datę, liczbę i czas nie jako tekst kody VBA

witam, tworzę pierwsze VBA i mam problem dane które są podawana Excel widzi jako tekst i po ich wpisaniu formuły nic nie wykonują. Jakich kodów użyć aby data, liczba i czas był widziany przez Excel nie jako tekst. Moje wypociny bardzo prymitywne kiedyś trzeba się czegoś nowego nauczyć. [syntax=vbnet] Private Sub cmbAnuluj_Click() Unload Me End Sub Private...

Listview Excel VBA - Pobieranie danych z funkcji Jeżeli i Wyszukaj.Pionowo

Mam UserForm z MultiPage i Listview i do Listview są pobierane informacje z arkusza1 z komorek od G8 do M97 z tym że w kolumnach L i M mam funkcje w arkuszu: Kolumna L: funkcja Jeżeli Kolumna M: funkcja wyszukaj pionowo Jeżeli z tego kodu: Private Sub UserForm_Initialize() Dim listItem As listItem With Worksheets("arkusz1")....

Excel 2007: Jak wyświetlić dwie kolumny w Combobox i zapisać jedną?

Czy można i jeśli tak to w jaki sposób wyświetlać w combobox listę składającą się z dwóch kolumn Jeśli chodzi o dwie kolumny w combobox'ie Wartość BoundColumn to kolumna, z której pobierane są dane. http://obrazki.elektroda.pl/5731555800_1... http://obrazki.elektroda.pl/3873566000_1... Wczytanie zakresu z kolumn A:B oraz wpisanie...

VBA - Jak przypisać kilka czynności do jednej pozycji z ComboBOX w Excel VBA

Witam, w Excel VBA zrobiłem sobie formularz w ktorym dodałem ComboBox zawierający dane z arkusza 1 od B2 do B10. Po wybraniu pozycji w ComboBox program wstawia mi tą wartość do komórki F9 w arkuszu 3. Chcę teraz wstawić zależność, że jesli w Combobox zostanie wybrana pozycja nr1 to do kolejnej komórki zostanie pobrana inna wartość już z arkusza 2. Mam...

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

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

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

Chętnie bym poczytał na temat kolekcji Control i innych. Możesz coś podrzucić? Na forum nie mogę znaleźć. Poniżej kod programu. Załączyłem również plik. [syntax=vb] Private Sub UserForm_Initialize() Dim liczba_wierszy As Integer ' zawiera liczbę niepustych wierszy w pliku excel liczba_wierszy = 0 For Each c In Arkusz2.Range("A2:A35") ' pętla zwraca...

Jak w Visual Basic zliczyć godziny pracy pracownika w Excelu?

Proponuję: W arkuszu "ewidencja" w G2 wpisać formułę: =(F2-E2)*24 format liczbowy i mamy godziny pracy. Trochę więcej zachodu będzie jeśli zakończenie pracy jest następnego dnia Np 23:30 do 6:15 (chociaż z arkusza wynika, że nie). Kod formularza UserForm4 przy inicjowaniu moim zdaniem powinien wyglądać tak Private Sub UserForm_Initialize() licznik...

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

Chyba błąd jest bo poprzez nieodpowiedni wpis w okienko próbujesz zdefiniować tablicę z zerową lub ujemną pozycją w pierwszym jej wymiarze Spróbuj dodać warunek i w razie braku danych zatrzymaj procedurę. Nie wiem jak wpłynie to na dalsze działanie programu. Jeżeli wyskoczą dalsze błędy trzeba by był postąpić z nimi analogicznie. Wracając do kodu myśle...

Excel VBA – jak utworzyć listę rozwijaną z nazwami arkuszy i przejście do wybranego

Sam kod w VBA, w najprostszej postaci, nie jest skomplikowany. Z pewnych wzgledów jest to bardzo uproszczony sposób na uzyskanie zamierzonego zadania. Na poczatek należy jasno okreslic pewne warunki jak ma dzialac taka procedura. Po pierwsze to w zadnym przypadku nie powinno sie do tego celu korzystac z dodatkowego arkusza. Po drugie procedura powinna...

VBA - Początki z Userform - Dodawanie/usuwanie do/z listobox

Powoli idę do przodu, aktualnie mam tyle: [syntax=vbscript] Private Sub UserForm_Initialize() Set ws = Sheets("Setup") ws.Activate LoadList End Sub Private Sub AddButton_Click() If Me.TextBox1.Value = Empty Then MsgBox "You must enter the fund code", vbCritical, "Inut required" Exit Sub End If ws.Cells(ws.Rows.Count, 1).End(xlUp).Value = Me.TextBox1.Value...

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] Excel - Jak stworzyć wyszukiwarkę gier z filtrowaniem kategorii i platform?

Witam Prawdopodobnie jest, to nie tylko jest tak szybko zrobić. To praktycznie wszystko od nowa robić. I do tego, aby być trochę czasu. Tak co na to? Do UserForm1: [syntax=vb]Private Sub CheckBox1_Click() wybor End Sub Private Sub CheckBox2_Click() wybor End Sub Private Sub CheckBox3_Click() wybor End Sub Private Sub CheckBox4_Click() wybor End Sub...

[VBA] Jak narysować linię na UserFormie w Excel 97 na Windows XP?

Od kilku dni próbuję zmusić Ex97 na WinXp do rysowania prostych grafik na UserFormie. Jakoś maszyna mi się zawzięła i nie poddaje się mojej woli. W akcie rozpaczy chwyciłem się WinApi, ale też lipa, lub jak kto woli zonk. :cry: Poniżej cały kod, który ma narysować linię: [syntax=vb]Option Explicit Private Declare Function GetDC Lib "user32" (ByVal hwnd...

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 = ""...

[VBA, EXCEL] Wprowadzanie danych za pomoca inputbox itp - ruchome komórki

... działa świetnei do momentu, kiedy zamiast 6 produktów faktura ma 7 produktów, tak więc dodaje nową linie z produktem, co automatycznie przesuwa mi komórke C5, w której ma byc numer zamówienia jedna linie niżej czyli teraz mój inputbox musi wstawi numer zamówienia do komórki C6, a nie C5. Ale przy powyższym kodzie zawsze będzie wstawiał do C5 -...

Jak napisać kod VBA w Corel 2018 do importu plików pdf/eps z wyborem lokalizacji?

Witam Wszystkich. Szukam pomocy w napisaniu do Corela 2018 kodu VBA w którym będę mógł wybrać z określonej lokalizacji plik pdf lub eps, https://obrazki.elektroda.pl/2043852100_... a jaśniej: z listy 'Dysk sieciowy' wybieram zmapowany dysk sieciowy. W tym przykładzie N:\ https://obrazki.elektroda.pl/8073350000_... z...

Jak ukryć plik Excela podczas działania makra z UserForm?

Witam, Pracuję od dłuższego czasu nad makrem i niestety napotkałem kilka znaczących problemów, których pomimo szukania nie mogę zlikwidować. Makro działa w następujący sposób: 1. Po kliknięciu ikony pojawia się UserForm, który posiada różne opcje do wprowadzenia pewnych wartości do arkusza. 2. Wybieram przycisk "RUN", który odpala makro- makro ma za...

Makro VBA 6.3 z Excela 2003 nie działa po edycji w Excelu 2007

Niestety mi ten plik nie działa ale poniżej jest makro z uszkodzonego pliku i po wklejeniu do sprawnego pliku -działa dalej. wiec nie jestem teraz pewny czy to napewno makro ... Private Sub ComboBox1_Change() End Sub Private Sub UserForm_Initialize() lista1 = Array("Oferta", "Zamówienie", "Specyfikacja", "Pismo", "Protokół", "Reklamacja") ComboBox1.List...

Jak zrobić makro w vba, aby dane z arkusza2 zaciągały się do tabeli w arkuszu1

Niestety nie może to być tabela przestawna bo dane mają wpisywać się do pewnej przygotowanej już przez kogoś innego tabeli stanowiącej Formularz, z którego będą korzystały różne osoby. Dodano po 17 Właściwie to metodą prób i błędów większość udało mi się zrobić. Dla UserForm1 i UserForm2: Proszę pamiętać o używaniu znaczników syntax . Opcja Listing...

Makro VBA: Porównywanie wartości z ComboBoxa i TextBoxa z arkuszem Rejestr

Witam Makro ma porównywać wartości z ComboBoxa txt1 z danymi w 1 kolumnie arkusza "Rejestr" oraz wartości z TextBoxa txt2 z danymi w 2 kolumnie arkusza "Rejestr". Jeżeli tekst z txt1 jest już w kolumnie pierwszej arkusza „Rejestr” oraz jednocześnie tekst z txt2 też jest odpowiednio w kolumnie drugiej arkusza „Rejestr” to makro...

Jak filtrować dane za pomocą pola: 'Combo'? Formularz w Excelu.

skopiowalam twoj kod i dostosowalam do kolumn i teraz mam w formularzu w odpowiednich listach odpowiednie kolumny ale jak mam zrobic zeby mi zawezalo te listy czyli jak wybiore Suchbegrif to zostana mi przefiltrowane Selektion i tak samo Stärke tak jakbym filtrowala w Tabeli.. i teraz wyswietlaja mi sie Artikel przefiltrowane tylko przez Suchbegrif...

Excel- Jak utworzyć listę pracowników w ComboBox

Już znalazłem w necie jak to można zrobić. Wpisałem w VBA 'Initialize' poniższy kod i działa wyśmienicie. Jednak w opisie było jeszcze podane żeby zakres listy z pracownikami nazwać i w odnośniku do zakresu wpisać =OFFSET(Lists!$A$2, 0, 0, COUNTA(Lists!$A:$A)-1,1) Jednak opis jest z anglojęzycznej stronki i nie wiem co to jest w PL wersji OFFSET i COUNTA....

vba makro - combobox nie zapis danych do komorek vba

A list do Gwiazdora (i żeby zawsze na moje posty odpowiadali) napisałeś? :) Prościej chyba już się nie da. 1. zadeklarowałem zmienną globalną (kolumna) w Module1 - przypisanie w kodzie arkusza 2. którą podstawiłem w 'Initialize' UserForm2 3. Wesołych Świąt 4. Pozdrawiam

VBA Word: Makra nie działają poprawnie po zapisie pliku z formatu docm do dotm

Witam wszystkich forumowiczów Może ktoś się orientuje w problemie i pomoże lub zasugeruje gdzie należy błędu szukać. Otóż w Wordzie (plik docm) zrobiłem takie makra: Private Sub UserForm_Initialize() Klient.Lista.List = Array("Stacja w Bełchatowie", "Stacja w Brzezinach", "Stacja w Kutnie") End Sub Private Sub Wstaw_Click() ThisDocument.Stacja = Klient.Lista...

Excel VBA: filtrowanie arkusza przez UserForm – imię (kolumna Q) i miasto (kolumna L)

Troche pozmienialam koncept i kod wyglada nastepujaco: [syntax=vb]Sub filt() Dim sh As Worksheet, init As String Set sh = ActiveSheet init = InputBox("Enter the initials to find.", "SEARCH CRITERIA") If init = "" Then MsgBox "Invalid Entry" Exit Sub End If sh.AutoFilterMode = False sh.Range("A5:DD100").AutoFilter 17, init End Sub[/syntax] Teraz moj...

Jak ustawić kolor wierszy w ListView na czerwony przy wartości X?

Mam Userform z Multipage'em (2 zakładki) i na każdej po jednym Listview. Listview ma 10 kolumn i 500 wierszy. W kolumnie 7 Listview (w arkuszu to jest kolumna M) jest funkcja JEŻELI która wskazuje albo X albo poprostu nic. I teraz chcę żeby w Listview wiersze gdzie jest X robiły się czerwone. Mam coś takiego ale gdzieś jest błąd. Może mi ktoś pomóc?...