< návrat zpět
MS Excel
Téma: specifické makro 
Zaslal/a honzaKKKK 20.3.2014 15:19
Zdravím,
nevěděl by někdo, jak by mohl vypadat makro, které mi v tabulce přidá jednu řádku. Tabulka je ve tvaru:
1 A1/B1
2 A1/B1
3 A1/B1
potřeboval bych, aby se makrem přidala řádka, která by kopírovala obsah poslední řádky. (adresování - dolary u pozic nemohou být z určitého důvodu) a číslování by mělo naskočit automaticky tzn. 4 .
Řešil už někdo něco podobného?
Díky za pomoc:-)
Opičák(20.3.2014 15:44)#018418 
zkus tohle
Sub Makro1()
lin = Cells(Rows.Count, "A").End(xlUp).Row
Rows(lin).Copy
Rows(lin).Insert Shift:=xlDown
Application.CutCopyMode = False
Cells(lin + 1, 1) = lin + 1
End SubcitovathonzaKKKK(20.3.2014 22:40)#018419 
Díky opičáku. Inkrementování je ok:-)
Jen ještě s tím jak přidávám řádku a inkrementuji její pořadí kopíruji vrzorce z předchozího řádku - A1/B1..jenže se mi to pořád mění na A2/B2..Potřeboval bych to nějak kopírovat. (adresování s dolary nemohu použít). Ve výsledku by se tedy mělo kopíovat A1/B1 stále pod sebe
citovatOpičák(20.3.2014 23:55)#018420 Nějak si to nedovedu představit proč by se to nemělo měnit, ale budiž.
Bunku A1 pojmenujte třeba
celA1 bunku B1
celB1 a vzorec nepiště jako =A1/B1, ale
=celA1/celB1citovat
RSS nejnovější články