waarom komt tabblad FACTUUR niet in beeld?

[samui]

Hallo,

Ik heb een private sub in een tabblad gemaakt waarin ik diverse letters kan ingeven om vervolgens direct verschillende acties hierop te laten uitvoeren die bij de bewuste letter hoort.
Al deze acties eindigen in het tabblad waar ik deze letters ingeef, omdat ik daarna weer een nieuwe actie laat uitvoeren
Er is echter 1 actie, wanneer ik de "r" ingeef moet de macro in het tabblad FACTUUR eindigen op cel C21
De macro eindigt daar ook keurig op cel C21 maar hij moet ook dit tabblad in beeld brengen.
Omdat ik helemaal aan het begin van de macro de regel: Application.ScreenUpdating = False gebruik komt Sheets("FACTUUR").Activate
ActiveSheet.Cells(21, 3).Select aan het eind van mijn macro niet met dit tabblad op de proppen maar blijft in het tabblad Deelnemers staan.
Wat doe ik verkeerd om wel te eindigen met het tabblad FACTUUR in beeld ipv het tabblad DEELNEMERS waar de "r" is ingegeven.

Als ik de regels Sheets("FACTUUR").Activate
ActiveSheet.Cells(21, 3).Select
na de end if of next x zet gaat het fout want dan eindigt alles op dit tabblad of het gaat fout.

Ik hoop dat ik voldoende informatie heb gegeven voor één van jullie om mijn probleem op te lossen.

Alvast vriendelijk bedankt.

mvg,

Frank

...........macro voorgaande aan deze tekst is niet relevant voor mijn vraag vandaar de ...................

End If
'EINDE CONTROLE OF ER EXTRA PLEKKEN EN/OF KRAMEN GEREKEND MOET WORDEN
'Hier wordt de pijl getekend en de macro Factuur_nazenden aan vastgemaakt zodat het tabblad na aanpassingen verzonden kan worden
ActiveSheet.Shapes.AddShape(msoShapeRightArrow, 147.6, 39, 108.6, 40.2).Select
Selection.PrintObject = msoFalse
Selection.ShapeRange.TextFrame2.VerticalAnchor = msoAnchorMiddle
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "ZEND FACTUUR"
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 12). _
ParagraphFormat
.FirstLineIndent = 0
.Alignment = msoAlignCenter
End With
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 12).Font
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Size = 11
.Name = "+mn-lt"
End With
Selection.OnAction = "Factuur_nazenden"
[B]Sheets("FACTUUR").Activate
ActiveSheet.Cells(21, 3).Select[/B]
End If
Next x
End Sub

 

[OctaFish]

Begin eens met de code op te maken met de CODE knop, zodat-ie wat leesbaarder wordt. Nu is het erg onhandig lezen. En vergeet de inspringniveau's niet .
Maar heb je (op basis van deze opmerking)

Omdat ik helemaal aan het begin van de macro de regel: Application.ScreenUpdating = False gebruik

wel de Screenupdating ook weer op True gezet?

 

[samui]

Beste OCtafish,

Ik heb hier en daar wel weer een true verwerkt maar dan gaat er wat mis met mijn macro's.
Ik kom later terug met een hopelijk betere vraagstelling, maar dat kan nog wel even duren. Zit nu wat krap qua tijd.
Alvast bedankt voor je reactie.

Frank