vba find komutu

[yakup123]

arkadaşlar merhaba aşağıdaki find komut kodu ile combobox1 deki değeri aratabiliyoruz ben şunu yapabilirmiyim acaba combobox 1 yada "Hizmet Dışı" bu ikisinden bulduklarını getir gibi koda combobox1 or "Hizmet Dışı" yazdım ama tutmadı varmıdır bir yöntemi acaba



With Worksheets(1).Range("a1:a500")
Set c = .Find(combobox1, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

 

[Korhan Ayhan]

İki koşulu tek satırda yazma durumu maalesef yok.

Bunun yerine sıralı şekilde iki koşula uygun "find" komutu yazabilirsiniz.

 

[yakup123]

korhan hocam şöyle aşağıdaki kodda Combobox1 deki değeri listboxta süzdürüyorum o zaman listbox a ikinci koşulun bulunan değerini nasıl aktarabilirim

Dim k As Range, adrs As String, j As Byte, a As Long, myarr()
ReDim myarr(1 To 23, 1 To 1)
With Worksheets("Data")
Me.ListBox1.RowSource = vbNullString
Set k = .Range("B7:b65536").Find(ComboBox1 & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
adrs = k.Address
Do
a = 2 + a
ReDim Preserve myarr(1 To 23, 1 To a)
For j = 1 To 23

myarr(j, a) = .Cells(k.Row, j).Value
Next j
Set k = .Range("B7:a65536").FindNext(k)

Loop While Not k Is Nothing And k.Address <> adrs

ListBox1.Column = myarr
End If
End With