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

[ricardobluiz]

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

[zinhovba]

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..

[ricardobluiz]

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

[zinhovba]

Mude o intervalo para "Set ws_1 = Worksheets.Application.Sheets("o nome de sua Planilha")"