String Karşılaştır

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar string fonksiyonlarında çok zayıfım. Hatta yeni başladım . Ekli dosyada A sütunundaki kelimeyi B sutununda içinde geçer biçiminde arayıp bulacak ve C sütununa A sütunudaki gibi karşılığını yazacak. Doğru sıralamayı dosyada yaptım. Ben Instr ile birşeyler yapmayı denedim ama beceremedim. Bir de buna benzer bir soruyu
daha önce sormuştum. Yanıtını da almıştım. Şimdi esas derdim böylesi bir proplemin string fonksiyonlarla nasıl çözüleceğini görmek. İlgilenen arkadaşlara şimdiden teşekkürler.

 

[excellcan]

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Dim syf1 As Worksheet
Dim klm1 As String
Dim klm2 As String
Dim i As Integer
Dim k, j, bul As Integer


Set syf1 = Worksheets("Sayfa1")
syf1.Select
With syf1
.Range("C2:C1048576").ClearContents

For k = 2 To 25
klm1 = .Cells(k, "A")

For j = 2 To 25

klm2 = .Cells(j, "B")


i = InStr(1, klm2, klm1, vbTextCompare)
If i > 0 Then
.Cells(j, "C") = klm1
End If

bul = InStr(1, klm1, klm2, vbTextCompare)

If bul > 0 Then
.Cells(j, "C") = klm1
End If

Next
Next

End With


MsgBox "işlem tamam"


End Sub

Bu şekilde denedim oldu. Ama tesadüf müdür bilemiyorum.