Uitkomst formules in kolom cel voor cel vastzetten

tvweverwijk · 26 jun 2017

Ik ben op zoek naar een VBA-code om in een kolom met formules vanaf de door mij geselecteerde cel naar beneden de gegevens cel voor cel vast te zetten via Copy => Paste Values. Ik weet hoe ik in VBA de copy met Paste Values moet doen en dan 1 cel naar beneden moet gaan.

Code:

Sub Macro1()
    
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.Offset(1, 0).Select
    Application.CutCopyMode = False

End Sub

Weten jullie hoe ik dit kan laten loopen zolang er data in de kolom staat.

HSV · 26 jun 2017

Vanaf de geselecteerde cel tot de laatste cel die gevuld is.

Code:

Sub hsv()
 With ActiveCell.Resize(Cells(Rows.Count, 1).End(xlUp).Row +1 - ActiveCell.Row)
  .Value = .Value
  End With
End Sub

Uitkomst formules in kolom cel voor cel vastzetten

tvweverwijk

Nieuwe gebruiker

HSV

Inventaris

Nieuwste berichten

Wij waarderen jouw privacy