geraldo pereira

estou precisando de uma ajuda pra fazer um relatório do listview tenho 5 colunas Id .... Lote.... Peso .....Tipo.....Produtor 1 102 25.500 ....312....Marcelo 2 104 23.400.....313....Manoel 3 230 24.480.....312 ...João 4 245 25.500.....312....Manoel 5 245 25.500.....314....Marcelo preciso de um código que faço um resumo pelo o tipo em um outro listview ex. Lote....Tipo......Peso 3 312 ... 75.480 1 313.....24.480 1 314.... 25.500 parece fácil mas não consigo fazer o loop para fazer a contagem nem a soma dos tipos consigo fazer somente o da primeira linha. desde já agradeço imensamente a ajuda de quem possa colaborar Que Deus abençoe Atenciosamente

Boa Noite Noite Mestres Estou fazendo um formulário onde eu faço um lançamento direto no listview, quando uso só para uma planilha funciona muito bem, o porém que preciso usas este código para 25 planilhas. tentei usar uma variável SET, mas não tive resultados sempre aparece erro em tempo de execução 13 - tipos incompatíveis, já tem uma semana procurando e pesquisando para resolver não conseguir, venho pedir ajuda a quem possa ensinar, desde já fico grato pela qualquer resposta, abaixo o código. Private Sub CommandButton1_Click() 'Adiciona os itens no ListView Set guia = ComboBox ' aqui quero mudar o valor da variável conforme o combobox são 25 planilhas, se eu tirar a combo e digitar o nome da planilha funcionar sem problemas, mas como são muitas eu teria que fazer 25 formulários e eu acho que tem uma solução, só não conseguir resolver, espero que alguém me ajude. uLinha = guia.Cells(guia.Cells.Rows.Count, "a").End(xlUp).Row lsLista.ListItems.Clear For x = 2 To uLinha Set li = lsLista.ListItems.Add(Text:=guia.Cells(x, "a").Value) li.ListSubItems.Add Text:=guia.Cells(x, "b").Value li.ListSubItems.Add Text:=guia.Cells(x, "c").Value li.ListSubItems.Add Text:=guia.Cells(x, "d").Value li.ListSubItems.Add Text:=guia.Cells(x, "e").Value Next End Sub

Muito obrigado Deus lhe abençoe deu certinho só fiz a adaptação da cor valeuuuuuuu!!

bom dia mestres do VBA estou tendo uma dificuldade de adaptar esta função, Public Function DesabilitarTextBox(formulario As UserForm) Dim controle As Control For Each controle In formulario.Controls If TypeOf controle Is MSForms.Textbox Then controle.Locked = True 'Me.CboxApto.BackColor = corDisabledTextBox End If Next End Function ela desabilita todas as texts e eu preciso desabilitar somente duas tente várias maneiras não conseguir espero que alguém posso me ajudar, desde já agradeço a atenção ora de quem se prontificar Geraldo Pereira

Boa Noite Desde já quero agradece a ajuda que me enviaram sobre Nota Promissória e agora estou precisando de vocês, tenho pouca experiência no assunto e estou estudando vba, e no momento preciso fazer uma função Publica tenho a função privada porém não consigo transformar ela em publica, é o sequinte tenho 12 formularios com 23 textbox para usar estee procedimentos Me.Textbox6.BackColor = corEnabledTextBox e Me.Textbox6.BackColor = corDisabledTextBox, desde já agradeço a atenção de quem possa colaborar com o meu aprendizado Grato Geraldo Pereira

Muito Obrigado, fico no aguardo da outra parte Deus Lhe Abençoe

Bom dia a todos Preciso montar um sistema de preenchimento de nota fiscal e estou precisando de ajuda com o código para data em extenso e o de repetir as notas conforme as parcelas que será digitada no textbox1 desde já agradeço a ajuda geraldo