Aşağıdaki 2 ayrı makro parçalarını "veriler" isimli sayfa için nasıl düzenleriz.
------------------------------------------------
Private Sub cmdkaydet_Click()
Dim bak As Range
Dim say As Integer
For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A65000")))
----------------------------------------------------
txtceksirano.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
------------------------------------------------
Private Sub cmdkaydet_Click()
Dim bak As Range
Dim say As Integer
For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A65000")))
----------------------------------------------------
txtceksirano.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1