Opgelost dynamisch vullen opmerking in cel

[Stone52]

Hallo,

op een excel-blad gebruik ik een specifieke kolom een opslaglocatie.
ik zou graag, als ik de betreffende cel actief maak, in de bij deze cel
behorende opmerking-box de fysieke locatie (uit de locatietabel) willen zien.

In het bijgevoegde voorbeeld met fictieve namen:
klik (onder opslag) op bv cel B12 waarna in de locatietabel
"adres ABC" wordt opgehaald en in de cel-opmerking van cel B12 wordt weergegeven.

kan iemand een voorzet geven ?

 

[HSV]

Met onderstaande code gaat het bij het selecteren van de cel, maar kan ook bij een dubbelklik of een Change-event.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
With Target
 Set c = Range("b24:b31").Find(.Value)
   If Not c Is Nothing Then
    If .Comment Is Nothing Then .AddComment
      .Comment.Text c.Offset(, 1).Text
   End If
 End With
End Sub

 

[emields]

of zo?

 

[Warme bakkertje]

Een in-celopmerking is GEEN MsgBox.
Een voorzet zoals gevraagd.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)<br>Dim c As Range<br>With Target<br> Set c = Range("b24:b31").Find(.Value)<br>   If Not c Is Nothing Then<br>    If .Comment Is Nothing Then .AddComment<br>      .Comment.Text c.Offset(, 1).Text<br>   End If<br> End With<br>End Sub

 

[Stone52]

Goedemiddag,

Ik ben verder gegaan met de reactie van HSV.

Dit is zeker een goede oplossingsrichting, maar zou nog wat flexibiliteit willen inbouwen.

Het aantal rijen in OPSLAG verandert vaak
- Waar bepaal ik de range van dit aantal rijen zodat de locatie bij
toegevoegde rijen ook bepaald kan worden ?
- Kan ik deze range aanduiden met een bv
ActiveWorkbook.Names.Add Name:="Artikelen",RefersTo: ......... ?
- Kan ik de gebruikte tabel-range in LOCATIE ook met een
ActiveWorkbook.Names aanduiden en in VBA (set c) gebruiken?
ik heb hier wat mee geëxperimenteerd zonder goed resultaat.
- als een opslag niet in de tabel voorkomt dan zou ik dat in opmerking
willen zien (is nu blanco).

Ik heb wijzigingen aangebracht in VBA, echter dit geeft een error.

 

[emields]

zo dan? ik begrijp echter niet goed waarom je opmerkingen wil plaatsen die dan de volgende toch moeten verwijderd worden.

 

[HSV]

Indien je een rechtermuisklik in kolom B doet en de geselecteerde rij is groter dan 5 dan heb je geen NamedRange nodig.
Vereenvoudigde code.

 

[emields]

En met deze hoef je u nooit zorgen te maken om het bereik, zolang er geen legen rijen voorkomen.

 

[snb]

Gebruik een stabiel object.

 

[Stone52]

Dank je HSV !

Nog een kleine update nodig:
De tabel met locaties staat in mijn originele excel-document
op een werkblad met veel tabellen.

Zoals de code nu is heb ik nog een update nodig om daar op
de juiste rij/kolom van de locatie-tabel uit te komen.
De .Offset, Columns(2) verwijst naar kolom B (ik gebruik kolom O),
daar kom ik wel uit ;-)
Met Rows wordt het lastiger: het begin is wel te bepalen maar het
einde van de tabel zou ik ook moeten vermelden vermoed ik omdat ik anders doorloop in de volgende tabel met onbedoelde resultaten

Daarom de vraag of / hoe een hierbij NamedRange te gebruiken.

Zou je een korte toelichting kunnen geven op (het nut van) de Count = 1

 

[Stone52]

HSV, emields, warmebakkertje en snb allen hartelijk dank voor jullie hulp en tijd.

 

[HSV]

Je tabel heeft een naam; vul die naam op de plek van de eerste 1 in.

Set c = Sheets("Locatie").ListObjects(1).ListColumns(1).Range.Find(.Value)

Bv.

Set c = Sheets("Locatie").ListObjects("Tabel3").ListColumns(1).Range.Find(.Value)

Indien je de kolom ook nog wil vernoemen in de code kan dat zo.

Set c = Sheets("Locatie").ListObjects("Tabel3").ListColumns("Wat").Range.Find(.Value)

Dat is de kolom waar je in wil zoeken.