vba code for iterating through colums
Private Sub CommandButton1_Click()
CalculateAndDispalyDifference
End Sub
Sub CalculateAndDispalyDifference()
Dim t1, t2 As Date
For counter = 2 To 91
t1 = Worksheets("Sheet1").Cells(counter, 4).Value
t2 = Worksheets("Sheet1").Cells(counter + 1, 4).Value
If t2 > t1 Then
Worksheets("Sheet1").Cells(counter, 6).Value = t2 - t1
Else
Worksheets("Sheet1").Cells(counter, 6).Value = t1 - t2
End If
counter = counter + 1
Next counter
End Sub
CalculateAndDispalyDifference
End Sub
Sub CalculateAndDispalyDifference()
Dim t1, t2 As Date
For counter = 2 To 91
t1 = Worksheets("Sheet1").Cells(counter, 4).Value
t2 = Worksheets("Sheet1").Cells(counter + 1, 4).Value
If t2 > t1 Then
Worksheets("Sheet1").Cells(counter, 6).Value = t2 - t1
Else
Worksheets("Sheet1").Cells(counter, 6).Value = t1 - t2
End If
counter = counter + 1
Next counter
End Sub
Comments