gedeelte van jaarrooster selecteren

[kamphuis11]

Hoi allen,

Ik maak gebruik van het volgende jaarrooster (rooster) .... Nu zou ik graag willen dat ik op een andere blad (Maandrooster) een datum in geef en dan de 4 weken vanaf ingevoerde datum krijg te zien. Is zoiets mogelijk en zoja; hoe?

Bijgaand het voorbeeld

 

[VenA]

Dat kan met VBA. Wat het moet worden is uit het beperkte voorbeeldje en de beperkte vraag niet op te maken.

 

[SjonR]

zoiets?

 

[kamphuis11]

Ja.... dat is zoals ik het in gedachten had. Hoe komt dit tot stand?

 

[SjonR]

Black Magic natuurlijk!

Nee, geintje..... Dit stukje code achter het tabblad "Maandrooster":

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$2" Then
        With Sheets("rooster")
            If Not .Rows(3).Find(Target.Value) Is Nothing Then
                If .Rows(3).Find(Target.Value).Offset(-1, 0).Value <> "ma" Then
                    MsgBox "Selecteer een maandag"
                Else
                     Cells(2, 4).Resize(37, 28).ClearContents
                    .Rows(3).Find(Target.Value).Offset(-1, 0).Resize(37, 28).Copy Cells(2, 4).Resize(36, 28)
                End If
            End If
        End With
    End If
End Sub

 

[kamphuis11]

dankjewel!

 

[SjonR]

graag gedaan! :thumb:

 

[kamphuis11]

Hoe kan ik de selectie groter of kleiner maken? Stel dat ik medewerkers er tussen uit moet halen? dan klopt de code niet meer. Heb jij hier enig advies over?

 

[SjonR]

in dit stukje staat wat moet worden geplaatst:

Cells(2, 4).Resize(37, 28).ClearContents
.Rows(3).Find(Target.Value).Offset(-1, 0).Resize(37, 28).Copy Cells(2, 4).Resize(36, 28)

Het gaat dan om de getallen achter .Resize.

.Resize(37,28) betekent 37 rijen hoog en 28 kolommen breed. Als het dus minder hoog moet zijn, dan moet je het getal 37 naar beneden bijstellen.

 

[kamphuis11]

Tof! ik snap het nogmaals bedankt