ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   If statement in macro (https://www.excelbanter.com/excel-discussion-misc-queries/94717-if-statement-macro.html)

punter

If statement in macro
 

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


punter

If statement in macro
 

Bump.

Thanks


--
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

If statement in macro
 
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

If statement in macro
 

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


--
punter


------------------------------------------------------------------------
punter's Profile: http://www.excelforum.com/member.php...fo&userid=2044
View this thread: http://www.excelforum.com/showthread...hreadid=553220



All times are GMT +1. The time now is 05:14 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com