nieuwe regel invoegen met behoud van formule dmv Macro

[trucker10]

Bij deze

Sub Extraregel()
  Sheets("invoerblad journaal").Rows(6).Insert
  [E7].FormulaR1C1 = "=IF(RC[-1]>0,VLOOKUP(RC[-1],rekeningschema,2,0),"""")"
End Sub

Sub nieuweboeking()
    With Sheets("invoerblad journaal")
      .Rows(6).Resize(3).Insert
      .Rows(3).Resize(3).Copy Sheets("invoerblad journaal").Rows(6)
    End With
End Sub
Sub Regelwissen()
    ActiveCell.EntireRow.Delete
End Sub

 

[snb]

nog beter:

Sub Extraregel()
  With Sheets("invoerblad journaal")
    .Rows(6).Insert
    [COLOR="Red"][B].[[/B][/COLOR]E7].Formula = "=IF($D7>0,VLOOKUP($D7,rekeningschema,2,0),"""")"
  End With
End Sub

 

[litmanen10]

Dat maakt alles een stuk helderder. Ik zal zeker is op internet wat gaan rondneuzen over Excel! Dankjewel

 

[litmanen10]

Hallo,

ik had nog een vraag ivm met mijn excel bestand. Hij zit gekoppeld aan een ander excel bestand maar ik weet niet hoe ik deze koppeling kan verwijderen. Als ik 'koppeling bewerken' doe, zie ik wel dat er een koppeling is. Hoe kan ik deze koppeling opsporen en eruit halen.
Ik heb het excel bestand toegevoegd. Wederom bedankt!