Rij verbergen, rij invoegen en waarden over nemen

[tonissteiner]

Een goede ziel die mij misschien wil helpen?

1. op het werkblad "participants" zou ik graag na het invoegen van een rij mbh de knop "Add New Company" of "Add New Name" deze template rijen 24 t/m 28 verborgen zien. het lukt mij wel maar het object wordt niet mee verborgen

2. de link naar een cel van het opbject moet ook gelinkt zijn aan zijn eigen rij (dus ook de nieuw ingevoegde rij). bij het gewoon kopieren blijft de link naar de template rij staan (rij 25 of 26 dus)

3. en dan als er een vakje aangevinkt wordt (waarde "True" krijgt) zou op het werkblad "Report" de aangevinkte waarden moeten ingevoegd worden onder "9500 LIST OF NAMES" met gebruik van de template van rij 2. de eerste rij zal niet altijd rij 65 zijn omdat nog rijen zullen ingevoegd worden tussenin

iemand die mij kan helpen hoe ik dit kan doen?

alvast bedankt

 

[tonissteiner]

punt 1 in mijn vraag zou ik wel kunnen oplossen door mijn template op een ander blad te zetten. maar ik zit dan nog steeds met het probleem hoe ik elke nieuw ingevoegde checkbox, selectievakje kan koppelen aan de desbetreffende cel in kolom C.
en dan natuurlijk ook nog mijn vraag in punt 3. gedeeltelijk lukt dit me wel maar ik zit vast van het moment er ergens tussenin (dus tussen voor rij 65) rijen ingevoegd worden

kan iemand me verder helpen?

 

[danny147]

Beste tonissteiner

Het bestandje kan niet geopend worden om deze reden:

Groetjes Danny. :thumb:

 

[tonissteiner]

heb bestandje nog eens ingevoegd, naam gewijzigd enzo. hopen dat het nu lukt. alvast bedankt voor de reactie Danny

 

[tonissteiner]

echt niemand die mij kan en/of wilt helpen?

 

[tonissteiner]

Snif... niemand die mij, snotter... mij kan of wilt helpen?

 

[Roncancio]

Ik zie dat de nieuwste checkboxen vanaf rij 28 worden geplaatst.
Met onderstaande code verschijnt de voornaam van de personen wiens checkbox is aangevinkt.

Sub Voornamen()
For iAantal = 1 To Worksheets(2).CheckBoxes.Count
    If Worksheets(2).CheckBoxes(iAantal).Value = 1 Then
        MsgBox Range("F" & (33 - iAantal)).Value
    End If
Next

End Sub

Met vriendelijke groet,


Roncancio

 

[tonissteiner]

Beste Roncancio,

bedankt voor je reactie. maar je antwoord is niet echt wat ik zoek. ik hoef geen ckeckboxen op mijn scherm. op welke punt in mijn vraag was dat trouwens een oplossing volgens jou? dat kan me dan aanzetten om mijn vraag beter te formuleren. en dan uiteindelijk deze vraag dan eens op status opgelost te zetten

mvg,

Stefan

 

[Roncancio]

Mijn idee was/is om zo te laten zien welke checkboxen gekozen zijn en de bijbehorende voornamen te laten zien.
Dit om te bepalen wat de bedoeling van je vraag is.
Van hieruit zou verder gewerkt kunnen worden zodat het resultaat overeenkomt met je wensen.

Met vriendelijke groet,


Roncancio

 

[tonissteiner]

wat ik in de eerste plaats graag zou willen is van zodra er een vinkje na een naam aangekruist is deze naam dan in het tabblad report zou weergegeven worden. is dit mogelijk met deze checkbox waarvoor je deze code schreef?