Araç yakıt yakip - km hesaplama

[demirayakf]

Merhaba arkadaşlar,
Şirketimiz araçlarının yakıt takibini yapmak için excel dosyası hazırladım. Çıkan sayfasında bilgileri girdiğim zaman o plakalı aracın bir önceci km sini bulup kaç km yaptığını yazdırmak istiyorum. bunu çok uğraştım ama bulamadım. bilen arkadaşlar yardımcı olursa sevinirim. dosya ekte.

http://s2.dosya.tc/server3/ngxrj0/MAZOT.xlsx.html

 

[YUSUF44]

G2 hücresinde aşağıdaki DİZİ formülü kullanıp aşağı doğru kopyalayınız. DİZİ formülünü hücreye girdikten sonra Enter ile değil CTRL+SHIFT+ENTER ile hücreden çıkmanız gerekmektedir:

=EĞER(EĞERSAY($C$1:C2;C2)>1;D2-MAK(EĞER($C$1:C1=C2;$D$1:D1));"")

 

[YUSUF44]

Formül değil de makroyla isterseniz aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp deneyiniz. Kodlar C25000 aralığına veri girdiğinizde G sütununa istediğiniz sonucu yazar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C2:D5000]) Is Nothing Then Exit Sub
If Target.Column = 3 Then
    If Target.Offset(0, 1) > "" Then
        If IsNumeric(Target.Offset(0, 1)) = True Then
            a = Target.Row
            For i = a - 1 To 2 Step -1
                If Cells(i, "C") = Target Then
                    Target.Offset(0, 4) = Target.Offset(0, 1) - Cells(i, "D")
                    i = 2
                End If
            Next
        End If
    End If
ElseIf Target.Column = 4 Then
    If Target.Offset(0, -1) > "" Then
        If IsNumeric(Target) = True Then
            a = Target.Row
            For i = a - 1 To 2 Step -1
                If Cells(i, "C") = Target.Offset(0, -1) Then
                    Target.Offset(0, 3) = Target - Cells(i, "D")
                    i = 2
                End If
            Next
        End If
    End If
End If
End Sub

 

[demirayakf]

G2 hücresinde aşağıdaki DİZİ formülü kullanıp aşağı doğru kopyalayınız. DİZİ formülünü hücreye girdikten sonra Enter ile değil CTRL+SHIFT+ENTER ile hücreden çıkmanız gerekmektedir:

=EĞER(EĞERSAY($C$1:C2;C2)>1;D2-MAK(EĞER($C$1:C1=C2;$D$1:D1));"")

çok teşekkür ederim sağolun. istediğim gibi oldu. birde araç rapor sayfasında iki tarih yazsam o iki tarih arasında kaç km yapmış kaç litre yakmış onları nasıl getirtiriz oraya. özet tablo ile olur mu

 

[demirayakf]

Formül değil de makroyla isterseniz aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp deneyiniz. Kodlar C25000 aralığına veri girdiğinizde G sütununa istediğiniz sonucu yazar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C2:D5000]) Is Nothing Then Exit Sub
If Target.Column = 3 Then
    If Target.Offset(0, 1) > "" Then
        If IsNumeric(Target.Offset(0, 1)) = True Then
            a = Target.Row
            For i = a - 1 To 2 Step -1
                If Cells(i, "C") = Target Then
                    Target.Offset(0, 4) = Target.Offset(0, 1) - Cells(i, "D")
                    i = 2
                End If
            Next
        End If
    End If
ElseIf Target.Column = 4 Then
    If Target.Offset(0, -1) > "" Then
        If IsNumeric(Target) = True Then
            a = Target.Row
            For i = a - 1 To 2 Step -1
                If Cells(i, "C") = Target.Offset(0, -1) Then
                    Target.Offset(0, 3) = Target - Cells(i, "D")
                    i = 2
                End If
            Next
        End If
    End If
End If
End Sub

teşekkür ederim. bu beni aşar sağolun

 

[YUSUF44]

Aşacak bir şey yok. ÇIKAN sekmesine sağ tıklayıp Kod Görüntüle deyin. Bu kodları oraya yapıştırın. Daha sonra ÇIKAN sayfasında plaka ve km girerek sonucu gözlemleyin. Yalnız bu makro olduğu için dosyanızı Makro içerebilen excel dosyası olarak kaydetmelisiniz.

Diğer isteğiniz için lütfen örnek dosyanızı güncelleyip nasıl bir sonuç istediğinizi gösteriniz.