ipbr21054
Well-known Member
- Joined
- Nov 16, 2010
- Messages
- 5,199
- Office Version
- 2007
- Platform
- Windows
Code in use shown below
When i complete the values in the userform & send to worksheet i see a character appear in the top left corner of the cell i ncolumn F "screen shot supplied"
On the userform the value in TextBox6 is sent to the cell in column B
Column B is formatted as CURRENCY
If i just type over what is there then the character is removed.
Can you advise please what i need to do so the value from the userform i placed into the cell with this character.
Thanks
Useform TextBox6 code
When i complete the values in the userform & send to worksheet i see a character appear in the top left corner of the cell i ncolumn F "screen shot supplied"
On the userform the value in TextBox6 is sent to the cell in column B
Column B is formatted as CURRENCY
If i just type over what is there then the character is removed.
Can you advise please what i need to do so the value from the userform i placed into the cell with this character.
Thanks
Rich (BB code):
Private Sub CommandButton1_Click()
Dim i As Integer
Dim ControlsArr As Variant, ctrl As Variant
Dim x As Long
Dim z As Integer
z = CInt(Application.InputBox("WHICH ROW SHOULD DATA BE INSERTED INTO ?", "NEW CUSTOMER ROW NUMBER MESSAGE", Type:=1))
For i = 1 To 10
With Me.Controls("TextBox" & i)
If .Text = "" Then
MsgBox "ALL FIELDS MUST BE COMPLETED", 48, "GRASS NEW CUSTOMER FORM"
.SetFocus
Exit Sub
End If
End With
Next i
ControlsArr = Array(Me.TextBox1, Me.TextBox2, Me.TextBox3, Me.TextBox4, Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox8, Me.TextBox9, Me.TextBox10)
With ThisWorkbook.Worksheets("GRASS")
.Rows(z).EntireRow.Insert Shift:=xlDown
For i = 0 To UBound(ControlsArr)
Select Case i
Case -1
.Cells(z, i + 1) = Val(ControlsArr(i))
ControlsArr(i).Text = ""
Case Else
.Cells(z, i + 1) = ControlsArr(i)
ControlsArr(i).Text = ""
End Select
Next i
End With
ActiveWorkbook.Save
MsgBox "DATABASE HAS NOW BEEN UPDATED", vbInformation, "SUCCESSFUL MESSAGE"
Unload GRASSNEWCUSTOMER
End Sub
Useform TextBox6 code
Rich (BB code):
Private Sub TextBox6_AfterUpdate()
TextBox6.Value = Format(TextBox6.Value, "£#,##0.00")
End Sub