otomatik liste güncelleme

[endymion]

Ekteki dosyada belirttiğim gibi listeye eklenen isimlerin toplam aldığım listeye otomatik olarak eklenmesini nasıl sağlayabilirim.Şimdiden teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SAY As Long
    If Intersect(Target, [A2:A65536]) Is Nothing Then Exit Sub
    SAY = WorksheetFunction.CountIf([F:F], Target)
    If SAY = 0 Then
    Cells(65536, 6).End(3).Offset(1) = Target
    Cells(65536, 6).End(3).Offset(, 1) = "=COUNTIF(A:A," & Cells(65536, 6).End(3).Address(0, 0) & ")"
    Cells(65536, 6).End(3).Offset(, 2) = "=SUMIF(A:A," & Cells(65536, 6).End(3).Address(0, 0) & ",C:C)"
    End If
End Sub

 

[endymion]

Çok teşekkürler elinize sağlık süper oldu Teşekkürler..