Excel- VBA -On Error GoTo- hjelp til prog.

[perroga]

Hvordan hoppe over error funksjonen, når den er unødvendig? Excel 2003

 

 

Har lagt inn en On Error funksjon. Den funkerer ok. ved error.

Problemet er at når det ikke er error fungerer løsningen ikke tilfredstillende. Den skulle da stoppe før linjen "Notableto:"

 

Men det gjør den ikke.

Kanskje jeg trenger en If funksjon i tillegg. Jeg er usikker på hvordan få det til.

Håper du kan hjelpe meg.

 

 

Sub Velg_mail()

 

Application.DisplayStatusBar = True

Application.StatusBar = "..kopierer dine valgte mail-adresser.."

Application.ScreenUpdating = False

Application.GoTo Reference:="mail_2"

Selection.Copy

MsgBox " (1)'Logg inn i CP',(2) velg 'Ny E-post', (3)'Lim inn' ('Ctrl-V') "

Range("C36:E36").Select

On Error GoTo NotAbleTo

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Application.DisplayStatusBar = False

Application.CutCopyMode = False

Range("A2").Select

'hvordan få koden til å slutte her når den finner hyperlinken og ikke velger alternativet On Error GoTo NotAbleTo

 

NotAbleTo:

MsgBox "Not able to find CP? - Please login to your MAIL-application, and paste your chosen mail-adresses "

MsgBox "Ready? "

Application.DisplayStatusBar = False

Application.CutCopyMode = False

Range("A2").Select

 

End Sub

Endret 20. juli 2009 av perroga

[perroga]

Fant løsningen selv:

 

Exit Sub

 

Andre løsninger tas imot med takk.

[Harald Staff]

Fant løsningen selv:

 

Exit Sub

 

Andre løsninger tas imot med takk.

 

Nei gjør det sånn, det er ryddigst.

 

Du har en gjeng Msgbox'er kjørende som er litt verre å se logikken til. F.eks MsgBox "Ready? " har bare OK som svaralternativ, og det spiller uansett ingen rolle for prosedyren om svaret er ja eller nei eller ok eller cancel. Tenk en runde til på hvordan og hvorfor du kommuniserer med brukeren. Hvis brukeren er en annen enn deg selv da, egne programmer er bare kos og moro.

 

Beste hilsen Harald