<div>
You can use the upper formula<br />
=UPPER(A1)
</div>


<div>
fordraiders,<br />
I am not understanding your question.<br />
<br />
The Excel VBA part of the statement looks correct to me, though you don't need the .Range(&quot;A1&quot;) part of it:<br />
ActiveCell.Offset(0, 1).Value = UCase(rs.Fields(2).Value) &nbsp; &nbsp; 'MFRNUM<br />
<br />
And at my favorite supply house, that would be a Miniature Light Bulb #1847, Incandescent, 6.3 Volt, 0.15 Amp<br />
<br />
Brad
</div>


<div>
I tried that :<br />
ActiveCell.Offset(0, 1).Value = UCase(rs.Fields(2).Value) &nbsp; &nbsp; 'MFRNUM<br />
but still posted on ther sheet in lowercase ?<br />
<br />
very funny on the description.
</div>


<div>
<div class="content wysiwyg-content">
excel 2010 vba..<br />
<br />
Putting data on a sheet from code...from an access database.<br />
<br />
<br />
ActiveCell.Offset(0, 1).Range(&quot;A1&quot;).Value = UCase(rs.Fields(2).Value) 'MFRNUM<br />
<br />
If the value in rs.Fields(2).Value is say:<br />
1505k422<br />
<br />
I need to to put on the sheet &nbsp; 1505K422<br />
<br />
if any alpha characters are lowercase...they need to be uppercase.<br />
<br />
Thanks<br />
fordraiders
</div>
</div>


excel 2010 vba..

Putting data on a sheet from code...from an access database.


ActiveCell.Offset(0, 1).Range("A1").Value = UCase(rs.Fields(2).Value) 'MFRNUM

If the value in rs.Fields(2).Value is say:
1505k422

I need to to put on the sheet   1505K422

if any alpha characters are lowercase...they need to be uppercase.

Thanks
fordraiders

You can use the upper formula
=UPPER(A1)

fordraiders,
I am not understanding your question.

The Excel VBA part of the statement looks correct to me, though you don&#39;t need the .Range(&quot;A1&quot;) part of it:
ActiveCell.Offset(0, 1).Value = UCase(rs.Fields(2).Value)     &#39;MFRNUM

And at my favorite supply house, that would be a Miniature Light Bulb #1847, Incandescent, 6.3 Volt, 0.15 Amp

Brad

I tried that :
ActiveCell.Offset(0, 1).Value = UCase(rs.Fields(2).Value)     &#39;MFRNUM
but still posted on ther sheet in lowercase ?

very funny on the description.

uppercase an alpha numeric text

excel 2010 vba..

Putting data on a sheet from code...from an access database.


ActiveCell.Offset(0, 1).Range(&quot;A1&quot;).Value = UCase(rs.Fields(2).Value) &#39;MFRNUM

If the value in rs.Fields(2).Value is say:
1505k422

I need to to put on the sheet   1505K422

if any alpha characters are lowercase...they need to be uppercase.

Thanks
fordraiders

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.