Hallo allemaal.
Ik loop vast op een script dat ik bij elkaar verzameld heb maar wat wel werkt.
Echter werkt het alleen maar op 1 cel en wel op cel A1.
Ik ben nog helemaal onbekend met VBA dus ik hoop dat jullie me weer een zetje de goed kan op kunnen geven.
Het scriptje is voor een capaciteits planning die ik aan het maken ben.
Echter ontbreekt nog de TVT (Tijd Voor Tijd) registratie.
beschrijving script:
Als je in cel A1 tvt in typed dan komt er een inputbox op.
In de inputbox vul je een waarde in bv 2
De waarde 2 wordt nu in cel A10 gezet.
Hier kan ik dan mee gaan rekenen.
echter kan dit maar voor 1 cel.
Hoe kan ik dit script copieren zodat ik 365 cellen (dagen in het jaar) kan aansturen.
Of moet dit heel anders gebeuren. zoja hoe?
Ik loop vast op een script dat ik bij elkaar verzameld heb maar wat wel werkt.
Echter werkt het alleen maar op 1 cel en wel op cel A1.
Ik ben nog helemaal onbekend met VBA dus ik hoop dat jullie me weer een zetje de goed kan op kunnen geven.
Het scriptje is voor een capaciteits planning die ik aan het maken ben.
Echter ontbreekt nog de TVT (Tijd Voor Tijd) registratie.
beschrijving script:
Als je in cel A1 tvt in typed dan komt er een inputbox op.
In de inputbox vul je een waarde in bv 2
De waarde 2 wordt nu in cel A10 gezet.
Hier kan ik dan mee gaan rekenen.
echter kan dit maar voor 1 cel.
Hoe kan ik dit script copieren zodat ik 365 cellen (dagen in het jaar) kan aansturen.
Of moet dit heel anders gebeuren. zoja hoe?
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address(0, 0) = "A1" Then
Select Case LCase(Target.Value)
Case "tvt": Call tvturen
Case Else: MsgBox "Do not Delete"
End Select
End If
Application.EnableEvents = True
End Sub
Sub Numeric_tvturen()
If Range("A1").Value = "tvt" Then
tvtsub
End If
End Sub
Sub tvtsub()
UserValue = InputBox("TVT uren")
Range("A10").Value = UserValue
End Sub