[vb:1:d8555325f2]Private Sub CommandButton1_Click()
Dim FirstMatch As String, strVal As String, MyMsg As String
Dim MyData As Variant
If Len(TextBox1) >= 1 Then
Set MyData = Columns("C").Find(TextBox1)
If Not MyData Is Nothing Then
FirstMatch = MyData.Address
Do
strVal = strVal & MyData.Address(False, False) & vbCrLf
Set MyData = Columns("C").FindNext(MyData)
Loop While Not MyData Is Nothing And MyData.Address <> FirstMatch
End If
Else
MsgBox "Aranılacak değeri girin..."
Exit Sub
End If
If strVal = Empty Then strVal = "Bulunamadı...."
MyMsg = "Aranılan değer " & TextBox1 & " nın bulunduğu hücreler:" _
& vbCrLf & String(35, "*")
MsgBox MyMsg & vbCrLf & strVal
Set MyData = Nothing
End Sub
[/vb:1:d8555325f2]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.