VBA med Messagebox - Excel - Forum Excel, VBA, VSTO, Exceltips, Excelhjälp

Sök Forumets startsida

2012-01-27 13:02

Stefan

Medlem sedan: 2012-01-27

2 inlägg

VBA med Messagebox

Hej,

har en arbetsbok med en hel del makron skapade genom inspelning. Har börjat knöla med VBA men får inte till ett makro som stegvis ska kolla värdet i ett antal celler (som ska vara "0" för att gå vidare till nästa koll). Om värdet inte är 0 skall en msgbox med enda alternativ "OK" avsluta och gå tillbaka till A1. Det ska vara olika besked i resp msgbox (eller om samma msgbox klarar av allt...?) Slutligen, om alla svar är "0" ska makrot kopiera call C1 till C2. På "svenska" skulle makrot se ut så här:

Om ("B1") = 1

msgbox "Du har gjort fel!"

tillbaka till A1

OM ("B2") = 1

msgbox "Du har gjort ett annat fel!"

tillbaka till A1

OM ("B3") = 1

msgbox "Du har gjort ytterligare ett fel!"

tillbaka till A1

(Om varken B1, B2 eller B3 = 1):

Range("C1").Select
Selection.Copy
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
=False, Transpose:=False

Tack på förhand!

2012-03-16 09:24

Torstensson

Medlem sedan: 2012-03-15

48 inlägg

Re: VBA med Messagebox

Kommer det alltid vara tre frågor eller kommer vara fler?

2012-03-16 11:27

Torstensson

Medlem sedan: 2012-03-15

48 inlägg

Re: VBA med Messagebox

Sub Check()

    Sheets("Sheet1").Select

    If Range("B1") = "0" Then Range("B2").Select
    If Range("B1") = "1" Then MsgBox ("Du har gjort fel")

        If Range("B2") = "0" Then Range("B3").Select
        If Range("B2") = "1" Then MsgBox ("Du har gjort ett annat fel")

            If Range("B3") = "0" Then Range("B4").Select
            If Range("B3") = "1" Then MsgBox ("Du har gjort ytterligare fel")

    Range("A1").Select

End Sub

Sida 1 av 1