Nečítal si, čo som písal Sikimu, že?
Písal som mu, že určite nepochopíš, že toto je jednorazovka!
Tým že si to pridal do jestvujúceho makra naspodok, znamená, že (keby nenarazilo na chybu pri neexistujúcom komentári v A1) by si naplnil zoznam neexistujúcimi komentmi (lebo ich nemáš v hárkoch) a potom následne by si naplnil bunky v hárkoch komentmi, ktoré neexistujú.
Len nechápem načo sa hráš na programátora a začleníš si to do jestvujúceho makra!
Keď niečo nechápeš, ako funguje, tak s tým nenarábaj svojvoľne!
Sikiho makro Ti malo jednorazovo zo zoznamu naplniť komenty do hárkov.
Koniec
End
Punktum!
A tým na to môžeš zabudnúť
Je predsa logické, že keď si budeš vytvárať nové hárky, tak hneď do hárku založíš aj koment, ktorý budeš chcieť privolať do zoznamu.
Takže ešte raz a pomaly:
-Nalož do toho súboru VŠETKY svoje hárky (zálohu svojich hárkov si preboha samozrejme nechaj!).
-Riadok s kódom: "Cells(i + 1, 3) = Sheets(i).Range("A1").Comment.Text" označ ako komentár (apostrofom na začiatku), pretože inak akonáhle program zistí hárok bez komentu, ide do chyby.
-Vytvor si zoznam tlačítkom (avšak bez tvojej modifikácie - t.j. Sikiho makro, čo si tam pridal, zas pekne vysuň do samostatného makra)
-Pripíš si k vytvorenému zoznamu komenty do stĺpca C
-Jednorazovo spusti SAMOSTATNÉ Sikiho makro
-Zabudni na Sikiho makro
-Odstráň znak komentára (apostrof na začiatku) v riadku s kódom: "Cells(i + 1, 3) = Sheets(i).Range("A1").Comment.Text"
-Pri každom založení nového hárka ho hneď ošetri komentárom v bunke A1 (kým nezistím, ako overiť, či bunka obsahuje komentár a dám Ti doplniť jeden riadok sprostostí)
-Napíš ďalšiu kravinu, čo Ti zas nefunguje alebo nevyhovuje