AYIR (RAKAMLARI NASIL AYIRIRIM)

[oziyilmaz]

ARKADAÃ�LAR AYIRLA İLGİLİ BİR ÇALIÃ�MA BULDUM AMA İSTEDİÃ�İM GİBİ DEÃ�İL . EK DOSYAYA BİR GÃ?Z ATARSANIZ BENİ ANLAYACAKSINIZ.

Ã�İMDİDEN TEÃ�EKKÜRLER.
:yardim:

[ALPEN]

For i = 1 To Cells(65536, 1).End(xlUp).Row
x = 2
For j = 1 To Len(Trim(Cells(i, 1)))
z = Mid(Trim(Cells(i, 1)), j, 1)
If IsNumeric(z) = False And z <> " " Then
If x > 2 Then
Cells(i, x) = num: x = x + 1
End If
Cells(i, x) = z: num = "": x = x + 1
Else
num = num & z
End If
Next j
Next i

[oziyilmaz]

alpen çok teşekkürler. :hihoho:

[fozcelik]

peki bu ayırma işleminin fonsiyonu yokmu Allah aşkına...?????

[Levent Menteşoğlu]

Maalesef yok.

[modalı]

Sayın leventm,

Nasıl maalesef dersiniz. Hzaır fonksiyon yok diyebilirsiniz ama özel fonksiyon yazılabilir.

İyi çalışmalar:rolleyes:

[Levent Menteşoğlu]

Sayın leventm,

Nasıl maalesef dersiniz. Hzaır fonksiyon yok diyebilirsiniz ama özel fonksiyon yazılabilir.

İyi çalışmalar:rolleyes:

Sn modalı

Elbette bu cevabımı yerleşik fonksiyonlar için söylemiştim. VBA ile de yapılamaz diyebileceğimi düşünmediniz umarım.