Excelde Geçen Kelime ya da Sayıların Kaç Kez Kulladığına Dair İstatistik

[murat8503]

Arkadaşlar bana bu konuda yardımcı olabilir misiniz? Bir tür istatistik çekmek istiyorum mesela 18012012 rakamı kaç kez kullanılmış ise diğer sayfada örneğin 18012012 21(adet) yazsın. Örnek excel ekte yardımcı olursanız çok sevinirim.

 

[hamitcan]

Bu şekilde deneyin.

Sub Say()
    Sayfa2.Select
    Sayfa1.Cells.Copy Sayfa2.Cells(1)
        Cells.NumberFormat = "@"
    ActiveSheet.UsedRange.Select
    Selection.TextToColumns DataType:=xlDelimited, _
        ConsecutiveDelimiter:=True, Space:=True
    Columns.AutoFit
    a = InputBox("Aranan Metni Girin")
    For Each hcr In ActiveSheet.UsedRange
    If hcr.Text = a Then s = s + 1
    Next
    MsgBox s
End Sub

 

[murat8503]

emeğinize sağlık hamitcan kardeşim yalnız burda bana aradığım metnin sorusu yöneltiliyor
ben ise sayfada geçen her kelimenin kaç kez kullanıldığının listelenmesini istiyorum böyle birşey mümkün müdür acaba?

 

[hamitcan]

Sub genel()
    Sayfa2.Select
    Sayfa1.Cells.Copy Sayfa2.Cells(1)
        Cells.NumberFormat = "@"
    ActiveSheet.UsedRange.Select
    Selection.TextToColumns DataType:=xlDelimited, _
        ConsecutiveDelimiter:=True, Space:=True
    Columns.AutoFit
    
    
Sayfa3.Select
Columns(1).Clear
Columns(1).NumberFormat = "@"

    For Each hcr In Sayfa2.UsedRange
    If WorksheetFunction.CountIf(Sayfa3.Columns(1), hcr.Text) = 0 Then
    c = c + 1
    Sayfa3.Cells(c, 1) = hcr.Text
    Sayfa3.Cells(c, 2) = WorksheetFunction.CountIf(Sayfa2.Cells, hcr.Text)
    End If
    Next
    MsgBox "Bitti"

End Sub

 

[murat8503]

Gerçekten çok teşekkür ederim emeğinize sağlık

 

[hamitcan]

Lütfen sorularınızı Özelden sormayın.
53 ve 54 ile başlayıp 10 basamaklı olanlar;

Sub genel()
    Sayfa2.Select
    Sayfa1.Cells.Copy Sayfa2.Cells(1)
        Cells.NumberFormat = "@"
    ActiveSheet.UsedRange.Select
    Selection.TextToColumns DataType:=xlDelimited, _
        ConsecutiveDelimiter:=True, Space:=True
    Columns.AutoFit
    
Sayfa3.Select
Columns(1).Clear
Columns(1).NumberFormat = "@"

    For Each hcr In Sayfa2.UsedRange
    If Left(hcr.Text, 2) = 53 Or Left(hcr.Text, 2) = 54 Then
    If Len(hcr.Text) = 10 Then
    If WorksheetFunction.CountIf(Sayfa3.Columns(1), hcr.Text) = 0 Then
    c = c + 1
    Sayfa3.Cells(c, 1) = hcr.Text
    Sayfa3.Cells(c, 2) = WorksheetFunction.CountIf(Sayfa2.Cells, hcr.Text)
    End If
    End If
    End If
    Next
    MsgBox "Bitti"

End Sub

 

[murat8503]

tekrar teşekkür ederim çok işime yaradı gerçekten

 

[murat8503]

bir de excelde kullandığımız ctrl+h değiştir özelliğini makroda kullanmak istiyorum ";" olanları " " (boşluk) olarak değiştirmesini istiyorum kodlamada ";" olanları değiştirmiyor daha doğrusu kabul etmiyor

Range("A:A").Replace What:=";", Replacement:=" ", LookAt:=xlWhole

nasıl yapmam gerekir acaba yardımcı olurmusunuz

 

[hamitcan]

Range("A:A").Replace What:=";", Replacement:=" ", [color=red]LookAt:=xlPart[/color]

şeklinde deneyin.