Új hozzászólás Aktív témák

• #18704 Vladek83 tag

  Új Válasz 2013-08-04 09:08:11 #18704

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Vladek83

  tag

  Sziasztok!

  Segítséget szeretnék kérni:

  Van egy UserForm ami tartalmaz egy listbox-ot ( 5 oszlopos ), illetve egy textbox-ot (ebben szeretném megjeleníteni az adott értéket, ami a listbox-ban van ( első oszlopban lévőket ).
  Van egy makro, ami megkeresi a listbox-ból az értéket, ami szintén ehez a textbox-hoz van rendelve.Ez működik is, csak ha a listbox-ból választom ki akkor nem jeleníti meg...

  Dim i As Long
  Dim sFind As String

  sFind = Me.TextBox1.Text

  If Len(sFind) = 0 Then
  Me.lbArlista.ListIndex = -1
  Me.lbArlista.TopIndex = 0
  Else
  For i = 0 To Me.lbArlista.ListCount - 1
  If UCase(Left(Me.lbArlista.List(i), Len(sFind))) = UCase(sFind) Then
  Me.lbArlista.TopIndex = i
  Me.lbArlista.ListIndex = i
  Exit For
  End If
  Next i
  End If

  If lbArlista.ListIndex >= 0 Then
  Me.TextBox1.Value = Me.lbArlista.List(i, 1)

  előre is köszönöm

Új hozzászólás Aktív témák