Forfatter |
Emne Søg Emne funktioner
|
Mohansen
Bronze bruger
Medlem: 22.Sep.2016
Land: Danmark
Status: Offline
Point: 28
|
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
|
|
|
|
|
Mohansen
Bronze bruger
Medlem: 22.Sep.2016
Land: Danmark
Status: Offline
Point: 28
|
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 Mohansen Excel_hjælp.xlsx
|
|
Mohansen
Bronze bruger
Medlem: 22.Sep.2016
Land: Danmark
Status: Offline
Point: 28
|
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
|
|
excelent
Guld bruger
Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
|
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 !!!
|
|
Mohansen
Bronze bruger
Medlem: 22.Sep.2016
Land: Danmark
Status: Offline
Point: 28
|
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
|
|
Mohansen
Bronze bruger
Medlem: 22.Sep.2016
Land: Danmark
Status: Offline
Point: 28
|
Sendt: 25.Sep.2016 kl. 11:30 |
Hej
Takker for hjælpen
Jeg bruger også excel 2016
|
|
Ib Hansen
Guld bruger
Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
|
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)
|
|
Ib Hansen
Guld bruger
Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
|
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)
|
|
Mohansen
Bronze bruger
Medlem: 22.Sep.2016
Land: Danmark
Status: Offline
Point: 28
|
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?
|
|
Ib Hansen
Guld bruger
Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
|
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)
|
|
Mohansen
Bronze bruger
Medlem: 22.Sep.2016
Land: Danmark
Status: Offline
Point: 28
|
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
|
|
Ib Hansen
Guld bruger
Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
|
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)
|
|
Mohansen
Bronze bruger
Medlem: 22.Sep.2016
Land: Danmark
Status: Offline
Point: 28
|
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.
|
|
Ib Hansen
Guld bruger
Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
|
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)
|
|
Mohansen
Bronze bruger
Medlem: 22.Sep.2016
Land: Danmark
Status: Offline
Point: 28
|
Sendt: 25.Sep.2016 kl. 13:32 |
Hej Gnaske! Det virker fint skulle blot rette noget til. Undskyld forvirringen....
|
|
Mohansen
Bronze bruger
Medlem: 22.Sep.2016
Land: Danmark
Status: Offline
Point: 28
|
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.
|
|