Tekst vanuit cel als notitie in een andere cel plaatsen

[quaak]

Goedemiddag,

Ik ben al een tijdje aan het zoeken maar nog niet iets gevonden wat mij kan helpen met het onderstaande

Ik heb een excel bestand met twee tabbladen. In Blad 1 kan ik dmv nummers (1 t/m 12) info ophalen uit Blad 2 met verticaal zoeken.
Dus in Blad 1 onder kolom A vul ik een nummer in en in kolom B verschijnt er in dit geval een naam.

Nu heb ik in Blad 2 een 3e kolom notitie toegevoegd.
Wat ik wil is dat de Tekst uit de 3e kolom Notitie als een notitie wordt toegevoegd in Blad 1 kolom B zodra ik nummer 1 t/m 12 invul in Blad Kolom A.

Ik heb een voorbeeld bestand toegevoegd, ik hoop dat ik een beetje duidelijk ben en wellicht dat iemand mij verder kan helpen.

Met vriendelijke groet,

Robert

 

[AlexCEL]

Ik hoop dat ik een beetje duidelijk ben
Niet helemaal voor mij. Wat moet er nu in kolom B op blad1 komen te staan? Een notitie toevoegen als notitie zegt mij niets.

Kan je niet een derde kolom toevoegen met een VERT.ZOEKEN functie erin?
Of anders handmatig aangeven wat je nu als uitkomst verwacht op blad1? (concrete voorbeelden)

 

[quaak]

Bedankt voor je reactie. Ik heb een voorbeeld toegevoegd. Om dat het in de oorspronkelijke file om behoorlijk wat tekst gaat dus meerdere regels wil ik graag deze info als notitie weergeven.

Ik heb nu in Blad1 cel B2 handmatig de notitie toegevoegd die bij Persoon Rob hoort.

Mvg Robert

 

[AlexCEL]

Daar is geen standaard functie voor, dat wordt VBA.
De VBA-specialisten mogen hier zeggen of dit kan en hoe het dan moet...

 

[quaak]

Ok, dan wacht ik in hoop af. Bedankt.

 

[AlexCEL]

Geen probleem. Ik zie het probleem van een derde kolom nog niet zo. Met al die opmerkingen in de cellen van kolom B wordt het ook niet overzichtelijker toch?

 

[VenA]

Ik sluit mij aan bij de opmerking/vraag van de vorige schrijver. Qua code niet zo moeilijk. In de module van 'Blad1'

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 And Target.Count = 1 Then
    r = Application.Match(Target.Value, Sheets("Blad2").Columns(1), 0)
    If IsNumeric(r) Then
      If Target.Offset(, 1).Comment Is Nothing Then Target.Offset(, 1).AddComment
      Target.Offset(, 1).Comment.Text Sheets("Blad2").Cells(r, 3).Value
    End If
  End If
End Sub

Zoiets zal je ook voor 'Blad2' moeten maken anders loop je de kans dat de opmerkingen niet meer kloppen.

 

[HSV]

Kan ook zo.

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
  If .Column = 1 And .Count = 1 Then
    r = Application.Match(.Value, Sheets("Blad2").Columns(1), 0)
    If IsNumeric(r) Then
     .Offset(, 1).ClearComments
     .Offset(, 1).AddComment.Text Sheets("Blad2").Cells(r, 3).Value
    End If
  End If
 End With
End Sub

 

[quaak]

Bedankt voor jullie hulp het werkt perfect!
De opmerkingen wordt alleen gebruikt voor aanvullende info wat alleen zichtbaar moet zijn zodra ik op de info cel ga staan.
Ben blij met jullie hulp en ik kan weer verder!

mvgr Robert

 

[quaak]

Goedemorgen,

toch nog een vraagje, wanneer ik de code invoer dan werkt het goed maar wanneer ik de vulgreep toepas dan werkt hij niet. opzicht niet zo erg maar is het mogelijk om een reset knop te maken zodra ik met een druk op de knop alle notities opnieuw ophaal?

 

[VenA]

Sub VenA()
  ar = Cells(1).CurrentRegion
  For j = 2 To UBound(ar)
    r = Application.Match(ar(j, 1), Sheets("Blad2").Columns(1), 0)
    If IsNumeric(r) Then
      Cells(j, 2).ClearComments
      Cells(j, 2).AddComment.Text Sheets("Blad2").Cells(r, 3).Value
    End If
  Next j
End Sub