Convert To Proper UPPER Procedure

Jul 1, 2006

Convert to Proper UPPER Procedure ...

View 9 Replies


ADVERTISEMENT

Force Upper Or Proper Case On Entry

Feb 16, 2007

Below is the existing code that I'm working with and would like to be able to make the ' name' column either Upper or Proper case on entry. I haven't decided which I'm going to use yet.

Set r = Sheet1.Range("A2:C65536")
If Not Intersect(Target, r) Is Nothing Then
sTgt = Trim(Target.Value)
If sTgt = "" Then Exit Sub

Select Case Target.Column
Case NmCol
If InStr(sTgt, ",") = 0 Then
iSpc = InStrRev(sTgt, " ")
Target.Value = Mid(sTgt, iSpc + 1) & ", " & Left(sTgt, iSpc - 1)
End If

View 3 Replies View Related

Formatting Individual Columns To Proper And Upper Case

Mar 13, 2014

I have a worksheet which is populated from a macro using the following code.

Code:

Sheets("Create Sub Contractor").Range("B6:B65").Copy
With Sheets("Sub Contractor Information").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
.PasteSpecial (xlValues), Transpose:=True
End With

The problem is that some of what is being copied needs to be Proper and Some Upper, therefore I cant use a paste special option.

What I'd like to be able to do is format the columns in the destination sheet ("Sub Contractor Information") from row 4 down to what ever format they need to be individually as there are some columns that are numbers, some text and numbers........

View 4 Replies View Related

Change Text To Upper, Lower Or Proper Case On Entry

Sep 6, 2007

I would like to format a row of cells so that when a word is entered into the cell it automatically becomes a capital.

I need the word to be capitalized so that I can use it in a custom function. The function uses the word from this cell and goes through a bunch of cases in determing how to classify the string.

I think more than one solution is possible and I would greatly appreciate some feed back, I've tried looking into turning all the letters of a string in my VBA code to capitals, or a way to format the cells, so that the string is already capitalized when entered into the VBA code, but I'm still a novice at VBA and unsure on how certain commands work.

here is a sample of my vba code.

Function WeightI(Shape As String, sDim As String, dLenFt As Double) As Double
Const pi As Double = 3.14159265358979
Const Ft2In As Double = 12
Const dDen As Double = 0.2835 ' density of steel, pounds per cubic inch

Dim aiStr() As String ' dimensions as strings

View 5 Replies View Related

VBA Convert To Proper Case

Jun 30, 2013

I've had good success with the following line of code

Code:
Sheets("Test").Range("A2") = UCase(Sheets("Test").Range("A1"))

But how do I do the same, converting the to Proper Case?

View 2 Replies View Related

Convert Text To Upper Case

Jul 18, 2014

Is there a way of selecting text and converting it all from lower to upper case?

View 3 Replies View Related

Function To Convert All To Upper Case?

Oct 24, 2012

In cells A1:A45 i have all lower case names...how would i use a function to convert all to upper case

View 6 Replies View Related

Shorten String And Convert To Upper Case?

Mar 7, 2013

I got a list of counties in Texas, but the list is in mixed case and always has a " County" after each one. I got it converting to upper case, and have tried removing the " County" but no luck. Below is the code I have:

Code:
Sub TEXAS()
For a = 1 To 254
R = "D" & a
i = "a" & a
ActiveSheet.Range(R) = UCase(ActiveSheet.Range(i))
Next a
End Sub

View 7 Replies View Related

Convert Range Cell Of Text Into Proper Date

Jun 11, 2014

I would like to know how can I convert a column P and T that contains these type of number into a proper way of date of DDMMMYYYY.

Like, if the cell in the column P has 8 digits then convert

19830425 -> 25APR1983
19910515 -> 15MAY1991

next cell till end of column P. Then do the same to column T.

View 2 Replies View Related

Excel 2010 :: How To Convert Numeric Dates Into Proper Date Format

Aug 21, 2013

I have a column of dates formatted as:

20130201

The cell format in the column is General.

I need to change it so that the format looks like this:

02/01/2013

Is there a quick/easy way to do this in Excel 2010?

View 2 Replies View Related

Convert A Text Date Into A Proper Date

Jan 9, 2009

I have a column of dates in thie format " January 5 03:09:36 2009" which i need to convert into a proper excel date that i can do further calculations on (adding up things, graphs etc based on dates).

Note the space before the month name. I thought about doing a left(cell,xx) to get it but that isnt going to work with the space infront and the variable length of month names.

I do not necessarily need the time included, it may be useful at some point if its easy to keep it as part of the data, if not i can live without it.

View 6 Replies View Related

Only Allow Upper/Lower Case Not All Upper Or All Lower

Oct 8, 2008

Is there a data validation that will not allow all upper case or all lower case characters?

For examples:

Allow:
John Doe
101A N Woodbine Street

Disallow:
JOHN DOE
101A N WOODBINE STREET

Disallow:
john doe
101a n woodbine street

Or perhaps formatting that would convert the words to upper/lower case?

Or, I would be interested in VBA if it is the only way.

View 9 Replies View Related

Proper Protection

May 27, 2008

Is there any way I can protect my sheets properly..? I know you can use Tools > Protection.. but I've found (and used, for good, not evil!) macros on the web that will crack these in seconds. Is there any way I can disable the 'Tools' menu so that other users can't load these password crackers?

View 9 Replies View Related

Proper Filtering

Jun 4, 2009

Is there a way to filter my data with the combobox and have the listbox reference the filtered data directly?

I am populating a listbox from a rowsource, housed in a sheet in my workbook, the sheet in my workbook is populated from another sheet that is filtered by a combobox selection and pasted to the sheet with the rowsource range.

My listbox is a multiselect with 5 colums and columnheads, named ListBox42

The sheet with the data to be filtered is named Building Material

Building Material is filtered in column “M” with a color

With ComboBox24 selected name: Names “M1” which activates the color down the column for filtering.

The ComboBox24
Private Sub ComboBox24_Change()

Worksheets("BuildingMaterial").Range("M1").Value = ComboBox24.Value
Sheets("BuildingMaterial").Select
ActiveSheet.Range("$M$1:$M$4247").AutoFilter Field:=1, Criteria1:=RGB(0, _
176, 240), Operator:=xlFilterCellColor
Sheets("matfilter").Cells.ClearContents
Sheets("BuildingMaterial").Select
Range("B1:F4249").Copy
Sheets("matfilter").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("BuildingMaterial").Select
ActiveSheet.Range("$M$1:$M$4247").AutoFilter Field:=1
Application.CutCopyMode = False
Sheets("matfilter").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Tom").Select

End Sub

My RowSource is a defined name “=matfilter!$A$2:$E$4230 “

View 9 Replies View Related

Proper Conversion To Numbers?

Jun 24, 2014

So I record a macro but it see only following bit

Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select

