MS Excel - autofill pomocí VBA
Ahoj, prosím o radu. V buňce B1 mám počet splátek (180). V buňce D1 je funkce PLATBA.ÚROK a já bych potřeboval, aby se funkcí autofill protáhla přesně o hodnotu v B1, tj. 180 - abych to nemusel dělat ručně - tj. vytvoří se seznam všech splátek úroků. Ví někde jak na to? Uvažoval jsem o smyčce Do...Loop, ale autofill se mi zdá jednodušší.
Nevím, jak tam zadat tu proměnnou oblast.
Díky za jakékoli rady,
Honza B.
Tady pokus o funkční kód, samozřejmě to hází chybu :(
Sub VyplniRadky()
Dim promena As Range
Set promena = sheets1.Range("B7") 'proměná si zapamatuje hodnotu v B7
Range("A19:A20").Select 'označí řádky, které chci "protáhnout"
Selection.AutoFill Destination:=Range("A19:A" & promena) 'autofill, od A19 do A & hodnota v B7
Range("A19:A" & promena).Select
End Sub
Zkus místo
Dim promena As Range
Set promena = sheets1.Range("B7")
Dim promena As String
promena = Range("B7").Value
nebo můžeš mít proměnnou třeba typu Byte či Integer a odkazovat se na oblast takto:
Selection.AutoFill Destination:=Range(Cells(19, 1), Cells(promena, 1))