Sütunda ve Satırda aynı anda makro çalıştırma.

[Carpintero]

Merhabalar,
Örnek dosyada izahat yaptım.
Birden çok sütunda ve satırda arama yapma ve bulunanı yazma
mantığı üzerine dayalı küçük bir makro ihtiyacım var.
Yardımcı olursanız sevinirim. Saygılarımla.

http://www.dosya.tc/server9/6n029x/orn.rar.html

 

[Necdet]

Merhaba,

Sorunuzda "kırmızı renkli verileri elde etmek istiyorum" demişsiniz. Aradığınız veri sabit midir değişken midir bilmediğim için sabit olarak kullandım

Bulunan değerin adresini mesaj olarak verdirdim. Siz kendinize göre uyarlayınız.

Sub AraBul()

    Dim s1  As Worksheet, _
        c   As Range, _
        Adr As String
        
    Set s1 = Sheets("Sayfa1")
    
    With s1.Cells
        Set c = .Find("Mahmut", LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                MsgBox c.Address
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        End If
    End With
    
End Sub

 

[Carpintero]

Ellerinize sağlık Necdet Hocam.
İşimi ziyadesiyle halletti.