Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketAuto aktivering af makro ved en bestemt celleværdi

 Besvar Besvar Side  <12
Forfatter
zpjj Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179
Direkte link til dette indlæg Sendt: 02.Aug.2016 kl. 15:42
Hej Per
 
Som jeg ser det, aktiverer den også den macro A1 refererer til, når du skriver noget i A10.
Jeg lavde en simpel formel i A1 "=A10*1" også her kaldte den, den pågældende macro.
 
Hvis jeg forstår dig ret, så har du en formel i A1, hvor værdien fra A10 bruges ?
Ret mig, hvis der er noget jeg har misforstået.
 
 
Med venlig hilsen
Peter Juul

Jeg bruger EXCEL 2010
Til top



Til top
Blackbox Se dropdown
Forum Begynder
Forum Begynder


Medlem: 08.Jul.2016
Land: Danmark
Status: Offline
Point: 14
Direkte link til dette indlæg Sendt: 02.Aug.2016 kl. 17:43
Hej Peter.

Det er korrekt at "A1" hedder "=A10". Hvis jeg så skriver 1 i "A10" så kommer der også til at stå 1 i "A1". Men "A1" starter ikke "macro1" som jeg gerne ville have den til.... Hvad gør jeg forkert og har prøvet at med "=A10*1", der sker stadig intet.... desværre.

Er meget taknemlig for den hjælp jeg allerede har fået af dig.... Tongue, håber du har en ide til den sidste del.

Mvh.

Per Hansen
Til top
zpjj Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179
Direkte link til dette indlæg Sendt: 02.Aug.2016 kl. 19:40
Hej Per
 
Nu kan jeg se hvad du mener :-)
 
Du skal bare ændre 1 til 10 (markeret med rødt)
 
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim y As Variant
  Dim x As Integer
  Dim macro As String
 
  If Target.Address = "$A$10" Then       ' Kigger kun på ændringer i celle A10
    y = ActiveSheet.Range("A1").Value   'Henter værdi fra A1 som Variant
   
    If Not IsNumeric(y) Then                  'Checker om værdien er et tal
        Exit Sub                                      'Hvis værdien ikke er et tal, gå til slut sub
    End If
   
    x = ActiveSheet.Range("A1").Value   'Henter værdi fra A1 som Integer
    If x < 1 Or x > 3 Then                    'Checker om værdien ligger mellem 1 og 21
        Exit Sub                                       'Hvis værdien ikke ligger mellem 1 og 21, gå til slut sub
    End If
 
    macro = "macro" & x                      'Navngiver macro med det nummer der er valgt F.eks. macro15
    Application.Run (macro)                  'Kører macro15 som ligger i Modul1
End If
End Sub
Med venlig hilsen
Peter Juul

Jeg bruger EXCEL 2010
Til top
Blackbox Se dropdown
Forum Begynder
Forum Begynder


Medlem: 08.Jul.2016
Land: Danmark
Status: Offline
Point: 14
Direkte link til dette indlæg Sendt: 03.Aug.2016 kl. 09:45
Hej Peter.

Jeps, det godt se at det virker sgu Smile... men tænkte på om man også kan ligge den som en marco, således at jeg blot kan bruge "Appolaction.run" for at starte hele processen, men ved ikke om man kan det.

/Per
Til top
zpjj Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179
Direkte link til dette indlæg Sendt: 03.Aug.2016 kl. 10:11
Hej Per
 
Godt det virkede :-)
 
Det andet ved jeg ikke lige, men ser lige på det når jeg får tid en dag :-)
Med venlig hilsen
Peter Juul

Jeg bruger EXCEL 2010
Til top
Blackbox Se dropdown
Forum Begynder
Forum Begynder


Medlem: 08.Jul.2016
Land: Danmark
Status: Offline
Point: 14
Direkte link til dette indlæg Sendt: 03.Aug.2016 kl. 13:22
Hej Peter.

Har selv fundet løsning på det sidste spørgsmål... men tusind tak for din hjælp, den har været guld værd...

TAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAk

/Per
Til top
zpjj Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179
Direkte link til dette indlæg Sendt: 03.Aug.2016 kl. 14:00
Det var så lidt Per, glad for at jeg kunne hjælpe.
Hvis jeg må være så fræk at spørge, hvad gjorde du med det sidste ? :-)
Med venlig hilsen
Peter Juul

Jeg bruger EXCEL 2010
Til top
Blackbox Se dropdown
Forum Begynder
Forum Begynder


Medlem: 08.Jul.2016
Land: Danmark
Status: Offline
Point: 14
Direkte link til dette indlæg Sendt: 04.Aug.2016 kl. 07:39
Jeg lavede blot en macro der kunne kopier "A10" til "A1", derved aktiver "A1" sig selv Smile

Men ved du evt. hvordan man laver en macro der køre på tid. Det skal forstås sådan at den selv trækker en macro evt. for hver 15 min ?

/Per
Til top
zpjj Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179
Direkte link til dette indlæg Sendt: 04.Aug.2016 kl. 09:01
Hej Per
 
Prøv at se på nettet, hvor der findes mange gode hints.
 
eks. denne:
 
 
Med venlig hilsen
Peter Juul

Jeg bruger EXCEL 2010
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5470
Direkte link til dette indlæg Sendt: 04.Aug.2016 kl. 09:07
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top
Blackbox Se dropdown
Forum Begynder
Forum Begynder


Medlem: 08.Jul.2016
Land: Danmark
Status: Offline
Point: 14
Direkte link til dette indlæg Sendt: 10.Aug.2016 kl. 18:52
Hejsa..... Smile

Vil bare lige fortælle at jeg har fået timer til at funger..... igen tusind tak for jeres hjælp.

/Per
Til top
Blackbox Se dropdown
Forum Begynder
Forum Begynder


Medlem: 08.Jul.2016
Land: Danmark
Status: Offline
Point: 14
Direkte link til dette indlæg Sendt: 10.Aug.2016 kl. 18:55
Men tænker, hvordan låser man tid (Kl.:) i en celle. Det skal forstås således at at hvis der i "A1" er formlen =NU() - (celleformat til kl) men når der skrives noget i en celle ændres tiden jo heletiden, hvordan undgår man at tiden ændres... ?

/Per
Til top
 Besvar Besvar Side  <12

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk