Wijziging(en) in formulier doorvoeren lukt niet

[Josno]

Allereerst de aller beste wensen voor 2011 voor het gehele forum en ik ben blij dat dit forum bestaat!

Ik heb het volgende probleem ik heb een invoerformulier gemaakt met de optie om records te kunnen toe te voegen, wijzigen en verwijderen. Echter als ik een record wil wijzigen slaat hij deze niet op. Ik heb het volgende staan in visual basic

Private Sub Cmd_Wijzigen_Click()
With Worksheets("Data mutatie Portaal").Range("A:A")
    Set P = .Find(Cbo_Adres.Value, LookIn:=xlValues, lookat:=xlWhole)
    If Not P Is Nothing Then
        With Worksheets("Data mutatie Portaal")
            .Range("A" & P.Row).Value = Cbo_Adres.Value
            .Range("B" & P.Row).Value = Txt_Team.Value
            .Range("C" & P.Row).Value = Txt_KB.Value
            .Range("D" & P.Row).Value = Txt_WA.Value
            .Range("E" & P.Row).Value = Txt_1e_Inspectie.Value
            .Range("F" & P.Row).Value = Txt_2e_Inspectie.Value
            .Range("G" & P.Row).Value = Txt_einddatum_HRC.Value
            .Range("H" & P.Row).Value = Txt_Mutatie_Cat.Value
            .Range("I" & P.Row).Value = Txt_Nr_Sleutelkastje.Value
            .Range("J" & P.Row).Value = Txt_Kosten_Huurder.Value
            .Range("K" & P.Row).Value = Txt_Def_Kosten_Huurder.Value
            .Range("L" & P.Row).Value = Txt_Opdracht_Aannemer.Value
            .Range("P" & P.Row).Value = Txt_Datum_Verhuring.Value
            .Range("Q" & P.Row).Value = Txt_Status_Kandidaat.Value
            .Range("R" & P.Row).Value = Txt_Datum.Value
            .Range("S" & P.Row).Value = Txt_Kandidaatnr.Value
            .Range("T" & P.Row).Value = Txt_Naam_Klant.Value
            .Range("U" & P.Row).Value = Txt_Bestemming.Value
            .Range("V" & P.Row).Value = Txt_Bijzonderheden.Value
            .Range("W" & P.Row).Value = Txt_uitvoerder.Value
            .Range("X" & P.Row).Value = Txt_Omschrijving.Value
            .Range("Y" & P.Row).Value = Txt_Datum_Huurcontract.Value
Rem VOC
            .Range("M" & P.Row).Value = Txt_Prognose_VOC.Value
            .Range("N" & P.Row).Value = Txt_Daadwerkelijke_Oplevering.Value
            .Range("O" & P.Row).Value = Txt_Werkelijke_Kosten.Value
        End With
        MsgBox "Gegevens " & Cbo_Adres.Value & " zijn gewijzigd!", vbInformation, "Gegevens gewijzigd."

    End If
End With
End Sub

Private Sub UserForm_Initialize()
Cbo_Adres.RowSource = "A2:A65000"
Txt_Team.RowSource = "Team"
Txt_KB.RowSource = "KB"
Txt_WA.RowSource = "WA"
Txt_uitvoerder.RowSource = "Uitvoerder"
Txt_Bestemming.RowSource = "Bestemming"
Txt_Mutatie_Cat.RowSource = "Categorie"
Txt_Omschrijving.RowSource = "Omschrijving"
End Sub

Als ik bij Private Sub Userform_Initialize voor Cbo_Adres.RowSource = "A2:A65000" een rem zet lukt het wel, maar zoekt hij de record niet mee op in het formulier. Op de een of andere manier gaat dit niet goed. Is er iemand die mij kan helpen hiermee

Alvast bedank

Josno

 

[Warme bakkertje]

Cbo_Adres.RowSource = Sheets("Naam van je werkblad").Range("A2:A65000")

Is het echter nodig om een volledige kolom aan te duiden ?

 

[Josno]

Reactie

Cbo_Adres.RowSource = Sheets("Naam van je werkblad").Range("A2:A65000")

Is het echter nodig om een volledige kolom aan te duiden ?

Dank je wel voor je reactie krijg echter de volgende foutmelding "Fout 13 tijdens uitvoering Typen komen niet met elkaar overeen"

 

[Warme bakkertje]

sq = Sheets("Naam van je werkblad").Range("A2:A65000")
Cbo_Adres.List = sq

 

[Josno]

Mijn dank

sq = Sheets("Naam van je werkblad").Range("A2:A65000")
Cbo_Adres.List = sq

dit is de oplossing dank je wel.

 

[Superzeeuw]

Wil je de vraag dan nog op opgelost zetten.