özet ve güncelleme

[sensizsoldum]

merhaba arkadaşlar, herkese hayırlı akşamlar,
ek dosya da anasayfada, gelenler sayfasının özetını istıyorum. gelenler sayfasında 1 tipten onlarca giriş var, ana sayfa da tek bir satırda bir tipin kaç adet olduğunu ve nerde olduğunun özetini istiıyorum.

ana sayfa da bide GÜNCELLE butonu olmalı. sayfaya gelen sayfadan giriş çıkış yapıldığında sayfayı güncellemek için.



ve bunun makroda olması lasım


ilgilenecek, ilgilenmeyecek tüm arkadaşlarıma sonsuz tşklerimi sunarım.

 

[hımmmmmmmm]

ANA SAYFA ya her geçişinde güncellenir...

Private Sub Worksheet_Activate()
Set S1 = Sheets("GELENLER")
Set S2 = Sheets("ANA SAYFA")
S2.Range("A3:Z65000").ClearContents

X = WorksheetFunction.CountA(S1.Range("A3:A65000")) + 3
S = 2
For I = 3 To X
     TIP = S1.Cells(I, 1).Value
     LKS = S1.Cells(I, 3).Value
     If WorksheetFunction.CountIf(S1.Range("A3:A" + Trim(I)), TIP) = 1 Then
        T = WorksheetFunction.CountIf(S1.Range("A:A"), TIP)
        S = S + 1:
        S2.Cells(S, 1).Value = TIP
        S2.Cells(S, 2).Value = LKS
        S2.Cells(S, 3).Value = T
     End If
Next I
End Sub

 

[sensizsoldum]

tşk ederim çok sağolun. allah razı olsun