hulp gevraagd bij een selektie box

[jannesgk]

hallo
ik ben met een bestand bezig die de bestelling bijhoudt van vloeistoffen met levertijd
heb al veel voorbereid maar wil nog iets bereiken met de invulling van de levertijd
het gaat om het volgende als je de aantal liters van de bestelling hebt ingevuld berekent kolom J de levertijd b.v een week of meer
nu is het nog zo in de lijst dat de week nummer iedere keer weer wijzigt als je week verder bent
deze lijst wordt iedere dag ingevuld dus wil ik graag op het moment dat de bestelling is ingevult bij kolom I de aantal liters zijn ingevuld de waarde in kolom J vast word en niet meer wijzigt
dat zelf dit op te lossen met een selektie box ofzo maak het lukt niet
weet iemand raad

jannesBekijk bijlage Tank Reading Cond& Glycol xlsm.xlsm

 

[Cobbe]

Hang dit achter je blad 'Invullijst'

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Range("I6:I10")) Is Nothing Then
 For Each c In Range("J6:J10")
  If c.Offset(, -1) <> "" Then Cells(c.Row, "J") = c.Value
 Next
End If
End Sub

 

[VenA]

Met een iets andere benadering waarbij je de levertijd in een aparte kolom zet.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("I6:I10")) Is Nothing Or Target.Count <> 1 Then Exit Sub
With Target
  If .Value = "" Then .Offset(, 1) = "" Else .Offset(, 1) = Application.WeekNum(Range("B2") + .Offset(, 2))
End With
End Sub

 

[jannesgk]

codde en VenA

bedankt voor jullie hulp beide code's werken
ben er blij mee kan nu weer verder had niet aan deze mogelijkheid gedacht dit werkt nog beter dan met een selektie box
dus bij deze alle bij bedankt voor jullie hulp

groet jannes