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!