Help with Macro

[richzip]

I have a worksheet set up, along with a macro. It changes the value of
column G, but only if column T does not contain the letter "N". If column T
DOES contain the letter "N", then column G is unchanged

The code below only works if the letter N is uppercase. I want to change to
code to look for both uppercase and lower case "N".

If .Cells(X, "G").Value > 0 And .Cells(X, "G").Value < 0.1458333 And
..Cells(X, "T") <> "N" Then .Cells(X, "G").Value = "3:30"

 

[imageswords.br]

Hi,
change this ...Cells(X, "T") <> "N".... to ...UCase(.Cells(X, "T")) <>
"N" ...
this will convert .Cells(X, "T") 's value to upper case before
conducting the test <> "N". So it will always be comparing an upper
case value to the (upper case) "N".
The complimentary function is LCase() which converts a string to its
lower case version.
Hope this helps.
Regards
Bernie

 

[JLGWhiz]

If .Cells(X, "G").Value > 0 And .Cells(X, "G").Value < 0.1458333 _
And UCase(.Cells(X, "T")) <> "N" Then .Cells(X, "G").Value = "3:30"

 

[imageswords.br]

Or you could use a worksheet function like this...
=IF(AND(G3> 0, G3 < 0.1458333,UPPER(T3<>"N")),"3:30","whatever ")

 

[Dave Peterson]

Another option is to tell excel that you want every text comparison in this
module to be non-case sensitive.

Add this at the top of your code:

Option Compare Text

ps.
I would use:

If .Cells(X, "G").Value > 0 _
And .Cells(X, "G").Value < 0.1458333 _
And .Cells(X, "T") <> "N" Then
with .Cells(X, "G")
.numberformat = "hh:mm:ss"
.Value = timeserial(3,30,0)
end with
end if

I think it removes any ambiguity (03:30:00 or 00:03:30 for the next person who
reads your code).