Forfatter |
Emne Søg Emne funktioner
|
kbno
Guld bruger
Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
|
Emne: Skjule fane efter indhold i celle... Sendt: 29.Apr.2013 kl. 09:02 |
Hej Forum
Kan man lave et script, eller formel der skjuler/viser en fane alt efter indholdet i en celle.
A1 "" = Fane 1 skjult A1 "HEJ" = fane 1 vist
Håber nogen kan hjælpe.
|
Hygge - Kim Excel 365 DK user
|
|
|
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 29.Apr.2013 kl. 09:38 |
Hej Kim, Det kan man sagtens, prøv denne lille kodestump som skal placeres under selve arket (Højreklik på fanen og indsæt programkode) Du kan konfigurere koden ved at rette i InputCelle, MagiskOrd og ArkSomSkalSkjules. Private Sub Worksheet_Change(ByVal Target As Range) Dim Inputcelle, MagiskOrd, ArkSomSkalSkjules As String Inputcelle = "$A$1" MagiskOrd = "HEJ" ArkSomSkalSkjules = "Ark2" If Target.Address = Inputcelle Then If Target = MagiskOrd Then Worksheets(ArkSomSkalSkjules).Visible = True Else Worksheets(ArkSomSkalSkjules).Visible = False End If End If End Sub
|
|
|
kbno
Guld bruger
Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
|
Sendt: 29.Apr.2013 kl. 09:46 |
Hej Allan Jeps den skjulte når jeg tastede HEJi cellen, meeen den skulle skjule fanen når cellen var tom og automatisk vise cellen når der var indtastet et navn i cellen. Navnet kan være vilkårligt. Jeg har forsøgt at bytte rundt på true/false og virker som sådan også¨, bortset fra at jeg kun kan få det til at kører efter et specifikt navn. Dette skal helst kører efter en vilkårlig tekst. Og så for lige at gører det mere besværligt - så er der 8 celler og 8 faner
|
Hygge - Kim Excel 365 DK user
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 29.Apr.2013 kl. 11:20 |
Super, så prøver vi bare noget andet. Du skriver at du har 8 celler og 8 faner... det forstår jeg ikke. Spørgsmål 1: Du står på Ark1. Du sletter teksten i A1, hvad skal der så ske? Skal Ark1 skjules, eller skal alle ark fra 1 - 8 skjules, eller er det blot Ark1 som skal skjules? //Allan
|
|
kbno
Guld bruger
Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
|
Sendt: 29.Apr.2013 kl. 12:11 |
JEg har vedlagt et liell ark - nok nemmere i længden uploads/183/test_8_faner.xlsxNår der tastes et navn i en celle - skal den tilhørende fane skjules. Så 8 individuelle funktioner. Jeg startede bare med at spørge om en da jeg så selv ville bygge den ud
|
Hygge - Kim Excel 365 DK user
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 29.Apr.2013 kl. 13:12 |
OK, opgaven forstået //Allan
|
|
kbno
Guld bruger
Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
|
Sendt: 29.Apr.2013 kl. 13:28 |
Hej Allan
Lige nøjagtig - den driller dog stadig, og det fordi at i det virkelig ark er kolonnerne B+C flettet - dette bevirker at skjul funktionen ikke spiller.
Jeg har forsøgt at sige: If Target.Column < 2 Or Target.Column > 3 Then Exit Sub
Men det hjalp desværre ikke.
|
Hygge - Kim Excel 365 DK user
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 29.Apr.2013 kl. 13:38 |
Lav linjen If Not IsEmpty(Target) Then om til If Target.Text <> "" Then //Allan
|
|
kbno
Guld bruger
Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
|
Sendt: 29.Apr.2013 kl. 13:47 |
Det virkede - men fandt alligevel en lille bøvs. Kan dog godt leve med den Bøvs = Skjul funktion dur kun hvis man sletter 1 celle af gangen, og ikke ved markering af flere og slet. Men som sagt - kan snild leve med den TAKKER 1000
|
Hygge - Kim Excel 365 DK user
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 29.Apr.2013 kl. 14:05 |
Velbekomme Kim Men vi kan jo lige så godt lave den færdig og dermed fjerne 'bøvsen' I denne version kan man også skjule flere faner af gangen. //Allan
|
|
kbno
Guld bruger
Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
|
Sendt: 29.Apr.2013 kl. 14:15 |
Jamen du er GUD Virker PERFEKT
|
Hygge - Kim Excel 365 DK user
|
|
kbno
Guld bruger
Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
|
Sendt: 29.Apr.2013 kl. 14:18 |
Mens du er online - Jeg har i samme forbindelse denne funktion til en knap liggende: If Sheets("UC1").Visible <> xlSheetVisible Then Exit Sub Sheets("UC1").Select Hvis du den istedet for at EXIT sub skal vælge en anden fane hvordan sættes denne så ind? Har virkelig forsøgt mange kombinationer uden held
|
Hygge - Kim Excel 365 DK user
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 29.Apr.2013 kl. 14:39 |
Tak for tilbagemeldingen Jeg ville gøre det således:
If Sheets(Range("UC1").Text).Visible = True Then Sheets(Range("UC1").Text).Select
|
|
|
kbno
Guld bruger
Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
|
Sendt: 29.Apr.2013 kl. 15:14 |
Hej Allan Den giver desværre fejl lige efter TRUE THEN
|
Hygge - Kim Excel 365 DK user
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 30.Apr.2013 kl. 11:09 |
Hej Kim, Jeg vil gætte på at det er fordi at der ikke er noget ark som hedder det som står i cellen UC1. //Allan
|
|
kbno
Guld bruger
Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
|
Sendt: 30.Apr.2013 kl. 11:15 |
Fanen UC1 er der og jeg har forsøt med at fanen er både synlig og skjult.
Jeg har modificeret den til følgende:
If Sheets(Range("UC1").Text).Visible = False Then Sheets(Range("KOM-T_IQ3").Text).Select
Det er sådan knappen skal fungerer, Altså vilge fanen UC1 når fanen er synlig og når den er skjult skal den vælge KOM-T-IQ3.
Denne modificering fejler samme sted.
|
Hygge - Kim Excel 365 DK user
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 30.Apr.2013 kl. 11:33 |
Prøv at sætte denne stump kode ind i stedet for din linje: Dim Sh As Worksheet For Each Sh In ThisWorkbook.Worksheets If Application.Proper(Sh.Name) = Application.Proper(Range("UC1").Text) Then If Sheets(Range("UC1").Text).Visible = False Then Sheets("KOM-T_IQ3").Select shExist = True End If Next Sh If shExist <> True Then MsgBox "Fanen '" & Range("UC1").Text & "' eksisterer ikke", vbCritical
|
|
kbno
Guld bruger
Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
|
Sendt: 30.Apr.2013 kl. 17:55 |
Den ender ud med at fanen ikke eksisterer uanset kombination
|
Hygge - Kim Excel 365 DK user
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 30.Apr.2013 kl. 18:38 |
Så kan du være sikker på at navnet som står i UC1 ikke er mage til navnet på din fane. Måske et mellemrum eller et ugyldigt bogstav eller tegn er årsagen. //Allan
|
|