- Katılım
- 11 Aralık 2013
- Mesajlar
- 4
- Excel Vers. ve Dili
- 2010 türkçe
A1 hücresinde 4569876 gibi sayı var ben bunu b1,c1,d1,e1.... Hücrelerine tek tek yazdırmak istiyorum
şimdiden teşekkürler
şimdiden teşekkürler
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=PARÇAAL($C6;SÜTUN()-3;1)
=PARÇAAL($C6;SÜTUN()-SÜTUN($C6);1)
Sub Kelime_Böl()
Dim i As Integer
Dim hucre As Range
For Each hucre In Selection
c = hucre.Value
For i = 1 To Len(c)
hucre.Offset(0, i) = Mid(c, i, 1)
Next
Next
End Sub