Sub vzorce()
For lin = 1 To Sheets.Count - 1
jmenoListu = Sheets(lin + 1).Name
Cells(lin, 4).FormulaR1C1 = "=" & jmenoListu & "!R3C2"
Next
End Subcitovat
Zaslal/a
14.5.2013 7:05Potř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 -?
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.