Bul makrosu nasıl çalışıyor?

[Tevfik_Kursun]

Merhaba Arkadaşlar,

Set satir = Cells.Find("nevzat", , xlValues, xlWhole)

Bu satır "nevzat" kelimesini bir bütün olarak nerede arıyor?
Ya da "nevzat" kelimesi B sütununda kaçıncı satırda olduğu makro ile nasıl sorulur?
Saygılarımla

 

[YUSUF44]

Cells yani tüm sayfada/hücrelerde arıyor.

Bu satırdan sonra

Msgbox “Nevzat kelimesi “& satir.row & “ satırında bulunuyor”

Satırını ilave edip deneyin.

Set satir = [B:B].Find("nevzat", , xlValues, xlWhole)

Şeklinde kullanırsanız B sütununda arar.

 

[Tevfik_Kursun]

Sayın Yusuf44 Hocam,
Çok teşekkür ederim.
Saygılarımla

 

[Necdet]

Merhaba,

VBA nın yardımını kullanmanızı öneririm. Baya yardımcı oluyor.

Range.Find için Tıklayınız.

Tüm Değerleri Aşağıdaki örnekte olduğu gibi bulabilirsiniz.

With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, 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
    End If
End With

 

[Tevfik_Kursun]

Sayın Necdet Hocam,
Haklısınız. İlginize teşekkür ederim.
Saygılarımla