Soru Zaman Aralığında ETOPLA VBA Kodu

[Feylosof]

Değerli Arkadaşlar,

Ekli dosyada A ve F sütunlarını esas alarak ETOPLA işlemini yapan VBA KODU konusunda sizden yardım istiyorum.
G1 de seçilen kişinin toplamını H1 de göstermek amacındayım.
Şimdiden teşekkürler.

 

[ÖmerFaruk]

Eğer F sütununuzda olacak yıl-ay-gün verisi hep böyle ise

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [G1]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For i = 2 To Range("A" & Rows.Count).End(3).Row
        If Range("B" & i) = Range("G1") And Len(Range("F" & i)) > 15 Then
            x1 = Split(Range("F" & i), " ")(0)
            x2 = Split(Range("F" & i), " ")(2)
            x3 = Split(Range("F" & i), " ")(4)
            If IsNumeric(x1) And IsNumeric(x2) And IsNumeric(x3) Then
                Topx1 = Topx1 + x1 * 1
                Topx2 = Topx2 + x2 * 1
                Topx3 = Topx3 + x3 * 1
            End If
        End If
    Next i
    Sonx3 = Topx3 Mod 30
    temp = Int(Topx3 / 30) + Topx2
    Sonx2 = temp Mod 12
    Sonx1 = Int(temp / 12) + Topx1
    Range("H1") = Sonx1 & " Yıl " & Sonx2 & " Ay " & Sonx3 & " Gün"
    Application.EnableEvents = True
End Sub

 

[Feylosof]

@ÖmerFaruk Bey çok teşekkür ederim. Evet dediğiniz gibi bu her zaman böyle olacak. Özel bilgiler içerdiği için esas dosyayı yükleyememiştim. Bu kodu oraya uyarlamaya çalışacağım. Sağlıcakla kalın.

 

[Feylosof]

@ÖmerFaruk Bey esas dosyanın bir kopyası olan ve foruma yüklediğim dosyada çalışan kod, kendi dosyamda B sütunundaki mükererr kayıtları toplamıyor sadece ilk kaydı getiriyor.

 

[Feylosof]

@ÖmerFaruk Bey esas dosyanın bir kopyası olan ve foruma yüklediğim dosyada çalışan kod, kendi dosyamda B sütunundaki mükererr kayıtları toplamıyor sadece ilk kaydı getiriyor.

Çalıştırdım galiba. Emeğiniz için bir kez daha teşekkürler. @ÖmerFaruk Bey

 

[ÖmerFaruk]

Rica ederim kolay gelsin.