Estou com uma planilha que eu mesmo elaborei e que eu digito em um campo o valor e ele é salvo em uma planilha do excel. Porem quando fecho o useform o valor que é em moeda no textbox, transforma o valor em texto, e para utilizar a função somase tenho que ir na célula e apertar o f2 para a minha função funcionar.
Segue arquivo em anexo.
Bom dia!!
Private Sub UserForm_Initialize()
Textbox1Text = Format(Range("I8"), "$#,##0.00")
End Sub
Private Sub TextBox1_LostFocus()
With Me.TextBox1
If Not IsNumeric(.Value) Then
MsgBox "Somente numeros"
.Value = vbNullString
Else
.Text = Format(.Value, "$#,##0.00")
End If
End With
End Sub
Tente usar nossa base de dados.
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Por default um textbox "fornece" valores como string (texto), portanto é necessario converte-lo ao vlor deseja para salvar na planilha, pode experimentar assim:
ThisWorkbook.Worksheets("lançamentos").Cells(intLinha, 7) = CDbl(txtvalor)
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel