Bir hücreden ayırma işlemi

[tan968]

Merhaba,

ek'teki dosya da örnekleme yaptım. Yardımcı olursanız sevinirim


Taner

 

[dEdE]

Merhaba,
Aşağıdaki kodları bir modüle yapıştırıp dener misiniz?

Sub Ayır()
    For i = 2 To Range("A" & Rows.Count).End(3).Row
    Sayı = ""
        For j = 1 To Len(Cells(i, 1))
            If IsNumeric(Mid(Cells(i, 1), j, 1)) = True Then
                Sayı = Sayı & Mid(Cells(i, 1), j, 1)
            End If
        Next j
    a = Split(Cells(i, 1), Sayı)
    Cells(i, 3) = a(0) & " " & Sayı & " " & a(1)
    Next i
    MsgBox "Ayırma İşlemi Tamamlandı.", vbInformation, "dEdE " & Application.UserName & "'e Başarılar diler."
End Sub