Aşağıdaki kodu delphiye nasıl uyarlayabiliriz
Kod: Tümünü seç
If TextBox9 = "" Then
ListBox2.RowSource = "MLZ_KOD!B2:E" & Sheets("MLZ_KOD").Cells(Rows.Count, 1).End(3).Row
Else
ListBox2.RowSource = ""
ListBox2.Clear
If OptionButton1 = True Then
VERİ = TextBox9 & "*"
Else
VERİ = "*" & TextBox9 & "*"
End If
Set BUL = Sheets("MLZ_KOD").Range("C:C").Find(VERİ, , , xlWhole)
If Not BUL Is Nothing Then
ADRES = BUL.Address
Do
ListBox2.AddItem
ListBox2.List(Satır, 0) = BUL.Offset(0, -1).Value
ListBox2.List(Satır, 1) = BUL.Offset(0, 0).Value
ListBox2.List(Satır, 2) = BUL.Offset(0, 1).Value
ListBox2.List(Satır, 3) = BUL.Offset(0, 2).Value
Satır = Satır + 1
Set BUL = Sheets("MLZ_KOD").Range("C:C").FindNext(BUL)
Loop While Not BUL Is Nothing And BUL.Address <> ADRES
End If
If ListBox2.ListCount > 0 Then ListBox2.ListIndex = 0
End If
Kod: Tümünü seç
Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Kontrol = True
TextBox2.Text = ListBox2.Column(0)
ComboBox1.Value = ListBox2.Column(1)
' VERİ SÜZ KAPALI OLMASI KONTROLLERİN
Frame1.Left = 800
TextBox9.Value = ""
TextBox10.Left = 800
TextBox4.SetFocus
End Sub