Prikaz v ComboBox-u
Prikaz v ComboBox-u
Pozdravljeni!
Prosim za pomoč pri prikazu teksta v ComboBox-u.
Sedaj mi podatke prikazuje v vrsticah in ne v eni vrstci, kot bi potreboval.
N.pr.:
Stolpec1
Stolpec2
Stolpec3
Hotel pa bi: Stolpec1 Stolpec2 Stolpec3
V lastnostih imam nastavljeno:
BoundColumn 1
ColumnCount 3
ColumnWidths 90 pt;70 pt;24 pt
Hvala in LP
Prosim za pomoč pri prikazu teksta v ComboBox-u.
Sedaj mi podatke prikazuje v vrsticah in ne v eni vrstci, kot bi potreboval.
N.pr.:
Stolpec1
Stolpec2
Stolpec3
Hotel pa bi: Stolpec1 Stolpec2 Stolpec3
V lastnostih imam nastavljeno:
BoundColumn 1
ColumnCount 3
ColumnWidths 90 pt;70 pt;24 pt
Hvala in LP
Re: Prikaz v ComboBox-u
Kako pa imate nastavljeno lastnost ListFillRange? Ali imate v njej zapisano tabelo, ki im atri stolpce (npr: A1:C20)?
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Prikaz v ComboBox-u
Tole je cela koda za Combo
Koda: Izberi vse
Private Sub UserForm_Initialize()
Dim UniqueList() As String
Dim x As Long
Dim Rng1 As Range
Dim c As Range
Dim Unique As Boolean
Dim y As Long
Set Rng1 = Sheets("Podatki").Range("B5:D2000")
y = 1
ReDim UniqueList(1 To Rng1.Rows.Count)
For Each c In Rng1
If Not c.Value = vbNullString Then
Unique = True
For x = 1 To y
If UniqueList(x) = c.Text Then
Unique = False
End If
Next
If Unique Then
y = y + 1
Me.cboNajdi.AddItem (c.Text)
UniqueList(y) = c.Text
End If
End If
Next
End Sub
Re: Prikaz v ComboBox-u
... Kar poglejte na konec, če je lastnost pravilno nastavljena... Čez priloženo kodo se na žalost nimam časa prebijati...
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Prikaz v ComboBox-u
Kateri konec- konec česa?admin napisal/-a:... Kar poglejte na konec, če je lastnost pravilno nastavljena... Čez priloženo kodo se na žalost nimam časa prebijati...
Re: Prikaz v ComboBox-u
V kodi ustvarite ComboBox (vsaj tako pravite) in napisal sem vam, da poglejte kako ima ta comboBox nastavljeno lastnost ListFillRange. Ta lastnost mora kazati na neko tabelo s tremi stolpci in te tri stolpce boste vi videli v padajočem seznamu. Če lastnost ni pravilno nastavljena (in sklepam, da ni!) potem, ne boste videli pravilnega rezultata.
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Prikaz v ComboBox-u
Dovolite, da vprašam, kaj vi pravzaprav želite? Ali to, da za vsak edinstven zapis v stolpcu B, dobite tudi pripadajoč zapis v stolpcu C in D?
Torej, če je edinstven zapis v B7, bi radi poleg zapisane vrednosti B7 v cboNajdi, v isti vrstici tudi vrednost C7 in D7
Torej, če je edinstven zapis v B7, bi radi poleg zapisane vrednosti B7 v cboNajdi, v isti vrstici tudi vrednost C7 in D7
lp,
cedra
cedra
Re: Prikaz v ComboBox-u
Točno to bi želel.
Re: Prikaz v ComboBox-u
Potem, pa bo tole verjetno pomagalo:
Vrstico:
zamenjajte s tole:
Presledke sem naredil zaradi boljše preglednosti
Pomaga?
Vrstico:
Koda: Izberi vse
Me.cboNajdi.AddItem (c.Text)
Koda: Izberi vse
Me.cboNajdi.AddItem (c.Text) & " " & c.Offset(0, 1) & " " & c.Offset(0, 2)
Pomaga?
lp,
cedra
cedra
Re: Prikaz v ComboBox-u
Saj res, pozabil sem zapisati , da sedaj iščete le po stolpcu B.
Torej vrstica
ali še bolje, nekako takole:
V tem primeru boste lahko makro sprožili na trenutno aktivnem listu. Obseg pa bo od B1 pa do zadnje polne vrstice v stolpcu B.
Torej vrstica
mora sedaj biti:Set Rng1 = Sheets("Podatki").Range("B5:D2000")
Koda: Izberi vse
Set Rng1 = Sheets("Podatki").Range("B5:B2000")
Koda: Izberi vse
Set Rng1 = ActiveSheet.Range(Range("B1"), Range("B1").End(xlDown))
lp,
cedra
cedra
Re: Prikaz v ComboBox-u
Urejeno!
Deluje z naslednjo kodo:
Najlepša hvala obema!
LP
Deluje z naslednjo kodo:
Koda: Izberi vse
Set Rng1 = Sheets("Podatki").Range("B5:B2000")
LP