Použití Range

[atari]

Do proměnné zadávám pomocí Range řádek jako objekt: radek = Worksheets("list1").Range("2:2"). Potřeboval bych toto udělat tak, aby místo řádku 2, byl vybrán řádek, kde je umístěný kurzor. Nějak se mi to pomocí Range nedaří.

[Reklama]

[d1amond]

Ulož si do proměnné hodnotu activecell.row, a použij ji namísto čísla řádku.

[guest]

Dim rngMujRadek As Range
Set rngMujRadek = ActiveCell.EntireRow

[atari]

Ulož si do proměnné hodnotu activecell.row, a použij ji namísto čísla řádku.

Tak tohle nefunguje ("rr" se sice načte, ale promenná "radek" se nepriradi):

Kód: Vybrat vše

rr = ActiveCell.Row
Set radek = Worksheets("tisk").Range("rr:rr")

to xlnc: funguje dobře, díky