If Then Statement
Hi
I am very very new at this but have created a spreadsheet to import data from
three different weather stations via text files. The data has come into my
spreadsheet ok, but I am required to do a comparison on the humidy of the
data ie if value in a range (humidity) is less then 0 or greater than 1000
then a message of "data requires to be between 0 - 100" is produced. When I
run the If|Then statement the output is true the first time around, but if
the data is changed then the statement does not run correctly. I think
(though I could be very wrong) that the If|Then statement requires to be
reset, or refreshed. The statement is :
Dim hmdcell As Range 'Humidity Column
Sheets("Data").Select
For Each hmdcell In Range("E2:E25")
If hmdcell = Empty Then
Sheets("Reports").Select
Range("D20") = "Data must be numeric"
Exit For
End If
If hmdcell 100 Or hmdcell < 0 Then
Sheets("Reports").Select
Range("D20") = "Data must be in the range of 0 to 100%"
End If
If Val(hmdcell) < 100 Then
Sheets("Reports").Select
Range("D20") = "Data Test"
End If
As this is part of a larger macro the End sub is not required.
This is probably all wrong but that is why I require some guidance.
Hope you can assist.
Pol
|