Hücre içinde arama yapma

[EmirBABA]

Selamlar, kendi çapımda uğraştım internette de arama yaptığım halde çözüme ulaşamadım. Yardımınıza ihtiyacım var.

IMG_20240821_121517_720.png

"B2" de bulunan verinin "D" sütununda hücre içinde arayıp kaçıncı satırda olduğunu söylemesini istiyorum.

Teşekkür ederim

[EmirBABA]

Sub FindTextInColumn()
Dim searchValue As String
Dim cell As Range
Dim foundRows As String

' B2 hücresindeki değeri al
' searchValue = Range("B2").Value
searchValue = ActiveCell.Value


' D sütunundaki her bir hücreyi kontrol et
For Each cell In Range("D1:D1000" & Cells(Rows.Count, "D").End(xlUp).Row)
' Eğer hücrede B2'deki değer varsa
If InStr(1, cell.Value, searchValue, vbTextCompare) > 0 Then
' Satır numarasını ekle
foundRows = foundRows & cell.Row & vbNewLine
Application.Goto cell, True
End If
Next cell

' Sonuçları göster
' If foundRows <> "" Then
' MsgBox "B2 hücresindeki değer D sütununda şu satırlarda bulundu: " & vbNewLine & foundRows
'Else
' MsgBox "B2 hücresindeki değer D sütununda bulunamadı."
' End If
End Sub


bu şekilde sorun çözüldü, ancak vba olmadan direk hücre içerisine = ile başlayarak yazılabilecek formülleri de bilmek isterim.

[erseldemirel]

Bir formül değil ama fonk. olarak kullanılır. Bu fonksiyonu module içerisine ekleyip herhangi bir hücrede =arabul(b2) derseniz sonuç getirir. sayfa adını test yapmıştım değiştirirsin

Kod: Tümünü seç

Function arabul(aradeger As String) As Long
For Each cell In ThisWorkbook.Sheets("test").Range("D:D")
If InStr(1, cell.Value, aradeger, vbTextCompare) > 0 Then
arabul = cell.Row
Exit Function
End If
Next cell
arabul = -1
End Function

[EmirBABA]

Teşekkür ederim, formül olarak da paylaşabilecek olan varmı, paylaşırsa sevinirim

[erseldemirel]

En basit bu formül ile sütunda arar bulur

Kod: Tümünü seç

=KAÇINCI("*"&$B$2&"*"; D:D; 0)