Sub VlozTextDoKomentare()
Dim cell As Range
On Error Resume Next
Selection.ClearComments
On Error GoTo 0
For Each cell In Intersect(Selection, ActiveSheet.UsedRange)
If cell.Formula <> "" Then
cell.AddComment
cell.Comment.Visible = False
On Error Resume Next
cell.Comment.Text Text:=cell.FormulaLocal
On Error GoTo 0
End If
Next cell
End Sub
Toto som nasiel neskusal skus mozno pomoze
Ahoj
Myslis takto ?
Ahoj
Prosim o radu mam udelane makro na zapis dat do ineho suboru kde sa 3 hodnoty zapisuju pod seba. Potrebujem nejak filtrovat tieto hodnoty podla druhu s prislusnim casom a poctom vzdy vedla seba.
V prilohe len priklad jak by to malo vypadat dakujem za kazdu radu.
Ahoj
Ja som to skusil takto udelal som si 4pomacne stlpce na odfiltrovanie dat. Je to udelane len pre prvu hodnotu ako vzor ak bude vyhovovat mozes podla vzoru dodelat.
Riadky pak mozes schovat. 
Naformatuj si bunky.
Ahoj
Diky moc 
Ahoj
Prosim o radu jak prerusit cyklus behu makra tlacitkem Stop.
Este si v makru zmen cestu je tam moja "nio"
D:\Documents and Settings\zmen na svoje \Plocha\Data.xls pripadne kde budes mat subor ulozen.
Ahoj
Co takto 
Ahoj
JJ presne to
Dakujem.Este mam otazku keby som to chcel otvarat s userform1 a casovo zobrazovat userform 2 ?
Rozsirujem obzory 
Nieco nasiel ale jak donej dostat ciklus sa mi nepodarilo 
Ahoj
Mam dalsi problemik. Potreboval bych poradit, Nejak sa nemozem dopracovat k casovemu zobrazovaniu userform.
Staci aby sa kazdu 1min zobrazilo a o 1min zas vyplo.
Dik uz to jede 
Co takto :)
Ahoj k niecomu som sa prepracoval ale pri zadani jednej podmienky to neformatuje. Neviem kde mam chybu v makre.

Oblíbený formulář Faktura byl vylepšen a rozšířen.

Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.