- Katılım
- 15 Eylül 2008
- Mesajlar
- 18
- Excel Vers. ve Dili
- excell 2002
Merhaba benim sorumum hücre içirisinde olan rakam ve harfleri ayırarak rakamları içerisinden çekmek
Bununla ilgili kodları vermişsiniz ama kodlar çalışıyor ama içierisinde virgüllü olarak almıyor. virgüllü olarak almak mümkün mü örnek bir dosya ektedir.
Yardımcı olabilirseniz sevinirim
Teşekkürler
Sub sayısec()
Dim i As Integer
For Each hucre In Selection
For i = 1 To Len(hucre)
Sayi = Mid(hucre, i, 1)
If IsNumeric(Sayi) = True Then
ActiveCell.Offset(0, 1) = ActiveCell.Offset(0, 1) & Sayi
End If
Next
Next
End Sub
Bununla ilgili kodları vermişsiniz ama kodlar çalışıyor ama içierisinde virgüllü olarak almıyor. virgüllü olarak almak mümkün mü örnek bir dosya ektedir.
Yardımcı olabilirseniz sevinirim
Teşekkürler
Sub sayısec()
Dim i As Integer
For Each hucre In Selection
For i = 1 To Len(hucre)
Sayi = Mid(hucre, i, 1)
If IsNumeric(Sayi) = True Then
ActiveCell.Offset(0, 1) = ActiveCell.Offset(0, 1) & Sayi
End If
Next
Next
End Sub
Son düzenleme: