Página 1 de 1

Não salvar TextBox vazios

Enviado: 22 Mai 2016 às 13:04
por RobertoMediato
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


Re: Não salvar TextBox vazios

Enviado: 22 Mai 2016 às 13:37
por gfranco
Boa tarde RobertoMediato. Vc quer que o código verifique todos os 3 campos de entrada de dados e aborte a gravação caso qualquer um deles esteja em branco, é isso? Se for creio que um "or" resolverá o problema.... ficaria assim:

If Txtdescricao = Empty or txtnome = Empty or combobox1 = 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