Sub makro()
'Skopíruje 9buněk od kurzoru doprava
ActiveCell.Offset().Resize(, 9).Copy
Range("A1").Select
Do Until ActiveCell = ""
ActiveCell.Offset(1).Select
Loop
ActiveCell.PasteSpecial xlPasteAll
ActiveCell = ActiveCell.Offset(-1).Value + 1
End Sub
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.