O código ficou assim, gostaria de saber se está certo:
Private Sub cmdSalvar_Click()
If Not IsDate(txtData) Then
MsgBox "Digite uma data válida"
Exit Sub
End If
If lblTipoform = "Inclusão" Then
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
End If
Range("A" & Selection.Row) = txtAtivo
Range("B" & Selection.Row) = CDbl(txtQtd)
Range("C" & Selection.Row) = cmbTipo
Range("D" & Selection.Row) = CCur(txtPreco)
Range("E" & Selection.Row) = txtCliente
Range("F" & Selection.Row) = txtContato
Range("G" & Selection.Row) = txtData
Range("H" & Selection.Row) = txtHora
Dim ws As Worksheet
Dim nome As String
Dim sobrenome As String
' Defina a planilha onde os dados serão inseridos
Set ws = ThisWorkbook.Sheets("Planilha1") ' Substitua "Planilha1" pelo nome da sua planilha
' Verifique se todos os campos estão preenchidos
If Trim(Me.TextBox1.Value) = "" Or Trim(Me.TextBox2.Value) = "" Then
MsgBox "Por favor, preencha todos os campos!", vbExclamation
Exit Sub
End If
' Preencha as variáveis com os valores dos campos do formulário
nome = Me.TextBox1.Value
sobrenome = Me.TextBox2.Value
' Inserir os dados na planilha
With ws
.Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0).Value = nome
.Cells(.Rows.Count, "B").End(xlUp).Offset(1, 0).Value = sobrenome
End With
' Limpar os campos do formulário após a inserção
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
MsgBox "Dados inseridos com sucesso!", vbInformation
cmdSair_Click
End Sub
Private Sub ComboBox1_Change()
End Sub
Private Sub txtPreco_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'Verifica as teclas de 1 a 9 no teclado alfanumérico
If KeyCode >= vbKey0 And KeyCode <= vbKey9 Then
'Verifica as teclas de 1 a 9 no teclado numérico
ElseIf KeyCode >= vbKeyNumpad0 And KeyCode <= vbKeyNumpad9 Then
'Deixa pronto o tratamento para a vírgula "," e libera seu uso
ElseIf KeyCode = 188 Then
'Deixa pronto o tratamento para a tecla "delete" e libera seu uso
ElseIf KeyCode = vbKeyDelete Then
'Deixa pronto o tratamento para a tecla "backspace" e libera seu uso
ElseIf KeyCode = vbKeyBack Then
'Se nenhuma das alternartivas forem verdadeiras
Else
KeyCode = vbKeyCancel
End If
End Sub
Private Sub txtQtd_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'Verifica as teclas de 1 a 9 no teclado alfanumérico
If KeyCode >= vbKey0 And KeyCode <= vbKey9 Then
'Verifica as teclas de 1 a 9 no teclado numérico
ElseIf KeyCode >= vbKeyNumpad0 And KeyCode <= vbKeyNumpad9 Then
'Deixa pronto o tratamento para a tecla "delete" e libera seu uso
ElseIf KeyCode = vbKeyDelete Then
'Deixa pronto o tratamento para a tecla "backspace" e libera seu uso
ElseIf KeyCode = vbKeyBack Then
'Caso não seja nenhum dos casos acima, cancela a digitação
Else
KeyCode = vbKeyCancel
End If
End Sub