vervolg datum functie

[sacredfour]

Vervolg datum functie (vervolg)
Ik ben weer in mijn boeken gedoken i.v.m. de tijdfunctie, maar ik kom er nog niet helemaal uit. Zie voorbeeld.
De bedoeling is dat de macro per maand een bedrag wegschrijft :

If Sheets("Blad1").Range("A" + CStr(lijn)).Value = klantnummer Then
     If datum = ("1-2-2021") Then
      Sheets("Blad1").Range("C" + CStr(lijn)).Value2 = bedrag
End if
End if

De bedoeling is dat de macro hier

 If datum = ("1-2-2021") Then

de hele maand januari pakt en niet alleen de eerste van de maand.

 

[snb]

Maak het jezelf niet onnodig moeilijk:

In plaats van:

If Sheets("Blad1").Range("A" + CStr(lijn)).Value = klantnummer Then

If Sheets("Blad1").cells(lijn,1) = klantnummer Then

 

[sacredfour]

oke, bedankt ga ik doen.
Heb je ook een oplossing voor mijn tijdfunctie?

 

[snb]

Waarom wil je in 1 bestand dezelfde gegevens 2 keer plaatsen ?

 

[HSV]

Trefwoord is

month

 

[sacredfour]

snb Ik snap je vraag niet.

HSV

If datum = ("1-2-2021") Then

moet dan worden

If datum = ("Jan 2021") Then

???

 

[JEC.]

Als je macro realogate zo schrijft gaat het volgens mij hoe je wenst

Sub realogate()
jv = Sheets(1).Range("A1:P9")
 With Sheets(2)
     a = Application.Match(.Range("D3").Value, Sheets(1).Range("A1:A100"), 0)
     b = Month(.Range("B3").Value) + 2
     jv(a, b) = .Range("H3").Value
     Sheets(1).Range("A1:P9") = jv
 End With
End Sub

 

[sacredfour]

Bedankt JVeer!