• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

macro uitschakelen

Status
Niet open voor verdere reacties.

Spiesse

Gebruiker
Lid geworden
14 jul 2011
Berichten
902
Beste,

bestaat er een macro die alle macro's in een bestand uitschakelt, en na activeren van die specifieke macro, de andere macro's weer inschakelt? :)

groeten,

spiesse
 
Volgens mij kan het niet maar ik weet het niet 100% zeker,
maar hoe had je gedacht dat als je de macro's uitschakeld , de macro om het inteschakelen dan moet werken? wan t de macro's staan uit.


Niels
 
Je kunt een globale Boolean variabele zetten die door de speciale macro op True of False wordt gezet.
Bijvoorbeeld: Dim ZetUit As Boolan.
Als eerste uitvoerbare regel in alle andere macro's zet je dan:
If ZetUit Then Exit Sub
 
Volgens mij kan het niet maar ik weet het niet 100% zeker,
maar hoe had je gedacht dat als je de macro's uitschakeld , de macro om het inteschakelen dan moet werken? wan t de macro's staan uit.


Niels

good idea :)

in principe gaat het erover om het volgende:
per regel invoer wordt door een macro de huidige datum geplaatst naast de cel.
nu moet ik wekelijks een lijst kopieren en plakken in het bereik.
als ik de macro niet uitzet komen er kolommen bij en das niet de bedoeling.

dus in principe zou die specifieke macro moeten gepauzeerd worden...

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A1:A100000")) Is Nothing Then
    Target.Offset(, 1).Value = Date
End If
End Sub
 
Als je een groter bereik kopieert dan kun je aan geven dat als de selectie groter is dan 1 cel de macro stopt.
misschien dat je er iets mee kunt.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
if target.cells.count > 1 then exit sub
  If Not Intersect(Target, Range("A1:A100000")) Is Nothing Then
    Target.Offset(, 1).Value = Date
End If
End Sub

Niels
 
hey niels,

bedank voor de aangeboden oplossing!

jammer genoeg (of gelukkig genoeg) mag ik nu genieten van 3 weken welverdiend verlof! :)
ik ga de macro op 7 aug voor de eerste keer kunnen testen, maar vermoed wel dat dit wel es een goeie zal zijn...

trouwens, weet jij een macro voor goed weer?

iets in de zin van:

dim rain as string
dim sun as string

if weather is rain then sun
end with
lots of sun
end sub

groeten en tot hoors,

spiesse
 
Helaas weet ik daar geen macro voor.
Maar ik wens je ondanks het weer een prettige vakantie.
Ik mag helaas (of gelukkig) nog een weekje werken voordat ik vakantie heb.

Niels
 
hey niels,

terug uit verlof en zoals gezegd de macro uitgeprobeerd. en moet zeggen: terug een topper!
op deze manier kan ik terug rapper werken in mijn bestand :)

groeten en tot de volgende vraag...

spiesse
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan