MS Excel

Téma: Kopírování textů z listů do jedné tabulky

Zaslal/a Vita 14.5.2013 7:05

Potřeboval bych prosím pomoc :-D mám několik listů, všechny jsou stejné a dejme tomu že na políčku B3 na každém listě je nějaký text. Potřeboval bych tento text dostat pod sebe do sloupce aniž bych musel otrocky vypisovat =1!B3...=2!B3 atd...jde to nějak nakonfigurovat -?

Zaslat odpověď >

Opičák(14.5.2013 9:34)#013304

Pokud chceš do buněk vzorce, které budou zobrazovat to co je na ostatních listech v B3 a nevadí makro, tak to jde třeba takto:
Sub vzorce()
For lin = 1 To Sheets.Count - 1
jmenoListu = Sheets(lin + 1).Name
Cells(lin, 4).FormulaR1C1 = "=" & jmenoListu & "!R3C2"
Next
End Subcitovat

Stalker(14.5.2013 16:59)#013312