Denne macro køre3r MsgBox OK, men kører ikke Macro i Call Retur - kan nogen se fejlen? Sub beregn() ' ' beregn Macro
Dim vMyVal
vMyVal = Range("k239").Value
If vMyVal <> 7 Then MsgBox "Der mangler inddata - check en ekstra gang." Call Retur ElseIf Range("i19").Value > Range("b232").Value Then MsgBox "Samlede afdrag er større end lån - ret afdrag i Drop Down box" Call Retur End If Range("A53").Select Selection.ClearContents Application.Calculation = xlAutomatic Range("k578").Select Range("k585").Select End Sub
I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
Hvis Stop aktiveres, er makroen "Retur" kørt. Hvis den er det er det snarer makroen "Retur", vi skal kikke påom der er fejl i den.
Sub beregn() ' ' beregn Macro
If Range("k239") <> 7 Then MsgBox "Der mangler inddata - check en ekstra gang." Call Retur Stop ' når stop nås, stopper afviklingen af makroen, sæt ' foran, hvis den ikke skal bruges ElseIf Range("i19").Value > Range("b232").Value Then MsgBox "Samlede afdrag er større end lån - ret afdrag i Drop Down box" Call Retur Stop ' når stop nås, stopper afviklingen af makroen, sæt ' foran, hvis den ikke skal bruges End If Range("A53").ClearContents Application.Calculation = xlAutomatic Range("k585").Select End Sub
Det var stop der løste problemet, havde overset at en Call ikke slutter i den kaldte macro - og det selv om jeg har arbejdet meget med macro i Lotus 123.
If Range("k239") <> 7 Then MsgBox "Der mangler inddata - check en ekstra gang." Call Retur Exit Sub ElseIf Range("i19").Value > Range("b232").Value Then MsgBox "Samlede afdrag er større end lån - ret afdrag i Drop Down box" Call Retur Exit Sub End If ' resten herunder udføres kun hvis de 2 If ovenover ikke trikker Range("A53").ClearContents Application.Calculation = xlAutomatic Range("k585").Select End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
