Ir ao conteúdo

Excel - Botão "Salvar" e "Excluir" e "Combobox" na Planilha


ricardobluiz

Posts recomendados

Postado

Olá, desculpem se já existe tópico para isto, procurei bastante e não achei o que eu queria...

Bom, estou fazendo um sistema simples de registro de vendas, compras de produtos, clientes, produtos... Mas não estou consguindo fazer as funções dos botões "Salvar", "Excluir" e os Combobox (listas de clientes e produtos).

Eu só queria que salvasse os dados das TextBox selecionadas em outra planilha em suas determinadas células... e q clientes e produtos cadastrado aparecessem em um combobox!

De preferência, queria sem o macro, com os botões ActiveX, mas se não der, não da nada, da pra deixar com macro mesmo!

http://www.sendspace.com/file/2xlsby

Postado

Bom dia!!!

Ai vai um exemplo...faça uma adaptação....

Private Sub Salvar_Click()

Dim iRow_1 As Long

Dim ws_1 As Worksheet

Set ws_1 = Worksheets.Application.Sheets("base")

iRow_1 = ws_1.Cells(Rows.Count, 2) _

.End(xlUp).Offset(1, 0).Row

ws_1.Cells(iRow_1, 1).Value = laboratorio1.Value

ws_1.Cells(iRow_1, 2).Value = nfdevolução1.Value

ws_1.Cells(iRow_1, 3).Value = nfo1.Value

ws_1.Cells(iRow_1, 4).Value = vol1.Value

ws_1.Cells(iRow_1, 5).Value = motivo1.Value

ws_1.Cells(iRow_1, 6).Value = uf1.Value

ws_1.Cells(iRow_1, 7).Value = totaldanota1.Value

ws_1.Cells(iRow_1, 8).Value = datadaexpedicao.Value

ws_1.Cells(iRow_1, 9).Value = motorista.Value

ws_1.Cells(iRow_1, 10).Value = rg.Value

ws_1.Cells(iRow_1, 11).Value = placadoveiculo.Value

ws_1.Cells(iRow_1, 12).Value = Transportadora.Value

ws_1.Cells(iRow_1, 13).Value = registro.Value

end sub

Att..

Postado

obrigado pela resposta amigo...

deu um erro de "subscrito fora do intervalo"

na linha:

"Set ws_1 = Worksheets.Application.Sheets("base")"

fiz a adaptação certinho... dai fico assim:

Private Sub aplicarproduto_Click()

Dim iRow_1 As Long

Dim ws_1 As Worksheet

Set ws_1 = Worksheets.Application.Sheets("Plan06")

iRow_1 = ws_1.Cells(Rows.Count, 2) _

.End(xlUp).Offset(1, 0).Row

ws_1.Cells(iRow_1, 1).Value = boxcdgproduto2.Value

ws_1.Cells(iRow_1, 2).Value = boxnomeproduto.Value

End Sub

obrigado

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!