Totaal correct weergeven

[Segers]

Goeiemiddag,

In bijlage kun je een zip vinden met mijn bestand.

Standaard heb je allemaal lijnen. Indien er iets verkocht is, check je de inputbox en dan vraagt hij of het part of complete sale is.
Dit werkt maar dan kom ik vast te zitten om mijn totalen weer te geven.

Hoe kan ik totaal + totaal sales + totaal open correct weergeven als ik niet op voorhand weet hoe de verkoop zal lopen?

Alvast bedankt.Bekijk bijlage EMPTY uitbreiding ul.rar

 

[Warme bakkertje]

Hoe kan ik totaal + totaal sales + totaal open correct weergeven als ik niet op voorhand weet hoe de verkoop zal lopen?

Als jij het al niet weet, hoe moeten wij het dan weten ?

Je vraag is al 60x bekeken en nog geen reactie. Er zit dus zeker iets mis met je vraagstelling.
Je macro werkt ook niet correct aangezien je met hoofdletters MOET invullen, anders krijg je de inputbox opnieuw voorgeschoteld en gebeurt er verder niets.
Het kleuren van je rijen kan je herleiden tot 1 regel.

Private Sub CommandButton25_Click()
    Range("A5:Z5").Font.Color = IIf(Range("A5:Z5").Font.Color = vbBlack, vbMagenta, vbBlack)
End Sub

 

[Niels28]

Ik weet ook niet wat je wilt bereiken,

Maar ik zou al die knoppen in kolom AB weghalen en deze macro achter het blad hangen.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Column = 2 Then
Range("A" & Target.Row).Resize(1, 26).Font.Color = IIf(Range("A" & Target.Row).Font.Color = vbBlack, vbMagenta, vbBlack)
End If
End Sub

Dubbelklik op een cel in kolom B, heb je al die knoppen en macro's niet nodig.

Niels