- 22 Mai 2016 às 13:04
#10870
Olá pessoal, tenho a uma userform com 3 campos de entrada de dados que são: txtdescricao, txtnome e combobox1.
Para não graver campos em "barnco" criei a o código abaixo, porém criei apenas para uma entrada de dados que é a TxtDescricao. Quero criar o mesmo código para os três campos de entrada de dados, mas não estou conseguindo. Segue os codes abaixo.
Private Sub cmdsalvar_Click()
Dim lin As Integer
'valor inicial da variavel lin
lin = 2
Do Until ThisWorkbook.Sheets("sheet1").Cells(lin, 1).Value = Empty
lin = lin + 1
Loop
If Txtdescricao = Empty Then
MsgBox ("Campos em Branco!")
Else
ThisWorkbook.Sheets("sheet1").Cells(lin, 1).Value = Txtdescricao
ThisWorkbook.Sheets("sheet1").Cells(lin, 2).Value = Txtnome
ThisWorkbook.Sheets("sheet1").Cells(lin, 3).Value = Date
ThisWorkbook.Sheets("sheet1").Cells(lin, 4).Value = ComboBox1
End If
End Sub
Para não graver campos em "barnco" criei a o código abaixo, porém criei apenas para uma entrada de dados que é a TxtDescricao. Quero criar o mesmo código para os três campos de entrada de dados, mas não estou conseguindo. Segue os codes abaixo.
Private Sub cmdsalvar_Click()
Dim lin As Integer
'valor inicial da variavel lin
lin = 2
Do Until ThisWorkbook.Sheets("sheet1").Cells(lin, 1).Value = Empty
lin = lin + 1
Loop
If Txtdescricao = Empty Then
MsgBox ("Campos em Branco!")
Else
ThisWorkbook.Sheets("sheet1").Cells(lin, 1).Value = Txtdescricao
ThisWorkbook.Sheets("sheet1").Cells(lin, 2).Value = Txtnome
ThisWorkbook.Sheets("sheet1").Cells(lin, 3).Value = Date
ThisWorkbook.Sheets("sheet1").Cells(lin, 4).Value = ComboBox1
End If
End Sub