If statement in macro

[punter]

Hi,

I'm trying to get the formula below to run in my macro. This is a report I'll be running on a weekly basis and the number of blanks in column I will change every week. I'm trying to get the macro to apply the formula at the first blank but I'm having some issues. I've been kicking around the Dim LastRow as long but I keep getting various error messages. In a nutshell what I'm looking for is the macro to read the first blank in column I, then if AE = 7 or 11I want it to poplulate column I with FedEx Weeky Charge.


=IF(AND(OR(AE2=7,AE2=11),I2=""), "FedEx Weekly Charge", "")

Thanks for all your help.

Eddie

[punter]

Bump.

Thanks

[Dave Peterson]

I'm not sure I understand...

But maybe...

Option Explicit
Sub testme()
Dim NextRow As Long

With ActiveSheet
NextRow = .Cells(.Rows.Count, "I").End(xlUp).Row + 1
with .cells(NextRow, "I")
.Formula _
= "=IF(AND(OR(AE2=7,AE2=11),I2=""""),""FedEx Weekly
Charge"","""")"
'.value = .value '????
End With
End Sub


punter wrote:
>
> Hi,
>
> I'm trying to get the formula below to run in my macro. This is a
> report I'll be running on a weekly basis and the number of blanks in
> column I will change every week. I'm trying to get the macro to apply
> the formula at the first blank but I'm having some issues. I've been
> kicking around the Dim LastRow as long but I keep getting various error
> messages. In a nutshell what I'm looking for is the macro to read the
> first blank in column I, then if AE = 7 or 11I want it to poplulate
> column I with FedEx Weeky Charge.
>
> =IF(AND(OR(AE2=7,AE2=11),I2=""), "FedEx Weekly Charge", "")
>
> Thanks for all your help.
>
> Eddie
>
> --
> punter
>
> ------------------------------------------------------------------------
> punter's Profile: http://www.excelforum.com/member.php...fo&userid=2044
> View this thread: http://www.excelforum.com/showthread...hreadid=553220

--

Dave Peterson

[punter]

Thanks Dave. I found a work around but your way seems to be much cleaner and most likely quicker. I'm going to test it in a little bit.

Thanks

Eddie