rowsource

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]

Jak ustawić RowSource w Excelu, aby pominąć kolumnę C w listbox?

Metod jest kilka możesz rozszerzyć tą funkcję (czy zakres) do D i w listboxie przez np. ColumnWidths = "20;20;0;20" "ukryć" wyświetlić tylko interesujące kolumny

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

[exel] VBA Excel: Dlaczego czasami ComboBox jest pusty mimo ustawionego RowSource?

Prawdopodobnie nie zawsze masz aktywny właściwy arkusz. Uzupełnij odwołanie Np Me.ComboBox9.RowSource = Sheets("Arkusz1").Rang... 21), Cells(33, 21)).Address ' data

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

Tak. Możesz nawet nie pisać: ComboBox4.RowSource = "Listka" a we właściwościach ComboBox4 (okienko combobox'a na Form) we "właściwości" RowSource wpisać "Listka" i też zadziała. Warunek: taka nazwa musi być w arkuszu.

[Excel][VBA] Błąd Unspecified error przy usuwaniu z ListBox2

Objawy jednak jak przy przypisaniu przez RowSource. Pokaż Initialize tego formularza.

VBA: Jak przypisać arkusz do ComboBox w UserForm?

Wlasciwosc RowSource w projektowaniu - np. luty!A1:A28

Jak ustawić makro dla CommandButton3 do wyświetlania nazwisk i funduszy?

Można przypisywać zakresy w kodzie przycisków.[syntax=vb]Private Sub CommandButton3_Click() ComboBox2.RowSource = "'Wpis'!c8:c20" End Sub Private Sub CommandButton4_Click() ComboBox2.RowSource = "'Wpis'!C25:C29" End Sub[/syntax]Co do drugiej części pytania: Domyślam się, że wartość ma być pobierana z wiersza określonej kolumny. Spróbuj z 'ComboBox2.ListIndex'.

RowSource w TextBox1 - RowSource w TextBox1 nadpisuje wszystkow jednej linii

Zastosuj AddItem. Próbowałem, AddItem dodaje tylko jedna kolumne, a potrzebuje 7

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

ListBox1.ColumnCount=9 ListBox1.RowSource = "Arkusz2!A1:I400"

wczytywanie danych z wielu kolumn za uzywajac combobox i labela

1) Kod nie w tym miejscu 2) Nie przypisane zakresy do comboboxów Właściwości pola, RowSource 3) Brak znaków rozdzielających Poza tym wszystko OK :)

VBA Excel - Jak zapisać oceny dostawców z UserForm do arkusza?

Zrobic gotowy dlugo potrwa, tym bardziej ze cala logika nieznana. Zobacz w tym przykladzie, zwlaszcza wlasciwosci BoundColumn, RowSource dla ComboBox i ControlSource dla wszystkiego i kombinuj.

[VBA Excel] Dynamiczne definiowanie ListBox do wykorzystania w ComboBox1

[syntax=vb] Set Zmienna = Docel.Range(Cells(l_pw, l_kol), Cells(l_ow, l_kol)) ComboBox1.ColumnCount = 1 ' ComboBox1.List() = Zmienna ComboBox1.RowSource = Docel.Name & "!" & Zmienna.Address [/syntax]

[EXCEL,VBA] Jak poprawnie sortować dane z MySQL w Excel VBA?

Cudów nie ma. komenda_SQL = "SELECT * FROM Test.Baza ORDER BY Nazwa ASC" W Akcesie stosuję: [syntax=vbscript]Me.ListBox1.RowSource = rs [/syntax] Myślę, że w Excelu też się da.

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 - Błąd przy wyświetlaniu listy z jednym wpisem w kodzie VBA

lstKierownik.RowSource = "DataBaza!C2:C" & ostWrs RowSource - jest String, nie Range Dodano po 1 Lista = .Range("C2:C" & ostWrs) - to nie trzeba Dodano po 35 lstKierownik.ColumnWidths = 50 - (72 minimum)

[ACCESS] Wyszukiwanie i zaznaczanie na ListBox wartości z kontrolki txt

czasem nie ładuje się cała lista do Listbox (Zlecenie_lista) Domyślam się, że robisz ten formularz w Accessie :?: :cry: Jeśli masz jakiś problem z ładowaniem listy do Listboxa to pokaż raczej kod ładowania tej listy do tego Listboxa :D (bo tam należy szukać przyczyn błędów :idea: ). Jeśli wykorzystujesz zdarzenie AfterUpdate pola txt to na samym początku...

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

dlaczego ograniczenie listy następuje dopiero po wpisaniu spacji Należy zmienić warunek porównujący stringi. Funkcja InStr szuka także wewnątrz. Np pamiętasz, że sala ma w nazwie "020" a nie pamiętasz początku. W przypadku długich ciągów metoda nie sprawdza się. Spróbuj [syntax=vb]If UCase(Left(lista(i, 2), Len(txtOpisSali.Text))) = UCase(txtOpisSali.Text)...

Aktualizacja danych w textbox na podstawie innej wartości z Comboxa Access VBA

Przyznam, że nie wiem o co Ci chodzi.:( Jeżeli chodzi Ci o to by kombi2 aktualizowało źródło wierszy po aktualizacji pola kombi1, to po aktualizacji kombi1 daj kod: [syntax=vbscript]Private Sub Kombi1_AfterUpdate() Me.Kombi2.RowSource = "SELECT * FROM Tabela1 WHERE Pole2 = '" & Me.Kombi1 & "'" End Sub [/syntax] Jeśli chodzi o pytanie w temacie, to:...

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

Jak zaznaczysz na formie comboboxa, to RowSource - i inne właściwości - są w okienku Properties. Jeżeli go nie widać, to włącz je wybierając z menu View -> Properties Window. Co do reszty to masz ją w załączniku. Polecam Ci przerobić najpierw jakiś kurs z podstaw VBA, bo bez tego daleko nie zajdziesz, [url=http://www.mielk.pl/pl/kursy/kursy....

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

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

Niestety nie mogę zobaczyć pliku, nie mogę go nawet pobrać z internetu - admin zablokował. No to teoretycznie: Tak sobie myślę skąd makro ma wiedzieć z którego pliku pobrać dane? Sprawdź czy jest to jawnie określone w RowSource. Nazwany Range też może nie mieć właściwego (pełnego) adresu i próbuje brać z ThisWorkbook. Wyświetl sobie co tam dokładnie...

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

1. [syntax=vb] For Each c in Me.Controls If c.Name Like "DEF*" Then If Left(c.Value, 2) = "LK" Then c.RowSource = "DEF_LIST!A2:A300" End If If Left(c.Value, 2) = "MN" Then 'itd. End If Next[/syntax] Zamiast 4 If lepiej Select Case Left(c.Value, 2) Case "LK" : c.RowSource = "DEF_LIST!A2:A300" Case "MN": c.RowSource = "DEF_LIST!C2:C300" itd. End Selest...

Excel - Baza danych zapis/odczyt - arkusz czy plik tekstowy?

Witam ponownie. Mam w moim pliku poniższy kod którym po aktywacji okna UserForm wpisuje zakresy do odpowiednich okien. Wszystkie listy z zakresami są umieszczone w pomocniczym arkuszu. Jak zrobić żeby kod pobierał zakresy nie z arkusza ale z osobnego pliku tekstowego? Do jakiego pliku tekstowego wrzucić moje zakresy i jak przerobić kod żeby te zakresy...

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

ActiveSheet.Name = "." - Trudno wymyślić nazwę? [syntax=vb] Worksheets("Dane - zestawienie").Activate ComboBox1.RowSource = "D6:D15" ComboBox2.RowSource = "D1:D5" ComboBox3.RowSource = "D1:D5" ComboBox4.RowSource = "A28:A52" [/syntax] - Wszystkie zakresy puste

[Excel/VBA] Wczytanie danych z txt do dwóch Combobox'ów

W Listboxie możesz ustawić ColumnCount = 5 i RowSource = =PRODUKTY!B2:F46 Ewentualnie, przy klinięciu przycisku START wczytać dane ręczenie wiersz po wierszu: [syntax=vb]Private Sub cmbstart_Click() With Worksheets("PRODUKTY") For i = 2 To .Range("B" & .Rows.Count).End(xlUp).Row PROG1.ListBox1.AddItem PROG1.ListBox1.List(i - 2, 0) = .Range("B" & i)...

MS Access 2007/2010 - Jak sortować listboxa wielokolumnowego bez SQL?

Zapytanie sql jest dość długie... Jego skrócenie wiązałoby się ze sporymi przeróbkami a i tak obawiam się, że byłoby ponad 256 znaków... Nic nie przerabiaj, nic nie skracaj. ak działa .RowSource? Próbowałem tak: Me.Lista.RowSource =""SELECT * FROM Zapomniałeś o Me.Lista.Requery.

Lista rozwijana z autouzupełnianiem ze źródłem w innym pliku

Wskazuje źródło Jak? 'list', 'rowsource', itp. czy masz poprawność danych?

Jak sprawdzić unikalność danych z UserForm w Excelu przed dodaniem do arkusza?

Ok, to najlepiej w bloku cmdDodaj_Click() za wszystkimi ifami sprawdzającymi poprawność danych dać coś takiego. Myślałem, że te dane są przeliczane na arkuszu i dopiero sprawdzane względem poprawności. Takie coś załatwia sprawę: [syntax=vb]If WorksheetFunction.CountIf(Sheets("Rejest... txt4.Text) > 0 Or _ WorksheetFunction.CountIf(Sheets("Rejest...

Jak wpisać tekst do nagłówka ListBox w Excel VBA?

No tak, w listboxie na formie to jest parametr RowSource. Dla danych jak wyżej ustawiasz go przy projektowaniu na: [syntax=vb]Sheet1!A2:B6[/syntax] lub w kodzie programu: [syntax=vb]ListBox1.RowSource = "=Sheet1!A2:B6"[/syntax]

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

Tam, gdzie jako źródło wierszy do listboxa masz nazwy ze spacją , musisz umieścić je w apostrofach . Czyli w UserForm4, MultiPage1_Change() możesz usunąć, wystarczy że zostawisz to (zwróć uwagę na apostrofy!): Private Sub UserForm_Initialize() ListBox1.ColumnCount = 5 ListBox1.RowSource = "'BAAN 2'!G8:K97" ListBox2.ColumnCount...

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

Potrzebna jeszcze nazwa arkusza. Np "Baza!" & Range("Firma").Address lub po prostu: ListBox1.RowSource = "Firma"

[ACCESS] wartości z kilku kwerend w jednym polu kombi

Pokażę Ci na przykładzie, ale do swojego programu musisz sobie sam dopasować. W ogóle to najlepiej by było wstawić te dane do jednej tabeli, z pierwszą kolumną po której filtrujesz. Wówczas pole drugie jest zasialane zapytaniem SQL z warunkiem WHERE xxx = Kombi1 Jak masz je w kilku tabelach to więcej roboty dla Ciebie. Na formularzu są dwa niezwiązane...

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

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

Makro do czyszczenia kontrolek ComboBox: Kraj nie czyści Zakres

w właściwościach combobox8 usuń zakres z RowSource

Excel VBA - porównywanie wartości ComboBox'ów z różną ilością cyfr

wartości są brane z listy rozwijanej, a do list rozwijanych wprowadzane sa z tabeli exel przy użyciu: Me.ComboBox1.RowSource = Range(Cells(5, 3), Cells(16, 3)).Address 'ilosc godzin pracy Me.ComboBox2.RowSource = Range(Cells(4, 3), Cells(a, 3)).Address 'ilosc godzin uciazliwych Me.ComboBox3.RowSource =...

VBA Excel - Jak filtrować drugi ComboBox na podstawie pierwszego?

Tak ma pan racje. Jesteś na forum więc, nie musisz używać zwrotów grzecznościowych (chyba, że adamas_nt ma inne zdanie w tym zakresie, ale miałem już kiedyś konto na elektrodzie i nie spodziewał bym się tego po Nim :D ). udostepniłem tylko tę część kodu. Właściwie to nic nie udostępniasz... Cały twój kod można zastąpić wpisem: [syntax=vb]'wczytuje...

EXCEL: ListBox nie wyświetla danych w 11 i 12 kolumnie - co poprawić w kodzie?

Witam 1. AddItem ma limit do 10 (0-9) 2. Przez AddItem nie da rady przypisać nazw jedynie przez RowSource

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

Jeżeli "Kierownik" to zakres paru komórek które mają być wyświetlane w comboboxie to wystarczy kod: [syntax=vb]cmbSzef1.RowSource = "Kierownik"[/syntax] bez żadnych zmiennych i pętli.

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

zobacz to [syntax=vb]With Me.ComboBox1 .Clear .SelText = ActiveCell.Offset(0, 5) .RowSource = "Arkusz1!d2:d7" End With[/syntax]

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

Jednak mam error na ListBox2.RemoveItem I jak w załączniku... Witam Masz błąd bo masz listboxa załadowanego przez rowsource musisz zmienić na addithem

Excel VBA [ tworzenie formularza z danymi z komórek excela]

W całości popieram zdanie kolegi jankolo (i żeby nie było, że ceruję się u moderatora) :D Toteż nie podeślę gotowca. Odpowiem tylko na zadane pytania. Czy muszę dla każdego z tych produktów tworzyć osobny warunek If Nie. czy mogę zastąpić to jakąś petlą Nie trzeba. w jaki sposób? Tworzysz formularz. Umieszczasz na nim Combobox -a i Label -a. Właściwość...

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

Sprawa się trochę komplikuje. Jak przypiszemy źródło poprzez RowSource, to lista jest tylko do odczytu. Jak chcemy użyć metody List(), to się okazuje, że limit kolumn jest 10. Trzeba pokombinować. Z drugiej strony List Box, to lista żeby z niej coś wybrać.

VBA Zapisanie listboxa do txt - Jak zapisać całą tablicę "listbox" do

plik tekstowy bezpośrednio do "listboxa" To nie probowalem. Zrobil by kwerende do pliku, przypisal nazwe np. 'danelist' w RowSource wpisal =danelist Teoretycznie. Sprobuj.

VBA export wybranych pozycji z listbox'a do innego pliku

Witam serdecznie, Mam mały problem. Napisałem kod który pobiera dane z listbox'a po wyszukaniu potrzebnych pozycji i exportuje go do innego workbooka. Wszystko fajnie działa, tylko chciałbym, żeby exportowało mi nie całą tabelę po zawężeniu wyszukiwania, lecz faktycznie zaznaczone pozycje. Domyślam się, że zamiast rowsource trzeba użyć select, lecz...

Access 2010 - Jak dodać pole kombi do formularza filtrującego?

W zdarzeniu przy kliknięciu przycisku 'Szukaj' musisz skleić zapytanie z warunkami Nr, KombiKlient itd, a potem: [syntax=vb]Me.Lista0.RowSource = TwojeZapytanie[/syntax]

Filtrowanie danych w Access: Wybór kraju i miast bez duplikatów

A dlaczego nie mogę Przeanalizuj kod. [syntax=vbscript]Private Sub Commande5_Click() Dim s As String For Each it In Me.Lista8.ItemsSelected s = s & "'" & Me.Lista8.ItemData(it) & "'," Next If s = "" Then Exit Sub CurrentDb.QueryDefs("Address Req").SQL = "SELECT Name, Country, City FROM Table1 WHERE City IN (" & Left(s, Len(s) - 1) & ")" DoCmd.OpenForm...

VBA EXCEL - Jak ograniczyć wpisywanie wartości w Combobox do listy?

W jaki sposób można się uchronić przed błędem "invalid property value" w comboboxie? Nie blokując wpisywania? W pozycji RowSource jest umieszczona lista z wartościami tekstowymi. Ewentualnie czy jest możliwe ewentualnie czy jest możliwe wyrzucenie msgbox'a zamiast błędu?

Jak zmienić format daty w VBA dla dni 1-12 i dodać comboboxy?

Proszę o pomoc, bo sam nie mogę rozgryźć już tego problemu Dlatego podpowiadam gdzie widzę źródło potencjalnych błędów, żebyś mógł samodzielnie je wyeliminować. Bez względu jakiego uczyłeś się języka w szkole :D - odnośnie Excela i VBA musisz zapamiętać, że program zawsze operuje datą jako wartością liczbową (np. dzisiejsza data dla niego to zawsze...

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

Jak aktualizować dalsze pola na bazie pierwszego? Access i VBA after_update.

Trudno ocenić na podstawie samego (wadliwego niewątpliwie :cry: ) kodu co Ty chcesz zrobić :?: Generalnie w formularzu dzięki procedurze AfterUpdate można uzyskać efekt, że po zmianie pola tzw. wyzwalacza - automatycznie zaktualizują się inne kontrolki formularza :ok: Wydaje mi się, że najlepiej zilustrować taki kod działającym przykładem :D [syntax=vbscript]Private...

Excel- VBA- Combobox zmiana formatu aby wyświetłaa sią godzina w formacie hh:mm

To jest dość niewdzięczne zadanie, bo ComboBox przechowuje dane w postaci tekstu i jeśli są to liczby, to z kropką dziesiętną. Ty masz w arkuszu dane liczbowe tylko sformatowane jako czas, więc gdy przenosisz to do ComboBox jako RowSource, to on dostaje liczby, a nie czas. Spróbuj tak: [syntax=vbscript]Private Sub ComboBox1_Change() If Val(ComboBox1.Value)...

VBA w Excelu - automatyczna zmiana wyboru z listy rozwijanej

Wszystko fajnie, tylko zmiana drugiego formularza (Polska, Niemcy, Anglia) powoduje zmianę w pierwszym Ale tak wynika z Twojego opisu. Teraz to już nic nie rozumiem ;) Listę do ComboBox/Listbox mozna przypisać na wiele sposobów (z tablicy .List=tablica, z zakresu .rowsource=Range(), pojedynczo przez add). Dokładnie opisane jest to w pomocy.

EXCEL- ComboBox, ListBox: Listy rozwijane i inne możliwości

Witam ponownie. Czy w ListBox , w którym mam ustawione np. 3 kolumny jest możliwość aby dla każdej kolumny ustawić inny zakres RowSource ? Mam trzy różne zakres i każdy z nich chciałbym wyświetlić w osobnej kolumnie jednego ListBox-a . Czy można coś takiego zrobić?

MS Access - Filtrowanie listbox'a wielokolumnowego wg dat i raport

[syntax=vb] Dim db As DAO.Database Dim qdf As DAO.QueryDef Set db = CurrentDb Set qdf = db.QueryDefs("kwTwojFiltr") qdf.SQL = strSQL Set qdf = Nothing Set db = Nothing Me.Lista33.RowSource = "kwTwojFiltr" [/syntax] W powyższy sposób kwerenda 'kwTwojFiltr' będzie źródłem tak dla listy, jak i raportu. A co do daty, to 'WHERE DataZakupu >= #" & Me.PoleZData...

VBA Excel - wartość z textboxa definiuje listę do comboboxa oraz różnica dat

Ad1). Poradziłem sobie dodając poprostu listy w osobnym arkuszu oraz wykorzystaniem If Me.TextBox2 = "GDAŃSK" Then Me.ComboBox4.RowSource = "USTAWIENIA!J2:J50" End If Działa. Ad2) jeśli chodzi o różnicę dat to w obu textboxach mają być wpisane w formacie RRRR-MM-DD, i tak np chciałbym uzyskać ilość miesięcy między obiema datami.. Nie mogę sobie z tym...

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

... cmbGra3 nie aktualizuje sie po dodaniu nowej gry... W procedurze ' btnSubmit2_click ' formatki ' UserForm1 ', w sekcji wewnętrznej ' Else ', wstaw linię " UserForm4.cmbGra3.RowSource = "lista01" ", jak niżej: ...jezeli wybiore co ... i wybiore cmbGra3 bez wybierania gry to nie moge nic zrobić (nie działa żaden przycsik, ani nie ma możliwości cofnięcia...

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

Witam serdecznie. Na formularzu umieściłem kilka ComboBoxów które zostały podzielone na grupy. Piony określają rodzaje linii i dodatkowe reaktory, poziomo określane są grupy stanowiące linię produkcyjną. Podczas aktywacji nowej linii aktywowane jest jednocześnie kilka ComboBoxów. Dopóki stosowałem proste wczytywanie .RowSource osobno dla każdego z formantów...

Błąd 13 type mismatch SQL - problem z klauzulą WHERE w VBA Access

Witam, Prosiłbym o pomoc w rozwiązaniu problemu z SQL-em. Wiem, ze jest gdzieś błąd w klauzuli Where. Z góry wielkie dzięki z pomoc. [syntax=sql]Private Sub cmdFiltruj_Click() Debug.Print Dim strSQLAll As String Dim txtNazwa As String txtNazwa = Nz(Me.txtNazwa_Klienta, "") strSQLAll = "SELECT tbl_Klienci.ID_Klienta, tbl_Klienci.chr_Nazwa, tbl_Klienci.chr_NIP,...

Excel 2013 - Listbox wstawianie wartości z listy do komórki arkusza

Witam. Mam 2 problemy/zapytania z listboxem w excelu 2013. 1. Stworzyłem listboxa w userform, połączyłem z listą w arkuszu (rowsource), ale nie wiem jak zrobić że jak kliknę na liście to wybrana pozycja pojawi w wybranej komórce arkusza 2. czy jest możliwe takie stworzenie listboxów, że w zależności od wyboru w pierwszym pojawi mi się odpowiedni kolejny...

Makro w excelu. Dlaczego suma nie zostaje obliczona?

Ten błąd (przy włączeniu przycisku) dotyczy zapewne inicjalizacji okna. We wczesnych wersjach - które sygnalizowałeś - aby ominąć podobny błąd musiałem skierować makro na arkusz DANE przy "zerowaniu" danych. Sporóbuj więc poprawić kod inicjalizacji (w VBA dwukliknij w obszar okienka i popraw): Private Sub UserForm_Initialize() Arkusz_Nazwa =...

[EXCEL] [EXCEL][VBA] Jak obsłużyć błąd nr 13 przy pustym ComboBox1?

Koledzy pomożecie z takim drobiazgiem. Bo mam zaćmienie. Private Sub UserForm_activate() Sheets("LISTA").Activa... Dim a As Integer a = 4 + ComboBox1.Value Me.ComboBox3.RowSource = Range(Cells(4, 3), Cells(a, 3)).Address Jeśli Combox1 ma wartość jest OK ale jeśli jest puste wyskakuje błąd nr 13 i nie...

[exel] VBA Excel - Jak cofnąć ostatnio wykonaną procedurę?

Serdeczne dzięki za pomoc. Spróbuję to wykorzystać. Dodano po 45 Z tym ostatnim wierszem to nie za bardzo. Dane są bowiem wpisywane w różne miejsca w kolumnach i dodawanie do już istniejących danych liczbowych. A przy okazji może mi pomożecie z takim drobiazgiem. Bo mam zaćmienie. Private Sub UserForm_activate() Sheets("LISTA").Activate Dim a As Integer...

VBA Excel - Jak powiązać dwa comboboxy z różnymi wartościami?

Jak będzie wyglądał kod VBA, gdy w Combobox1 będzie wartość np EAST a dane dla Combobox2, który jest uzależniony od Combobox1, będą znajdowały się w Arkuszu1 w kolumnie H? Wtedy - zamiast przypisywać wartości "ręcznie" - metodą: Me.ComboBoxXXX.AddItem YYYYnależy wybierać interesujący nas zakres bezpośrednio z arkusza, podstawiając go jako dane (RowSource...

Zmiana właściwości kilku formantów na raz w VBA

Przepraszam, dopiero teraz mogłem przetestować... procedura chodzi, wyświetla nazwy po kolei wszystkich ww obiektów. Dla przycisków opcji chciałem wprowadzić przykładowe właściwości więc dałem backcolor i value pisząc je z kropką z przodu i wyskakuje błąd http://obrazki.elektroda.pl/6708476400_1... mój fragment wyglądał tak: [syntax=vb]Select...

Excel, VBA - Filtrowanie lista rozwijana w Combobox

Witajcie. Mam w excelu na formatce combobox który przez RowSource zaciąga jakiś zakres danych np (A2:C40). Na rozwijanej liście combo wyświetlam dane z kolumny "A" wspomnianego zakresu. Jak w polu tekstowym comboboxa zaczynam coś wpisywać pojawiają się sugestie/podpowiedzi zaczerpnięte z listy rozwijanej combobox. Jak zrobić aby podczas wpisywania w...

vba - Ograniczenie listy w commandboxie do widocznych komórek

Witam, Mam bazę danych w Excelu jak poniżej. lpKod obcyProducent 1111/001 aaa 2111/002 aaa 3111/003 aaa 4111/004 aaa 5111/005 b 6111/006 b 7111/007 b 8111/008 b Stworzyłem userform w którym są dwa commandboxy (producent i kod obcy). W producent mam do wyboru aaa oraz b, dodane przy użyciu .rowsource. po wybraniu jednego nakłada się filtr i ogranicza...

Access - VBA - Przekazanie wyników kwerendy SQL do podformularza

2. Chciałbym wynik wyeksportować do podformularza/podraportu osadzonego na formularzu, na którym są pola tekstowe przyjmujące argumenty (dla where i from). Coś na zasadzie Me!PracownicyLista.SourceObject ... ale nie działa. Nie wiem jak to ogarnąć. Bede wdzięczny za pomoc. W zbliżonej sytuacji wykorzystuje w formularzu niezwiązane pole listy :idea:...

Jak wyszukiwać ciąg liter w dowolnym miejscu nazwy placówki w Excel VBA?

Tutaj niestety pojawił się następny problem jak przenieść mechanizm pola "Przycisku 1" arkusza "Szukanie obiektów 2" na przycisk "Nowe rozliczenie' arkusza "Zamówienia, rozliczenia 2"? Dokładniej na "Combobox1" tak aby dalej był zsynchronizowany z Label3 i Label24. Bardzo proszę chociaż o wskazówkę na "moim" poziomie. Podziwiam ludzi, którzy porywają...

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

Witam serdecznie... Napotkałem problem z filtrowaniem rozwijanej listy w ComboBox Po kliknięciu w komórki kolumn C , D , E w Arkuszu1 wyświetla się okno UserForm Okno to zawiera rozwijaną listę ComboBox, pokazującą zawartość kolumny B Chcę żeby formant ComboBox wyświetlał przefiltrowaną listę kolumny B http://obrazki.elektroda.pl/7211171300_1...

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

Access - jak zrobić formularz wyszukujący z jednej tabeli

Każdy z elementów bazodanowych ma swoje "źródło danych". W tym przypadku lista powinna mieć swój parametr RowSource ustawiony na konkretny "SELECT". Ustawiłeś to, ale niestety twoja "Tabela kwerenda" nie działa. Od tego zacznij. . Popełniłeś przy tym kilka błędów. - nazwy obiektów zawierają spacje - co prosi się o kłopoty. - odwołujesz się w SQL bezpośrednio...

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

Na chwile obecna mam cos takiego nie wiem czy wrzucić instrukcje warunkową czy while. Wgl. mam wątpliwości czy to dobrze. Chce to porównać i wyświetlić za jednym razem z innymi kryteriami za pomocą przycisku szukaj Private Sub cbSzukaj_Click() 'Pobieranie kryteriów wyszukiwania i wyświetlanie w liście On Error GoTo errHandler: Set DataSH = Arkusz1 DataSH.Range("T6")...

Usuwanie danych w VB - jak przesunąć ID wierszy bez tworzenia luk?

Private Sub cbUsun_Click() Dim findvalue As Range Dim DataSh As Worksheet On Error GoTo 0 Application.ScreenUpdating = False On Error GoTo cbUsun_Click_Error If txtNazwa = "" Then Call MsgBox("Kliknij dwukrotnie na wybraną ofertę aby było można ja usunać.", vbInformation, "Usuwanie oferty") Exit Sub End If Select Case MsgBox("Za chwilę usuniesz dane."...

Access - Jak stworzyć wyszukiwarkę i listbox do wyboru osób w formularzu?

Ogólnie chce wyszukać daną osobę po np peselu i wrzucić wyszukaną osobę za pomoca przycisku do nowej tabeli i żebym już na tym formularzu mógł dopisać do wybranej z listy osoby dodatkowe pola, tak aby już w nowej tabeli były wpisane dodatkowe pola Dodano po 1 Napisałem póki co kod na wyszukiwarke w formularzu i ona działa, na listbox zanznaczam rekord...

Access 2003 - Powiązane pola kombi i pole tekstowe w formularzu

Dzięki za pomoc. Niestety z jakiegoś powodu wyskakuje mi błąd. Mój kod wygląda następująco: {[syntax=vb]Private Sub KombiDlugosc_AfterUpdate() Me.TextWaga.RowSource = "SELECT DISTINCT Waga FROM Wagi WHERE Waga ='" & Me.KombiDlugosc & "'" End Sub Private Sub KombiSrednica_AfterUpdate() Me.KombiDlugosc.RowSource = "SELECT DISTINCT Długość.IDdlugosc, Długość.długość...

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

Dla labGrafik1_Change() przetwarzania moj makra tak, ze [syntax=vb] labGrafik.RowSource = Range(lab(rowStart), lab(rowStop))[/syntax]

[VBA ACCESS] Jak zawężać wyniki kwerendy w oparciu o niepuste pola TXT1-TXT10?

Witam, na formularzu mam 10 niezwiązanych pól tekstowych TXT1 - TXT10 + listę wartości która zaciąga dane z kwerendy -przez VBA Me.Lista.RowSource = SQL Te 10 pól oddaje kolumny z kwerendy. Chciałbym na ich podstawie zawężać wynik kwerendy. Nie wiem jak napisać SELECTa tak aby parametr był brany pod uwagę o ile pole nie jest puste. [syntax=vbscript]SQL...

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 - type mismatch - Kod działa dopóki nie pojawia się w nim liczba dwucyfrowa.

Witam. Mam fragment kodu, który pozwala na edycję danych wpisanych w kolejne komórki wiersza tabelki. Kod pozwala na wybór wiersza, a następnie wyświetla formularz z aktualnie wpisanymi danymi - można w polu formularza je zmienić lub wykasować. Wszystko działa jak należy, o ile w linijkach odwołujących się do kolejnych komórek nie pojawi się liczba...

Access - jak tworzyć relacje w bazie danych serwisu samochodowego?

pojadę do mojego nauczyciela baz danych Na pewno dobre posunięcie. Potrzebujesz nauki od podstaw, a nie rozwiązania problemu, którego nie jesteś w stanie właściwe, zgodnie z nazewnictwem używanym w Akcesie, określić. Jeżeli chodzi Ci o 'pole listy', to: [syntax=vbscript]Lista.RowSource = "SELECT ...[/syntax]

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

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

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 - 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: Jak zapisać wszystkie zmiany w historii wers pod wersem?

Witam, Zrobiłem stany magazynowe oraz historię ich zmian. Mój problem polega na tym, że jak zrobię jakieś pobranie towaru to w historii zmian wszystko ładnie się wyświetla ale tylko ostatnia zmiana. Moje pytanie brzmi jak zrobić by w historii zmian pojawiały się wszystkie wpisy zmian wers pod wersem? A o to mój kod: [syntax=vb]Private Sub CmbAktualizujdane_Click()...