Kolom tonen met gewenste datum.

[danny147]

Beste,

Graag zou ik de kolom willen verschuiven naar de datum die overeenkomt met datum in cel A2 via lijst.

Had ergens een code liggen voor dit soort probleem, maar ik vind ze niet.

Groetjes Danny.

 

[danny147]

Beste,

Heb het dan toch nog gevonden en gewijzigd in deze code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    
    Application.Goto reference:=Sheets("Blad1").Range("C2:AF2").Find(what:=Range("A2").Value, LookIn:=xlFormulas, lookat:=xlWhole), scroll:=True
    
End Sub

Groetjes Danny. :thumb:

 

[danny147]

Beste,

Nu heb ik geprobeerd in Blad" Planningstabel" de datum in te geven via kalender.
Maar bij het uitvoeren heeft hij een foutmelding weer.
Het zou kunnen dat het te maken heeft omdat er 2 macro's tergelijkertijd moeten werken dan.

De bedoeling is dat er een datum wordt ingegeven en dat er op blad"verlofregeling" de kolom verschuift naar de datum die in cel A2 staat.

Zie bestandje.

Groetjes Danny. :thumb:

 

[Warme bakkertje]

In je bladmodule geef je de opdracht om de kalender te laten verschijnen bij het selecteren van A2. In je Workbook geef je de opdracht om naar de betreffende datum te scrollen, dus wordt een ander blad actief. Dan wordt je eerste macro verder afgewerkt, maar omdat je blad Planningstabel niet meer actief is (waar het target zich bevindt) kan hij de laatste opdracht van de eerste macro niet meer uitvoeren.

 

[danny147]

Beste Warme bakkertje

Is er dan een mogelijkheid om de laatste opdracht te verwerken in de eerste macro ?

De laatste opdracht in een module steken en deze "datum" te benoemen.
Deze code laten uitvoeren achter dat de kalender is beëindigd.

Groetjes Danny. :thumb:

 

[Warme bakkertje]

Is er een bepaalde reden dat je in je Workbook-macro sheets Planning selecteerd terwijl je in je sheet Planningstabel de cel naast de targetcel wil activeren ?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 Application.ScreenUpdating = False
    Application.Goto reference:=Sheets("Verlofregeling").Range("C2:AF2").Find(what:=Range("A2").Value, LookIn:=xlFormulas, lookat:=xlWhole), scroll:=True
    Sheets("Planningstabel").Select
 Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
    Userform1.Show
    Target.Offset(0, 1).Select
Sheets("Planning").Select
End If
End Sub

 

[danny147]

Beste Warme bakkertje

Heb de codes geprobeerd maar nog steeds een foutmelding.
Rekening houdend dat ik met excel 2007 werk.

Heb origineel bestandje bijgeplaatst waar het in moet komen.
Veel van de codes zullen jou nog wel bekent voorkomen uit de topic "Userform gebruiken in excel".

Indien mogelijk kan je het dan eens bekijken ?

Is er een bepaalde reden dat je in je Workbook-macro sheets Planning selecteerd terwijl je in je sheet Planningstabel de cel naast de targetcel wil activeren ?

Niet noodzakelijk, maar wel handig.

Groetjes Danny. :thumb:

 

[Warme bakkertje]

Test

 

[danny147]

Beste Warme bakkertje

Bedankt hé Rudi, we kunnen weer verder

Groetjes Danny. :thumb: