Hücre içersindeki sayıları alma

[burakinti]

Bir hücrede harf ve sayılardan oluşan bir bütün var.
Bu hücredeki rakamları nasıl ayırabilirim.
Örnek
AD15FGT65CCT

bu sayıların yerleri başka hücrelerde sabit olmayablir.
yani başka hücrede 1BFG62DDTY olabilirde.
Herhangi bir çözüm varmı?

 

[Ali]

Ekteki örnek işiniz görür sanırım.

 

[zafer]

Merhaba

Aşağıdaki kodları deneyiniz.
Seçtiğiniz alandaki hücre içindeki sayıları bir yanındaki hücreye yazar.

Sub sayısec()
Dim i As Integer
For Each hucre In Selection
For i = 1 To Len(hucre)
Sayi = Mid(hucre, i, 1)
If IsNumeric(Sayi) = True Then
ActiveCell.Offset(0, 1) = ActiveCell.Offset(0, 1) & Sayi
End If
Next
Next
End Sub

 

[ocsnltd]

Merhaba

Aşağıdaki kodları deneyiniz.
Seçtiğiniz alandaki hücre içindeki sayıları bir yanındaki hücreye yazar.

Sub sayısec()
Dim i As Integer
For Each hucre In Selection
For i = 1 To Len(hucre)
Sayi = Mid(hucre, i, 1)
If IsNumeric(Sayi) = True Then
ActiveCell.Offset(0, 1) = ActiveCell.Offset(0, 1) & Sayi
End If
Next
Next
End Sub

Teşekkürler..

Peki bu kodu B sutunundaki 1000 satır için dongüsel olarak nasıl yaparız...???

 

[Korhan Ayhan]

Selamlar,

Sn. Zafer beyin önerdiği kodu kullanabilirsiniz. B sütunundaki 1000 satırı mouse ile seçip butona bastığınızda C sütununa listelemeyi yapacaktır. İstediğiniz bu değilmi?

 

[Recep İpek]

Eğer fonksiyon şeklinde kullanmak istiyorsanız aşağıdaki kodları kullanabilirsiniz.

Function SAYIAL(hücre As Range)
For i = 1 To Len(hücre)
sayi = Mid(hücre, i, 1)
If IsNumeric(sayi) = True Then
son = son & sayi
End If
Next
SAYIAL = son
End Function

 

[ocsnltd]

Tümünü sectigimde tüm değerleri en üsteki hücrenin yanındaki hücreye yazıyor.. ayrı ayrı yazmıyor...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları kullanabilirsiniz. B sütunundaki verilerden sayıları ayırıp C sütununa listeler.

Sub HÜCREDEKİ_SAYILARI_AYIR()
    Dim X As Integer
    Columns("C").Clear
    For Each Hücre In Range("B1:B65536")
    For X = 1 To Len(Hücre)
    Sayı = Mid(Hücre, X, 1)
    If IsNumeric(Sayı) = True Then
    Cells(Hücre.Row, 3) = Cells(Hücre.Row, 3) & Sayı
    End If
    Next
    Next
End Sub

 

[ocsnltd]

Merhaba,

Teşekkür ederim.. çok güzel olmuş...

ama örnegin "okfs 0000045 dlkfosf" olan bir ifadede sadece 45 yazıyor... 0000045 yazmıyor.. bunu nasıl hallederiz..?

 

[Ali]

Yukarıda eklemiş olduğum dosyadaki kullanıcı tanımlı fonksiyon işiniz görür 0000045 diye ayırır. İyi çalışmalar

 

[yousemeti]

Korhan Ayhan Hocam;
teşekür ederim benim cok işime yaradı cok ama cok tesekür ederim.

muhtesem oldu benim buyuk bri sorundan kurtardınız
saygılarımla

 

[Orion1]

sıfırlarında görünmesi için aşağıdaki gibi deneyiniz.

For X = 1 To Len([B][COLOR="Red"]cstr[/COLOR][/B](Hücre))
If IsNumeric([B][COLOR="Red"]cstr[/COLOR][/B](Sayı)) = True Then

 

[yousemeti]

sıfırlar gorunuyor ile kod kodda nedir arasındaki fark ben bri yerde hatamı yorum.?

 

[Necdet]

sıfırlar gorunuyor ile kod kodda nedir arasındaki fark ben bri yerde hatamı yorum.?

Bu tümceyi Türkçe'ye çevirecek var mı?