Change text to propper when populating excel from VB form

[heidibbb]

Hello,
Is there a way to specify in the VB code for a form to populate the excel in PROPER text instead of UPPER?

 

[VoG]

Try like this

Range("A1").Value = StrConv(TextBox1.Value, vbProperCase)

 

[heidibbb]

Where you have "A1", would I put the range of cells?

Range("A1:Z1").Value = StrConv(TextBox1.Value, vbProperCase)

 

[VoG]

If you want A1:Z1 to all have the same value, yes. Otherwise you would need to loop through 26 textboxes.

 

[heidibbb]

One more quesiton on this... where would this go in the syntax? Right now I have the following:

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.txtFirst.Value
ws.Cells(iRow, 2).Value = Me.txtLast.Value
ws.Cells(iRow, 3).Value = Me.txtTitle.Value

If Me.cb_FPS3 = True Then
ws.Cells(iRow, 11).Value = "FPS3"
Else: ws.Cells(iRow, 11).Value = ""
End If
If Me.cb_FPS3 = True Then
ws.Cells(iRow, 12).Value = "PAFC"
Else: ws.Cells(iRow, 11).Value = ""
End If
If Me.cb_FPS3 = True Then
ws.Cells(iRow, 13).Value = "NMS"
Else: ws.Cells(iRow, 11).Value = ""
End If

'clear the data
Me.txtFirst.Value = ""
Me.txtLast.Value = ""
Me.txtTitle.Value = ""

 

[heidibbb]

skip that middle section... sorry that is for a different part.

The code would be

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.txtFirst.Value
ws.Cells(iRow, 2).Value = Me.txtLast.Value
ws.Cells(iRow, 3).Value = Me.txtTitle.Value

'clear the data
Me.txtFirst.Value = ""
Me.txtLast.Value = ""
Me.txtTitle.Value = ""

 

[VoG]

Try like this

ws.Cells(iRow, 1).Value = StrConv(Me.txtFirst.Value, vbProperCase)

 

[heidibbb]

THANK YOU!! Works awesome.