sayiya cevir formulu

[yvelines78]

157&nbsp433&nbsp400

arkadaslar boyle bir veri var elimde ve ben bunun icindeki 3 adet sayiyi ayri ayri hucrelere cikarmak istiyorum yardimci olurmusunuz tskler

 

[çıtır]

Sorunuz net değil,kaç satır sayı var? Tümü aynı yapıda mı ? Bir kaç örnek verseniz daha açıklayıcı olacak.

 

[askm]

Alt F11 ile makro kısmına geçin. İnsert module diyerek modül ekleyin. Aşağıdaki kodları buraya yapıştırın. Sayfanızda bir buton ya da şekil ekleyerek sağ tıklayın makro ekle deyin.. Makro olarak "ASKM_Sayi_Ayir" seçin.

Sub ASKM_Sayi_Ayir()
Dim SonSatir  As Long
SonSatir = Range("A" & Rows.Count).End(xlUp).Row
For k = 1 To SonSatir
Kelime = Split(Cells(k, 1), "&")
Say = UBound(Kelime)
a = 2
For i = 0 To Say
nums = Empty
    For b = 1 To Len(Kelime(i))
        If IsNumeric(Mid(Kelime(i), b, 1)) = True Then
            nums = nums & Mid(Kelime(i), b, 1)
        End If
   Next b
        Cells(k, a) = nums
        a = a + 1
Next i
Next k
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

 

[Erdem Akdemir]

Merhaba,

Alternatif olarak kullanabilirsiniz.

Sub ayır()
x = 1
For i = 1 To Len(Range("a1"))
prc = Mid(Range("a1"), i, 1)
If IsNumeric(prc) Then

deg = deg & prc

Else

If IsNumeric(deg) And deg <> Empty Then
x = x + 1
Cells(1, x) = deg
deg = ""
End If

End If

Next i

If IsNumeric(deg) And deg <> Empty Then Cells(1, x + 1) = deg

End Sub