Meessage box

[zanfa11]

Beste

Als ik een naam in de userbox selecteer en vergeet ik een rij nummer te selecteren en druk ik op het knoopje gegevens wijzigen of knoopje verwijderen dan verschijnt er een bericht "fout 1004 tijdens uitvoering .......". Zou het mogelijk zijn om dit bericht te vervangen door " selecteer eerst een rijnummer" zie bijlage Bekijk bijlage Opvolging.xlsm bestand is beveiligd met het paswoord "data"

Alvast bedankt

 

[HSV]

ff listbox2.listindex - 1 then
   msgbox "bla bla"
   exit sub
   else
'rest van je code
end if

 

[zanfa11]

Beste HSV

De rijnummers worden niet allemaal herkend, zie bijlage Bekijk bijlage Opvolging (40).xlsm

MVG

 

[pasan]

jou code iets ingekort

Dim regel(1 To 13)
 
 r = ListBox2.Value
 
 If ListBox2.ListIndex < 0 Then
  MsgBox "selecteer eerst een rijnummer"
  Exit Sub
  Else
      
    For i = 1 To 13
     regel(i) = Me("Textbox" & i)
    Next i
    
    Sheets("ledenlijst").Cells(r, 3).Resize(, 13) = regel
    
    With Sheets("Archief")
     .Cells(.Range("c" & Rows.Count).End(xlUp).Row + 1, 3).Resize(, 13) = regel
    End With
    
 End If

 

[zanfa11]

Beste Pasan
Beste HSV

Met deze code lukt het wel 'If ListBox2.ListIndex < 0 Then
MsgBox "selecteer eerst een rijnummer"
Exit Sub
Else

Met vriendelijke groet

 

[pasan]

en als je de regel met -1 aanpast in

 If ListBox2.ListIndex < 0 Then

 

[edmoor]

Er staat inderdaad If listbox2.listindex - 1 en dat moet If listbox2.listindex = -1 zijn.

 

[zanfa11]

Hartelijk bedankt

Het probleem is snel opgelost

Met vriendelijke goet :d

 

[HSV]

typootje?

De 'Exit sub' mag er ook nog wel uit.