Dagplanning vanuit maandplanning kopiëren op basis van dropdown menu in een cel

[Textor]

Bekijk bijlage Maandnaardagplanning.xlsxBeste leden,

Ik heb al enkele topics hier afgestruind, maar vind niet precies wat ik zoek (of ik heb het misschien niet goed begrepen).
In Excel 2010, ik heb twaalf tabbladen aangemaakt, zijnde de twaalf maanden (Jan-Dec) van het jaar.. Mijn kolommen A en B zijnde de lijst van personeelsleden Voornaam en Naam. Op elk van die sheets staat bovenaan de dag van de maand (1 tot 31), vanaf kolom C tot AG. Zo bekom ik een rooster en per persoon staat per dag een celinhoud (vaak met comments), zoals V voor verlof of Z als ze ziek zijn, enz.
Nu wil ik op het dertiende tabblad een dagplanning opstellen voor diezelfde personeelsleden die telkens het juiste tabblad selecteert, door in de cel C1 via een dropdown menu de maand in te vullen (Jan tot Dec, de namen van de tabbladen feitelijk) en de juiste dag, door in de cel B1 een cijfer van 1 tot 31 in te vullen. Dan zou Excel automatisch die kolomgegevens moeten selecteren en kopiëren naast de juiste namen op dat dertiende tabblad, vb. vanaf cel C5 en naar beneden tot vb. C16 als ik twaalf medewerkers heb. Geen idee hoe ik hieraan moet beginnen. Wie kan mij vooruit helpen?
Vriendelijke groeten en alvast bedankt,

 

[popipipo]

Met een excel voorbeeld bestandje heb je meer kans van slagen.

 

[Textor]

Voorbeeldbestand in bijlage

Beste,

U heeft overschot van gelijk; hierbij het voorbeeldbestand.
Mvg,

Bekijk bijlage Maandnaardagplanning.xlsx

 

[plongske]

Kan je hier wat mee?

 

[Textor]

Onder de indruk...

Plongske,

Dank je wel, dit is wat ik zoek, op één detail na. Ik wil zowel celinhoud als comment (opmerking) van die cel uit de maandplanning in mijn kolom C van de dagplanning krijgen. Ik had al iets gevonden waarmee ik daarna celinhoud kon behouden in de kolom C en de comment als celinhoud kon kopiëren naar de kolom D. Kun jij of iemand anders mij daarbij helpen?
Vriendelijke groeten,

Of... nu ik erbij stilsta... is het misschien nog "simpeler" (voor jullie hihi) om de comment meteen in de kolom D Detail in het tabblad Dagplanning te plaatsen?

 

[plongske]

Welke comments? in vb bestand staan er toch geen?

Ik had al iets gevonden waarmee ik daarna celinhoud kon behouden in de kolom C en de comment als celinhoud kon kopiëren naar de kolom D

Ik vermoed dat het een macro is?
Plaats even een voorbeeld bestandje met comments en uw gevonden iets.

Vermoedelijk zal ik je niet verder kunnen helpen. Ik ben er nog ene die het van de formules moet hebben.
Maar we hebben hier wel VBA specialisten die waarschijnlijk opmerkingen kunnen over te zetten.

 

[Textor]

Code comment to cel

Ja, sorry Plongske,

ik heb inderdaad in de voorbeeldfile geen comments gezet - ik dacht met mijn kippenverstand dat die gehele celinhoud, dus mét comment, gekopieerd zou worden - maar hieronder plak ik de code die ik ergens gevonden heb op een site.
Nog maals mijn excuses, de precieze vraagstelling blijkt hier echt wel belangrijk om tot de juiste oplossing te komen. Alvast bedankt voor het meedenken !

Sub CommentsToCells()
    Dim rCell As Excel.Range
    Dim rData As Excel.Range
    Dim sComment As String

    ' Horizontal displacement
    Const iColOffset As Integer = 1

    ' extract comments from selected range
    If TypeName(Selection) = "Range" Then
        Set rData = Intersect(Selection, ActiveSheet.UsedRange)
        For Each rCell In rData.Cells
            On Error Resume Next
            sComment = rCell.Comment.Text
            If Len(sComment) > 0 Then
                rCell.Offset(, iColOffset).Value = sComment
                rCell.Comment.Delete
            End If
            sComment = ""
            On Error GoTo 0
        Next
    End If
End Sub

P.S. ik kan hier op het werk geen voorbeeldbestand toevoegen, maar heb het al gemaakt en zal dat vanavond doen !
Ik zou natuurlijk ook op de maandtabbladen zelf de code "comment to cel" kunnen toepassen en die inhoud daar iets lager op de sheet kunnen plaatsen en dan voor die andere cellen dezelfde werkwijze als van Plongske kunnen gebruiken, maar ik vrees dat enkele van mijn gebruikers in het verkeerde rooster zullen werken en denk dat er misschien een elegantere oplossing bestaat?
Wanneer ik de comment naar de cel in kolom D schrijf op het tabblad Dagplanning, dan heb ik ook een formule

=IF(ISBLANK(D5);"";RIGHT(D5;LEN(D5)-FIND("*";SUBSTITUTE(D5;":";"*";LEN(D5)-LEN(SUBSTITUTE(D5;":";""))))))

gebruikt om de identiteit van de auteur van de opmerking niet te laten verschijnen in de kolom D Detail. In de maandtabbladen moet de identiteit er wel staan, op het tabblad dagplanning dus niet.

Ik ben geen moeilijke jongen?

 

[Textor]

Bijgewerkt voorbeeldbestand met comments

Bekijk bijlage Nieuwe gecomprimeerde (gezipte) map.zip

 

[plongske]

Zoals ik al aangaf zal ik je niet verder kunnen helpen.
Dit wordt iets voor de VBA mannen hier op het forum.

 

[Textor]

Toch bedankt

Dag Plongske,,
ik vermoed dat ik deze thread dan moet afsluiten en op het VBA gedeelte van de site moet gaan vragen? Ik zal dat zo dan doen.
Alleszins bedankt voor je mooie formule in verband met INDIRECT, ik zal ze sowieso nog moeten toepassen op een andere plaats in mijn planningstool.
Keep up the good work,

 

[HSV]

Ik heb in de Vba sectie een reactie geplaatst op je vraag aldaar.

 

[plongske]

Fijn dat het probleem is opgelost:thumb: