Hoe export naar word

[HSV]

Cel A4 selecteren en daarna Titels Blokkeren onder Menu Beeld → Venster → Blokkeren.

 

[glda19]

En hoe in f2 een lijst zetten met huidig en vorig jaar

 

[AHulpje]

Selecteer cel F3
Kies in het lintmenu "Gegevens"
Kies in "Hulpmiddelen voor gegevens" voor "gegevens validatie"
Bestudeer e.e.a.


Daarna kun je het zelf!

 

[glda19]

weet hoe ik daar een lijst kan maken door 2022;2023 te tijpen maar wil het niet zo wil het automatisch krijgen

 

[AHulpje]

Zo dan:

Private Sub Workbook_Open()
    With Sheets("Extra vergoeding").Range("F2").Validation
        .Delete
        .Add Type:=xlValidateList, _
             AlertStyle:=xlValidAlertStop, _
             Operator:=xlBetween, _
             Formula1:=Year(Now()) - 1 & ", " & Year(Now())
    End With
    Sheets("Extra vergoeding").Range("F2") = Year(Now())
End Sub

Met iets meer programmeerwerk zou je er ook voor kunnen zorgen dat je alleen kunt kiezen uit de jaren die in kolom A voorkomen.
En dan zou je ook zien dat op rij 27 het jaartal 2030 staat.

 

[AD1957]

@HSV,
Antwoord op #16: Ja hoor, maar die melding krijg ik ook in het bestand van Ahulpje in post 12

 

[glda19]

zou ik deze code ook kunnen gebruiken om zo een listbox op de ribbon te vullen in een eigen menu
Had dit al gezien van die 2030

 

[AHulpje]

Wat dacht je hier van:

 

[glda19]

Thx maar waarom geeft de geselecteerde datum steeds 1905

 

[AHulpje]

Omdat ik niet goed getest heb en omdat in een eerdere versie de volledige datum geretourneerd werd:

'    returnedVal = Date + index - 8

en in deze versie alleen het jaartal

    returnedVal = Year(Now()) + index - 1

Als je het getal 2023 omzet in een datum krijg je 15-7-1905.
Maar de redding is nabij, wijzig

Public GeselecteerdeDatum As Date

in

Public GeselecteerdeDatum As Integer

en wijzig voor het mooi hier en daar de tekst "Geselecteerde Datum" en de variabelenaam GeselecteerdeDatum in "Geselecteerd jaar" resp. "GeselecteerdJaar"
Met wat debug stops hier en daar had je dat zelf waarschijnlijk ook wel gevonden.

 

[glda19]

ik weet hoe ik debug stops moet zetten.
Maar niet hoe ik deze gebruik voor het lint.
Hoe kan ik daar dan stoppen

 

[AHulpje]

Kijk eens in Module1, en daar laat ik het bij.