cumulatief optellen in een cel

[avesoft]

heren

ik zou graag via een macro cumulatief willen optellen in cel G6 , als in cel H6 een waarde in gevuld word.
hetzelfde ook in G7 en H7 enz

via een userform word waardes op een rij opgehaald en in textbox8 gewijzigd (door button)

kan dit ook via userform met een macro ? ik heb iets gevonden maar dan telt hij niet cumulatief op

Private Sub TextBox8_Change()
    Me.TextBox7 = Val(Me.TextBox8)
End Sub

kan mij iemand mischien hiermee willen helpen

gr arie

 

[Roncancio]

Moet het via een userform?
Via onderstaande code wordt de waarde van de G-kolom verhoogd met de waarde die in de H-kolom wordt ingevoerd.

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Column = 8 Then .Offset(0, -1).Value = .Offset(0, -1).Value + .Value
End With
End Sub

Met vriendelijke groet,


Roncancio

 

[avesoft]

Roncancio

weer perfect gedaan dank je :thumb:

gr arie

 

[avesoft]

Roncancio

vraagje nog als waarde textbox 8 groter word dan textbox 7 zou textbox rood moeten worden . ik heb denk ik de code tevergeefs verkeerd aangepast

kun jij mij nog even hiermee uit de brand helpen

Private Sub ComboBox1_Change()
    If Sheets("Blad4").Columns(1).Find(ComboBox1, , xlValues, xlWhole) Is Nothing Then Exit Sub
    sq = Sheets("Blad4").Columns(1).Find(ComboBox1, , xlValues, xlWhole).Offset(, 0).Resize(, 23)
        For i = 1 To UBound(sq, 2)
            Me("Textbox" & i + 1) = sq(1, i)
            Select Case UCase(Me("Textbox" & i + 1).Value)
                Case "JA"
                    CLR = vbGreen
                Case "NEE"
                    CLR = vbRed
                Case 0
                    CLR = vbYellow
               Case Is > ""
            If i + 1 = 7 Then
                CLR = vbGreen
            ElseIf i + 1 = 8 Then
                CLR = vbBlue
            Else
                CLR = vbWhite
            End If
        Case Else
            CLR = vbWhite
        End Select
      Me("Textbox" & i + 1).BackColor = CLR
    Next
End Sub

gr arie

 

[Roncancio]

Private Sub TextBox8_Change()
TextBox8.BackColor = IIf(TextBox8.Value > TextBox7.Value, vbRed, vbWhite)
End Sub

Met vriendelijke groet,


Roncancio

 

[avesoft]

Roncancio

als een waarde in textbox 9 ingevoerd word en waarde dan boven textbox 7 komt word textbox 8 toch nog blauw weergegeven

ik zal even file bij doen Bekijk bijlage Planning.xls

gr arie

 

[Roncancio]

Wanneer wordt Textbox8 dan blauw?
Bij mij blijft het rood.

Met vriendelijke groet,


Roncancio

 

[avesoft]

als bij (plan uren) 40 is ingevoerd

als ik waarde 41 invoer bij (ingevoerde uren)

geeft bij (gebruikte uren) blauw

gr arie

 

[Roncancio]

Zo klopt het beter.
Ik ging er vanuit dat je ipv textbox9 textbox8 bedoelde.

Waarom eigenlijk de 2 calendars rechts van het formulier?
Je zou een userform aan kunnen maken met 1 calendar en deze steeds aanroepen en verbergen.

Met vriendelijke groet,


Roncancio

 

[avesoft]

Roncancio

werkt voor zover goed als ik bij textbox 9 41 invul dan kleurt het rood

ik denk dat ik de vraag wat anders had moeten stellen

als bij (plan uren) 40 is ingevoerd

bij (gebruikte uren) staat bv 39

als ik waarde 2 invoer bij (ingevoerde uren)

geeft bij (gebruikte uren) geen rood

over de calenders , ik dacht dat bij iedere textbox waar de datum ingevuld moet worden een calender opgeroepen moest worden

gr arie

 

[Roncancio]

Met vriendelijke groet,


Roncancio

 

[avesoft]

Roncancio

allereerst dank je

bij mij werkt het niet ??

als (plan uren bv 40) staat
(gebruikte uren) niks
als ik (ingevoerde uren) al 1 invul gaat gebruikte uren al op rood , uren worden alleen bij (ingevoerde uren) bij geboekt
het moet pas rood worden als in cumulatief (gebruikte uren) 41 komt te staan (groter dan plan uren)

gr arie

 

[Roncancio]

Volgens mij klopt het zo beter.

Met vriendelijke groet,


Roncancio

 

[avesoft]

bedankt vast

ik ga dit morgen testen

gr arie

 

[avesoft]

Roncancio

werk t perfect top bedankt

gr arie