zoom functie na invullen cel terug naar 75%

Status
Niet open voor verdere reacties.
N

NPersijn

Gebruiker
Lid geworden
27 jul 2018
Berichten
56
Hallo,

Ik heb de volgende macro gebruikt om tijdens het invullen van een cel de dropdown lijst vergroot te krijgen.
Wanneer ik een cel selecteer die geen dropdown lijst heeft gaat de zoomfunctie terug naar 75%
Is het mogelijk en hoe om na het selecteren van een item uit de dropdown lijst de zoom direct terug gaat naar 75%?
Vast bedankt voor de reacties

Gr Norman

Code: 
On Error GoTo LZoom
    Dim xZoom As Long
    xZoom = 75
    If Target.Validation.Type = xlValidateList Then xZoom = 130
LZoom:
    ActiveWindow.Zoom = xZoom
 
Ja, dat kan, maar zonder voorbeeld is dat lastig.
Zo'n paar regeltjes code zeggen niets omdat wat er voor moet gebeuren van meer zaken afhankelijk kan zijn.
 
Hallo edmoor,

Bij deze het file
Bekijk bijlage 328581

Wellicht zou je me ook kunnen helpen met het volgende.
Wanneer ik op opslaan druk wil ik graag dat het bestand wordt opgeslagen met de naam rooster weeknummer (nummer).xlsm

Gr Norman
 
Laatst bewerkt:
In de change event die je al hebt.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C9:BD42")) Is Nothing Then
[COLOR=#0000ff] If Target.Validation.Type = 3 Then ActiveWindow.Zoom = 90[/COLOR]

In je selection_change event zet je het bv. op 110.
Code: 
If Target.Validation.Type = xlValidateList Then xZoom = 120

En gebruik...
Code: 
application.enableevents = false
...bovenaan de code van je selection_change

En onderaan weer op 'True', zodat niet steeds elke change gaat lopen.

De code is wel voor verbetering vatbaar met een array, maar daar heb ik nu te weinig tijd voor.
 
Dank je wel. Mocht je wel tijd hebben dan zou ik daar graag van leren.
 
Bekijk het maar eens.


Ps. Toevallig nog familie in de provincie Groningen wonen?
 

Bijlagen

  • Rooster V&E test.xlsb
    147,2 KB · Weergaven: 41
Opslaan met info uit cel

Hallo,


Hoe kan ik het bestand opslaan met de naam rooster weeknummer (nummer).xlsm
Ik heb wat geknutseld, helaas zonder resultaat.


Code: 
  Sub Macro4()
    ChDir "H:\Rooster 3 ploegen\Oud"
    ActiveWorkbook.SaveAs Filename:= _
        "H:\Rooster 3 ploegen\Oud\Rooster V&E.sheets("rooster").range("BO2").xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub


Bekijk bijlage 328614
Gr Norman
 
Laatst bewerkt:
Code: 
Sub Macro4()
 thisWorkbook.SaveAs "H:\Rooster 3 ploegen\Oud\Rooster V&E\" & sheets("rooster").range("BO2"), 52
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan