VBA dynamic range autofill

while
range(k4) <> ""
udfør som ønsket
loop

Prøv:

Hvis du vil bruge en formel, så i L4:

=HVIS.FEJL(HVIS(K4="";"";LOPSLAG(INDIREKTE("'NAV'!rc["&5&"]";0);$O$2:$P$1004;2;FALSK));"")

Nå, jeg fik arknavnet indsat det forkerte sted, så i stedet for den tidligere, så:

=HVIS.FEJL(HVIS(K4="";"";LOPSLAG(INDIREKTE("rc["&5&"]";0);NAV!$O$2:$P$1004;2;FALSK));"")

@store-morten tak for svar :)

Altså den var nu mere hvor den automatisk kunne finde ud af hvor den skulle udfylde tomme felter, her skal jeg manuelt markere de felter der skal udfyldes - men det er også en løsning som kan fungere.

Har du mulighed for at omskrive koden, så den ligeledes kan udfylde værdi_2 cellerne, med den formel som på billedet: https://www.dropbox.com/s/c7xshqurtf1bcyu/Sk%C3%A6rmbillede%202018-03-04%20kl.%2015.50.25.png?dl=0.

Og kan det samles i samme makro?

Det ville hjælpe mig utrolig meget :)

Er det en formel der allerede står i en celle der skal fyldes ned af?
f.eks. L4

Ja altså ligesom du har gjort i den VBA kode du sendte, hvor hvis man tager udgangspunkt i cellen L4 i Værdi_ 1, så skal de felter have formlen LOPSLAG(Q4;NAV!$O$2:$P$1004;2;FALSK),
hvor Q4 ændrer sig til Q5, Q6.

Nu skal formlen bare hedde
=LOPSLAG(Q4;NAV!$O$2:Q1004;3;FALSK)

Sub KopierNed()
    Dim ref As String, kb As String, rk As Long
   
    'Aktiverer celle L4
    Range("L4").Activate
    'Indsætter formel
    ActiveCell.FormulaLocal = "=LOPSLAG(Q4;NAV!$O$2:$P$1004;2;FALSK)"
   
    'Finder den aktive kolonne
    kb = Mid(ActiveCell.Address, 2, InStr(2, ActiveCell.Address, "$") - 2)
    'Finder sidste brugte celle i kolonne K
    rk = ActiveSheet.Range("K65536").End(xlUp).Row
    Selection.AutoFill Destination:=Range(ActiveCell.Address & ":" & "$" & kb & "$" & rk)
   
    'Aktiverer celle M4
    Range("M4").Activate
    'Indsætter formel
    ActiveCell.FormulaLocal = "=LOPSLAG(Q4;NAV!$O$2:$Q$1004;3;FALSK)"
   
    'Finder den aktive kolonne
    kb = Mid(ActiveCell.Address, 2, InStr(2, ActiveCell.Address, "$") - 2)
    'Finder sidste brugte celle i kolonne K
    rk = ActiveSheet.Range("K65536").End(xlUp).Row
    Selection.AutoFill Destination:=Range(ActiveCell.Address & ":" & "$" & kb & "$" & rk)
 
End Sub

Hvis der står formler i L4 og M4 der skal køres autofil så langt ned som kolonne K er udfyldt: