Datum plaatsen in kolom maar...

[DmitriFais]

Dag Allen,

Ben al aantal dagen op zoek naar het antwoord op de volgende vraag.

Hoe kan ik in kolom D de datum plaatsen als de waarde in kolom C hoger is dan 4?

Dat is niet al te moeilijk, echter:
- Eenmaal de datum ingevoerd mag deze niet meer veranderen
- Wanneer de datum weer onder 4 komt dan mag cel in kolom D weer leeg
- Komt de waarde weer boven 4 dan weer opnieuw berekenen.

Overigens zijn de cellen in kolom C berekend. Kolom A + B.

Heb lopen prutsen met timestamp, maar krijg telkens niet wat ik wil.

Hoop dat jullie me kunnen helpen.
Zie ook bijlage

Bekijk bijlage Datum.xlsx

 

[VenA]

In het bestandje staan geen datums dus wat mag er gemaakt worden?

Waar is dit te vinden?

Heb lopen prutsen met timestamp, maar krijg telkens niet wat ik wil.

 

[dnties]

Wat als de waarde van de celwaarde in kolom C exact 4 wordt (zowel als hij origineel hoger was dan 4 en als hij origineel lager was dan 4)? Wat moet er dan moet de celwaarde in kolom D gebeuren?

Tijs.

 

[gast0660]

Iets in die richting misschien?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim row As Long
For row = 1 To 7 [COLOR="#008000"]' van rij 1 tot rij 7 volgens uw vb[/COLOR]
            If Cells(row, 4) <> "" Then Cells(row, 4).Value = Cells(row, 4).Value
            If Cells(row, 3) <> "" Then
            If Cells(row, 3) >= 4 Then Cells(row, 4) = Date
            If Cells(row, 3) < 4 Then Cells(row, 4) = ""
        End If
    Next
End Sub

 

[dnties]

Ik denk dat een Worksheet_Change event nodig is die checkt of (een cel in) in de C kolom geaffecteerd was, en zo ja, checkt óf er wat moet veranderen op dezelfde rijhoogte in kolom D en dan de verandering doorvoert (indien nodig). Er moet dus flink gecheckt worden op de (huidige) waarde in kolom D voordat de waarde in die kolom naar de juiste waarde moet worden omgezet (áls er wat moet veranderen in kolom D), want de 'eisen' van de vragensteller zijn nogal 'breed'.

Tijs.

 

[Haije]

@dotchie

If Cells(row, 4) <> "" Then Cells(row, 4)[COLOR="#0000FF"].Value[/COLOR] = Cells(row, 4).Value

moet dat niet zijn

If Cells(row, 4) <> "" Then Cells(row, 4) = Cells(row, 4).Value

 

[gast0660]

@ Haije, ik heb geen idee, nog nooit getest of opgezocht.
Ik doe het zo en dit is een aftreksel van zoiets:

For row = 1 To 7
With Cells(row, 4)
    [COLOR="#0000FF"] .Value = .Value[/COLOR]
End With
Next

Als ik het zo bekijk zal uw oplossing ook werken.

 

[HSV]

Of:

Sub hsv()
 [d1:d7] = Evaluate("if((c1:c7>4)*(d1:d7="""")," & CLng(Date) & ",if(c1:c7<5,"""",d1:d7))")
End Sub

 

[DmitriFais]

@ HSV

Super, bedankt!!

:thumb: