Ir ao conteúdo
  • Cadastre-se
Valdinei_ATS_Info

Excel Cadastrar Nota com loop

Recommended Posts

Olá pessoal. Sou novo no fórum, mas sempre que encontro algo no canal, consigo as informações que preciso.

O sistema da minha loja é todo por excel e com varios userforms que em determinado botão jogam os dados das textbox para a planilha determinada. Até ai beleza.

Mas um userform "Cadastrar nota fiscal", tem informações de:  numero NF, data, fornecedor, produto, qtde, valor unitario, valor total e valor total da NF.

Só que são 12 linhas de itens, e quero aumentar para uns 2 . E o código fica muito extenso:

 

Dim UL1, UL2, UL3, UL4, UL5, UL6, UL7, UL8, UL9, UL10, UL11, UL12 As Long 'UL = ultimalinha preenchida
Dim data As Date
data = txtData
UL1 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 1
UL2 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 2
UL3 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 3
UL4 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 4
UL5 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 5
UL6 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 6
UL7 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 7
UL8 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 8
UL9 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 9
UL10 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 10
UL11 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 11
UL12 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 12


If txtQtde1 <> "" Then
Cells(UL1, 1).Value = txtFornecedor
Cells(UL1, 2).Value = CDbl(txtNF)
Cells(UL1, 3).Value = data
Cells(UL1, 4).Value = txtProduto1
Cells(UL1, 5).Value = txtQtde1
Cells(UL1, 6).Value = "ENTRADA"
Cells(UL1, 7).Value = CDbl(txtValorUnit1)
Cells(UL1, 8).Value = CDbl(txtValorTotal1)

If txtQtde2 <> "" Then
Cells(UL2, 1).Value = txtFornecedor
Cells(UL2, 2).Value = CDbl(txtNF)
Cells(UL2, 3).Value = data
Cells(UL2, 4).Value = txtProduto2
Cells(UL2, 5).Value = txtQtde2
Cells(UL2, 6).Value = "ENTRADA"
Cells(UL2, 7).Value = CDbl(txtValorUnit2)
Cells(UL2, 8).Value = CDbl(txtValorTotal2)


 

e vou acrescentando mais um código até chegar no 12

 

queria fazer uma programação por loop mas não acho nada na net de acordo com minha necessidade.

 

tentei assim mas não funciona:

dim UL1 as long

UL1 = Worksheets("Entrada e Saida").Cells(Worksheets("Entrada e Saida").Rows.Count, 4).End(xlUp).Row + 1

for i = 1 to 12

If txtQtde & i  <> "" Then
Cells(UL1, 1).Value = txtFornecedor
Cells(UL1, 2).Value = CDbl(txtNF)
Cells(UL1, 3).Value = data
Cells(UL1, 4).Value = txtProduto & i
Cells(UL1, 5).Value = txtQtde1
Cells(UL1, 6).Value = "ENTRADA"
Cells(UL1, 7).Value = CDbl(txtValorUnit & i)
Cells(UL1, 8).Value = CDbl(txtValorTotal & i)

end if

next i

 

Desculpe se foi longo o post mas imagina meu codigo aqui. E agora to querendo adicionar frete, valor unitario com frete e valor total com frete para cada item. dai da muito trabalho a cada novo item a adicionar..

 

escolha os arquivos... Cique para escolher arquivos

image.png

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites
Em 12/01/2019 às 08:56, Valdinei_ATS_Info disse:

Só que são 12 linhas de itens, e quero aumentar para uns 2 . :confused:
 

 

Sugestão: disponibilize uma amostra do seu arquivo Excel (imagens não servem) com os Forms e os códigos instalados.

Informe também qual o seu objetivo ao disponibilizar o print abaixo.

A propósito, print idêntico foi postado por outro usuário também (link abaixo) ... :P

Em 12/01/2019 às 08:56, Valdinei_ATS_Info disse:

image.png

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×