Kolomcellen leeg maken & formule doortrekken adv waardes kolom A

[1965Peter]

Hallo,

Ik wil graag de cellen leegmaken van kolom D7 t/m D.....= variabel (laatste regel met waarde uit kolom A).
& de formule uit kolom G7 doortrekken t/m (laatste regel met waarde uit kolom A).
In voorbeeld t/m regel 15.
Kolom A is variabel van A7 t/m .......
(zie bestand)

Alvast bedankt

 

[snb]

Waarom stel je een Excel vraag in een VBA subforum ?

 

[VenA]

zo?

Sub VenA()
  lr = Cells(Rows.Count, 1).End(xlUp).Row
  Range("D7:D" & lr).ClearContents
  Range("G7:G" & lr) = "=1+1"
End Sub

 

[1965Peter]

Dankje VenA,

Voor kolom D lege cellen werkt ie prima.
Voor kolom G moet ie de formule doortrekken, formule kan in werkelijkheid elke keer anders zijn.
Dus kopie G7 formule t/m .... (eind van kolom A).

 

[VenA]

Neem een macro op en maak vervolgens het bereik dynamisch.

 

[1965Peter]

Hallo VenA,

met hulp van jouw code, en steeds meer (beperkt) inzicht van mijn kant heb ben ik eruit gekomen. (weet 'm alleen nog niet in een codevak te zetten )
Super bedankt, heb al veel van jouw codes in gebruik


lr = Cells(Rows.Count, 1).End(xlUp).Row
Range("D7" & lr).ClearContents
Range("G7").Select
Selection.Copy
Range("G7:G" & lr).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

 

[VenA]

Voor uitleg over codetags https://www.helpmij.nl/forum/announcement.php?f=5

Gebruik geen select en selection.

Sub VenA()
  lr = Cells(Rows.Count, 1).End(xlUp).Row
  Range("D7:D" & lr).ClearContents
  Range("G7:G" & lr).Formula = Range("G7").Formula
End Sub

 

[snb]

... en geen variabelen

Sub M_snb()
  With Range(Cells(7, 4), Cells(Rows.Count, 1).End(xlUp).Offset(, 3))
      .ClearContents
      .Offset(, 3).Formula = .Offset(, 3).Cells(1).Formula
  End With
End Sub