Billet regnskab

Er det muligt at få en kopi af filen med testdata?

@-adresse under min profil.

Rem Indlagt i ThisWorkbook
Rem ======================
Const ræk1 = 3
Const rækX = 59
Dim sidsteRæk As Integer
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Rem test om der er ændring i solgt eller dato
    If Target.Column = 6 Or Target.Column = 2 Then
        beregnDagensSalg Sh.Name
    End If
End Sub
Private Sub beregnDagensSalg(arkNavn)
Dim dagsTotal As Double, ræk As Integer, dato As String
   
    sidsteRække = Range("C60") + 2
    Range("I" & CStr(ræk1) & ":" & "I" & CStr(rækX)).ClearContents
   
    dato = Range("B" & CStr(ræk1))
       
    For ræk = ræk1 To sidsteRække
        If Range("B" & CStr(ræk)) <> dato Then
            Range("I" & CStr(ræk - 1)) = dagsTotal
            dagsTotal = Range("F" & CStr(ræk))
            dato = Range("B" & CStr(ræk))
        Else
            dagsTotal = dagsTotal + Range("F" & CStr(ræk))
        End If
    Next ræk

Rem total for sidste dato
    Range("I" & CStr(ræk - 1)) = dagsTotal
   
End Sub

Kanon tak for det! Nu skal jeg så have det til at virke i "Numbers" på en iPad også. Forhåbentlig kan jeg blot overføre mit Excel ark til min iPad. :-)

Selv tak og god fornøjelse..