sayfa içindeki sayıları bulunması

[galatasaray1981]

sayfa içinde bulunan sayı içeren hücreleri, satır sırasına göre , diğer bir sayfaya sütuna olarak yazdırmak (sadece sayıları, metinleri almayacak)
şimdiden teşekkürler. örnek olarak aşağıya linki koydum. teşekkürler tekrardan

http://s3.dosya.tc/server9/ddb4m4/ornek.xls.html

 

[Ömer BARAN]

Merhaba.

Sorunuzu bir örnek belgeyle destelemeniz,
(cevabımın altındaki İMZA bölümünü okuyunuz)
sonuca ulaşmanızı kolaylaştırır diye düşünüyorum.
.

 

[sakman26]

selam,

formülle çözüme bir örnek için
eki inceleyin.

link : http://s3.dosya.tc/server9/91umxb/ornek.xls.html

Not :
Tablodaki gördüğüm kural :
R-xxx gibi ifadelerin hemen altında SAYISAL değer var.
Ve bu R-xxx ler de benzersiz olarak sırayla gitmekte..

Bu kurala göre rakamlar getirildi.

 

[Ziynettin]

Merhaba,

Makro ile çözüm.

Sub sayilari_aktar()
Sheets("ornek").Select
a = Range("A4:J" & Cells(Rows.Count, 1).End(3).Row)
ReDim b(1 To Application.Count(a), 1 To 1)
    For i = 1 To UBound(a)
        For y = 1 To UBound(a, 2)
            If IsNumeric(a(i, y)) And Not IsEmpty(a(i, y)) Then
                say = say + 1
                b(say, 1) = a(i, y)
            End If
        Next y
    Next i
Sheets("Sayfa1").Range("A2:A" & Rows.Count).ClearContents
If say > 1 Then
    Sheets("Sayfa1").[A2].Resize(say) = b
    Sheets("Sayfa1").[A2].Resize(say).NumberFormat = "#,##0.0"
End If
Sheets("Sayfa1").Select
MsgBox "İşlem Tamam.....", vbInformation
End Sub

http://s3.dosya.tc/server9/1egp37/Sayi_aktar.xls.html

 

[galatasaray1981]

süper iki çözümde. elinize sağlık allah razı olsun

 

[Ziynettin]

Cümlemizden allah razı olsun.

İyi çalışmalar...