formule doortrekken ipv alles

Status
Niet open voor verdere reacties.
P

Peter2016

Gebruiker
Lid geworden
4 sep 2015
Berichten
89
Ik heb een formule die kopieert tm de laatste waarde van kolom AF.
Gezien de opmaak van de te kopieeren cel, zou ik graag alleen de formule willen doortrekken.
Ik heb al geprobeerd om type:=xlFillDefault te veranderen in xlFillFormulas, maar dan kopieert ie gewoon de opmaak mee.


Range("N7").Select
ActiveCell.FormulaR1C1 = _
"=INDEX('Tarieven Tabel'!R6C1:R28C86,MATCH(Seko!RC[-12],'Tarieven Tabel'!R6C1:R28C1,0),MATCH(Seko!RC[-1],'Tarieven Tabel'!R4C1:R4C86,0))"

Range("N8").Select
Dim LR As Integer
LR = Range("AF" & Rows.Count).End(xlUp).Row
Range("N7").AutoFill Destination:=Range("N7:N" & LR), Type:=xlFillDefault
 
Zo?

Code: 
Sub VenA()
  Range("N7:N" & Cells(Rows.Count, 32).End(xlUp).Row) = "=INDEX('Tarieven Tabel'!R6C1:R28C86,MATCH(Seko!RC[-12],'Tarieven Tabel'!R6C1:R28C1,0),MATCH(Seko!RC[-1],'Tarieven Tabel'!R4C1:R4C86,0))"
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan