Rozkopírování vzorců Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Uživatelský avatar
akem
Master Level 7
Master Level 7
Příspěvky: 4440
Registrován: srpen 12
Pohlaví: Muž
Stav:
Offline

Rozkopírování vzorců  Vyřešeno

Příspěvekod akem » 22 led 2016 17:01

Zdravím,

asi je to triviální věc, ale já na to nemohu přijít.

potřebuji rozkopírovat vzorce z políček B1, B2, B3, B4. Tak aby vzorec pokračoval posloupně to znamená =data!J5, =data!K5, =data!D5, =data!H5 a tak dále... Budu takto kopírovat cca 3000 dat, tak to nechci dělat ručně. Jenže když dám klasické rozkopírování, tak se mi číselná řada posuje o 4 číslice.

Prosím o radu.

Předem díky

Akem

test.xls
(110 KiB) Staženo 21 x
Říkám co si myslím a myslím si co chci...

ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1

Reklama
Uživatelský avatar
atari
Level 6
Level 6
Příspěvky: 3195
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

Re: Rozkopírování vzorců

Příspěvekod atari » 23 led 2016 09:09

Rozkopírováním to nepůjde, protože Excel vždy posune číslo řádku o tolik, o kolik to posuneš při kopírování.
Tohle makro to udělá:

Kód: Vybrat vše

Sub Makro()
radek = 4
For i = 1 To 3000 Step 4
Cells(i + 0, 2).Formula = "=data!J" & radek
Cells(i + 1, 2).Formula = "=data!K" & radek
Cells(i + 2, 2).Formula = "=data!D" & radek
Cells(i + 3, 2).Formula = "=data!H" & radek
radek = radek + 1
Next i
End Sub

Uživatelský avatar
akem
Master Level 7
Master Level 7
Příspěvky: 4440
Registrován: srpen 12
Pohlaví: Muž
Stav:
Offline

Re: Rozkopírování vzorců

Příspěvekod akem » 25 led 2016 08:11

Diky moc!!!!
Říkám co si myslím a myslím si co chci...

ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1


Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 5 hostů