Combobox update

[Atwist]

Hallo

Ik probeer de vrij invoer van een combobox in een kolom te zetten maar ik loop steeds vast.

Private Sub ComboBox1_Chance()
iRow = Sheets("Data").Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Row
If ComboBox1.Value = "" Then
  ComboBox1.SetFocus
 End If
   'copy the data to the database
With Sheets("Data")
  .Cells(iRow, 4).Value = ComboBox1.Value
    End With

'clear the data
ComboBox1.Value = ""

Sheets("Data").Select
Range("D1:D10").Select
    Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub
Private Sub CommandButton1_Click()
ComboBox1.Update
End Sub

Heeft iemand een tip ??

 

[Roncancio]

Wat probeer je te bereiken met de Update?

Met vriendelijke groet,


Roncancio

 

[Atwist]

In mijn tool heb een service scherm gemaakt om bepaalde lijsten uit te breiden.

 

[Roncancio]

een kleinigheidje maar in je code staat:

Private Sub ComboBox1_Chance()

...ipv ....

Private Sub ComboBox1_Change()

Er bestaat namelijk geen event Chance.

Met vriendelijke groet,


Roncancio

 

[Atwist]

Je hebt helemaal gelijk komt omdat ik aan deze kant met Nederlands, Duits en Engels tegelijk werk en dat wil niet altijd.:d

De combobox werkt nu wel maar zet elke letter op een apparte regel dit komt na mijn mening door "Change" maar wat zou ik anders nog kunnen gebruiken zodat ik eerst de tekst invoer en dan op commandbutton1 druk voor de invoer?

 

[Roncancio]

Dat komt inderdaad door de Change.
Haal alle code weg bij de Change en verander de code van de commandbutton1 in:

Private Sub CommandButton1_Click()
With Sheets("Data")
    .Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Value = ComboBox1.Value
    .Range("D1:" & .Range("D1").End(xlDown).Address).Sort Key1:=.Range("D1"), Header:=xlYes
End With

End Sub

Met vriendelijke groet,


Roncancio

 

[Atwist]

Inderdaad

Ik was weer eens heel moeilijk aan het doen

Bij deze is het weer op gelost.:thumb::thumb: