macro werkt niet via knop, wel manueel

[olivier1980]

Beste,

Hebben jullie volgend probleem al ondervonden (mijn versie van excel is 2016) : de macro's werken handmatig, maar als je ze via een "knop" (formulierbesturingselement) laat uitvoeren, doen ze niet wat ze moeten doen. Er wordt ook geen foutmelding gegeven. De macro werkt ook niet naar behoren via een sneltoets.

Dit is de macro (ik weet dat jullie dit wellicht veel efficienter en mooier kunnen maken, maar mijn kennis is nog niet zo groot, ik ben nog alles wat aan het leren). De macro wordt uitgevoerd via een knop, maar de 2 lijnen worden niet ingevoegd, wel als je hem manueel laat uitvoeren.



Sub Titel_activiteit()
'
' Titel_activiteit invoegen
'


'0 Afzetten autocalc en screenupdate
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
.DisplayAlerts = False
End With

'1 Tabbladen zichtbaar maken
Sheets("BELGEN-SLOVAKEN").Visible = True
Sheets("BIB UREN GEBRUIK").Visible = True
Sheets("BIB UREN").Visible = True
Sheets("BIB PRODUCTEN").Visible = True
Sheets("CALC MATERIAAL").Visible = True
Sheets("DROPDOWNBENODIGDHEDEN!A").Visible = True
Sheets("MACROBENODIGDHEDEN").Visible = True

'2 Titel invoegen
Selection.End(xlToLeft).Select
ActiveCell.Range("A1:A2").Select
Selection.EntireRow.Insert
Selection.End(xlToLeft).Select
Sheets("MACROBENODIGDHEDEN").Select
Range("B2:CK3").Select
Selection.Copy
Sheets("OFFERTE BEREKENING").Select
Selection.End(xlToLeft).Select
ActiveSheet.Paste
ActiveCell.Offset(1, 13).Range("A1").Select
ActiveWindow.ScrollRow = Selection.Row
ActiveWindow.ScrollColumn = Selection.Column
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-3
ActiveCell.Offset(0, 0).Range("A1").Select

'3 Tabbladen verbergen
Sheets("BELGEN-SLOVAKEN").Visible = False
Sheets("BIB UREN GEBRUIK").Visible = False
Sheets("BIB UREN").Visible = False
Sheets("BIB PRODUCTEN").Visible = False
Sheets("CALC MATERIAAL").Visible = False
Sheets("DROPDOWNBENODIGDHEDEN!A").Visible = False
Sheets("MACROBENODIGDHEDEN").Visible = False

'4 Autocalc en Autoscreen activeren
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
.DisplayAlerts = True
End With

End Sub

Ik heb al eens een togglepoint ingevoerd, de procedure uitgevoerd via de button en hij kwam wel degelijk op bovenvermelde macro uit. Ik veronderstel dat alles dus goed gekoppeld is.


Alvast bedankt

 

[HSV]

Plaats het bestand eens en schrijf erbij wat er moet gebeuren.
Er staat een hoop overbodige code dat werd gecreëerd door de macrorecorder.
Het meeste van de code kan er uit zodat het beperkt wordt tot de kern van de vraag.

 

[olivier1980]

Sorry maar het bestand kan ik niet op het internet gooien (te veel vertrouwelijke info)

 

[alphamax]

Met een klein anoniem representatief voorbeeldbestandje wordt je sneller en beter geholpen.

 

[HSV]

Het origineel hebben we niet nodig.
Maak een kopie en verwijder de vertrouwelijke info.

 

[Ginger]

Olivier1980, goed dat je een nieuw draadje hebt aangemaakt. Maar heb je ook al gedaan wat ik in Postnr.15 had gevraagd van het draadje "Excel-afkappen-harde-enter-na-100-tekens?"?

 

[olivier1980]

Bij het maken van een test voor jullie, heb ik het probleem gevonden.
Als ik alle tabbladen zichtbaar maak, de code voor het zichtbaar maken en verbergen van de tabbladen uit de macro verwijder
en dan de macro uitvoer, wordt alles perfect uitgevoerd.

Probleem blijft natuurlijk dat die tabbladen voor de andere medewerkers niet zichtbaar mogen zijn...

grtz
Olivier

 

[HSV]

Tip: Er moet altijd een werkblad zichtbaar zijn.

Helaas ga ik het bestand niet reproduceren.
Je kan ook wachten op iemand hier op het forum die dat wel graag voor je wil doen.
Als niemand dat doet, en jij geen bestand plaatst blijf je met het probleem zitten als je het niet zelf oplost.

In ieder geval kan die slechte code stukken efficiënter.