Michelle Alves

no LIstbox aparece com o formato de R$ 48,32. Mas quando vai para a SOMA do TEXT ele pega apenas 48 e ignora o restante após a vírgula.

Com Dbl dá erro de tipo incompatível. Vou postar o código todo para facilitar, ai você pode fazer um teste. 'ENVIA OS DADOS DOS TEXTBOX PARA O LISTBOX Private Sub AdButton10_Click() Dim result As Double Dim Acum As Double Dim Total As Double Dim Soma As Double Dim i i = 0 Acum = 0 result = 0 Total = 0 Soma = 0 If TextBox5 = "" Then MsgBox "Prencha todos os campos" ElseIf TextBox6 = "" Then MsgBox "Prencha todos os campos" ElseIf TextBox7 = "" Then MsgBox "Prencha todos os campos" ElseIf TextBox8 = "" Then MsgBox "Prencha todos os campos" Else Acum = TextBox7.Text result = TextBox8.Text Total = Acum * result Me.ListBox1.AddItem , ListIndex ListBox1.List(i, 0) = TextBox5.Text ListBox1.List(i, 1) = TextBox6.Text ListBox1.List(i, 2) = TextBox7.Text ListBox1.List(i, 3) = Format(TextBox8.Text, "R$ 0.00") ListBox1.List(i, 4) = Format(Total, "R$ 0.00") Soma = Total + i TextBox10.Text = Val(TextBox10.Text) + Val(Soma) TextBox5 = Clear TextBox6 = Clear TextBox7 = Clear TextBox8 = Clear End If End Sub

Sim, usando VAL funcionou, mas ai quando transfere para o label ele não pega valor após a vírgula....

Então, eu não posso usar o TEXTBOX8 pois ele informa o valor do produto, mas caso eu venda 2 produto de 30, o valor dele estará errado, por isso preciso pegar o valor da coluna 4 do LIST

Mas eu quero somar apenas os valores que forem sendo inseridos na quarta coluna do Listbox, entendeu ?

Se precisar de consultoria para melhoramento de seus arquivos estou ai. Segue conforme solicitado: http://www.4shared.com/account/file/914421...R_ALTERADO.html

Bom dia, mais uma vez vou contar com ajudado fórum. Tenho uma macro que transfere dados para um Listbox, gostaria que a medida que os dados forem transferidos, os valores da coluna 4 do Listbox fossem somados em um Textbox. Segue abaixo o código que utilizo para transferir os dados para o Listbox, podendo inclusive servir de exemplo no fórum: 'ENVIA OS DADOS DOS TEXTBOX PARA O LISTBOX Private Sub AdButton10_Click() Dim result As Double Dim Acum As Double Dim Total As Double Dim i i = 0 Acum = 0 result = 0 Total = 0 If TextBox5 = "" Then MsgBox "Prencha todos os campos" ElseIf TextBox6 = "" Then MsgBox "Prencha todos os campos" ElseIf TextBox7 = "" Then MsgBox "Prencha todos os campos" ElseIf TextBox8 = "" Then MsgBox "Prencha todos os campos" Else Acum = TextBox7.Text result = TextBox8.Text Total = Acum * result Me.ListBox1.AddItem , ListIndex ListBox1.List(i, 0) = TextBox5.Text ListBox1.List(i, 1) = TextBox6.Text ListBox1.List(i, 2) = TextBox7.Text ListBox1.List(i, 3) = Format(TextBox8.Text, "R$ 0.00") ListBox1.List(i, 4) = Format(Total, "R$ 0.00") TextBox5 = Clear TextBox6 = Clear TextBox7 = Clear TextBox8 = Clear End If End Sub

Não tem problema Kuroi... trabalho em equipe !! Você no VBA e eu no Excel. Não postei antes por falta de tempo. Veja se te atende Jorge, não deixe de postar o resultado. []'s http://www.4shared.com/account/file/913318...R_ALTERADO.html

Oi Jorge, conhece a formatação condicional ? Se conhecer ótimo, é colocar as condições que você precisa lá. Senão, posta ai o arquivo, que fazemos para você.

Kuroi primeiramente muito obrigada por toda ajuda, você foi um salvador. Do modo como você colocou eu já havia tentando, e ele levaria para a planilha ativa toda vez que a macro rodasse. Consegui de uma outra forma, e posto no site: ' RETORNA OS DADOS DO PRODUTO AO DIGITAR O CÓDIGO Sub Procurar() Dim ValorProcurado As String Dim Banco As Range Dim Resultado As Range Set Banco = Sheets("BD").Range("A2:D500") ValorProcurado = Me.TextBox5.Value Sheets("BD").Activate Set Resultado = Banco.Find(ValorProcurado) Resultado.Activate Me.TextBox6.Value = Resultado.Offset(0, -1) Me.TextBox8.Value = Format(Resultado.Offset(0, 1), "R$ 0.00") Sheets("Plan1").Activate Set Resultado = Nothing Set Banco = Nothing End Sub ' FAZ A LIGAÇÃO COM O RETORNO DO CÓDIGO Public Sub TextBox5_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Call Procurar End Sub

Legal Kuroi, muitíssimo obrigada !!! Um amigo me ensinou outra forma, vou postar aqui também para ajudar nas futuras pesquisas. O problema dela é o mesmo, a questão da planilha ativa, e essa eu até tentei fazer como você me ensinou, mas não consegui. Se você souber como fazer para que essa não tenha a necessidade de deixar a planilha ativa vai ser de grande utilidade. Sub Procurar() Dim ValorProcurado As String Dim Banco As Range Dim Resultado As Range Set Banco = ThisWorkbook.Sheets("BDCQE").Range("A2:D500") ValorProcurado = Me.TextBox5.Value Set Resultado = Banco.Find(ValorProcurado) Resultado.Worksheet.Activate Me.TextBox6.Value = Resultado.Offset(0, -1) Me.TextBox8.Value = Format(Resultado.Offset(0, 1), "R$ 0.00") Set Resultado = Nothing Set Banco = Nothing End Sub Public Sub TextBox5_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Call Procurar End Sub

Nossa Kuroi obrigada !!! Mas então, funciona perfeitamente, mas tem um probleminha. Só funciona quando a planilha BDCQE tá ativa, ou seja, quando estou nela. E não será dessa forma, eu estarei na Plan1, e puxando os dados da BDCQE, compreendeu ?

Kuroi... esse problema tá me deixando doida... e estou te dando um trabalhão ainda.... O teu exemplo, se não estiver doida, puxa qual a linha está o valor digitado no TEXT. No meu caso é diferente: Controle NomeDoProduto CodigoDoProduto Valor 2 ESTABILIZADOR 100 R$ 48,32 3 MOUSE 200 R$ 19,16 4 TECLADO LG 300 R$ 64,33 5 CD R - MAXELL 400 R$ 1,50 Vou digitar no TEXTBOX5 um código. Por exemplo: 200. Ai ele tem que retornar o nome do 200 no TEXTBOX6, que seria MOUSE. Entendeu ? Para facilitar ainda mais estou postando um exemplo do meu arquivo. http://www.4shared.com/account/file/907295...este_kuroi.html

Nossa...como isso tá dando trabalho.... Então, olha só, do seu jeito. Colocando assim: Private Sub TextBox6_Change() TextBox6.Text = WorksheetFunction.Match(TextBox5.Text, Sheets("BDCQE").Range("B2:B50"), 1) End Sub Ele não puxa nada, até porque não houve mudança no TEXTBOX6, mas colocando o evento Change no TEXTBOX5 dá aquele mesmo erro falando da classe Worksheet Function com a propriedade MATCH, e olha que já tentei colocar o Range até onde eu tiver valor.

Então, Eu inclusive já havia tentando usar MATCH anteriormente, mas não tava conseguindo, por isso busque ajuda no fórum. Porém, o erro avisa que consegue obter a propriedade MATCH da classe WorksheetFunction. Mas já até procurei a propriedade tá na lista da WorksheetFunction. Posto abaixo a forma como tentei: Private Sub TextBox5_Change() 'O TEXTBOX5 É ONDE EU IREI DIGITAR O CÓDIGO TextBox5 = WorksheetFunction.Match(TextBox6, Sheets("BDCQE").Range("B2:B500"), 1) 'TEXTBOX6 SERÁ O CORRESPONDENTE 'O CORRESPONDENTE DEVE SER PROCURADO NA PLANILHA BDCQE, DA CÉLULA B2 ATÉ A B500

Agora fiquei confusa.... Mas vamos lá, tentei rodar seu código e deu erro no método Activate, ele falhou. Além disso, a idéia, Kuroi é digitar um código no TEXTBOX5, ai ele procura o CORRESPONDENTE na minha planilha e retorna no TEXTBOX6. Posso estar enganada, mas no teu código, ele retornaria o CORRESP no TEXTBOX5, não é ?

Oi gente, estou quebrando a cabeça com um problema que me parecia simples.... Na teoria eu digitaria um código no TEXTBOX1, teoricamente ele buscaria o código na minha planilha "BDCQE", e o correspondente desse código seria exibido na TEXTBOX2 e no TEXTBOX3. Alguém sabe como devo proceder ?

Kuroi, Consegui concluir esse agora pouco. Mesmo assim muito obrigada !!! Vou postar o código abaixo para ajudar em futuras pesquisas. Private Sub UserForm_Initialize() 'Carrega a listbox com os itens da planilha BDCQE Dim linha As Integer On Error GoTo ErrHandler linha = Range("A65000").End(xlUp).Row i = 0 With Worksheets("BDCQE") While linha <> 1 Me.ListBox1.AddItem , ListIndex ListBox1.List(i, 0) = Sheets("BDCQE").Cells(linha, 3) ListBox1.List(i, 1) = Sheets("BDCQE").Cells(linha, 2) ListBox1.List(i, 2) = Format(Sheets("BDCQE").Cells(linha, 4), "R$ 0.00") ListBox1.ListIndex = 0 linha = linha - 1 Wend End With ExitHere: Exit Sub ErrHandler: MsgBox Err.Description Resume ExitHere End Sub

Obrigada Kuroi. Desculpa por ter postado errado eu achei que não havia diferença.... Então, eu tenho o Visual Studio 6.0 instalado. Entendi suas explicações, embora o Listview ainda esteja dando erros e me dando muito trabalho. Acho que vou optar pelo Listbox mesmo. Você esqueceu de me responder uma questão, e como estou precisando vou abusar. Como eu faço o Listbox carregar todos os dados de uma planilha e ficando alinhados ? Tentei sem sucesso da seguinte forma : Private Sub TextBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then ListBox1.Clear Call Pesquisa End If End Sub Private Sub UserForm_Initialize() ListBox1.Clear Call Pesquisa End Sub Private Sub Pesquisa() Dim I% I = 0 Sheets("BDCQE").Range("B2").Select Do While ActiveCell <> "" If InStr(1, ActiveCell, TextBox5) > 0 Then ListBox1.AddItem ActiveCell ListBox1.List(I, 1) = ActiveCell.Offset(0, 1).Value ListBox1.List(I, 2) = ActiveCell.Offset(0, 2).Value I = I + 1 End If ActiveCell.Offset(1, 0).Select Loop End Sub

Olá Kuroi, Então, eu estou usando VBA do Excel pra fazer um controle de estoque aqui na empresa. estou sem saber se uso o Listview ou o Listbox, embora seja melhor o view ele é mais complicado de trabalhar.... Inclusive, seguindo suas instruções o Set deu procedimento inválido. teria que declarar ele ? Além disso, usando o Listbox como você disse, cada text iria para uma linha do List, e eu gostaria que ambos os valores (text1 e text20 ficassem na mesma linha.

Obrigada Leandro, Tentei de duas formas, do seu modo e assim: Private Sub CommandButton1_Click() ListBox1.AddItem ListBox1.List(0) = TextBox1.Value ListBox1.List(1) = TextBox2.Value End Sub Ambos deram matriz inválida. Dizendo que falta definir a propriedade List

Preciso de duas coisas: - Primeiro: Quero carregar um Listview com os dados da minha planilha de produtos. - Segundo: Enviar os dados do textbox1, textbox2 e textbox3 para a Listview, e toda vez que ela receber novos dados não sobreescreva, mas acrescente. E preciso fazer o mesmo com o Listbox, lembrando que já tentei o comando ListBox1.ListIndex = TextBox1.Value. Porém, quando existe mais de um Text, ele concatena os dados.

Bom dia Bat4K, Eu estou utilizando o Windows e GUI. Muito obrigada, Michelle. O problema já foi solucionado, De qualquer forma obrigada. Michelle.

Bom dia Bat4K, Eu estou utilizando o Windows e GUI. Muito obrigada, Michelle.

O Meu banco será no ACCESS e os formulários no EXCEL... exatamente isso. Acho que fazer com que os dados inseridos no FORM vão para o ACCESS eu consigo. Mas o problema é consultar eles no FORM do EXCEL depois, entendeu ? Pode me ajudar com a consulta?