fout in excel code vakantieplanner

[DCTALK]

best mensen

Laatst heb ik via dit forum een vakantieplanner gevonden die ik wel kon gebruiken met eea aan te passen. Maar nu is er toch iets met de code niet goed. Eerst werkte het goed, hier onder de code zouden jullie er es kritisch naar willen kijken? graag hoor ik wat ik fout gedaan heb.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Medw = ComboBox1.Value
Datum1 = ComboBox2.Value
Datum2 = ComboBox3.Value
test = Range("C3").Value


With Sheets("1e Kwartaal").Range("B13:B113")
Set a = .Find(Medw, LookIn:=xlValues, lookat:=xlWhole)
If Not a Is Nothing Then
vRij = a.Row

With Sheets("1e kwartaal").Range("F12:CR12")
Set b = .Find(Datum1, LookIn:=xlValues, lookat:=xlPart)
If Not b Is Nothing Then
kRij1 = b.Column

Set c = .Find(Datum2, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
kRij2 = c.Column
End If
End If
End With

rBereik1 = Cells(vRij, kRij1).Address
rBereik2 = Cells(vRij, kRij2).Address
Range(rBereik1, rBereik2).Select

Selection.Interior.ColorIndex = 4
Selection.Interior.Pattern = xlSolid

End If
End With

Range("A1").Select
Unload Me
Application.ScreenUpdating = True

End Sub

 

[DCTALK]

Beste mensen hierbij ook het excel doc waar het omgaat, de fout melding zit in het zoeken van gegevens inrijen maar ik kom er niet uit.


Hoor van jullie

groeten corné

 

[Revdutchie]

Corne,

Zou je zo een groot stuk code svp tussen code Tags willen zetten, dat maakt het lezen wat aangenamer.

 

[DCTALK]

sorry, bij deze

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Medw = ComboBox1.Value
Datum1 = ComboBox2.Value
Datum2 = ComboBox3.Value
test = Range("C3").Value


With Sheets("1e Kwartaal").Range("B13:B113")
Set a = .Find(Medw, LookIn:=xlValues, lookat:=xlWhole)
If Not a Is Nothing Then
vRij = a.Row

With Sheets("1e kwartaal").Range("F12:CR12")
Set b = .Find(Datum1, LookIn:=xlValues, lookat:=xlPart)
If Not b Is Nothing Then
kRij1 = b.Column

Set c = .Find(Datum2, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
kRij2 = c.Column
End If
End If
End With

rBereik1 = Cells(vRij, kRij1).Address
rBereik2 = Cells(vRij, kRij2).Address
Range(rBereik1, rBereik2).Select

Selection.Interior.ColorIndex = 4
Selection.Interior.Pattern = xlSolid

End If
End With

Range("A1").Select
Unload Me
Application.ScreenUpdating = True

End Sub

 

[snb]

Of zoiets:

Private Sub CommandButton1_Click()
  With sheets("1e Kwartaal")
    With .[B13:B113].Find(ComboBox1.Value, ,xlValues, xlWhole).offset(,.F12:CR12].Find(ComboBox2.Value, ,xlValues, xlPart).column-2).resize(,.[F12:CR12].Find(Combobox3.value, ,xlValues, xlPart).column-.F12:CR12].Find(ComboBox2.Value, ,xlValues, xlPart).column)
       .Interior.ColorIndex = 4
       .Interior.Pattern = xlSolid
    End with
  End With
End Sub

 

[DCTALK]

Private Sub CommandButton1_Click()
  With sheets("1e Kwartaal")
    With .[B13:B113].Find(ComboBox1.Value, ,xlValues, xlWhole).offset(,.F12:CR12].Find(ComboBox2.Value, ,xlValues, xlPart).column-2).resize(,.[F12:CR12].Find(Combobox3.value, ,xlValues, xlPart).column-.F12:CR12].Find(ComboBox2.Value, ,xlValues, xlPart).column)
       .Interior.ColorIndex = 4
       .Interior.Pattern = xlSolid
    End with
  End With
End Sub

Deze geeft helaas ook nog een fout melding, ik weet niet of je deze code zelf ook getest hebt in het doc wat ik geplaatst heb? misschien doe ik iest verkeerd. Maar ik neem aan dat het de bedoeling is oude code weg en die nieuwe van jou op die plek van de oude.

Ik probeer nog wat aanpassingen, deze code is we een stukje korter, hopelijk weet je misschien nog een oplossing.

al vastbedankt voor de moeite

gr Corne