Hi everyone!
Now i'm making a workbook which can auto send sms, i have problem with funtion check data on cell as below :
So i want to check data on cell(i,4) until it have data will call sendsms funtion, but that code not working, anyone can help me?
(data on cell(i,4) is auto fill a hour)
Now i'm making a workbook which can auto send sms, i have problem with funtion check data on cell as below :
Code:
Sub checkvalue()
Dim i As Integer
Worksheets("Sheet2").Select
For i = 12 To 28
Cells(i, 4).Select
Call delaycheckvalue(i)
Next i
Call start
End Sub
---------------------------------
Sub start()
Application.OnTime Now + TimeValue("00:00:10"), "Checkvalue"
End Sub
-----------------------------------
Sub delaycheckvalue(i As Integer)
Do Until Cells(i, 4).Value <> ""
Cells(i, 4).Select
Call timedelay
Loop
Call Sheet1.Sendsms
End Sub
-----------------------------------------------------
Sub timedelay()
Application.OnTime Now + TimeValue("00:00:20"), "delaycheckvalue"
End Sub(data on cell(i,4) is auto fill a hour)