How do I skip a blank cell within macro?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

DJ Dusty - 20 Mar 2006 23:42 GMT

I have the following for...next loop:

-Dim K as Variant
K = 0
For F = 1 To 250
Range("B" & K).Select
ActiveCell.FormulaR1C1 = "=IF(RC[-3]="""",0,IF(RC[1]="""",1,0))"
K = K + 1
Next F-

Basically, if *Range("A" & F)* was blank, I don't want the formula to
be entered in column B. So, something like:

*IF Range("A" & F)="" Then K = K + 1; Next F* ...or something similar.
How do I do it?

I'm fairly new to VBA programming, so bear with me!

(BTW - please don't question the K variant, just go with it. It's part
of a longer routine, but the K variant is relevant for the purpose of
this example).

Thanks.

Signature

DJ Dusty

Reply to this Message

mudraker - 21 Mar 2006 00:04 GMT

IF Range("A" & F)="" then
K = K + 1
else
ActiveCell.FormulaR1C1 = "=IF(RC[-3]="""",0,IF(RC[1]="""",1,0))"
K = K + 1
end i

Reply to this Message

DJ Dusty - 21 Mar 2006 00:13 GMT

Thanks mudraker, that's worked a treat. Great stuff, thanks again

Reply to this Message

Trevor Shuttleworth - 21 Mar 2006 00:17 GMT

Dim K as Variant
K = 0
For F = 1 To 250
If Range("A" & F) <> "" Then
Range("B" & F).FormulaR1C1 = "=IF(RC[-3]="""",0,IF(RC[1]="""",1,0))"
End If
K = K + 1
Next F

> I have the following for...next loop:
>
[quoted text clipped - 19 lines]
>
> Thanks.

Reply to this Message