Cell opmerkingen uitlezen en op ander werkblad overnemen, op basis van pull-down

[wise]

Goedemorgen allen!

Ik zit met een uitdaging en heb helaas, na een aantal uren zoeken, nog niks bruikbaars kunnen vinden op het forum.

Voor project monitoring gebruik ik een simpel excel bestand waarin alle 16 stappen (stages) zijn gedefinieerd en dmv voorwaardelijke opmaak (1=OK, 2=NOK, 3=niet gedaan) kan opvolgen.
Aangezien deze lijst wel vaker uit +100 regels bestaat en iedere regel aan die 16 stappen onderhevig is, probeer ik het overzicht te behouden door in de cell opmerkingen te plaatsen op het moment dat het in een van deze 3 beoordelingen valt.

Nu ben ik opzoek naar een manier om nu per regel een overzicht van feedback te creëren op een tweede werkblad genaamd "Feedback". Hier zou ik dan op artikel kunnen selecteren dmv de pull-down en de commentaren van de juiste regel afbeelden in de tabel eronder.

Misschien is mijn omschrijving hierboven een beetje omslachtig maar probeer een duidelijke omschrijving te geven bij het bestand in bijlage.

Hopelijk schrikt de omschrijving dan ook niemand af en wilt men toch een blik werpen op de bijlage!

Alvast bedankt voor elke reactie!

Mvg Wesley

 

[VenA]

Probeer deze eens.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$A$3" Then Exit Sub
With Sheets("Overview")
    rij = .Columns(4).Find(Sheets("Feedback").[A3].Value, , xlValues, xlWhole).Row
    For j = 5 To 20
        If Not .Cells(rij, j).Comment Is Nothing Then c00 = c00 & "|" & .Cells(rij, j).Comment.Text Else c00 = c00 & "|"
    Next j
End With
Sheets("Feedback").[B9].Resize(16) = Application.Transpose(Split(Mid(c00, 2), "|"))
End Sub

 

[wise]

Hallo VenA,

Super bedankt voor je oplossing, werkt als een zonnetje!
Kun je me nog even verklappen waar ik de standaard tekst "OK" kan laten afbeelden als er geen opmerking gevonden is?

Zou het te ingewikkeld zijn dan zie ik van mijn vraag af.....

Nogmaals bedankt, super!

 

[VenA]

Dan zal het zo worden

If Not .Cells(rij, j).Comment Is Nothing Then c00 = c00 & "|" & .Cells(rij, j).Comment.Text Else c00 = c00 & "|" [COLOR="#FF0000"]& "OK"[/COLOR]

 

[wise]

Perfect!

Bedankt voor je snelle reactie!