• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Celwaarde opent verborgen tabblad

Status
Niet open voor verdere reacties.
L

lsp1972

Gebruiker
Lid geworden
8 jul 2013
Berichten
69
Hoi,

Ik kan online wel een aantal varianten vinden, maar niet precies wat ik zoek.

Ik heb een invulblad die inhoud copieert naar verborgen werkmappen|tabbladen.
Echter heb ik 1 tabblad die ik af en toe los moet invullen. Dit tabblad zou ik graag openen als een celwaarde bijvoorbeeld x is.

Dus bv ik type x in cel A2 dan wil ik dat een tabblad opent|zichtbaar wordt om waarden in te vullen

Wie kan me op weg helpen?

Groet
Leon
 
Altijd handig om een bestandje mee te sturen, want dat kijkt een stuk makkelijker. Zo is de vraag: 'wat bedoel je met invulblad' een interessante, want bladen kopiëren uit zichzelf niks naar andere bladen, dat kan alleen met macro's. En als je macro's kan maken die dat kunnen, kun je in die macro ook best een regel opnemen die kijkt of er een 'x' is ingevuld, en dat de procedure dan een werkblad zichtbaar moet maken en activeren. :)
 
een optie.
 

Bijlagen

  • helpmij verbergen.xlsm
    24,2 KB · Weergaven: 33
of zo?
 

Bijlagen

  • helpmij verbergen.xlsm
    15,7 KB · Weergaven: 32
zo?

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" And UCase(Target) = "X" Then Sheets("Blad2").Visible = True Else Sheets("Blad2").Visible = False
End Sub
 
Of:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
 Sheets("blad2").Visible = Target.Address(0, 0) = "A2" And LCase(Target) = "x"
End Sub
 
bedankt, en aanvulling :)

Super bedankt voor deze snelle reacties!! :thumb:

kan ik in de situatie met vinkje zetten en blad zichtbaar maken ook direct door naar een specifieke cel in dat blad!?
 

Bijlagen

  • Helpmij verbergen_naar cel.xlsm
    18,7 KB · Weergaven: 29
Volgende code toevoegen.
Code: 
Application.Goto Reference:=Worksheets("Blad2").Range("C5")
blad 2 en C5 aanpassen volgens uw wensen.
of als de cel normaal niet zichtbaar is.
Code: 
Application.Goto Reference:=Worksheets("Blad2").Range("C200"), Scroll:=True.
blad 2 en C200 aanpassen volgens uw wensen
 
super, dank je wel, ik ga hem testen...

Helaas, ik doe iets heel blonds... Hij zet de code in een module ipv in de sheet en voert hem niet uit..
 
Laatst bewerkt:
Ik doe echt iets verkeerd of lees er overheen, de code die ik gebruik:

Code: 
Sub CheckBox1276_Click()
On Error Resume Next
    ThisWorkbook.Sheets("AirManagement").Visible = CheckBox1276.Value
    Application.Goto Reference:=Worksheets("AirManagement").Range("C5")
End Sub

Als ik de sheet zichtbaar heb gaat hij bij vinkje naar de juiste cel... echter als verborgen wordt deze niet zichtbaar.. :shocked:
 
Probeer het zo eens.


Code: 
Sub CheckBox1276_Click()
On Error Resume Next
    ThisWorkbook.Sheets("AirManagement").Visible = CheckBox1276.Value
sheets("AirManagement").select
Range("C5").select
End Sub
 
@Emields

Helaas, bij verborgen sheet / tabblad werkt het niet, als tabblad zichtbaar is, gaat deze naar het tabblad en de cel!

de code zit in een Module onder VBA...
 
En zo?
Code: 
Sub CheckBox1276_Click()
    With Sheets("AirManagement")
    .Visible = CheckBox1276.Value
    .Activate
    .Range("C5").Select
    End With
End Sub
 
Code voor bestand in #7.

Code: 
Private Sub CheckBox1_Click()
With Sheets("blad2")
    .Visible = CheckBox1.Value
   If .Visible Then Application.Goto .[c5]
End With
End Sub
 
Beetje verwarrend zonder alles te lezen.

Code: 
Private Sub CheckBox1_Click()
  Sheets("Blad2").Visible = CheckBox1.Value
  If CheckBox1 And Sheets("Blad2").Visible Then Application.Goto Sheets("Blad2").Cells(1)
End Sub
 
Overbodig in je code @VenA.
Code: 
CheckBox1 And
Of het lange gedeelte.
Code: 
And Sheets("Blad2").Visible
 
Laatst bewerkt:
allen dank voor de moeite... Ik denk dat er iets fout gaat doordat ik meerdere van deze checkboxes heb.

Met aanmaken van de code gaat er denk ik wat mis, niet op de juiste plek? Krijg nu iig wederom een error op het zichtbaar maken van het blad..

Foutje 2.pngFoutje 3.png
 
Plaats het juiste bestand en geef met een pijl aan om welke checkbox het gaat.
Dit schiet niet op zo.
Iemand zet het er vast wel voor je in.
 
@HSV je hebt gelijk.. is wel een bedrijfsbestand.

Hierin een tweede vraag waar ik nu achter kom..

- als ik checkboxes maak en deze koppel aan een verdwijnende rij, dan werkt dat prima. Dus checkboxes gaan weg en verschijnen als de rijen verborgen of zichtbaar worden.. Echter als ik het bestand op sla, zijn deze checkboxes weg!

Alvast bedankt voor al jullie hulp.
 

Bijlagen

  • Customer Vehicle Datasheet -TotaalV2.xlsm
    1 MB · Weergaven: 20
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan