Print side | Luk vindue

Skift faneark via valg af dropdown menu

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=2727
Udskrevet den: 29.Apr.2024 kl. 05:21


Emne: Skift faneark via valg af dropdown menu
Besked fra: Mohansen
Emne: Skift faneark via valg af dropdown menu
Posteringsdato: 22.Sep.2016 kl. 13:54

Hej

Jeg har et regneark som består af nogle faneark (Start her & Test samlevende)

I fanearket Start her i celle "i10" er der en dropdown menu med 3 mulige udfald.

1) ?
2) Ja
3) Nej

Hvis man vælger 3 udfald "Nej" i dropdown menuen vil jeg gerne have at man automatisk kommer over i fanearket "Test samlevende" i celle "i10"

Ved valg af udfald 1 + 2 i dropdown menuen skal der ikke ske noget!

Tænker der skal programmeres noget VBA kode

Håber I kan hjælpe mig med dette ?

Venlig hilsen Mohansen


Svar:
Besked fra: Mohansen
Posteringsdato: 22.Sep.2016 kl. 19:26
Hej Igen

Jeg har vedhæftet excel fil som jeg ønsker hjælp til.

Med udgangspunkt i arket Start her i den gule celle i10 er der en dropdown menu. Hvis man vælger Nej i dropdown menu vil jeg gerne have at man kommer over i arket Test samlevende i den røde celle i10.

Tænker der skal noget VBA kode til og håber I kan hjælpe mig?

Vh Mohansen uploads/1785/Excel_hjælp.xlsx" rel="nofollow - Excel_hjælp.xlsx

Besked fra: Mohansen
Posteringsdato: 23.Sep.2016 kl. 11:59
Hej

Jeg har lavet en makro som gør det jeg ønsker, se vedhæftet fil

Når jeg trykker på vis makro og herefter vælger afspil makro1 så vil den gerne gå over til arket "Test samlevende" i celle i10 (markeret-rød) som ønsket.

Men hvordan får jeg makro1 til at køre af sig selv når jeg ændre værdien i cell i10 i arket "´Start her" (markeret-gul)til Nej?

uploads/1785/Excel_hjælp.xlsm" rel="nofollow - Excel_hjælp.xlsm


Besked fra: excelent
Posteringsdato: 23.Sep.2016 kl. 22:22
Dit link virke ikke

Højreklik på arkets fane og vælg "Vis Programkode"
indsæt følgende kode der :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("I10")) Is Nothing Then Exit Sub
If Target = "Nej" Then Application.GoTo Ark2.Range("I10")
End Sub

-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!

Besked fra: Mohansen
Posteringsdato: 25.Sep.2016 kl. 11:28

Hej

Jeg takker for hjælpen.

Dog har jeg lige en sidste ting og det er om man kan indsætte en besked box hvor i der står at man har skiftet faneark til "Test samlevende"?

vh

Mohansen

Besked fra: Mohansen
Posteringsdato: 25.Sep.2016 kl. 11:30

Hej

Takker for hjælpen

Jeg bruger også excel 2016

Besked fra: Ib Hansen
Posteringsdato: 25.Sep.2016 kl. 11:57
Kode med Message Box, når der skiftes til Test Samlever.

- Højreklik på arkets fane og vælg "Vis Programkode".
- Slet den gamle kode.
- Indsæt følgende ny kode i stedet.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("I10")) <> "Nej" Then: GoTo ud
    If Target = "Nej" Then Application.Goto Ark2.Range("I10")

    MsgBox "   Der er skiftet til fanen" _
    & vbCrLf & "   Test Samlever.", _
    vbExclamation
ud:
End Sub


-------------
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)

Besked fra: Ib Hansen
Posteringsdato: 25.Sep.2016 kl. 12:02
Eller denne, hvis du hellere vil have en Informations Boks

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("I10")) <> "Nej" Then: GoTo ud
    If Target = "Nej" Then Application.Goto Ark2.Range("I10")

    MsgBox "   Der er skiftet til fanen" _
    & vbCrLf & "   Test Samlever.", _
    vbInformation
ud:
End Sub


-------------
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)

Besked fra: Mohansen
Posteringsdato: 25.Sep.2016 kl. 12:14

Hej

jeg kan desværre ikke få program koden med besked boks til at virke når jeg erstatter den gamle program kode med den nye..

måske jeg gør noget forkert?

Besked fra: Ib Hansen
Posteringsdato: 25.Sep.2016 kl. 12:57
Hmmm - Jeg har ikke Office 2016, men 2010.

Udskifter du hele koden med den gamle ?
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("I10")) <> "Nej" Then: GoTo ud
    If Target = "Nej" Then Application.Goto Ark2.Range("I10")

    MsgBox "   Der er skiftet til fanen" _
    & vbCrLf & "   - Test Samlevende.", _
    vbInformation
ud:
End Sub

Måske er det <> "Nej" Then: GoTo ud der ikke kører i 2016.
Er der andre med 2016, der kan hjælpe ?


-------------
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)

Besked fra: Mohansen
Posteringsdato: 25.Sep.2016 kl. 13:06
Hej

Ja jeg skifter hele koden ud med den / de kode eksempler du angiver!


Om det skyldes <> "Nej" Then: GoTo ud der ikke kører i 2016 - ved jeg ikke?

vh Mohansen

Besked fra: Ib Hansen
Posteringsdato: 25.Sep.2016 kl. 13:17
Prøv denne.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Sheets("Start her").Range("I10").Value <> "Nej" Then Exit Sub
    If Sheets("Start her").Range("I10").Value = "Nej" Then Application.Goto Sheets("Test Samlevende").Range("I10")
        
    MsgBox "   Der er skiftet til fanen" _
    & vbCrLf & "   - Test Samlevende.", _
    vbInformation

End Sub


-------------
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)

Besked fra: Mohansen
Posteringsdato: 25.Sep.2016 kl. 13:24

Det fungere desværre heller ikke!

Alt det der står mellem

Private Sub Worksheet_Change(ByVal Target As Range)

og

End Sub

er markeret med rød skrift når jeg indsætter program koden - Der må altså være noget at koden der ikke virker helt korrekt.

Besked fra: Ib Hansen
Posteringsdato: 25.Sep.2016 kl. 13:31
Først skal du sikre at arket er gemt som et Makro-ark.
Næst skal du åbne arket.

- Markere alt med rødt, ved at trække musen hen over hele teksten.
- Tast Ctrl + C når det hele er markeret.
- Åben VBA med din kode.
- Sæt musen et eller andet sted i kodeteksten og tast Ctrl + A.
- Tast så CTRL + V.

Nu skulle hele teksten være udskiftet.
Prøv så at køre koden fra fanen - Først med Ja og næst med Nej.

Hvis det ikke virker, ved jeg ikke, hvad der er galt.
Alle koderne jeg sendte, virker ved mig.


-------------
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)

Besked fra: Mohansen
Posteringsdato: 25.Sep.2016 kl. 13:32

Hej Gnaske!

Det virker fint skulle blot rette noget til.

Undskyld forvirringen....

Besked fra: Mohansen
Posteringsdato: 25.Sep.2016 kl. 13:44

1000 tak for hjælpen til både Excelente og Gnaske.

Jeg fik svar på mine spørgsmål samt VBA kode løsning til mine udfordringer.


Print side | Luk vindue