Neri Schuck

Meu amigo Edson, que bom que você está aí para ajudar os outros. Na máquina deles e na minha é Excel 32 Bits. Estava pensando o que poderia ser, pois sempre funcionava. Acontece que na minha máquina passei de Excel 2010 para 2016. Tem grandes chances de ser isto. Abraço amigo

Eu desenvolvi um programa em Vba na minha máquina e passei para o cliente e funcionou normalmente. Agora para atualizar, peguei o arquivo da máquina do cliente e coloquei na minha. Alterei e passei novamente para a máquina do cliente. Mas dá erro na DLL. Acusa o erro no inicio do code abaixo. Alguém já teve este problema? Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) On Error Resume Next ' Começa ordenar o listview pela coluna clicada With ListView1 ' Mostrar o cursor ampulheta enquanto faz o filtro Dim lngCursor As Long lngCursor = .MousePointer .MousePointer = vbHourglass 'A rotina impede que o controle ListView faça atualização na tela 'Isto é para esconder as mudanças que estão sendo feitas aos listitems 'E também para acelerar o código 'Verifique o tipo de dados da coluna de ser classificada, 'para nomeá-la em conformidade Dim l As Long Dim strFormat As String Dim strData() As String Dim lngIndex As Long lngIndex = ColumnHeader.Index - 1 '*************************************************************************** ' Ordenar por data. Select Case UCase$(ColumnHeader.Tag) Case "DATE" strFormat = "YYYYMMDDHhNnSs" 'O Loop através dos valores desta coluna organizam 'As datas de modo que eles possam ser classificados em ordem alfabética, With .ListItems If (lngIndex > 0) Then For l = 1 To .Count With .Item(l).ListSubItems(lngIndex) .Tag = .Text & Chr$(0) & .Tag If IsDate(.Text) Then .Text = Format(CDate(.Text), _ strFormat) Else .Text = "" End If End With Next l Else For l = 1 To .Count With .Item(l) .Tag = .Text & Chr$(0) & .Tag If IsDate(.Text) Then .Text = Format(CDate(.Text), _ strFormat) Else .Text = "" End If End With Next l End If End With ' Ordenar a lista em ordem alfabética por esta coluna .SortOrder = (.SortOrder + 1) Mod 2 .SortKey = ColumnHeader.Index - 1 .Sorted = True ' Restaura os valores anteriores das "células" nesta ' Coluna da lista das tags, e também restaura ' as tags para os valores originais With .ListItems If (lngIndex > 0) Then For l = 1 To .Count With .Item(l).ListSubItems(lngIndex) strData = Split(.Tag, Chr$(0)) .Text = strData(0) .Tag = strData(1) End With Next l Else For l = 1 To .Count With .Item(l) strData = Split(.Tag, Chr$(0)) .Text = strData(0) .Tag = strData(1) End With Next l End If End With '*************************************************************************** 'Ordenar Numericamente Case "NUMBER" strFormat = String(30, "0") & "." & String(30, "0") ' Loop através dos valores desta coluna. Ordena os valores de modo que eles ' Podem ser classificados em ordem With .ListItems If (lngIndex > 0) Then For l = 1 To .Count With .Item(l).ListSubItems(lngIndex) .Tag = .Text & Chr$(0) & .Tag If IsNumeric(.Text) Then If CDbl(.Text) >= 0 Then .Text = Format(CDbl(.Text), _ strFormat) Else .Text = "&" & InvNumber( _ Format(0 - CDbl(.Text), _ strFormat)) End If Else .Text = "" End If End With Next l Else For l = 1 To .Count With .Item(l) .Tag = .Text & Chr$(0) & .Tag If IsNumeric(.Text) Then If CDbl(.Text) >= 0 Then .Text = Format(CDbl(.Text), _ strFormat) Else .Text = "&" & InvNumber( _ Format(0 - CDbl(.Text), _ strFormat)) End If Else .Text = "" End If End With Next l End If End With ' Ordenar a lista em ordem alfabética por esta coluna .SortOrder = (.SortOrder + 1) Mod 2 .SortKey = ColumnHeader.Index - 1 .Sorted = True With .ListItems If (lngIndex > 0) Then For l = 1 To .Count With .Item(l).ListSubItems(lngIndex) strData = Split(.Tag, Chr$(0)) .Text = strData(0) .Tag = strData(1) End With Next l Else For l = 1 To .Count With .Item(l) strData = Split(.Tag, Chr$(0)) .Text = strData(0) .Tag = strData(1) End With Next l End If End With Case Else ' Assume ordenação como string .SortOrder = (.SortOrder + 1) Mod 2 .SortKey = ColumnHeader.Index - 1 .Sorted = True End Select .MousePointer = lngCursor End With End Sub

