- Katılım
- 18 Kasım 2011
- Mesajlar
- 388
- Excel Vers. ve Dili
- excel 2007 türkçe
- Altın Üyelik Bitiş Tarihi
- 23.04.2018
Arkadaşlar örneğin A1 hücresine aralarına boşluk bırakarak 2 ve 8 yazdım.bunlari B1 ve C1 hücrelerine 2 ve 8 olarak nasıl ayirabilirim.
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=PARÇAAL(A1;1;BUL(" ";A1)-1)
=YERİNEKOY(A1;B1&" ";"")
Sub ayir()
Dim a, k As Integer, sut As Integer
sut = 2
a = Split(Range("A1").Value, " ")
For k = 0 To UBound(a)
Cells(1, sut).Value = a(k)
sut = sut + 1
Next
MsgBox "Bitti"
End Sub