Bul Değiştir

[mrs303]

Selam Arkadaşlar,

Forunda aradım, bir çok örnek var fakat benim isteğime uygun bulamadım ve yeni konu açma durumunda kaldım. Yardımcı olabilirseniz sevinirim.

Sayfa1 de yeralan tabloda yanlış ve karşılarına doğrusu yazılmış isimler bulunmaktadır.

Bu yanlış yazılmış isimleri Sayfa2 de tabloda bulup yerlerine doğrusunun yazılması işlemini Makro ile nasıl yapabilirim?

İlgili dosyada gerekli açıklama ve örnek mevcut. Yardımcı olabilirseniz memnun olurum. Şimdiden teşekkür eder, herkese iyi Bayramlar dilerim.

Saygılarımla......

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Sub BulDegistir()
 
    Dim i As Long, Sd As Worksheet, St As Worksheet

    Set Sd = Sheets("Düzeltme")
    Set St = Sheets("Tablo")
    
    For i = 3 To Sd.Cells(Rows.Count, "A").End(xlUp).Row
        St.Range("C4:D" & Rows.Count).Replace _
                Sd.Cells(i, "A"), Sd.Cells(i, "B")
    Next i
 
End Sub

.

 

[mrs303]

Ömer bey tam istediğim şekilde olmuş. Çok teşekkür ederim. Emeğinize sağlık.