Aantal taken zichtbaar in opmerking

[danny147]

Beste,

Graag zou ik het aantal taken willen zien in de opmerking zoals in cel T26 in bijgevoegd bestandje
Er mogen maar max. 6 taken zichtbaar zijn in de opmerking.
Gelieve dit aan te vullen in de bestaande code die in de Module zit.
Deze code wordt opgevraagd door op cel N1 of op Nazorg te klikken.

 

[edmoor]

Zoiets?
Bekijk bijlage Kopie van Test Planning.xlsm

 

[danny147]

Beste,

Bedankt edmoor voor dit prachtig exemplaar
Probeer de code een beetje te begrijpen maar heb gezien dat je tussen de vorige code ook iets geplaatst hebt.
Ik zat in de richting van Looprange te zoeken met dubbele "For each C in Range"

Nog een vraagje, kan je de breedte van de opmerking zodanig bepalen dat er per regel 1 tekst te zien is ?

 

[edmoor]

Dat kan. Voeg een Dim cmt As Comment bovenin de Sub SetRemarks toe.
Wijzig dan laatste stukje in dit:

        If cm <> "" Then
            With Range("T" & Regel)
                .ClearComments
                .AddComment cm
                Set cmt = .Comment
                cmt.Shape.Height = .Height
            End With
            Application.DisplayCommentIndicator = xlCommentAndIndicator
        End If

De hoogte van de commentaarbox wordt dan aangepast aan de regelhoogte.
Daar kan je dan zelf wel de breedte instellen neem ik aan

 

[danny147]

Beste edmoor,

Ga het deze middag testen, wordt vervolgd.

 

[ExcelAmateur]

danny147,

Ik ben hier niet in thuis maar had een macro opgenomen en heb er een regel tussen de code van "edmoor" geplaatst.

If cm <> "" Then
        With Range("T" & Regel)
             .ClearComments
             .AddComment cm
             Set cmt = .Comment
             cmt.Shape.ScaleWidth 2.11, msoFalse, msoScaleFromTopLeft 'Maakt de breedte
             cmt.Shape.Height = .Height
        End With
        Application.DisplayCommentIndicator = xlCommentAndIndicator
End If

Misschien lukt dit ook voor de hoogte?

 

[edmoor]

Zeker niet slecht
Maar ik zou deze gebruiken:

        If cm <> "" Then
            With Range("T" & Regel)
                .ClearComments
                .AddComment cm
                Set cmt = .Comment
                [COLOR="#FF0000"]cmt.Shape.TextFrame.AutoSize = True[/COLOR]
                [COLOR="#008000"]'cmt.Shape.Height = .Height[/COLOR]
            End With
            Application.DisplayCommentIndicator = xlCommentAndIndicator
        End If

Dan kan het zetten van de hoogte eventueel achterwege blijven.

 

[ExcelAmateur]

Dat ziet er beter uit. :thumb:
Dat van mij komt door het opnemen.

 

[danny147]

Beste,

Beide bedankt voor een goede oplossing
Heb 2 mogelijkheden geprobeerd, eentje met vaste lengte en breedte voor 6 opmerkingen en eentje met autosize

Vb1

        If cm <> "" Then
            With Range("T" & Regel)
                .ClearComments
                .AddComment cm
                Set cmt = .Comment
                cmt.Shape.Height = 75
                cmt.Shape.Width = 205
                .Comment.Visible = False
            End With
        End If

Vb2

        If cm <> "" Then
            With Range("T" & Regel)
                .ClearComments
                .AddComment cm
                Set cmt = .Comment
                cmt.Shape.TextFrame.AutoSize = True
                .Comment.Visible = False
            End With
        End If

Beide werken perfect
Bedankt heren :thumb:

 

[edmoor]

Graag gedaan