napisał: serafin
postów: 25
 umieszczony:
22 listopada 2005
10:58
|
|
Dzięki bardzo.
Poszło przy użyciu
With Usreform1.combobox1 |
|
|
napisał: jottad
postów: 118
umieszczony:
18 listopada 2005
10:09
|
|
Kod makra przeniosłeś do modułu formularza i zmieniłeś na procedurę obsługi zdarzenia Inizialize?
Napewno użyłeś w nim właściwej nazwy kontrolki?
Może spróbuj wpisywać nazwę kontrolki poprzedzając ją słowem kluczowym Me, np. Me.ComboBox1. Wtedy, po wpisaniu kropki, będziesz mógł wybrać właściwą nazwę z listy. |
|
|
napisał: serafin
postów: 25
umieszczony:
18 listopada 2005
09:41
|
|
Sorry, ale dalej nie umiem sobie z tym poradzić. Mam komunikat
że nie można odnaleźć obiektu. W całym formularzu mam tylko
jenego comboboxa. Jeżeli możecie coś pomóc. plllisssss. |
|
|
napisał: jottad
postów: 118
umieszczony:
17 listopada 2005
14:36
|
|
| Cytat:
Jak zapisać ten kod żeby działał w combobox umieszczonym
w Userform.
Umieść kod w procedurze zdarzenia UserForm_Inizialize, zmieniając fragment:
With wsSheet.OLEObjects("Combobox1").Object
End With
na:
With ComboBox1
gdzie w miejsce ComboBox1 wstawiasz rzeczywistą nazwę kontrolki na UserForm. |
|
|
napisał: serafin
postów: 25
umieszczony:
17 listopada 2005
11:31
|
|
Jak zapisać ten kod żeby działał w combobox umieszczonym
w Userform. W combobox z paska narzędzi "Prybornik formantów" działa bez zrzutów, jednak nie umiem go wywołać z poziomu Userform.
W combobox próbowałem na Click, Change, Getfocus.
Dzięki za pomoc.
Sub fil()
Dim wbBook As ThisWorkbook
Dim wsSheet As Worksheet
Dim rnData As Range
Dim vaData As Variant
Dim i As Long
Set wbBook = ThisWorkbook
With wbBook
Set wsSheet = .Worksheets("Arkusz1")
End With
With wsSheet
Set rnData = .Range(.Range("A1"), .Range("A65536").End(xlUp))
rnData.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("L1"), Unique:=True
vaData = .Range(.Range("L2"), .Range("L65536").End(xlUp)).Sort(Key1:=Range("l2"))
vaData = .Range(.Range("L2"), .Range("L65536").End(xlUp)).Value
.Range(.Range("L1"), .Range("L65536").End(xlUp)).ClearContents
End With
With wsSheet.OLEObjects("Combobox1").Object
.Clear
.List = vaData
.ListIndex = -1
End With
End Sub |
|
|
 wstecz 1 dalej  wszystkich stron: 1
|
