DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=SAĞDAN(A2;5)&"-"&SOLDAN(A2;UZUNLUK(A2)-8)
Sub Emre()
Dim i As Integer
For i = 2 To Range("A65536").End(3).Row
Cells(i, 2) = Split(Cells(i, 1), "-", -1)
Next i
i = Empty
End Sub