Need solution with array or something like.

[Slade]

Hi

I have the following code in a macro. What it do is simple. In one column(H) i enter a time manually and in column(I) i have the current time. If H is bigger then I then do nothing if H is smaller than I bring up message box. This all work well but now i need to do it with more than 1000 line and to copy and paste is going to take allot of time that i do have but it will slow the workbook allot. is there a way i can use an array with the line number in the sheet1.range("H*") and sheet1.range("I*") and sheet1.range("J*"), * being the line number.

Sub Macro1()
    Dim MustTime As Integer
    Dim CurTime As Integer
    Dim CurTimeSt As String
    MustTime = Sheet1.Range("H7")
    MsgBox MustTime
    CurTimeSt = Sheet1.Range("I7").Text
    Sheet1.Range("J7") = Mid(CurTimeSt, 1, 2) & Mid(CurTimeSt, 4, 2)
    CurTime = Sheet1.Range("J7")
    If CurTime > MustTime Then
    MsgBox "Respond to:" + Sheet1.Range("C7")
    End If
End Sub

 

[Joe4]

Duplicate: http://www.mrexcel.com/forum/showthread.php?t=574312

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule #9 here: http://www.mrexcel.com/forum/showthread.php?t=99490).