Incluir / excluir linha do listbox e configurar cabeçalho

[Bruno Capelli]

Gente por favor alguém pode me ajudar a adaptar esse codigo para exclusão de uma linha selecionada no listbox?
Tambem no monemto da inclusão enviar os dados do listbox para plan1 escolher o local exato
Como ativo o CollumsHeads no meu caso fica Coluna A Coluna B mas eu gostaria do cabeçalho personalizado

Gente desculpem o importuno quem poder da uma força!

Valeu, segue código!


Private Sub CommandButton1_Click()

Dim i

If Me.ListBox1.ListCount = 0 Then
i = 0
Else
i = Me.ListBox1.ListCount
End If
Me.ListBox1.AddItem TextBox1.Text

ListBox1.List(i, 0) = TextBox1.Text
ListBox1.List(i, 1) = TextBox2.Text
ListBox1.List(i, 2) = TextBox3.Text
ListBox1.List(i, 3) = TextBox4.Text

Dim J As Single

J = TextBox1

TextBox1 = J
TextBox1.Enabled = False
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
End Sub

Private Sub CommandButton2_Click()


'Aqui adiciona ok, mas teria como eu escolher o local especifico ou seja o textbox1 na celula G8
' O textbox2 na célula H4 e etc

Plan1.Select
Range("A1.D1").Resize(ListBox1.ListCount) = ListBox1.List
ListBox1.Clear

End Sub

Private Sub CommandButton3_Click()

'Como faço para retirar um item?

End Sub

[srobles]

Bruno Capelli, boa noite!

No caso da inserção dos dados contidos nos TextBox's, os campos serão sempre os mesmos?
Se sim, tente o seguinte :

Private Sub CommandButton2_Click()

With Plan1
.Range(celula que deseja).Value = TextBox1.Text
.Range(celula que deseja).Value = TextBox2.Text
.Range(celula que deseja).Value = TextBox3.Text
.Range(celula que deseja).Value = TextBox4.Text
End With

ListBox1.Clear

End Sub

Para excluir um registro :

Defina uma variável pública no Userform ex:

Public idItemListbox as Integer

e no evento Click do Listbox :

idItemListbox = ListBox1.ListIndex

e no botão que exclui o item selecionado :

Private Sub CommandButton3_Click()

ListBox1.RemoveItem idItemListBox

End Sub

Agora a pergunta :

Você excluirá o registro selecionado no ListBox da planilha também?
Se puder postar um modelo, fica melhor para entendermos o que deseja.
Aguardo retorno.

Abs

[Bruno Capelli]

Oi Saulo muito agradecido pelo seu amparo!

Amigo peço desculpas pela demora a treplica de minha indagação!

Bem eu já resolvi uma parte mas ainda preciso de ajuda.

Em anexo o userforme que estou trabalhando, o ajustei para que possa verificar,

Preencha os codigos do Cliente e produto com o numeral 1 pois esta vindo da plan1 através da função vlookup

Seguinte:

Respondendo primeiramente tuas questões

Os textbox nao serão sempre nos mesmos campos
O listbox deve retirar a linha incluída e selecionada apenas da lista, pois ainda não terá ido para o banco

------

Saulo

Não estou entendendo um erro que apresenta ao incluir na lista não entendo pq ele só recebe a metade dos textbox gerando erro na 10 cxa em diante

Resumindo

1 - Gostaria de ajuda para o erro ao incluir os itens na lista
2 - ajuda para retirar uma linha apenas da lista
3 - e ajuda de como montar o calculo automatico do textbox TOTAL_BOX, não consigo pois este tem que aparecer automaticamente. =(Qnt_sai x Preço unitário)-(Qnt x preço unitário x desconto)

Desculpa se é abuso Saulo mas por favor me ajuda onde for possível ok?

Muito obrigado pela atenção!

Valeu demais Saulo muito obrigado mesmo pela atenção!

[Bruno Capelli]

Saulo me ajuda!

1 Já resolvi o erro no listbox infelizmente ele limita-se a 10 colunas então criei dois

Preciso de ajuda agora para que o seguinte código salve sempre uma linha abaixo a ultima a primeira preenchida encontrada já tentei o xlup.end não conseguir encaixar

Plan10.Select
Range("A2.J2").Resize(ListBox1.ListCount) = ListBox1.List

2 - ajuda para retirar excluir uma linha apenas do listbox
3 - e ajuda de como montar o calculo automático do textbox TOTAL_BOX, não consigo pois este tem que aparecer automaticamente. =(Qnt_sai x Preço unitário)-(Qnt x preço unitário x desconto)


Valeu

[srobles]

Bruno Capelli, boa tarde!

Estava para te responder sobre o listbox, e você encontrou a resposta!

1 - Para que sejam adicionados registros sempre após a última linha com dados faça :

dim ultimalinha as integer
Plan10.Select
ultimalinha = ActiveSheet.UsedRange.Rows.Count + 1
Range("A" & ultimalinha & ".J" & ultimalinha).Resize(ListBox1.ListCount) = ListBox1.List
Range("K" & ultimalinha & ".S" & ultimalinha).Resize(ListBox2.ListCount) = ListBox2.List

ListBox1.Clear
ListBox2.Clear

2 - Para remover um item selecionado no ListBox faça :

Declare uma variável pública do tipo integer no Declarations do Form :

Public selecaoListbox As Integer

e no evento Click do ListBox1 :

selecaoListbox = ListBox1.ListIndex

No evento do botão que remove o item selecionado :

Private Sub CommandButton3_Click()

ListBox1.RemoveItem selecaoListbox
ListBox2.RemoveItem selecaoListbox

End Sub

3 - Quanto ao cáculo automático, primeiro você terá de remover as validações do TextBox (tais como os códigos KeyAscii que você setou e etc) para que a conversão do valor Total funcione adequadamente, e então fazer algo do tipo :

Private Sub DESCONTO_PROD_BOX_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If DESCONTO_PROD_BOX = 0 Or DESCONTO_PROD_BOX = "" Then
DESCONTO_PROD_BOX = 0
TOTAL_BOX = "R$" & (VALOR_BOX * QNT_SAIDA_PROD_BOX)
Else
TOTAL_BOX = "R$" & (VALOR_BOX * QNT_SAIDA_PROD_BOX) - (VALOR_BOX * QNT_SAIDA_PROD_BOX * DESCONTO_PROD_BOX) / 100
End If
TOTAL_BOX = Format(TOTAL_BOX, "R$ #,###0.00")
DESCONTO_PROD_BOX = DESCONTO_PROD_BOX & "%"
End Sub

Este código é apenas um exemplo, porém funciona!

Poste este modelo com dois listbox's, que adapto os códigos para você, caso tenha dificuldades.

Abs

[Bruno Capelli]

Saulo , mais uma vez muito agradecido pela sua atenção!

Amigo segue modelo eu apenas consegui adaptar este código

dim ultimalinha as integer
Plan10.Select
ultimalinha = ActiveSheet.UsedRange.Rows.Count + 1
Range("A" & ultimalinha & ".J" & ultimalinha).Resize(ListBox1.ListCount) = ListBox1.List
Range("K" & ultimalinha & ".S" & ultimalinha).Resize(ListBox2.ListCount) = ListBox2.List

ListBox1.Clear
ListBox2.Clear


Preciso encarecidamente da:
1 exclusão das linhas dos listboxes 1 e 3
2 calculo para textbox total
3 adaptar o codigo que desce as informações dos textboxes para o listbox pois
o codigo so da certo se for apenas uma linha

Saulo me perdoa o abuso mas na minha cidade não tem curso e eu estou estudando pela internet o que as vezes se torna muito dificil
pois muitas duvidas ficam sem resposta!

Apenas incomodo uma vez mais pq enganchei aqui e vc disse que eu poderia postar um modelo!

Muito obrigado!

[srobles]

Bruno, blza cara?

Fica tranquilo, que não está incomodando não. Pode ter certeza!

Segue abaixo, modelo editado com as alterações que mostrei anteriormente.

Abs

[srobles]

Fala Bruno Capelli, blza?

Alguma novidade em seu projeto?

Caso sua dúvida tenha sido resolvida, favor, marque como RESOLVIDO no título ok?

Abs

[Bruno Capelli]

RESOLVIDO

[joao]

Galera bom dia, primeiramente não sei como abrir uma nova dúvida por isso coloquei nessa já aberta estou executando esse código para excluir uma linha de um list box Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim resp As Integer
resp = MsgBox("excluir", vbYesNo, "excluir")
If resp = vbYes Then
ListBox1.RemoveItem ListBox1.ListIndex

End If

Exit Sub
End Sub



porém da erro não especifico alguem pode me ajudar ai, já usei esse comando também

Dim indice
indice = ListBox1.ListIndex

Rows(indice).Delete

foi bem bom mais ele exlui a linha acima da que eu selecionei se alguam puder me ajudar

muito obrigado.