MS Excel

ahojte
velmi by mi pomohlo keby mi niekto vedel poradit ako previest komentare do buniek, potrebovala by som ich dostat ako textovu informaciu. tych komentov je pomerne vela, potrebujem to vyextrahovat nejako efektivne, existuje nejaky vzorec ktory by to riesil?
dakujem za odpovede

Zaslat odpověď >

Jeza.m(31.3.2014 9:31)#018577

Napadá mě buďto tisk se zobrazením komentářů na konci, nebo makro ...
Prohledání výběru a výpis do listu2 (musí existovat)
Public Sub komentare()
Dim rd As Single
List2.Cells(1, 1) = "Buňka"
List2.Cells(1, 2) = "Komentář"
rd = 2
For Each cell In Selection
If cell.NoteText <> "" Then
List2.Cells(rd, 1) = cell.Address
List2.Cells(rd, 2) = cell.NoteText
rd = rd + 1
End If
Next
End Sub

nebo prohledání aktuálního listu dle rozsahu vyplněných buňek (výpis opět do listu2)
Public Sub komentare()
Dim rd As Single
List2.Cells(1, 1) = "Buňka"
List2.Cells(1, 2) = "Komentář"
rd = 2
For Each cell In Range(Cells(1, 1), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count))
If cell.NoteText <> "" Then
List2.Cells(rd, 1) = cell.Address
List2.Cells(rd, 2) = cell.NoteText
rd = rd + 1
End If
Next
End Sub

M@citovat

kika(31.3.2014 9:47)#018579

ahoj dakujem pomohlo mi to :)citovat

lubo(31.3.2014 11:19)#018581

V nastavení stránky lze nastavit tisk komentářů, možná by to mohlo stačit?citovat

kika(1.4.2014 8:09)#018589

lubo napsal/a:

V nastavení stránky lze nastavit tisk komentářů, možná by to mohlo stačit?

tlac by mi velmi nepomohla, mam cca 40 listov, na kazdom je v priemere 200 komentov, max 1500. potrebujem ich zarchivovat podla datumu a oblasti, aby sa dali pekne prepojit aj s inym datami. este sa s tym musim pohrat trosicka.citovat

Téma: ako dostat komentare do buniek?

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje