B sutunundan A sutuna kaydirma nasil yapilir?

[lapot]

Arkadaslar eklenen dosyadki 1NB, CNB isimlerini astununa musterilerin karsina otamatik nasil yazdirabilirim? bu sadece 2 isim fakat yuzlerce var isimleri Fee Earner denilen kismin altina otamatik yazdirmam gerekiyor ve bundan sonra suzme yapip hangi musteriler hangi ismin onu bulacagim.

saygilar

 

[Ali]

Eğer sorunuzu doğru anladım ise aşağıdaki makroyu bir kullanın.

Sub isimleriaktar()
For i = 1 To 65000
If Cells(i, 1) = "Fee Earner:" Then
Cells(i, 1).Offset(1, 0).Value = Cells(i, 1).Offset(0, 1).Value
Cells(i, 1).Offset(0, 1).ClearContents
End If
Next
End Sub