Waarde uit een cel naar cel als datum gelijk is met een celwaarde

[loek010]

Beste Hulpverleners,
Ik zou als de datum gelijk is met een datum in cel J5 dat dan de waarde uit cel J1 ook in Cel F1 komt te staan
via vba met worksheet Calculate ik heb dit geknutseld maar werkt niet.

Private Sub Worksheet_Calculate()
If datevalue.Blad2.Range("L5").Value = Date Then ("J1").Value = ("F1").Value
End If
End Sub

 

[edmoor]

Die End If hoort er niet en je vraag is tegenover gesteld van je code.
Probeer het eens zo:

If Blad2.Range("L5").Value = Date Then Range("J1") = Range("F1").Value

 

[emields]

In uw vraag spreek je van cel J5 in formule staat L5

Als de oplossing van het IF op dezelfde lijn staat moet er geen End If geplaatst worden.

 

[loek010]

@Ed

inderdaad nou ik de vraag en de code bekijkt is het precies het tegenovergestelde
je code levert geen foutmelding meer op door die end if
maar hij levert niet het gewenste resultaat hij doet niet het getal van J1 in F1 zetten als de datum gelijk is met de datum uit L5
Misschien een andere optie ?

 

[snb]

Gebruik een simpele Excelformule

Als vandaag =L5 dan J1, anders niets

PS. Kijk eerst nog even in je basisboek VBA, want jouw 'code' heeft niets met VBA van doen.

 

[edmoor]

Andere optie:
Plaats een voorbeeld document.

 

[SjonR]

Private Sub Worksheet_Calculate()
If [L5] = Date Then [F1] = [J1]
End Sub

????

 

[emields]

snb bedoeld plaats volgend formule in cel F1

=ALS(L5=VANDAAG();J1;"")

 

[loek010]

@SjonR
De code gaf een Stackoverflow fout waarom ? weet ik ook niet in ieder geval bedankt.

@Snb
de simpele oplossing had ik ook al bedacht was het niet dat de cel ook handmatig ingevuld wordt.
en ja mijn vba is inderdaad niet jouw vba , waarom altijd een sneer naar iedereen

@Edmoor en emields
Bedankt voor jullie hulp


Heb het probleem inmiddels opgelost met een andere insteek met behulp van deze code:

If Blad2.Range("F1").value = 0 Then
    Dim bedrag As Variant
    bedrag = Blad2.Cells(2, 15).value
    Blad2.Cells(1, 6).value = bedrag
    End If

Bedankt iedereen :thumb:

 

[HSV]

Kan in een regeltje.

If Blad2.Range("F1").value = 0 Then Blad2.Cells(1, 6).value = Blad2.Cells(2, 15).value