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


Emne lukketSkift faneark via valg af dropdown menu

 Besvar Besvar
Forfatter
Mohansen Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 22.Sep.2016
Land: Danmark
Status: Offline
Point: 28
Direkte link til dette indlæg Emne: Skift faneark via valg af dropdown menu
    Sendt: 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
Til top



Til top
Mohansen Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 22.Sep.2016
Land: Danmark
Status: Offline
Point: 28
Direkte link til dette indlæg Sendt: 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 MohansenExcel_hjælp.xlsx
Til top
Mohansen Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 22.Sep.2016
Land: Danmark
Status: Offline
Point: 28
Direkte link til dette indlæg Sendt: 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?

Excel_hjælp.xlsm

Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
Direkte link til dette indlæg Sendt: 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 !!!
Til top
Mohansen Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 22.Sep.2016
Land: Danmark
Status: Offline
Point: 28
Direkte link til dette indlæg Sendt: 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
Til top
Mohansen Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 22.Sep.2016
Land: Danmark
Status: Offline
Point: 28
Direkte link til dette indlæg Sendt: 25.Sep.2016 kl. 11:30

Hej

Takker for hjælpen

Jeg bruger også excel 2016

Til top
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
Direkte link til dette indlæg Sendt: 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)
Til top
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
Direkte link til dette indlæg Sendt: 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)
Til top
Mohansen Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 22.Sep.2016
Land: Danmark
Status: Offline
Point: 28
Direkte link til dette indlæg Sendt: 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?

Til top
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
Direkte link til dette indlæg Sendt: 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)
Til top
Mohansen Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 22.Sep.2016
Land: Danmark
Status: Offline
Point: 28
Direkte link til dette indlæg Sendt: 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
Til top
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
Direkte link til dette indlæg Sendt: 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)
Til top
Mohansen Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 22.Sep.2016
Land: Danmark
Status: Offline
Point: 28
Direkte link til dette indlæg Sendt: 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.

Til top
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
Direkte link til dette indlæg Sendt: 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)
Til top
Mohansen Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 22.Sep.2016
Land: Danmark
Status: Offline
Point: 28
Direkte link til dette indlæg Sendt: 25.Sep.2016 kl. 13:32

Hej Gnaske!

Det virker fint skulle blot rette noget til.

Undskyld forvirringen....
Til top
Mohansen Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 22.Sep.2016
Land: Danmark
Status: Offline
Point: 28
Direkte link til dette indlæg Sendt: 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.



Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

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