• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Uitvoeren Knop wijzigen in userform

Status
Niet open voor verdere reacties.
danny147

danny147

Terugkerende gebruiker
Lid geworden
29 apr 2007
Berichten
4.744
Beste,

Als ik op de knop wijzigen klik in de Userform wil hij de volgende regel niet uitvoeren

Code: 
Sheets("Reservatie_overzicht").Range("A" & c.Row) = ComboBox3.Value

Bij controle van de code krijg ik dat If c (160) = ComboBox.2.Value ("160") Then
Volgens mij is 160 niet gelijk aan "160" ?

Hierbij de volledige code:

Code: 
Private Sub Wijzigen_Click()
Dim c As Range
If ComboBox3 <> "" Then
For Each c In Sheets("Reservatie_overzicht").Range("A6:A400")
If c = ComboBox2.Value Then

    Sheets("Reservatie_overzicht").Range("A" & c.Row) = ComboBox3.Value
    Sheets("Reservatie_overzicht").Range("B" & c.Row) = Txt_Afm
    Sheets("Reservatie_overzicht").Range("C" & c.Row) = Txt_Beschr
    Sheets("Reservatie_overzicht").Range("D" & c.Row) = Txt_Aanvrager
    Sheets("Reservatie_overzicht").Range("E" & c.Row) = Txt_Datum
    Sheets("Reservatie_overzicht").Range("F" & c.Row) = Txt_LK
    Sheets("Reservatie_overzicht").Range("G" & c.Row) = Txt_Order1.Value
    Sheets("Reservatie_overzicht").Range("G" & c.Row) = Txt_Order2.Value
    Sheets("Reservatie_overzicht").Range("H" & c.Row) = Txt_Order3.Value
    Sheets("Reservatie_overzicht").Range("I" & c.Row) = Txt_Omschr1
    Sheets("Reservatie_overzicht").Range("J" & c.Row) = Txt_Omschr2
    Sheets("Reservatie_overzicht").Range("K" & c.Row) = Txt_Omschr3

End If
Next
End If

    ComboBox2.Value = ""
    ComboBox3.Value = ""
    Txt_Afm = ""
    Txt_Beschr = ""
    Txt_Aanvrager = ""
    Txt_Datum = ""
    Txt_LK = ""
    Txt_Order1.Value = ""
    Txt_Order2.Value = ""
    Txt_Order3.Value = ""
    Txt_Omschr1 = ""
    Txt_Omschr2 = ""
    Txt_Omschr3 = ""

End Sub

Het bestandje is te groot om het hier te plaatsen.
 
Probeer dit eens:
Code: 
If c = Val(ComboBox2.Value) Then
 
Bedankt Cobbe,

Weer wat bijgeleerd :thumb:
 
Even een vraagje.
Combobox2 wordt gevuld met de gegevens van "Sheets("Reservatie_overzicht").Range("A6:A400")" ?



 
Laatst bewerkt:
Beste HSV,

ComboBox2 wordt gevuld met gegevens uit Sheets ("In_gebruik")
Deze kan men wijzigen in Combobox3


Code: 
Private Sub UserForm_Initialize()
With Sheets("In_gebruik")
  ComboBox2.RowSource = "In_gebruik!A4:A" & .Range("A" & .Rows.Count).End(xlUp).Row
End With
With Sheets("Voorraad")
  ComboBox3.RowSource = "Voorraad!A4:A" & .Range("A" & .Rows.Count).End(xlUp).Row
End With
End Sub
 
Hallo Danny,

Prima, anders kon het met listindex zonder door elke cel te wandelen met 'c'.
Ook daar zijn wel weer andere/snellere manieren voor, maar een bestand plaatsen gaat niet lukken zo te vernemen.
Als het werkt, dan mooi zo laten.

Eén dingetje nog.
Code: 
Sheets("Reservatie_overzicht").Range("G" & c.Row) = Txt_Order1.Value
Sheets("Reservatie_overzicht").Range("G" & c.Row) = Txt_Order2.Value
 
Beste HSV,

Bedankt voor de opmerking :thumb: , zou ik wel gezien hebben nu ik de juiste stukje code gekregen heb van Cobbe :)

Indien bestandje af is zal ik zien of ik het hier kan plaatsen en kan je misschien nog wat bijsturen of opmerkingen plaatsen
Alvast bedankt aan Cobbe en jij (en alle anderen) voor altijd jullie medewerking
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan