• 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.

Rapport opstellen

Status
Niet open voor verdere reacties.
N

Noord2011

Gebruiker
Lid geworden
28 jan 2009
Berichten
350
Ik wik een automatisch inhoudsopgave programmeren voor het maken van een rapport.

Tot nu toe ben ik zover dat bij het activeren (aan/uit) wordt het inhoudsopgave automatisch bij gevuld.

Mijn probleem is nu als ik (schade1) uitschakelen en (verbruik) inschakelen en weer (schad1) inschakelen loopt het inhoudsopgave niet meer synchroon. Ik verlies mijn volgorde.

speel maar verder met de knoppen en je merkt dat na een paar keer div. optie aan/uit maken het inhoudsopgave niet meer synchroon loopt.

Wie kan met verder helpen?

P.S. is dit manier van programmeren het beste?, want in totaal dient +/- 40 sheet komen.

Ooo.: nog een vraagje hoe is te regelen met het bladzijde nummering?

Zie bijlage

Mv/Gr
 

Bijlagen

VBA deskundig ben ik niet!

Maar in heb het code verandert en nu werkt het beter.

Nu merk ik dat voor dit rapport meer dan 10 schade bladen nodig hebben, dus ik heb iets anders bedacht.

Is het mogelijk om met een lijst het aantal bladen Active en inactieve (verberegen) te maken.

Schade blad 3,4 en 5 dient zichtbaar zijn afhankelijk van de cijfer in knop

Cijfer3 schade 3 zichtbaar
Cijfer4 schade 3 en 4 zichtbaar
Cijfer5 schade 3, 4 en 5 en zichtbaar

zie bijlage

Mv/Gr
 

Bijlagen

@ Noord25 case 3 sheet ?? hide = true , case 4 sheet .. en ... hidden = true enz. , eens naar een case formule kijken , tis buiten te goed om binnen voor de cpu te zitten :p
 
trucker10

Niet te begrijpen wat je bedoeld, kan je wat meer uitleggen.

Mv/Gr
 
@ Noord , ik heb alles herzien zat een foutje in , ik heb nu rekening gehouden met je textbox
Code: 
Private Sub CommandButton1_Click()
    If TextBox1.Value = "3" Then
        Sheets("Schade3").Visible = True
        Sheets("Schade4").Visible = False
        Sheets("Schade5").Visible = False
    End If
    
    If TextBox1.Value = "4" Then
        Sheets("Schade3").Visible = True
        Sheets("Schade4").Visible = True
        Sheets("Schade5").Visible = False
    End If
    
    If TextBox1.Value = "5" Then
        Sheets("Schade3").Visible = True
        Sheets("Schade4").Visible = True
        Sheets("Schade5").Visible = True
    End If
    [L20].Select
End Sub
deze code in ThisWorkBook
Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
            Sheets("Schade3").Visible = False
            Sheets("Schade4").Visible = False
            Sheets("Schade5").Visible = False
 
 End Sub

en het gaat ook met deze code ElseIf
Code: 
Private Sub CommandButton1_Click()

    If TextBox1.Value = "3" Then
        Sheets("Schade3").Visible = True
        Sheets("Schade4").Visible = False
        Sheets("Schade5").Visible = False
        
    ElseIf TextBox1.Value = "4" Then
        Sheets("Schade3").Visible = True
        Sheets("Schade4").Visible = True
        Sheets("Schade5").Visible = False
        
    ElseIf TextBox1.Value = "5" Then
        Sheets("Schade3").Visible = True
        Sheets("Schade4").Visible = True
        Sheets("Schade5").Visible = True
        
    End If
    [L20].Select
End Sub
 

Bijlagen

Laatst bewerkt:
Geen probleem Noord25 ;), ik had ook al een kleine verwijzing gedaan in een andere topic . Waarschijnlijk ben je zo gefocust en bruis je van de ideeën . Ik leer er heel veel bij door vlug in mijn nota's te kijken zoeken via de engelse benamingen en ook in diverse fora te zoeken achter naar gelijkaardige vragen .
 
Of
Code: 
Private Sub CommandButton1_Click()
  Sheets("Schade3").Visible = True
  Sheets("Schade4").Visble=textbox1.value>3
  Sheets("Schade5").Visible=textbox1.value=5
End Sub
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan