ongewenst resultaat bij opslaan

[nhojnavslig]

Hallo iedereen,

Ik wil gegevens uit een lijst, middels een ComboBox selecteren en vervolgens opslaan op een ander werkblad.
So far so good, ... als je nu de knop "Opslaan" gebruikt terwijl er geen keuze is gemaakt in de ComboBox, word er op Blad2 een "lege cel" opgeslagen
Dit is dus niet de bedoeling
Als er niks gekozen is moet er eigenlijk dus ook niks opgeslagen worden, ...

hoe kan dit worden voorkomen ??

Ik hoop dat het een beetje duidelijk is ?!

John

 

[Ad Becude]

Zo misschien?

Private Sub CommandButton1_Click()
rij = Sheets("Blad2").Range("A65500").End(xlUp).Row + 1
If ComboBox1.Value = " " Then Exit Sub
Sheets("Blad2").Range("A" & rij) = ComboBox1.Value
ComboBox1 = " "
End Sub

 

[HSV]

Ik zou het zo doen.

Private Sub CommandButton1_Click()
 If ComboBox1.ListIndex > -1 Then Sheets("Blad2").Cells(Rows.Count, 1).End(xlUp).Offset(1) = ComboBox1.Value
End Sub

of:

Private Sub CommandButton1_Click()
 With ComboBox1
   If .ListIndex > -1 Then Sheets("Blad2").Cells(Rows.Count, 1).End(xlUp).Offset(1) = .Value
   .ListIndex = -1
 End With
End Sub

Of:

Private Sub CommandButton1_Click()
 With ComboBox1
   If .ListIndex > -1 Then
    Sheets("Blad2").Cells(Rows.Count, 1).End(xlUp).Offset(1) = .Value
   .ListIndex = -1
   end if
 End With
End Sub

 

[nhojnavslig]

Heren allebei bedankt voor de reactie, ...
Hier kan ik weer verder mee :thumb:

John