alle opmerkingen bewerken

[lunobeca]

hallo allemaal dit is mijn eerste keer
ik heb een macro
sub opmerkingen
worksheets("2016 tot nu").select
dim xcomment as comment
for each xws in application.worksheets
for each xcomment in xws.comments
with xcomment.shape.textframe.characters.font
.name = "arial black"
.size = 10
xcomment.shapes.textframe.autosize = true
end with
next
next
ens sub

deze macro werkt uitstekend
maar als ik deze macro uitvoer herbegint hij telkens van voor af aan
en nu begint dit redelijk lang te duren
heb zelf al geprobeerd om het per maand te laten uitvoeren
maar met mijn minieme kennis lukt het niet echt
weet iemand wat ik juist moet veranderen
of heeft het te maken dat opmerkingen nu notitie's zijn

 

[lam201]

met deze regel

For Each xws In Application.Worksheets

wordt je macro op alle werkbladen uitgevoerd.
niet alleen op het werkblad "2016 tot nu"
dat kan een oorzaak zijn.

Maar upload je bestand. dan kunnen we meekijken.
nu wordt het gokken….

 

[edmoor]

Als je code plaatst, zet deze dan in codetags voor de leesbaarheid.
Probeer deze eens:

Sub opmerkingen()
    Dim xcomment As Comment
    Dim sCalc As Long
    
    sCalc = Application.Calculation
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    For Each xws In Application.Worksheets
        For Each xcomment In xws.Comments
            With xcomment.Shape.TextFrame.Characters.Font
                .Name = "arial black"
                .Size = 10
                xcomment.Shapes.TextFrame.AutoSize = True
            End With
        Next
    Next
    
    Application.ScreenUpdating = True
    Application.Calculation = sCalc
End Sub

 

[lunobeca]

bedankt voor deze vlugge reacties
zal deze straks uitproberen
misschien wat meer uitleg
de bedoeling is in feite
op het ende vd maand selecteer ik deze maand
en de macro dan alleen in deze selectie uitvoeren
via offset
beste lam201
ondertussen is deze worsheet bijna 3000 regels lang
en er staan natuurlijk veel prive zaken in
alle inkomsten alle uigaven etc

 

[edmoor]

Als je alleen het actieve werkblad wilt laten bewerken kan je die "For Each xws In Application.Worksheets" uiteraard weg laten.
Maar 3000 regels is absoluut niet veel.

Gebruik ook hoofdletters en leestekens in je berichten.
Ook voor de leesbaarheid.

 

[lunobeca]

lam 201 e edmoor bedankt voor de hulp
zal de volgende keer proberen met alles rekening te houden
edmoor:
met :xcomment.Shapes.TextFrame.AutoSize = True
kreeg ik de melding ondersteunt deze eigenschap niet
na het verwijderen van de "s" van shapes
werkt perfect
wat vroeger +- 5 min duurde
is nu vliegensvlug
bedankt en heb weer bijgeleerd

 

[lunobeca]

hoe zet ik mijn vraag als opgelost ?