Página 1 de 1

Problemas de informação

Enviado: 03 Jul 2017 às 20:38
por Junioralex
Pessoal boa noite

Tenho uma planilha com cadastro de produção

Com isso tenho as colunas por exemplo Maquina,data, produzido

Tenho 5 textbox para cada campo pois pode acontecer de produzir ate 5 itens no dia

No botão cadastrar a qual pega essas 3 informações Maquina,data, produzido da useform e joga na base de dados com os mesmo nomes.

Porem se eu produzir 1 item apenas e apertar cadastrar ele leva para base de dados a data dos outros 4 itens tambem , como faço para ele reconhecer que quando a textbox tiver em branco ele não precisa executar a função de levar os dados para base de dados.

Aguardo

Obrigado!

Re: Problemas de informação

Enviado: 04 Jul 2017 às 09:31
por alexandrevba
Bom dia!!

Visto que não sabemos com detalhes o que realmente pretende, que NÃO temos seu arquivo modelo e NÃO temos o código e que temos que advinha com detalhes o que realmente precisa, eu creio que você não terá problemas em adaptar.
Código: Selecionar todos
Private Sub btnSave_Click()

Dim ws As Worksheet
Dim irow As Integer
Dim icont As Integer

Set ws = Worksheets("Plan1")
irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

For icont = 1 To 5
    If Controls("txtProd" & icont).Value <> "" Then
        ws.Cells(irow, 1).Value = Me.Controls("txtProd" & icont).Value
    End If
Next icont

End Sub

Att