use VB code IF to automate filling in 11 columns
 

I used belowed VB code IF to automate fill in 11 columns:

If Cells(p, "D").Value = DateValue("01/01/2005") Then
a = Cells(p, "H").Value
b = Cells(p, "A").Value
............

The first ten work pretty well, but the last one, 11 one fails. Is it the
reason that IF in VB only allows ten variance? Thanks.

use VB code IF to automate filling in 11 columns
 

Use a Select Case statement instead (Psuedo code)

Select Case Cells(p, "D").Value
Case Is = 'Conditions here
'More Case Statements
Case Else
End Select

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
www.nickhodge.co.uk
HIS


"smart.daisy" wrote in message
...
I used belowed VB code IF to automate fill in 11 columns:

If Cells(p, "D").Value = DateValue("01/01/2005") Then
a = Cells(p, "H").Value
b = Cells(p, "A").Value
............

The first ten work pretty well, but the last one, 11 one fails. Is it the
reason that IF in VB only allows ten variance? Thanks.