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:-)

Zaslat odpověď >

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 Subcitovat

honzaKKKK(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 sebecitovat

Opičá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

Uživatelské menu

Nejste přihlášen(a)

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.