zoeken naar volgende datum en hier het rij nr van geven

[Hampert]

Hoi,

Ik ben met vba een automatisch invullen aan het maken nu heb ik de volgende vraag.

In blad 3 (blad 1van het vb) heb ik een rij met datums. Onder een datum staan namen en hieraan gekoppelt een cel met een cijfer. Nu heb ik in mijn bestand een button die als in een cel onder een datum een 1 heeft de naam die bij deze cel hoort plaats op blad 2 in een colom. Staat onder de datum een 2 dan plaats deze macro de naam op blad2 in de volgende kolom. Hiervoor heb ik de volgende code

For i = 4 To 38

    If Blad3.Cells(i, 49) = "1" Then
        ActiveCell.Value = Blad3.Cells(i, 3).Value
        ActiveCell.Offset(1, 0).Select
    End If
Next i
    
    Range("A10").Select


For n = 1 To 17
    
    If Cells(n + 9, 2) <> "" Then
        ActiveCell.Value = n
        ActiveCell.Offset(1, 0).Select
    End If
Next n

Range("D10").Select

For i = 4 To 38

    If Blad3.Cells(i, 49) = "2" Then
        ActiveCell.Value = Blad3.Cells(i, 3).Value
        ActiveCell.Offset(1, 0).Select
    End If
Next i
Range("C10").Select


For n = 1 To 17
    
    If Cells(n + 9, 4) <> "" Then
        ActiveCell.Value = n
        ActiveCell.Offset(1, 0).Select
    End If
Next n

de colom (in de code 49) moet ik nu handmatig veranderen. Ik zou het graag zo hebben dat deze gezocht en ingevuld wordt.

Wat moet er gezocht worden?
De colom waarin de datum van de eerst volgende zondag ( zo) na dag van invullen staat.
Het formulier wordt op een woensdag of donderdag ingevuld.



Ik hoop dat het een beetje duidelijk is.

grt Hampert

 

[Hampert]

Hoi forummers,

Kijk net even en zie bijna 40x bekeken maar geen reactie's.

onduidelijk of te ingewikkeld???????

grt Hampert

 

[Hampert]

duidelijk niet te beantwoorden.

ga een andere mogelijkheid zoeken.

 

[Hampert]

Ik heb een oplossing gevonden.

Dus zet 'm op opgelost.

 

[huijb]

Zet dan ook de oplossing hier even neer zodat een volgende "Hampert" hier ook wat aan heeft.

 

[Hampert]

Oooooh sorry wel aan gedacht toch nog vergeten. Bij deze de code die ik heb gevonden en bij mij werkt.
Misschien voor de ervaren VBA'er erg omslachtig maar het werkt.

Ik heb een refferentie datum geplaatst in cel B6.
Deze datum gaat hij nu zoeken en geeft hier het colomnr van.

Dim strdate As String
Dim rCell As Range
Dim lReply As Long
Dim a As Integer

    strdate = Range("b6")
   
   'Cancelled
    If strdate = "False" Then Exit Sub
    strdate = Format(strdate, "Short Date")

    On Error Resume Next

With Blad3.Range("d2:dd2")
        Set rCell = .find(What:=CDate(strdate), LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)

    On Error GoTo 0

    If rCell Is Nothing Then

        lReply = MsgBox("Geef een juiste Datum in !")
        Range("B6").Select
        Exit Sub
        Else
        a = rCell.Column
        
    End If
End With

For i = 4 To 38

    If Blad3.Cells(i, a) = "1" Then
        ActiveCell.Value = Blad3.Cells(i, 3).Value
        ActiveCell.Offset(1, 0).Select
    End If
Next i
    
    Range("A10").Select

Ik hoop dat deze duidelijk is voor ieder die hem wil gebruiken.