05. juni 2012 - 19:04Der er
3 kommentarer og 1 løsning
Billet regnskab
Jeg har en "Dato" kolonne "B" og en "Tur nr." kolonne "C", samt en kolonne "F" med "Solgt" indeholdende salg pr. tur og en kolonne "I" med "Dagens salg", der skal summere salgene fra Tur nr. 1, 2, 3 osv. i den række I med højeste "Tur nr." De aktive celler går (foreløbig) fra række 3 til 59. Tur numrene starter altid med nr. 1 ud fra en given dato etc.
I kolonne "I" skal "Dagens salg" stå i den sidste række med samme dato og dermed også højeste Tur nr. Samme procedure sker i hver sidste række med samme dato og højeste "Tur nr." Dvs. række nummeret i kolonne "I" er ukendt, men skulle gerne automatisk beregne Dagens salg!
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
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
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. :-)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.