PNG32 PNG32 PNG32 PNG32
PNG32
Forum Excel, VBA, VSTO, Exceltips, Excelhj�lp PNG32 drivs av Excelspecialisten    Logga in     English
PNG32
PNG32 PNG32
PNG32

Logga in

PNG32

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se

PNG32 PNG32
PNG32 PNG32
PNG32

Excelforum

PNG32

 
ForumForumDiskussionerDiskussionerExcelExcelAutomatisera makroAutomatisera makro
Föregående Föregående
 
Nästa Nästa
Nytt inlägg
 2021-05-18 13:10
 

 Jag vill att ett makro kör igång när värdet i en cell ändras.

Har googlat och fått något något förslag som jag inte fått att fungera.

Nytt inlägg
 2021-05-18 17:48
 
 Ändrad av Christian  på 2021-05-18 16:48:53

Hej Mauritz

Nedan kod ska läggas in på samma blad som där cellen du vill ska trigga makrot finns. Du får dubbelklicka på rätt blad i projektfönstret och sedan klistra in nedan kod i stora vita rutan. Just nu triggas makrot om cell a1 ändras, så denna får du ändra på.

Option Explicit

'Eventtriggern worksheet change lyssnar på hela arbetsbladet

Sub worksheet_change(ByVal target As Range)

    'stänger av eventhantering så att makrot inte triggar sig självt

    Application.EnableEvents = False

    Dim MyCell As Range: Set MyCell = ActiveSheet.Range("A1") 'byt a1 referensen

    'Säkerställer att rätt cell triggade makrot

    If Not Intersect(MyCell, target) Is Nothing Then

        'här skriver du kod som du vill ska köras

        MsgBox "makrot triggades"

    End If

    Application.EnableEvents = True

 

End Sub

Nytt inlägg
 2021-05-22 08:03
 

 Stort tack!

Föregående Föregående
 
Nästa Nästa
ForumForumDiskussionerDiskussionerExcelExcelAutomatisera makroAutomatisera makro

PNG32 PNG32
Excelforum drivs av Excelspecialisten som bedriver utbildning i Excel och VBA, tillhandahåller support och hjälp med Excel, utvecklar program i Excel. Är ni i behov av en konsult inom Excel, VBA eller VSTO, eller söker en excelkurs, kontakta oss.
Copyright 2013 ExcelSpecialisten XLS AB   Användarvillkor  Personliga uppgifter