Makrokodning, "autofylla" - Excel - Forum Excel, VBA, VSTO, Exceltips, Excelhjälp

Sök Forumets startsida

Forum

Diskussioner

Excel

Makrokodning, "autofylla"

Föregående

Nästa

2010-09-14 10:21

Gäst

Medlem sedan: 2009-01-13

339 inlägg

Makrokodning, "autofylla"

Hej,

Har någon ett tips på makrokodning för att "fylla nedåt" utan att veta antal rader som ska fyllas, vilket kommer variera. Antar att man börjar med att göra en räknesnurra som tar reda på antal ifyllda rader och sen använder denna uppgiften för att fylla nedåt, men som sagt behöver hjälp med kodningen. Tacksam för svar!

Patrik

2010-09-14 13:04

Henrik Milefors

Medlem sedan: 2009-01-14

177 inlägg

Re: Makrokodning, "autofylla"

Ändrad av Henrik Milefors på 2010-09-14 13:06:10

Ett exempel skulle kunna vara:

Public Sub FillDown()

    Dim curRow As Long, stRow As Long, rows As Long

    cRow = ActiveCell.Row
    rows = ActiveCell.CurrentRegion.rows.Count
    stRow = ActiveCell.CurrentRegion.Row

    ActiveCell.Resize(stRow + rows - cRow).Formula = ActiveCell.Formula

End Sub

Hälsningar
Henrik

2010-09-14 14:01

Patrik

Medlem sedan: 2010-09-14

1 inlägg

Re: Makrokodning, "autofylla"

Jag bifogar en skärmdump från ett makro, hur använder jag ovanstående i detta, för att makrot ska fungera oavsett hur många rader som ska fyllas vid nästa tillfälle som makrot körts?

Sub Makro2()
'
' Makro2 Makro
' Makrot inspelat 2010-09-14 av patrik
'

'
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-8],Kto,2,FALSE)"
    Selection.AutoFill Destination:=Range("I2:I771")
    Range("I2:I771").Select
End Sub

/Patrik

Sida 1 av 1

Makrokodning, "autofylla"