Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Re: Zoekfunctie in VBA  (gelezen 839 keer)

0 leden en 1 gast bekijken dit topic.

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Zoekfunctie in VBA
« Reactie #15 Gepost op: 07 februari 2024, 16:07:20 »
Hey Arnold,

Nu was ik hier een paar zaken in je bestand aan het bekijken, maar kon niet meteen vinden wat die vertraging kan veroorzaken, tot... ik per ongeluk ;D zag dat je op werkblad 'Budget' een enorme massa tekstvakken hebt staan.
Ik vond het ook al moeilijk te begrijpen dat je bestand zo groot is, dus dat zou best in dezelfde hoek kunnen zitten.

Probeer je dat liever zelf op te kuisen, of zal ik het met een stukje code doen?

Groetjes,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Zoekfunctie in VBA
« Reactie #16 Gepost op: 07 februari 2024, 16:45:04 »
Molly, bedoel je met "tekstvakken" cellen die ingekleurd zijn ?
zoja dan zal ik mijn "code" eens moeten herbekijken want ik gebruik daar een bereik om die lijst met terugkerende transacties telkens op te bouwen.
Grtjs,
Arnold.

update : denk niet dat het aan de ingekleurde cellen ligt , zojuist getest en maakt geen verschil uit , even traag...


Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Zoekfunctie in VBA
« Reactie #17 Gepost op: 07 februari 2024, 17:08:10 »
Toch niet, Arnold, het zijn letterlijk tekstvakken (vermoedelijk allemaal leeg, en in het andere geval waarschijnlijk toch overbodig).
De nummering sluit niet volkomen aan, dat betekent dat er tussendoor al verwijderd waren, maar je zit in elk geval al boven de 6000.
Ik heb er even een screenprint van gemaakt.

Groetjes,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Zoekfunctie in VBA
« Reactie #18 Gepost op: 07 februari 2024, 17:11:21 »
oh ,vandaar dat ik altijd dat rare teken kreeg als ik op bepaalde cellen ging staan.....
hoe verwijder ik die ? want het bestand dat ik heb bijgesloten is een "dummy".....dus zou ik graag weten hoe het doen in mijn échte bestand.
alvast weer mercikes  :)
Grtjs,
Arnold.

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Zoekfunctie in VBA
« Reactie #19 Gepost op: 07 februari 2024, 17:21:44 »
Wel, Arnold, als je helemaal overtuigd bent dat ze allemaal weg mogen, dan kan je het met deze code achter het bewuste werkblad:
Sub tekstvakken_opruimen()

For Each it In ActiveSheet.Shapes
  If it.Type = msoTextBox Then it.Delete
Next it

End Sub

Bovendien ben ik er gerust in: jou kennende zal je het gegarandeerd op een kopie doen en daarna uitvoerig testen, dus dat komt zeker goed ;)

Groetjes,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Zoekfunctie in VBA
« Reactie #20 Gepost op: 07 februari 2024, 17:40:35 »
Molly,werkte perfect ! bestand is merkelijk kleiner geworden en de snelheid is terug.
nog een vraagje , hoe doe je dat om die "lijst" te zien ? zo kan ik in de toekomst (en eens mijn andere werkboeken) checken of zulke "tekstvakken" nog terugkeren...
Grtjs,
Arnold.

ps : het is wél nog zo dat als er terugkerende transacties zijn de incoontjes pas verschijnen NADAT de cyclus is doorlopen...heb het bestand nog eens bijgevoegd..

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Zoekfunctie in VBA
« Reactie #21 Gepost op: 07 februari 2024, 18:08:42 »
Hoi Arnold,

Fijn dat dit alvast in orde is gekomen.
Die lijst krijg je via het menu: Start / Bewerken / Zoeken en selecteren / Selectiedeelvenster.

Een weetje: het was hier door de veelheid geen optie, maar ook van daaruit kan je items verwijderen. Er op klikken kan geen kwaad, dan worden ze enkel geselecteerd, probeer maar eens met je resterende afbeeldingen. Verwijderen kan vervolgens met de Delete-toets.

Ik heb ook nog een verklaring voor
Citaat
het is zelfs zo dat als er "terugkerende transacties" zijn , de afbeeldingen pas na die code op het werkblad verschijnen

Dat ligt aan de interactie tussen je instructies bij 'Workbook_Open' en 'Sub Sorteren'.
Je sorteercode kan redelijk ingekort worden waarmee meteen dat probleem zichzelf oplost:
Sub Sorteren()
With Sheets("Terugkerende_transacties")
  .UsedRange.Sort Key1:=.Cells(1), Header:=xlNo
End With
End Sub

Groetjes,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Zoekfunctie in VBA
« Reactie #22 Gepost op: 07 februari 2024, 18:12:20 »
 :D :D :D

Ik dacht al dat ik niet goed meer zag, maar je had dat andere probleem blijkbaar terwijl ik er mee bezig was opnieuw aan je laatste post toegevoegd.
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Zoekfunctie in VBA
« Reactie #23 Gepost op: 08 februari 2024, 11:30:15 »
Molly , soms kruisen onze posts ....
ondertussen ben ik bezig de ganse boel te veranderen , dat kopiëren van een bereik enz (met betrekking tot de "weerkerende transacties") heeft mij aan het denken gezet, ik ben nu bezig het op een ander manier aan te pakken.
Mettertijd geef ik een update.
Grtjs,
Arnold.

 


www.combell.com