Toplu Bul Değiştir

[halilerdem]

bir sayfada h5:m15 aralığındaki hücrelerde bulunan değerleri a1:d50 aralağındaki hücrelerde bulup "x" ile değiştirecek bir kod için yardımcı olacaklara şimdiden teşekkürler

 

[Orion1]

Örnek dosya eklerseniz daha hızlı cevap alabilirsiniz.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Toplu_Bul_Değiştir()
    Dim Aranan As Range, Say As Long
    For Each Aranan In Range("H5:N15")
        If Aranan <> "" Then
            If WorksheetFunction.CountIf(Range("A1:D50"), Aranan) Then
                Range("A1:D50").Replace Aranan, "X", xlWhole
                Say = Say + 1
            End If
        End If
    Next
    If Say > 0 Then
        MsgBox "İşleminiz tamamlanmıştır." & vbNewLine & "Değişen veri sayısı ; " & Say, vbInformation
    Else
        MsgBox "Değişeşek veri bulunamadı!", vbExclamation
    End If
End Sub

 

[halilerdem]

teşekkür ederim isteğimden fazlası oldu