Im using VBA for Excel. and
Im trying to use the code below to move through records and increment their values by one since they meet a certain criteria
Sub promotion() Dim x As Range Dim y As Integer Sheet2.Range("c2").Activate Do While y < 1002 y = ActiveCell.Row Set x = Sheet2.Cells(y, 3) x.Value = x.Value + 1 y = y + 1 ActiveSheet.Cells(y, 3).Activate Loop End Sub
Except the records are too many and the process is abit slower, Can anyone show me a better way to implement this.