Bom dia!!
Um dos problemas é o nome do botão deveria ser
Private Sub btnSAÍDAS_Click()
e não
Private Sub btnSAIDAS_Click()
Quanto aos outros erros seria melhor mudar tudo para...
Private Sub btnSAÍDAS_Click()
Dim TextSAIDAS As Double
X = F.Cells(Rows.Count, "k").End(xlUp).Row + 1
F.Cells(X, "k").Value = Me.cboCATEGORIA.Text
F.Cells(X, "l").Value = Me.cboCÓD.Text
F.Cells(X, "m").Value = Me.cboDESCRIÇÃO.Text
F.Cells(X, "n").Value = Me.cboLOCAL.Text
F.Cells(X, "p").Value = CDbl(Me.TextSAIDAS.Value)
cboCATEGORIA.Text = ""
cboCÓD.Text = ""
cboDESCRIÇÃO.Text = ""
cboLOCAL.Text = ""
Me.TextSAIDAS.Value = ""
F.Cells(11, "P").Value = tsoma
End Sub
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 28/01/2015 7:11 am