E se você colocar um lançamento abaixo ao outro somente a medida que vai acontecendo e fazer um soma-se depois. Poderia criar um formulário para alimentar, ou até direto na planilha. Exemplo: Dia funcion. tipo qte 01/06 José Frente 4 02/06 Pedro Vendas 2 03/06 Pedro Frente 3 e no final fazer um soma-se. Acho que vai sei o mais fácil. pensa no caso

Meu amigo, vou veja o anexo: Planilha opção 1 - Veja que ao trocar a célula amarela por outra frente ele recalcula....não sei se serve, mas dê uma olhada. TRABALHO CASA.rar

Acredito que tenha que explicar um pouco melhor e até fazer manualmente um ou dois dias para que a gente entenda melhor.

Amigo, tem inconsistências na sua análise: 1º Estoque zerado também é abaixo de C7; 2º Quando o estoque for exatamente igual (c7 = C10)? Vou alterar um pouco para melhorar (se você me permitir, logico).... =SE(C10=0; "Estoque Zerado";SE(C10<C7;"Estoque Abaixo";"Estoque Confortável"))

Amigos, estava usando o Excel 2010 e comecei a usar 2016. Percebi que tem várias alterações, mas uma delas é que o nome das abas (planilhas) antes eram chamadas de "Plan1", "Plan2", etc... e agora está o nome por inteiro, tipo, "Planilha1", "Planilha2", etc....Sei que posso alterar, mas tem algum campo que posso programar para que seja o nome reduzido novamente? O que altera é que quando uso o VBA, tem o nome por inteiro para digitar. Aceito sugestões....

Grande Marcio.... é isto mesmo.... agora deu certo. Poxa, muiiiiiito Obrigado. Valeu mesmo. Nem sabe o quanto sofri por isto. Abração

Bom dia Marcio Obrigado pela ajuda. Eu também pensei em fazer assim, aliás, já tinha feito. Porém o formatar dá referência a planilha "DADOS" e aí simplesmente não filtra mais nada. Ou filtra e recoloca todos os dados por estar buscando na planilha. Outra coisa que tentei é fazer outro formatar e nele inibir a linha 'With Worksheets("Dados").... também não funciona pois ele não reconhece as linhas que estão abaixo. Tente fazer na sua máquina e veja se também não funciona. Faça o filtro antes de inseri o comando que você citou e refaça depois. Abraço

Pessoal, consegui um código que está em anexo e funciona bem (Acho que foi neste forum). Mas preciso de ajuda num detalhe que acredito que seja simples de resolver: Ao iniciar ele formata à direita e em R$. Porém quando filtro ele perde esta formatação. Então o que eu preciso inserir algum código que, após o filtro realizado ele novamente formate conforme ele faz no início. Me dêem uma dica, pois acredito que este exemplo será útil para outros também. Obs.: Consegui estes códigos na internet - não sei quem é o autor. Filtro com listbox.rar

Bom dia Primeiro, parabéns pelo exemplo. Muito Show. Tenho uma pergunta: Tem como colocar filtros neste pesquisa. Tipo: Duplicatas que contenham os dígitos "02". Irão retornar 2 registros. O que estou fazendo é inserindo vários filtros. Estava utilizando Listview, porém tem muitas maquinas que apresentam problemas e por isto resolvi mudar para listbox. Obrigado