<div>
If ucase(Range(&quot;E&quot; &amp;&nbsp;x)) = &quot;TX&quot; Then<br />

</div>


<div>
For x = 25 To usedrange.rows.count<br />

</div>


<div>
This worked &nbsp; If ucase(Range(&quot;E&quot; &amp;&nbsp;x)) = &quot;TX&quot; Then<br />
<br />
Thank you <br />
<br />
But this gives me a Runtime error of 424 - object required.<br />
<br />
For x = 25 To usedrange.rows.count<br />
<br />
<br />

</div>


This worked   If ucase(Range("E" & x)) = "TX" Then

Thank you

But this gives me a Runtime error of 424 - object required.

For x = 25 To usedrange.rows.count




<div>
<div class="content wysiwyg-content">
This is Excel VBA<br />
1)I have this line, how do you compare both case, Example &quot;tx&quot; and &quot;TX&quot;<br />
If Range(&quot;E&quot; &amp;&nbsp;x) = &quot;tx&quot; Then<br />
<br />
I had this but I get an error of &quot;Type Mismatch&quot;<br />
If Range(&quot;E&quot; &amp;&nbsp;x) = &quot;tx&quot; Or &quot;TX&quot; Then<br />
<br />
And <br />
2)For x = 25 To 2000<br />
Is there a way to say row 25 - last row in &quot;D&quot;, that has data<br />
<br />
Any help would greatly be appreciated!!<br />
<br />
<br />
This is the piece of code I am working on. <br />
//////////////////////////<wbr />////////<br />
<br />
For x = 25 To 2000<br />
If Range(&quot;E&quot; &amp;&nbsp;x) = &quot;tx&quot; Then<br />
If Range(&quot;P&quot; &amp;&nbsp;x) = &quot;YES&quot; Then<br />
Sheets(&quot;Data Input Sheet&quot;).Range(&quot;D&quot; &amp;&nbsp;x).Select<br />
&nbsp; Selection.Borders(xlInside<wbr />Horizontal<wbr />).LineStyl<wbr />e = xlNone<br />
&nbsp; &nbsp; &nbsp;With Selection.Interior<br />
&nbsp; &nbsp; &nbsp; &nbsp; .ColorIndex = 3<br />
&nbsp; &nbsp; &nbsp; &nbsp; .Pattern = xlSolid<br />
&nbsp; &nbsp; &nbsp; &nbsp; .PatternColorIndex = xlAutomatic<br />
&nbsp; &nbsp;End With<br />
Else<br />
End If<br />
End If<br />
Next<br />

</div>
</div>


This is Excel VBA
1)I have this line, how do you compare both case, Example "tx" and "TX"
If Range("E" & x) = "tx" Then

I had this but I get an error of "Type Mismatch"
If Range("E" & x) = "tx" Or "TX" Then

And 
2)For x = 25 To 2000
Is there a way to say row 25 - last row in "D", that has data

Any help would greatly be appreciated!!


This is the piece of code I am working on. 
//////////////////////////////////

For x = 25 To 2000
If Range("E" & x) = "tx" Then
If Range("P" & x) = "YES" Then
Sheets("Data Input Sheet").Range("D" & x).Select
  Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
     With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
   End With
Else
End If
End If
Next


Excel VBA

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.