< návrat zpět

MS Excel


Téma: komentář rss

Zaslal/a 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

Zaslat odpověď >

#013970
avatar
Takto?
Příloha: zip13970_sesit1.zip (14kB, staženo 28x)
citovat
#013971
avatar
děkuju, jen ty buňky bych potřeboval sloučit do jednoho komentářecitovat
#013972
avatar
Teď jsou v jednom komentáři oddělené čárkou.
Příloha: zip13972_sesit1.zip (17kB, staženo 28x)
citovat
#013990
avatar
moc díky, takhle jsem si to představovalcitovat
#013991
avatar
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

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09