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&#40;z&#41; = False And z <> " " Then
           If x > 2 Then
           Cells&#40;i, x&#41; = num&#58; x = x + 1
           End If
           Cells&#40;i, x&#41; = z&#58; num = ""&#58; 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

 

[Levent Menteşoğlu]

Sayın leventm,

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

İyi çalışmalar

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.