Sütundaki Sayı Metinleri Ayırmak

[Utekiner]

Merhaba;

A sütunundaki yazılı sayı, metinler bulunmaktadır.

B sütununa Sayılar
C sütununa Metinleri yazacak bir kod yazabilir misiniz.
D sütununa toplam sayıların adetlerini saymasını
E sütununa Metinlerin toplam adetini saymasını talep ediyorum.

 

[çıtır]

Sorunuzu örnek excel dosyası ekleyerek sorarsanız,daha kısa sürede doğru cevaplar alabilirsiniz. Örnek excel dosyası ekleme hakkında bilgi edinmek isterseniz: https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/ bakınız.

 

[Utekiner]

Örnek Dosya;
https://dosya.co/7koalddl4wvf/Örnek.xlsx.html

 

[Orion1]

Buyurun.

Sub ayir_59()
Dim sat1 As Long, sat2 As Long, sonsat As Long, i As Long
Range("B2:E" & Rows.Count).ClearContents
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
sat1 = 2: sat2 = 2
For i = 2 To sonsat
    If IsNumeric(Cells(i, "A").Value) Then
        Cells(sat1, "B").Value = Cells(i, "A").Value
        sat1 = sat1 + 1
    Else
        Cells(sat2, "C").Value = Cells(i, "A").Value
        sat2 = sat2 + 1
    End If
Next i
Range("D2").Value = WorksheetFunction.CountA(Range("B2:B" & Rows.Count))
Range("E2").Value = WorksheetFunction.CountA(Range("C2:C" & Rows.Count))
MsgBox "Bitti"
End Sub

 

[Utekiner]

Sn @Orion1 Bey teşekkür ederim.