Sütunda kelimeleri silme

[ASLAN7410]

Merhaba herkese hayırlı günler.

Ekte gönderdiğim excel dosyamın Sayfa1'de hücrelerdeki bütün bilgileri butona bastığımda Sayfa2'de A sütununa aktarıyor.

Benim yapmak istediğim Sayfa2'deki butona bastığımda A sütununda kelimelerin silinmesini ve sadece rakamların kalmasını istiyorum.

Yardımcı olur musunuz?

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodlar ile yapabilirsiniz.

Sub KelimeTemizle()
    Dim SonSatir As Long
    Dim Bak As Long
    With Worksheets("Sayfa2")
        SonSatir = .Cells(Rows.Count, "A").End(3).Row
        For Bak = SonSatir To 1 Step -1
            If Not IsNumeric(.Cells(Bak, "A").Value) Then
                .Cells(Bak, "A").Delete Shift:=xlUp
            End If
        Next
    End With
    MsgBox "Sadece rakamlar kaldı."
End Sub

 

[Asri]

Alternatif;

Sub KelimeTemizle()
    Set sh = Sheets("Sayfa2")
    satir = sh.Cells(Rows.Count, "A").End(3).Row
    Set alan = sh.Range("A1:A" & satir)
    For Each veri In alan
        If IsNumeric(veri.Value) = False Then veri.ClearContents
    Next veri
    MsgBox "Sadece rakamlar kaldı."
End Sub

 

[ASLAN7410]

Sayın dalgalikur, ellerinize sağlık, çok teşekkür ediyorum, tam istediğim gibi çalışıyor.

Hayırlı günler, hayırlı çalışmalar diliyorum.,

 

[ASLAN7410]

Sayın asri, size de çok teşekkür ediyorum, ellerinize sağlık, sizin kodlar da tam istediğim gibi çalışıyor.

Hayırlı günler, hayırlı çalışmalar diliyorum.