Indsæt kommentar med indhold fra anden celle

Er det kun de 2 nævnte celler, det drejer sig om?

Kan B5 ikke ses?

Udgangspunkt:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$B$2" Then
        Target.AddComment Text:=Range("B5").Text
    End If
End Sub

men - ændrer B5 indhold? - hvis Ja så skal der lidt mere til..

Fantastisk...
Skal aflevere i morgen tidlig ;-)

Alle kolonne B celler er fremme, men kolonne E er skjult.
Men kolonne E cellerne indeholder en masse bemærkninger, til hver B celle - så det kunne være genialt, hvis den tilhørende bemærkning poppede op hver gang man kørte musen over en B celle !!

Kan man det ??  - Fantatisk...

Har altså ikke en dadel styr på makro, så du må godt lige give et hint til at putte sådan en på arket ;-)

Om B5 ændrer indhold ??
....Hmmm det gør det vel ikke - og jo måske bliver der rettet lidt

Var det OK svar ??

;-)

TAK

Det er så i 12-time :-)

Det kan godt lade sig gøre..

Kan indholdet i kolonne E ændrer sig??

--

Hvad er det du ikke har styr på (din sidste sætning) ???

1. Ja, det kan det godt - hvis man skriver lidt mere i dokumentet. Svar: Ja. Men det er ren tekst, ikke tal eller beregninger.
2. Ikke styr på makro - troede det var makro du skrev ;-)

Mange Mange tak

Er der kommentarer i andre kolonner end B?

Nej, der er ingen kommentarer i regnearket - overhovedet.
Endnu.
De eneste kommentarer vil være når vi laver en "kommentar" i vores kolonne.

OK ?

Ok - så bliver proceduren således:
Når ark aktiveres - slettes alle kommentarer og opbygges igen på basis af kolonne E.

På den måde vil evt. ændringer bliver "opdateret" i kommentarerne i kolonne B.

Det lyder fint.

Det er meget fornemt ;-)

/Peter

Skal jeg gøre noget ?
- Sig til hvis jeg skal svare på andet ;-)

Tak

Indsættes under det relevante ark (Højreklik / Vis programkode /)
Private Sub Worksheet_Activate()
Dim antalRækker As Long
Dim ræk As Long, cc As Comment
    Application.ScreenUpdating = False
   
Rem Beregn antal rækker
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
   
Rem Sletter kommentar i kolone B
On Error Resume Next
    For ræk = 1 To antalRækker
        Range("B" & ræk).Select
        Selection.Comment.Delete
    Next ræk
   
Rem Traverser kolonne E og indsæt kommentarer i kolonne B
    For ræk = 1 To antalRækker
        If Range("E" & ræk).Text <> "" Then
            Range("B" & ræk).Select
            ActiveCell.AddComment Text:=Range("E" & ræk).Text
            Comments(Worksheet.Comments.Count).Visible = False
        End If
    Next ræk
   
    Application.ScreenUpdating = True
End Sub

Tak
Jeg prøver

Selv tak - lukker nu - klar igen i morgen ca. 08:45

Ser ud til at virke

Sindsygt godt

Går i seng nu, men tester videre i morgen tidlig

Fantastisk - du er en skat ;-)

PS:
Når jeg indsætter programkode, virkede det ikke først - men så trykkede jeg på forskellige knapper - gem, afspil med mere...
Hvad er den præcise vejledning, når jeg har kopieret teksten ind på den blanke side ???

Tak

Selv tak

Når VBA-koden er indsat:

1) Der skal være anført tekster i kolonne E

2) For at aktivere koden - klik på et andet ark - derefter på det relevante. Så er kommentarerne oprettet.

Koden udføres når arket aktiveres:
"Private Sub Worksheet_Activate()"

,,,