I want this selection to be converted to numbers but in proper way (There is a green thing in corner in every cell and on top of column a yellow field with exclamation mark. When whole column is selected and you apply appropirate convert function from this exclamation mark menu it will convert it properly.

While if you just click on excel tab and choose numbers it just does not change it to numbers

View 2 Replies View Related

Proper Case In A Macro

Feb 21, 2007

I have just recently found that I can do case correction with Excel but I am manually having to do it how can I add it to my macro? The function for doing it does not seem straight forward to me on putting in macro I am sure it is simple but just missing some element of it.

I need to have Proper case for columns C, G and H from rows 11 and down.

View 9 Replies View Related

Use Proper Case Only For Input Box

May 30, 2007

how can i change the text put into an input box into proper case regardless of what my user puts in?

View 9 Replies View Related

Change To Proper Case In VBA

Aug 10, 2009

I found this bit of Worksheet_Change code to change the target area to UpperCase. This works fine.

If Not Intersect(Target, Columns(2)) Is Nothing Then
Set rng1 = Intersect(Target, Columns(2))
Set rng2 = Intersect(ActiveSheet.UsedRange, rng1)
For Each cell In rng2
If cell.Formula "" Then
cell.Formula = Format(cell.Formula, ">")
End If
Next cell
End If
I could not find anything telling me what the ">" means. I'm assuming that it is a special symbol/wildcard for UCase in VBA.

My question(s), is there a symbol for ProperCase so I can use the same code, just making it change the Target column to Proper? Also is there a list of the special symbols.

View 9 Replies View Related

Proper Case Exemptions

Jun 3, 2006

When I asked this question before, I was looking for a way to automate the exemptions on a UserForm. At that time I realized that automation was not a good choice and went with a CommandButton to turn off the Proper case for that entry. I am now trying to do the same thing on a Worksheet change event using this

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column < 1 Or Target.Column > 9 Then Exit Sub
On Error Goto Errhndl
Application.EnableEvents = False
If Target.Column = 1 Then Target.Value = Application.Proper(Target.Value)
If Target.Column = 2 Then Target.Value = Application.Proper(Target.Value)
If Target.Column = 3 Then Target.Value = UCase(Target.Value)
If Target.Column = 4 And Target.Value > "" Then Target.Value = UCase(Left(Target.Value, 2)) & "-" & Right(Target.Value, 2)
If Target.Column = 8 Then Target.Value = UCase(Target.Value)
If Target.Column = 9 Then Target.Value = UCase(Target.Value)
Application.EnableEvents = True
Exit Sub
Errhndl:
Application.EnableEvents = True
End Sub

My problem is with Target.Column = 1. I need a way to disable the proper case for a single row. I tried to use an additional column (J) and place a x in that row, but I could not figure out how to detect if there was anything in that column for the target row.

View 7 Replies View Related

Removing Wording To Get Proper Average?

Jan 16, 2014

I've become stuck on a audit template I'm trying to develop and have spent a few hours to date trying to work it out by looking at forums and videos but with no joy. I've attached a sample template of my work to date

how I can remove a word value within a file so I can get an accurate average - so if the question has a N/A value, I want to remove it so that it doesn't pop up into the final equation when averaging. what the formula for this is? As you can see, both N/A and No give the same answer and have a '0' value when it comes to the summation. What I want is for the NA to not be accounted for and removed when it comes to average the Yes or No only fields.

The second issue is to do with the over all percentage compliance column and is similar to the above. I want this to track the overall percentage but from what I've done to date it works accounting for the NA still and I want this to be also not accounted for.

View 4 Replies View Related

Proper Syntax To Modify COUNTIF With A SUM?

Jul 28, 2013

[Code] ....

U17 = 17

Sum($T$17:$T33) = 33

Result that I am seeking,

[Code] ....

View 5 Replies View Related

Extract Proper Case Words

Aug 17, 2014

I have been using following code to extract all upper case words in a string but the problem is I can not extract words which are proper. For example

This is GOOD

Present output: GOOD
Desired Output: This GOOD

[Code] ....

What can be suitable modification in this case?

View 8 Replies View Related

Converting Worksheet To Proper-Case

Sep 9, 2009

I have an Excel 2003 worksheet with all the data in it in Upper-case.

I found this VBA code which works if you change a cell.

View 6 Replies View Related

Emailing: Proper Copy Of Spreadsheet

Jan 6, 2010

This is a followup to a post I had marked as solved, and it's really not. Below are two different Email routines I've tried, both based on macros by Ron DeBruin, neither of which fully satisfy my need.

One routine creates a copy of a spreadsheet and mails it. The problem with that is that my source spreadsheet has cells containing 255 characters or more, and Excel truncates the cells after 255 characters, so all of the data isn't going into the new spreadsheet.

The other creates a new spreadsheet, copies the data from my old spreadsheet, and pastes it into the new spreadsheet. Problem with that is the new spreadsheet doesn't have my footer or headers and isn't formatted to print correctly.

I need to either find a way to get past the 255 problem, or find a way to copy a properly set up spreadsheet and paste my data into it. My code is below: This one copies the spreadsheet and mails it

View 2 Replies View Related

Proper Formula For Conditional Formatting?

Jun 26, 2014

I have two columns:
Column "D" is a date field
Column "E" is a number field

I would like to Conditional Format the Dates in Column "D" to have a color fill:

If the value in column "E" is >99 and the Date in Column "D" is over 42 days before TODAY

=AND($E$3>99, $D$3

For some reason the end of teh formula will not display:

View 3 Replies View Related

Proper Case Mac, Mc Names In TextBox

Dec 10, 2008

I have a number of textboxes into which I enter the surname of individuals ... at present the textboxes are set to store all names in Uppercase. Is there coding to return names beginning Mc... or Mac... ie McClOUD or MacDONALD, in the more recognized format. I am sure this has been included in the forum but could not find it in a search of the site.

View 4 Replies View Related

Proper Syntax For Activecell Address

Jul 8, 2006

I want my users to be able to double click on a cell and based upon that cells address or range I want another sheet to be activated. Im currently trying to do something like this

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True

If ActiveCell.Address = ("a10") Then Sheet2.Activate

End Sub

It does not matter to me what specific thing about the currently selected cell is used in the if then statement, but it cannot be the cells value as several cells have the same values. Am I on the right track and just bad syntax or am I way off base here?

View 2 Replies View Related

Proper Case On All Sheets Except Sheet1

Sep 19, 2006

Is it possible to modify this code to exclude the first sheet in the workbook which is called Costs?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
''''''''''''''''''''''''''''''''''''''''''''
'Forces text to Proper case for the range A14:A39
''''''''''''''''''''''''''''''''''''''''''''
If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub

On Error Resume Next
If Not Intersect(Target, Range("A14:A39")) Is Nothing Then
Application.EnableEvents = False
Target = StrConv(Target, vbProperCase)
Application.EnableEvents = True
End If
On Error Goto 0

End Sub
''''''''''''''''''''''''''''''''''''''''''''
'Forces text to Proper case for the range A14:A39

''''''''''''''''''''''''''''''''''''''''''''

View 3 Replies View Related

Proper Variable Decleration For Textbox Value

Oct 6, 2006

Can a variable declared as an integer not be assigned to a textbox value?

If not what is the proper way to declare it.

Dim J As Integer
Dim K As Integer
Dim L As Integer
J = TextBox1.Value
K = TextBox2.Value
L=J+K

View 4 Replies View Related

Refine Proper Case Macro

Jan 25, 2007

I am using this macro to ensure that a range of cells appear in Proper Case. However I am encountering a drawback, sometimes I have text which I want in Upper Case but which is changed into Proper Case. I was wondering if there was a way to work around this. Example: Practical W/W appears as W/w or Woodturing (GMC) appears as Woodtrunign(gmc)

Private Sub Worksheet_Change(ByVal Target As Range)
''''''''''''''''''''''''''''''''''''''''''''
'Forces text to Proper case for the range A15:A40
''''''''''''''''''''''''''''''''''''''''''''
If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub

On Error Resume Next
If Not Intersect(Target, Range("A15:A40")) Is Nothing Then
Application.EnableEvents = False
Target = StrConv(Target, vbProperCase)
Application.EnableEvents = True
End If
On Error Goto 0
End Sub

View 2 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved