Sutundaki Karakterleri Saymak

[ejderemrah]

Herkese Kolay gelsin Arkadaşlar
Benim birkaç sorum olacak yardımlarınızı bekliyorum...
(Form da aradım ama bulamadım belkide benim acemliğimden)

Elimde Banka Verileri var bunları derlemek istiyorum




F Sütununda "(D)" ifadesi duraklama sürelerini ifade ediyor
örnek: "(D)(D)(D) 2" (3 Günlük duraklama toplam 5 gün gibi),
ben bu "(D)" lerin toplam kaç hücrede olduklarını ve kaç adet olduklarını hesaplamak istiyorum 8000 satıra yakın yani toplam "(D)" leri ve Ortalama "(D)" leri bulmak istiyorum yardımlarınızı bekliyorum

Bir konu daha var
B sütununda bankaların adları var ben bunları bir formül ile başka bir yere aynı banka tekrar yazılmayacak sekilde liste halinde alabilirmiyim ?


Yardımlarınızı bekliyorum.

 

[Murat OSMA]

Sub Zamanı_Hesapla()
    Dim i As Integer, ayır As Variant
    For i = 3 To Range("D65536").End(3).Row
        If Cells(i, "F") <> "" Then
            ayır = UBound(Split(Cells(i, "F"), "("))
            Cells(i, "G") = ayır + Right(Cells(i, "F"), 1)
        End If
    Next i
    i = Empty: ayır = Empty
End Sub

 

[ejderemrah]

Sub Zamanı_Hesapla()
    Dim i As Integer, ayır As Variant
    For i = 3 To Range("D65536").End(3).Row
        If Cells(i, "F") <> "" Then
            ayır = UBound(Split(Cells(i, "F"), "("))
            Cells(i, "G") = ayır + Right(Cells(i, "F"), 1)
        End If
    Next i
    i = Empty: ayır = Empty
End Sub

Biraz Açıklayabilirmisiniz Bu kodu nasıl kullanmalıyım nereye kopyalamalıyım !

 

[Murat OSMA]

Sayfadayken Alt + F11 tuşlarına birlikte basın.
Açılan pencerenin üst tarafında Insert menüsü var onu seçin.
Açılan menüden Module'yi seçin e oraya yapıştırın.
Son olarak mouse ile kodu seçin ve F5 tuşuna basın.

 

[ejderemrah]

Yardımınız için teşekkür ederim...

 

[Murat OSMA]

Rica ederim, iyi günler.