Thread: if statment
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
bob bob is offline
external usenet poster
 
Posts: 16
Default if statment

i am writing a macro that takes year "3" in col A and Month "AUG" in col B
and converts col A into mm/dd/yy. how would i write an if in Cl loop that
will drop down to next row if col A is not a 1 digit number. Datehold loop
works on fist table but runs into error when col A is blank or not year.

the other part is what is the correct syntax in union statement to only
include col A

For Each Cl In Union(Range(Range("A7"), Range("A7").End(xlDown)), _
Range(Range("T7"), Range("T7").End(xlDown)))
DateHold = Cl.Value + 2000

DateHold = DateValue(Cl.Offset(0, 1) & " " & DateHold)
DateHold = DateHold + 20 - Weekday(DateHold)
If Day(DateHold) < 15 Then DateHold = DateHold + 7
Cl.Value = DateHold
Next Cl

thanks