Takto?
Příloha: 
13970_sesit1.zip (14kB, staženo 29x)
citovat13970_sesit1.zip (14kB, staženo 29x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: komentář
MS Excel
Téma: komentář 
Zaslal/a fortes 18.6.2013 17:55
zdravím, prosím vás o pomoc. na "list2" buňky "A49:A57", které se denně mění potřebuju tyto buňky zkopírovat do komentáře na "list1" na poslední vyplněný řádek ve sloupci "I:I" kdy se mají kopírovat na to bych použil "tlačítko". díky za pomoc, nevím si s tím vůbec rady
děkuju, jen ty buňky bych potřeboval sloučit do jednoho komentářecitovat
Teď jsou v jednom komentáři oddělené čárkou.
Příloha: 13972_sesit1.zip (17kB, staženo 29x)
citovat13972_sesit1.zip (17kB, staženo 29x)Sub Kopirovat()
Dim wsL1 As Worksheet
Dim wsL2 As Worksheet
Dim Radek As Long
Dim Kom As String
Dim Kom1 As String
Set wsL1 = Worksheets("list1")
Set wsL2 = Worksheets("list2")
Radek = wsL1.Cells(65000, 9).End(xlUp).Row + 1
For i = 49 To 57
Kom = wsL2.Cells(i, 1).Value
Kom1 = Kom1 & ", " & Kom
Next i
Kom1 = Right(Kom1, Len(Kom1) - 2)
wsL1.Cells(Radek, 9).ClearComments
wsL1.Cells(Radek, 9).AddComment
wsL1.Cells(Radek, 9).Comment.Text Text:=Kom1
End Subcitovat
Dim wsL1 As Worksheet
Dim wsL2 As Worksheet
Dim Radek As Long
Dim Kom As String
Dim Kom1 As String
Set wsL1 = Worksheets("list1")
Set wsL2 = Worksheets("list2")
Radek = wsL1.Cells(65000, 9).End(xlUp).Row + 1
For i = 49 To 57
Kom = wsL2.Cells(i, 1).Value
Kom1 = Kom1 & ", " & Kom
Next i
Kom1 = Right(Kom1, Len(Kom1) - 2)
wsL1.Cells(Radek, 9).ClearComments
wsL1.Cells(Radek, 9).AddComment
wsL1.Cells(Radek, 9).Comment.Text Text:=Kom1
End Subcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články