Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: VBA in activeX : rijen tonen/verbergen in combinatie met 25 activeX elementen  (gelezen 69535 keer)

0 leden en 1 gast bekijken dit topic.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: VBA in activeX : rijen tonen/verbergen in combinatie met 25 activeX elementen
« Reactie #15 Gepost op: 10 december 2018, 16:19:45 »
 \o/ \o/ \o/

Al denk ik dat het voldoende is om enkel kolom A te bekijken/spoelen  ;D

Groeten,

:) SoftAid :)             

Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: VBA in activeX : rijen tonen/verbergen in combinatie met 25 activeX elementen
« Reactie #16 Gepost op: 10 december 2018, 16:27:42 »
Vraag mij af of deze ook niet kan, wel niet getest, de soep is uitgeschept  ;D ....

Private Sub DC01L_Click()
 [26:10000].EntireRow.Hidden = True
 [26:116].EntireRow.Hidden = False
For i = 26 To 116
      If IsEmpty(Cells(i, 1).Value) Then
         Rows(i & ":" & i).EntireRow.Hidden = True
      End If
Next
End Sub

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline emields

  • Ervaren lid
  • ***
  • Berichten: 257
  • Geslacht: Man
  • Oplossing.be
Re: VBA in activeX : rijen tonen/verbergen in combinatie met 25 activeX elementen
« Reactie #17 Gepost op: 11 december 2018, 02:42:31 »
Als je niet graag veel klikt is dit iets voor u. enkel de cel selecteren.

Offline AnthonyVDD

  • Lid
  • *
  • Berichten: 37
  • Oplossing.be
Re: VBA in activeX : rijen tonen/verbergen in combinatie met 25 activeX elementen
« Reactie #18 Gepost op: 11 december 2018, 08:31:56 »
Dag emields,

ik kan uw bestand niet openen, zie afbeelding foutmelding.


Offline AnthonyVDD

  • Lid
  • *
  • Berichten: 37
  • Oplossing.be
Re: VBA in activeX : rijen tonen/verbergen in combinatie met 25 activeX elementen
« Reactie #19 Gepost op: 11 december 2018, 09:31:14 »
Goedemorgen,

ik heb de code van Dotchiejack gebruikt, en ik stuit op 2 kleine problemen.

1: soms, bij het openen van de excel zijn lijnen 26 tot 5000 onmiddellijk verborgen, zodat de buttons eigenlijk niet werken tenzij je helemaal naar boven scrolt. dit gebeurt niet altijd, maar vaak. ik heb dit getest op pc's met windows vista en XP en win7, telkens met andere resoluties.

2: telkens als je op een button drukt, krijgt het hele scherm een "knik" naar rechts

zie de gehele excel in bijlage

Offline emields

  • Ervaren lid
  • ***
  • Berichten: 257
  • Geslacht: Man
  • Oplossing.be
Re: VBA in activeX : rijen tonen/verbergen in combinatie met 25 activeX elementen
« Reactie #20 Gepost op: 11 december 2018, 10:00:37 »
lukt het nu?

Offline AnthonyVDD

  • Lid
  • *
  • Berichten: 37
  • Oplossing.be
Re: VBA in activeX : rijen tonen/verbergen in combinatie met 25 activeX elementen
« Reactie #21 Gepost op: 11 december 2018, 10:13:15 »
ja dat lukt, ziet er heel praktisch en overzichtelijk uit. ik denk erover na :-)
bedankt voor het voorbeeld emields

mvg

Offline emields

  • Ervaren lid
  • ***
  • Berichten: 257
  • Geslacht: Man
  • Oplossing.be
Re: VBA in activeX : rijen tonen/verbergen in combinatie met 25 activeX elementen
« Reactie #22 Gepost op: 11 december 2018, 12:10:26 »
Citaat
2: telkens als je op een button drukt, krijgt het hele scherm een "knik" naar rechts


Dat heeft te maken met het veranderen van de rijknoppen de rijknop met het nummer 1500 heeft nu eenmaal meer plaats nodig dan die met het nummer 15.


de knoppen kun je wegdoen met volgende code bij het begin van iedere macro (of bij het openen van het blad)


ActiveWindow.DisplayHeadings = False
vervang =false door =true om ze weer zichtbaar te maken.



Offline AnthonyVDD

  • Lid
  • *
  • Berichten: 37
  • Oplossing.be
Re: VBA in activeX : rijen tonen/verbergen in combinatie met 25 activeX elementen
« Reactie #23 Gepost op: 11 december 2018, 13:12:28 »
de excel begint plots traag te reageren, de grootte is nu 348Kb en alle codes zien er zo uit

Private Sub DC01L_Click()
    ActiveWindow.DisplayHeadings = False
    [26:5000].EntireRow.Hidden = True
    [26:116].EntireRow.Hidden = False
    Application.ScreenUpdating = False
End Sub

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: VBA in activeX : rijen tonen/verbergen in combinatie met 25 activeX elementen
« Reactie #24 Gepost op: 11 december 2018, 13:36:54 »
Hallo AnthonyVDD,

Je werkt met Excel 2016 of hoger, en dus heeft het tabblad heel veel rijen en kolommen die je niet nodig hebt, maar die toch moeten bewerkt worden. Verwijder dus overbodige rijen en kolommen:

Klik met de muisaanwijzer op het nummer van de eerste rij net onder je lijst met gegevens. Zo heb je nu de hele rij geselecteerd. Deze en alle volgende rijen heb je dus niet meer nodig.

Hou nu ‘CTRL+SHIFT+pijltje naar onder’ ingedrukt. Alle rijen vanaf de geselecteerde tot de laatste rij in Excel zijn nu geselecteerd. Gebruik de rechtermuisknop en kies voor ‘rijen verwijderen’. Sla je document meteen weer op!

Herhaal deze actie voor de kolommen die je niet nodig zal hebben.

Helpt dit?

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline AnthonyVDD

  • Lid
  • *
  • Berichten: 37
  • Oplossing.be
Re: VBA in activeX : rijen tonen/verbergen in combinatie met 25 activeX elementen
« Reactie #25 Gepost op: 11 december 2018, 13:55:00 »
nee helpt niet, heb wel gevonden waarom ze trager word, door mijn andere excels die openstaan.
er staat een excel open van 18mb en die dat emields gemaakt had.

Emields zijn voorstel ziet er eigenlijk heel goed uit, en simpel, ik denk hier even zelf verder aan te knutselen (in de mogelijkheid van mijn capaciteiten uiteraard)
Emields, je gebruikt geen activeX elementen, en toch zijn de functies identiek, is dat puur door die 20 lijntjes VBA?


Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: VBA in activeX : rijen tonen/verbergen in combinatie met 25 activeX elementen
« Reactie #26 Gepost op: 11 december 2018, 14:13:33 »
de excel begint plots traag te reageren, de grootte is nu 348Kb en alle codes zien er zo uit

Private Sub DC01L_Click()
    ActiveWindow.DisplayHeadings = False
    [26:5000].EntireRow.Hidden = True
    [26:116].EntireRow.Hidden = False
    Application.ScreenUpdating = False
End Sub

Die  Application.ScreenUpdating = False mag je er ook uitgooien waar hij nu staat.

Je zet er de screen updating mee af om tijd te winnen (en voor het visueel effect) maar dan moet deze wel voor de code staan.
En je moet daarna   Application.ScreenUpdating = True na de code zetten. Dus:

Private Sub DC01L_Click()
    ActiveWindow.DisplayHeadings = False
  Application.ScreenUpdating = False
    [26:5000].EntireRow.Hidden = True
    [26:116].EntireRow.Hidden = False
    Application.ScreenUpdating = True
End Sub

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline emields

  • Ervaren lid
  • ***
  • Berichten: 257
  • Geslacht: Man
  • Oplossing.be
Re: VBA in activeX : rijen tonen/verbergen in combinatie met 25 activeX elementen
« Reactie #27 Gepost op: 11 december 2018, 17:32:42 »
Citaat
Emields, je gebruikt geen activeX elementen, en toch zijn de functies identiek, is dat puur door die 20 lijntjes VBA?

dit is een vrij uitgebreide code om het ook voor leken leesbaar te maken, er  kunnen gerust nog 10 lijnen uit.

Offline AnthonyVDD

  • Lid
  • *
  • Berichten: 37
  • Oplossing.be
Re: VBA in activeX : rijen tonen/verbergen in combinatie met 25 activeX elementen
« Reactie #28 Gepost op: 18 december 2018, 15:59:55 »
hallo iedereen,

vooreerst wil ik iedereen bedanken voor hun inzet, informatie en voorbeelden, het heeft er toe geleid dat er iets moois van zal gemaakt worden!

maar, enkel een idee hebben dat het iets moois word daarmee heb je nog niets.

vandaar ik me even de vraag stel, of dit forum wel bedoeld is op mij te helpen met de code, of staan jullie in om die volledige code op maat te schrijven? ik heb het gevoel dat ik teveel op jullie leun, ik heb geen kennis van VB en jullie zitten dat hier allemaal gratis te doen :-)

voor jullie zal het waarschijnlijk een code van 10 regels worden, maar dat maakt niet uit hoe kort of hoe lang, het is de inzet die telt en die apprecieer ik.

daarom stel ik eerst deze vraag alvorens jullie lastig te vallen met de finale vraag om deze excel af te ronden.

mijn finale vraag zal nog altijd dezelfde zijn, 2 userform buttons combineren met elkaar.

alvast bedankt

mvg
Anthony



Offline emields

  • Ervaren lid
  • ***
  • Berichten: 257
  • Geslacht: Man
  • Oplossing.be
Re: VBA in activeX : rijen tonen/verbergen in combinatie met 25 activeX elementen
« Reactie #29 Gepost op: 18 december 2018, 17:04:20 »
Probeer om te leren en wat niet lukt zal er altijd wel iemand helpen.
wat bedoel je met "2 userform buttons combineren met elkaar"?

 


www.combell.com