co tak cikly? for next 
citovat
citovat
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: Kopírování buňky z každáho listu
MS Excel
Téma: Kopírování buňky z každáho listu 
Zaslal/a fostercz 13.1.2013 15:51
Zdravim už si fakt nevím rady, jsem začátečník, pokoušel jsem se marně něco nalézt na internetu.
O co jde?
Mám v Excelu dokument a v něm 1000 stránek.Stránka 2 až 1000 má v buňce informaci co chci zapsat do stránky 1 buňku po buňce.Nějaké rady na automatizaci?
Co nepřímý odkaz? Předpoklad: ty stránky jsem pochopil jako listy a že se jedná o čistý excel, ne vba. Pojmenování listů je v příkladu základní, když mají jiná jména, bude horší to nějak zautomatizovat pro nepř.odkaz. Ale šance je.
Příloha: 
10991_neprimy-odkaz.zip (8kB, staženo 28x)
citovat10991_neprimy-odkaz.zip (8kB, staženo 28x)tady by chtelo vedet jaka bunka kam. Trosku by napovedel i vzorek datcitovat
Potřebuju odkazovat v tomhle stylu ale ne to tam psát ručně
Sub Makro1()
'
' Makro1 Makro
'
'
Range("A2").Select
ActiveCell.FormulaR1C1 = "=List2!R[-1]C"
Range("A3").Select
ActiveCell.FormulaR1C1 = "=List3!R[-2]C"
Range("A4").Select
ActiveCell.FormulaR1C1 = "=List4!R[-3]C"
Range("A5").Select
ActiveCell.FormulaR1C1 = "=List5!R[-4]C"
Range("A6").Select
ActiveCell.FormulaR1C1 = "=List6!R[-5]C"
Range("A7").Select
ActiveCell.FormulaR1C1 = "=List7!R[-6]C"
Range("A8").Select
End Subcitovat
Sub Makro1()
'
' Makro1 Makro
'
'
Range("A2").Select
ActiveCell.FormulaR1C1 = "=List2!R[-1]C"
Range("A3").Select
ActiveCell.FormulaR1C1 = "=List3!R[-2]C"
Range("A4").Select
ActiveCell.FormulaR1C1 = "=List4!R[-3]C"
Range("A5").Select
ActiveCell.FormulaR1C1 = "=List5!R[-4]C"
Range("A6").Select
ActiveCell.FormulaR1C1 = "=List6!R[-5]C"
Range("A7").Select
ActiveCell.FormulaR1C1 = "=List7!R[-6]C"
Range("A8").Select
End Subcitovat
Nevím, jestli jsem to pochopil.
Příloha: 11012_sesit1.zip (18kB, staženo 29x)
citovat11012_sesit1.zip (18kB, staženo 29x)
Option Explicit
Sub Makro1()
Dim i As Integer
For i = 2 To 1000
Cells(i, 1).Formula = "=List" & i & "!A1"
Next i
End Subcitovat
Sub Makro1()
Dim i As Integer
For i = 2 To 1000
Cells(i, 1).Formula = "=List" & i & "!A1"
Next i
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