Range.Find

1. Değişkenleri tanımlamak: Arama yapılacak aralığı ve arama sonucunu tutacak değişkenleri tanımlamak gereklidir 1.

Dim ws As Worksheet
Dim searchRange As Range
Dim foundCell As Range
Kopyala

2. Arama aralığını belirlemek: Aramanın yapılacağı hücre aralığını belirlemek gerekir 1.

Set ws = ThisWorkbook.Worksheets("Sheet1")
Set searchRange = ws.Range("A1:C3")
Kopyala

3. Find yöntemini kullanmak:

   Find

   yöntemini kullanarak aramayı başlatmak gereklidir 1. Temel kullanım şekli şöyledir:

Set foundCell = searchRange.Find(What:="your_search_term")
Kopyala

What

After

Range

Nothing

If Not foundCell Is Nothing Then
    MsgBox "Value found in cell " & foundCell.Address
Else
    MsgBox "Value not found."
End If
Kopyala