rijen verbergen en zichtbaar maken

[jan excel]

Hallo Experts,

Ben met een project bezig in excel en een onderdeel van het project is dat er per groep soort rijen zichtbaar en verbergen kan worden en tekst kan worden toegevoegd.

Het gaat om beveiligde werkbladen en met meerdere VBA scipts.
Het voorbeeld is niet het project dit is te groot om te posten.
Daarom een excel file als bijlage toegevoegd die e.e.a verduidelijkt, en als iemand de oplossing weet dan wil ik dit implementeren naar de project excel file.
De Usersforms zijn gemaakt en gedeeltelijk voorbereid.

Alvast bedankt,
Jan E
Bekijk bijlage voorbeeld verbergen_zichtbaar maken.xlsm

 

[HSV]

Dag Jan,

Ik heb van elk soort een ListObject (Tabel) gemaakt.
Hier kan je gemakkelijk rijen aan toevoegen.

De tweede combobox heb ik niets mee gedaan.

Werking:
Keuze maken in Combobox1 en op een van de twee knoppen drukken.

 

[jan excel]

beste HSV,

bedankt voor je reactie, echter met de voorbeeld die jij heb gepost kan ik niet gebruiken.
zal proberen uit te leggen waarom.

De regels die ik per groep soort heb benoemt dienen beschikbaar te blijven, in deze regels vanaf kolom d dienen gebruikers in te vullen en in aantal kolommen
in deze regels staan formules.

helaas kan ik jou scripts mijn inzien hiervoor niet gebruiken.

hopelijk zijn mijn bedoelingen nu duidelijker.
ook in het bestand die ik heb gepost staat een beschrijving.

hopelijk kun en wil je mij verder helpen.
Dit geldt natuurlijk ook voor de overige gebruikers van dit forum.

alvast bedankt,

Jan.

 

[HSV]

Ik ben zover met het verbergen van de juiste rijen, al staat daar wel een foutje in het bestand geschreven denk ik.
Rijen 24 t/m 59 verbergen indien gekozen is voor 'Afdeling'.
Ik vermoed dat hier 24 t/m 46 had moeten staan.

Combobox2 lijkt me overbodig.

Wat bedoel je precies met geselecteerde regel.
Als er een cel is geselecteerd is dat waarschijnlijk niet de juiste regel die in de combobox1 is gekozen toch?

Bekijk het maar eens.

 

[jan excel]

Hoi HSV,

Denk dat wij elkaar niet helemaal begrijpen, dit ligt aan mij hoor.
Toelichting tekst in Excel file onduidelijk.

De bedoeling is dat beheerder bij een groep een regel kan toevoegen en een regel kan verbergen.
Als meerdere regels wil toevoegen dan dit per rij doen inclusief omschrijving.
Rij verbergen mag tekst blijven staan als bij toevoegen maar weer overschreven kan worden.

Tekst in excel file ook aangepast.

Hopelijk wordt de bedoeling nu wat duidelijker. zie ook bijlage


Bekijk bijlage voorbeeld verbergen_zichtbaar maken (2).xlsb

alvast bedankt.
Jan

 

[HSV]

Zo is het duidelijker Jan.

Edit:
Kleine aanpassing voor de code in Userform Beheerder.

Private Sub ComboBox1_Change()
With ComboBox2
[COLOR="#FF0000"].Text = ""[/COLOR]
 Select Case ComboBox1.Value
    Case "Afdeling"
      .List = [row(24:46)]
    Case "Soort storing"
      .List = [row(49:59)]
    Case "Monteur"
      .List = [row(61:72)]
 End Select
End With
End Sub

 

[jan excel]

Hoi HSV,

Super, dit is precies wat ik bedoel.
Bij nader inzien, is het handiger dat niet lege rij in een groep de de tekst wordt getoond en lege rij de rij nummer.
Is dit nog mogelijk ?? Wel dient de mogelijkheid te blijven dat tekst kan worden overschreven.

alvast bedankt.
Jan E

 

[HSV]

In form 'Invulformulier'.

Private Sub UserForm_Initialize()
 TextBox1.Text = IIf(Sheets("Data").Cells(beheerder.ComboBox2.Value, 1) > 0, Sheets("data").Cells(beheerder.ComboBox2.Value, 1).Value, "Cel " & Cells(beheerder.ComboBox2.Value, 1).Address(0, 0) & " is leeg")
End Sub

 

[jan excel]

Hoi HSV,

Dit lijkt mij goed, ga morgen kijken of ik het kan implementeren in het project, indien nodig wil ik dan nog wel een beroep doen op jou kennis.

bedankt voor je hulp tot zover.
Jan E

 

[HSV]

Hoi Jan,

Nog een kleine aanpassing in form 'beheerder'.

Private Sub CommandButton2_Click()
[COLOR=#FF0000]If ComboBox2.ListIndex > -1 Then[/COLOR]
 Sheets("data").Rows(ComboBox2.Value).Hidden = False
 invulformulier.Show vbModeless
[COLOR=#FF0000]End If[/COLOR]
End Sub

 

[jan excel]

Hoi HSV,

neem ik mee.

bedankt voorde aanvulling.
jan E

 

[jan excel]

Beste HSV,

Langs deze weg wil ik je nogmaals bedanken voor je hulp.
Het is nu geïmplementeerd in mijn project en werkt naar te tevredenheid.

Prettige en goede jaarwisseling.
Jan E

 

[HSV]

Graag gedaan Jan; Mooi te vernemen.