Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Excel met macro's start niet meer op  (gelezen 5770 keer)

0 leden en 1 gast bekijken dit topic.

Offline Jamnesia

  • Volledig lid
  • **
  • Berichten: 136
  • Oplossing.be
Re: Excel met macro's start niet meer op
« Reactie #15 Gepost op: 17 februari 2017, 14:12:04 »
Beste SoftAid,

Super, ziet er heel goed uit. Onderstaande macro heb ik nu aangemaakt, maar ik ga deze dan nog verbeteren met die van u. Dit komt overeen met uw macro, enkel dan dat ik hier verschillende bladnamen dan kan intypen. Enkel zou ik dan nog een aanpassing bovenaan "For blad = 1 To 3" moeten zien te vinden die niet van blad 1 t/m blad 3, maar bv blad 1 en blad 2.


Sub Startpagina()
'
' Startpagina Macro
'

'
 
For blad = 1 To 3
Sheets("Adres1").Select
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
If Not Application.Intersect(Sh.TopLeftCell, Range("A3:H33")) Is Nothing Then
If Sh.Type = msoPicture Then Sh.Delete
End If
Next Sh
Sheets("Adres2").Select
For Each Sh In ActiveSheet.Shapes
If Not Application.Intersect(Sh.TopLeftCell, Range("A3:H33")) Is Nothing Then
If Sh.Type = msoPicture Then Sh.Delete
End If
Next Sh
Next blad
Sheets("Adres3").Select
For Each Sh In ActiveSheet.Shapes
If Not Application.Intersect(Sh.TopLeftCell, Range("A3:BE33")) Is Nothing Then
If Sh.Type = msoPicture Then Sh.Delete
End If
Next Sh
Sheets("Startpagina").Select



End Sub

Offline Jamnesia

  • Volledig lid
  • **
  • Berichten: 136
  • Oplossing.be
Re: Excel met macro's start niet meer op
« Reactie #16 Gepost op: 17 februari 2017, 14:19:41 »
Misschien nog wel de makkelijkste vraag.  ;D

Stel ik wil mijn pagina vergrendelen tegen veranderingen aanbrengen, omdat hier formules opstaan, maar ik zou wel een vak niet willen vergrendelen, zodat ik hier een foto in kan kleven. Hoe krijg ik dat klaar? Welke zaken moet ik aanvinken als ik het blad wil beveiligen?

Bedankt alvast.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Excel met macro's start niet meer op
« Reactie #17 Gepost op: 17 februari 2017, 15:16:00 »
Misschien nog wel de makkelijkste vraag.  ;D

Stel ik wil mijn pagina vergrendelen tegen veranderingen aanbrengen, omdat hier formules opstaan, maar ik zou wel een vak niet willen vergrendelen, zodat ik hier een foto in kan kleven. Hoe krijg ik dat klaar? Welke zaken moet ik aanvinken als ik het blad wil beveiligen?
Toch niet echt de gemakkelijkste vraag, hoor....  :-[  Deze laat ik over aan de specialisten...  0:-)

Enkel zou ik dan nog een aanpassing bovenaan "For blad = 1 To 3" moeten zien te vinden die niet van blad 1 t/m blad 3, maar bv blad 1 en blad 2.

Zou het niet eenvoudiger zijn om in tabblad "Startpagina" een veld met aanvink-vakjes te plaatsen, en dat je daar kan kiezen van welk tabblad je de foto wilt verwijderen?

:) 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 Jamnesia

  • Volledig lid
  • **
  • Berichten: 136
  • Oplossing.be
Re: Excel met macro's start niet meer op
« Reactie #18 Gepost op: 17 februari 2017, 16:20:31 »
Blijkbaar met wat zoeken heb ik toch gevonden hoe ik alles moet aanvinken.

Volgende vakjes moet je aanvinken (in mijn geval dan toch  ;D): Ontgrendelde cellen selecteren, Celeigenschappen en Objecten bewerken.

Aangaande andere vraag: Bedoeling is dat ik eigenlijk door op de knop startpagina te drukken, alle ingevulde velden en foto's kan wissen en zo daarna opnieuw te kunnen beginnen.
Ik ben namelijk iets aan het maken waar ik makkelijk de planning voor mijn onderaannemer in kan maken en doorsturen.

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Excel met macro's start niet meer op
« Reactie #19 Gepost op: 17 februari 2017, 21:34:22 »
Jamnesia, Ik heb je bijlage uit een van je eerdere posts even bekeken en vraag me wat dingen af....
1) Waarom wil je met 1 procedure een wisselend aantal sheets ontdoen van de routebeschrijving? Ik lees dat je iets van een vinkje ofzo er bij wilt zetten en dan op je Startpagina de boel gaan wissen. Lijkt mij dubbel werk. Waarom niet simpelweg per sheet kijken of iets verwijderd moet worden en dan die ter plekke verwijderen?
2) Waar haal je die routebeschrijving vandaan? Dus hoe kom je aan dat plaatje?
3) Ga werken met een ActiveX Picture Object ipv het in samengevoegde cellen te plaatsen. Hiermee kan je ook rechtstreeks het betreffende object aanspreken en hoef je dus niet met een lus in je code door alle eventueel aanwezige plaatjes te lopen om te bepalen of je de goede hebt.
4) Nu heb je 3 adressen, kunnen dat er óók méér worden? Daarmee dus ook meer sheets?
5) Heb je een "laatste" versie van je bestand zodat de helpers mee kunnen lopen met jouw voortgang?
______________________________

Groet, Leo

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Excel met macro's start niet meer op
« Reactie #20 Gepost op: 22 februari 2017, 12:24:22 »
Jamnesia, ben je met je project gestopt?
______________________________

Groet, Leo

 


www.combell.com