Fóruns
Microsoft Excel - 2...
Formulários
Adicionar linhas só...
 
Notifications
Clear all

Adicionar linhas só se campo estiver preenchido

 
Formulários
Post Recente por alexsandro 11 anos atrás
3 Posts
2 Usuários
0 Reactions
1,058 Visualizações
RSS
 alexsandro
(@alexsandro)
Posts: 15
Eminent Member
Topic starter
 

Boa tarde,

tebho usado varias respostas dadas a outros topicos, mas essa apesar de acreditar ser simples não achei

na rotina abaixopreciso que a segunda linha só sejá preenchida (3 primeiras colunas) caso haja dados nos textebox ou combo box referentes.

Private Sub CommandButton_salvar_fechar_Click()
Dim UltimaLinha As Long
UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
If UltimaLinha < 1 Then UltimaLinha = 1
Application.DisplayAlerts = False
Sheets("Plan1").Range("A" & UltimaLinha).Value = ComboBox_und_dest.Text
Sheets("Plan1").Range("B" & UltimaLinha).Value = TextBox_rma.Text
Sheets("plan1").Range("C" & UltimaLinha).Value = Format(TextBox_data.Text, "mm/dd/yyyy")
Sheets("Plan1").Range("D" & UltimaLinha).Value = TextBox_cod1.Text
Sheets("Plan1").Range("E" & UltimaLinha).Value = ComboBox_mat1.Text
Sheets("Plan1").Range("f" & UltimaLinha).Value = TextBox_qp1.Text
Sheets("Plan1").Range("G" & UltimaLinha).Value = TextBox_qe1.Text
Sheets("Plan1").Range("A" & UltimaLinha + 1).Value = ComboBox_und_dest.Text
Sheets("Plan1").Range("B" & UltimaLinha + 1).Value = TextBox_rma.Text
Sheets("Plan1").Range("C" & UltimaLinha + 1).Value = Format(TextBox_data.Text, "mm/dd/yyyy")
Sheets("Plan1").Range("D" & UltimaLinha + 1).Value = TextBox_cod2.Text
Sheets("Plan1").Range("E" & UltimaLinha + 1).Value = ComboBox_mat2.Text
Sheets("Plan1").Range("f" & UltimaLinha + 1).Value = TextBox_qp2.Text
Sheets("Plan1").Range("G" & UltimaLinha + 1).Value = TextBox_qe2.Text

MsgBox "Dados salvos com Sucesso!", vbDefaultconfirm, "SALVAR"
TextBox_data.Text = "dd/mm/aa"
TextBox_cod1.Text = "": TextBox_cod2.Text = "":
ComboBox_mat1.Text = "": ComboBox_mat2.Text = "":
TextBox_qe1.Text = "": TextBox_qe2.Text = ""
Application.DisplayAlerts = True
ComboBox_mat2.SetFocus:

cxsaida.Hide

End Sub

Segue planilha em anexo

SAIDA DE MATERIAL.rar
SAIDA DE MATERIAL.rar
 
Postado : 29/05/2013 1:38 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Ficou um pouco confuso, mas se quer ignorar uma instrução se algum textbox não estiver preenchido, é só adicionar a condição "IF", um exemplo:

Para a linha:
Sheets("plan1").Range("C" & UltimaLinha).Value = Format(TextBox_data.Text, "mm/dd/yyyy")

A mesma ficaria assim, se o TextBox_data estiver vazio, será ignorado a instrução de enviar o valor para a planilha.

If TextBox_rma.Text <> "" Then

    Sheets("plan1").Range("C" & UltimaLinha).Value = Format(TextBox_data.Text, "mm/dd/yyyy")

End If

Espero que ajude.

[]s

 
Postado : 29/05/2013 4:34 pm
 alexsandro
(@alexsandro)
Posts: 15
Eminent Member
Topic starter
 

Vlw Mauro,

fiz alguns ajustes, mas era exatamente a minha duvida vlw mesmo...

 
Postado : 03/06/2013 7:44 am
Forum Jump:
  Tópico Anterior
Próximo Tópico