DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Ekteki dosyanızı inceleyin.
Not:Sonra 2. kolonu 1,2,3.. olan kolona kopyalayabilirsiniz.
Sub BUL_DEĞİŞTİR()
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
For X = 1 To S2.[A65536].End(3).Row
S1.Columns("B:B").Replace What:=S2.Cells(X, 1), Replacement:=S2.Cells(X, 2), LookAt:=xlWhole
Next
S1.[A1].Select
End Sub