MS Excel

Téma: Opakované zkopírování oblasti

Zaslal/a Pavel99 8.11.2014 17:49

Ahoj, potřeboval bych poradit, jak zkopírovat oblast dat např. A3:D5 do oblsti níže počínaje A6:D8, následně A9:D11 a to opakovaně, kolikrát si zvolím. Zná někdo, jak napsat makro?
Předem díky

Zaslat odpověď >

Dingo(8.11.2014 19:25)#022252

Pokud to má být opravdu jen na tuto zadanou oblast, tak např.
Sub kopirovat_oblast()
pocet = InputBox("Kolikrát vložit oblast?")
If Not (IsNumeric(pocet)) Then Exit Sub
If pocet <= 0 Then Exit Sub
For i = 6 To 3 + 3 * pocet Step 3
Range("A3:D5").Copy Cells(i, 1)
Next i
End Subcitovat

Pavel99(8.11.2014 19:46)#022253

Super, funguje:-) Nečekal jsem tak rychlou odpověď, díky moc!citovat