1) Uprav Sikiho kód nasledovne:
Sub Update_comments()
Dim y As Long
Dim new_comment As String
For y = 2 To Sheets.Count
new_comment = Cells(y + 1, 3).Value
Sheets(y).Range("A1").ClearComments
If new_comment <> "" Then
With Sheets(y).Range("A1")
.AddComment
.Comment.Text Text:=new_comment
End With
End If
Next y
Columns(3).AutoFit
End Sub
A vravel som Ti, že v budúcnosti už nemá význam opakovane aplikovať toto makro ale môžeš, keby si pridal väčšiu dávku nových hárkov bez komentov v A1.Ale musíš zas spustiť nezávisle, že prečo, viď bod 2
2) Nečítal si pozorne. Načo by si to implementoval? Vieš čo by to robilo?:
Vyčítalo by to komenty z buniek A1 jednotlivých hárkov a opätovne ich poprepisovalo za to isté. Aký to má význam?
Vravím Ti: v budúcnosti začni tým, že do nových hárkov pri ich vytvorení hneď založ do A1 koment!
Keď chceš dodatočne v budúcnosti doplniť alebo opraviť komenty v bunkách A1, doplň ich rovno do svojich hárkov. Potom aktualizuješ zoznam tlačítkom.
Hotovo!