Veri Eşleştirme Hakkında Yardım

[cocorocco]

Merhaba Arkadaslar,

Bir konuda yardımınıza ihtiyacım var. Sorunun ingilizce ülke isimlerinin karşısına türkçe karşılıklarının eşleştirilmesi.

Ekteki dosyanın ilk sayfasının İngilizce ülke isimleri ve karşısında türkçe karşılıkları var. Ornegin ikinci sayfa yer alan ülke isimlerinin karşısına türkce karşılıklarının ilk sayfadan alarak ingilizcesinin yanına yazabilecek bir makro nasıl yazabilirim.

Teşekkürler,

 

[Orion1]

Dosyanız ekte.

Sub ulkeler()
Dim k As Range, i As Long
Sheets("Sheet1").Select
Application.ScreenUpdating = False
Range("B2:B65536").ClearContents
For i = 2 To Cells(65536, "A").End(xlUp).Row
    Set k = Sheets("Ulke").Range("A2:A" & Sheets("Ulke").Cells(65536, "A").End(xlUp).Row) _
    .Find(Cells(i, "A").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then Cells(i, "B").Value = k.Offset(0, 1).Value
Next i
Application.ScreenUpdating = True
MsgBox "Türkçe karşılıklar bulundu.", vbOKOnly + vbInformation, "TÜRKÇELER"
End Sub

 

[cocorocco]

ellerine sağlık. Çok teşekkür ederim.

 

[Orion1]

ellerine sağlık. Çok teşekkür ederim.

Rica ederim.
İyi çalışmalar.