Weer foutmeldingen if else

[riviera1974]

Hoi allemaal,

Ik zou graag jullie kennis willen gebruiken.
Ik heb een ComboBox3 waar waardes kan selecteren. De waardes die in dezelfde excel rij staan worden weergegeven in TextBox 4 t/m 11. Zie onderstaande code.
Nu heb ik de volgende vraag:
Nu heb ik nog een ComboBox 1 en 2 welke informatie uit Blad2 kolom D en E moeten halen.
voorwaarde is dat ComboBox 3 niet ingevuld mag zijn maar 1 en 2 beide wel.

eigenlijk is het hetzelfde als ComboBox 3 maar dan met Box 1 en 2 uit andere kolommen.

IK heb het op verschillende manieren geprobeerd zonder succes.

Private Sub solving_Initialize()
Dim oC As Range, EndRow As Long, r As Long
EndRow = ThisWorkbook("Blad2").Cells(Rows.Count, 1).End(xlUp).Row
Set oC = ThisWorkbook("Blad2").Cells
For r = 1 To EndRow
    If oC(r, 1).Value <> "" Then
        ComboBox3.AddItem oC(r, 1).Value
    End If
Next
End Sub

Private Sub ComboBox3_Change()
    
    Set waar = Range("c:c").Find(ComboBox3.Value, , , xlWhole)
    TextBox4.Value = waar.Offset(0, 3).Value
    TextBox8.Value = waar.Offset(0, 4).Value
    TextBox9.Value = waar.Offset(0, 5).Value
    TextBox10.Value = waar.Offset(0, 6).Value
    TextBox11.Value = waar.Offset(0, 7).Value
    TextBox12.Value = waar.Offset(0, 8).Value
End Sub

Private Sub aap_Initialize()
    For Each cell In Range("c9:c13")
        ComboBox3.AddItem (cell.Value)
    Next cell
    
End Sub

Alvast bedankt voor jullie inzet,:thumb:

Met vriendelijke groet,

Riviera

 

[visha]

kan je het bestandje sturen?

 

[snb]

Kun je de code in code tags zetten ?

Private Sub [COLOR=#ff0000][B]Userform[/B][/COLOR]_Initialize()
  combobox3.list=thisworkbook[COLOR="#FF0000"].sheets("Blad2").[/COLOR]cells(1).currentregion.columns(1).value
End Sub

 

[riviera1974]

Hallo Visha en snb,

Ivm met mijn werk kon ik pas laat reageren. sorry hiervoor.

Visha: ik kan het bestand u niet toesturen ivm prive informatie. Het zou fijn zijn met als we het kunnen oplossen het de gegeven informatie.
Snb: Ik snap niet helemaal wat ik moet doen? Moet ik een regel toevoegen of vervangen door hetgeen u geschreven hebt.

Alsvast bedankt

met vriendelijke groet,

Riviera