ctrl +h makrosu

[tiretwien]

merhaba arkadaşlar,
A:B sütunlarımda veri var
C sütununda eski isim
D sütununda yeni isimlerim var.

istediğim
C sütunundaki hücreyi A:B sütununda arasın. Tam eşleşeni D sütunundaki yazan ile değişsin.

Örnek
C1 de "ankara" D1de "antalya" yazsın

makro "ankara" kelimesini A5 de buldu diyelim. A5i "antalya" yapsin.

umarım anlatabilmişimdir
şimdiden teşekkürler

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Find_Replace()
    Dim My_Area As Range, My_Cell As Range
    
    On Error Resume Next
    Set My_Area = Nothing
    Set My_Area = Range("C:D").SpecialCells(xlCellTypeConstants)
    On Error GoTo 0
    
    If Not My_Area Is Nothing Then
        For Each My_Cell In My_Area
            If My_Cell.Column = 3 Then
                Range("A:B").Replace My_Cell.Value, My_Cell.Offset(, 1).Value, xlWhole
            End If
        Next

        MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    Else
        MsgBox "Değişiklik yapılacak veri bulunamadı!", vbCritical
    End If
    
    Set My_Area = Nothing
End Sub

 

[tiretwien]

emeğinize sağlık