regel invoegen met macro en vert.zoeken

[WIMLIN]

Kan ik een regel invoegen met een macro waarbij mijn vertikaal zoek formule altijd in kolom 5 komt te staan.

Deze code heb ik nu gebruikt.

Sub Nieuwe_regel()
'
' Nieuwe_regel Macro
'

'
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    
    ActiveCell.Offset(0, 4).Range("A1").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-1]>0,VLOOKUP(RC[-1],Rekeningschema,2,FALSE),"""")"
    ActiveCell.Select
End Sub

De macro werkt op zich goed alleen het probleem is dat ik nu altijd in kolom 1 de regel moet invoegen terwijl ik ook in andere kolommen een regel wil in kunnen voegen.

 

[Jack Nouws]

Kan ik een regel invoegen met een macro waarbij mijn vertikaal zoek formule altijd in kolom 5 komt te staan.

Hallo,

Hierbij een code waarbij op Blad1 in regel 6 een regel wordt toegevoegd met in kolom 5 jouw formule.

Sub Extraregel()
  With Sheets("Blad1")
    .Rows(6).Insert
    .[E6].Formula = "=IF(RC[-1]>0,VLOOKUP(RC[-1],Rekeningschema,2,FALSE),"""")"
  End With
End Sub

Met vr gr
Jack

 

[trucker10]

De macro werkt op zich goed alleen het probleem is dat ik nu altijd in kolom 1 de regel moet invoegen terwijl ik ook in andere kolommen een regel wil in kunnen voegen.

Beste , is het kolom A (1) of rij 1 dat je wil zeggen , volgens ik zie kan je gewoon een rij of een cel in kolom A ( kolom(1) ) selecteren en je macro runnen , de formule past zich gewoon aan de celrij aan . Als je nu idd in kolom B een cel gaat selecteren zal je VERT.ZOEKEN in kolom B+4 > E staan .

 

[Warme bakkertje]

Sub Nieuwe_regel()
    With ActiveCell
        .Insert , xlFormatFromLeftOrAbove
        Cells(.Row - 1, 5) = "=IF(RC[-1]>0,VLOOKUP(RC[-1],Rekeningschema,2,FALSE),"""")"
    End With
End Sub