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

Comments

Popular posts from this blog

Long running Java process resource consumption monitoring , leak detection and GC tuning

OpenLayers Advanced Clustering and Setting dynamic images for OpenLayer Styles via Ajax

JavaScript (Prototypal) Inheritance with new and Object.create