Yandaki sütunda ara bulursan üstüne yapıştır

[bybyby]

Merhaba arkadaşlar,
Tercüme yapıyorum ve excel bana büyük kolaylık sağlıyor.

Aşağıdaki linkteki dosyam var. İlk kolondaki virgüle kadar olan değeri ikinci kolonda aratıp bulunca üstüne yapıştır demem lazım.

Yardımcı olabilecek arkadaşlarımın desteğini bekliyorum.

Çok teşekkür ederim.

https://www.dropbox.com/s/rc179ahwanlnyrm/tercume.xlsx?dl=1

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyin.

[SIZE="2"]Sub degis()
Dim c As Range
Dim a As Integer
For a = 1 To Cells(Rows.Count, 1).End(3).Row
With Range("B:B")
    Set c = .Find(Split(Cells(a, 1).Value, ",")(0), , xlValues, xlPart)
    If Not c Is Nothing Then
ilk = c.Address
        Do
Cells(c.Row, "B") = Cells(a, 1)
            Set c = .FindNext(c)
If c Is Nothing Then Exit Do
        Loop While Not c Is Nothing And c.Address <> ilk
    End If
End With
Next
End Sub[/SIZE]

 

[bybyby]

Hocam bazı satırlarda veri var ancak virgül yok. Bu yüzden virgül içermeyen satırlarda herhangi bir işlem yapmamasını sağlayacak şekilde düzenlemeniz mümkün olabilir mi?