DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=KIRP(A2)=KIRP(A3)
=KIRP(A2)=KIRP(A3) yada =METNEÇEVİR(A2;"")=METNEÇEVİR(A3;"") gibi bir formül kullanabilirsiniz.Sub Test()
Dim Metin As String
Dim Sonuc As String
Dim Karakter As Integer
Dim Bak As Integer
For Bak = 2 To 4
Metin = Cells(Bak, "A").Value
Sonuc = ""
For Karakter = 1 To Len(Metin)
Sonuc = Sonuc & Asc(Mid(Metin, Karakter, 1)) & " - "
Next
Cells(Bak, "D").Value = Sonuc
Next
End Sub