search

PerfectEye / VBA_makros

Makros used with my excel sheets
0 stars 0 forks source link

makros 1 #1

Open PerfectEye opened 6 years ago

PerfectEye commented 6 years ago

Sub Makro1() ' ' Makro1 Makro Dim kol As Long Dim last As Long

kol = ActiveCell.Column last = Cells(Rows.Count, kol - 1).End(xlUp).Row Selection.AutoFill Destination:=Range(ActiveCell, Cells(last, kol))

End Sub