@pedrobb Eu estava considerando como base de critério também a coluna Q, ou seja, se os nomes na coluna Q existir na coluna P eu validava também. O...

@jscopa10 Seguindo seu raciocínio segue um exemplo. Sub CopiarColar()Application.ScreenUpdating = FalseDim LR As Integer, i As Integer, x As Integer...

@pedrobb Correção feita!!  Teste-ok-1.zip

@pedrobb Eu fiz um modelo aqui usando seu raciocínio. Att  Teste-Ok.zip

Posta um exemplo simples aqui do que você já tem feito, assim vai nos ajudar bastante a dar continuidade na sua ideia, chegando assim em uma solução.

Da uma olhada se é isso que você precisa ....

Tenta Assim: Produto = ListView4.ListItems(Index).ListSubItems(1).Text

Pelos meus cálculos assim deve resolver Dim linha As String Dim titulo As Long Dim categoria As String Dim data As String Dim favore...

Só fiz uma mudança ai no código onde é vermelho... Private Sub PreencheLista(ByVal TextoDigitado As String) Dim ws As Worksheet Dim i As In...

Acho que isso resolve FormatPercent(PercTqeLabto)

Eu fiz um testa aqui e funcionou no seu exemplo certinho..Só um detalhe você deve formatar a coluna do seu banco de dados access "Coluna Data&qu...

Uma solução seria antes de você realizar uma pesquisa você deve reiniciar seu listview.. Private Sub btnFiltrar_Click() UserForm_Initialize Call ...

Aqui no Fórum tem oque você precisa... viewtopic.php?f=28&t=2495

Cria um gráfico em sua planilha e testa ai amigãooo.... Sub Salvar_grafico() Dim ChartNum As Integer ChartNum = 1 'Numero do seu Grafico On ...

Você já tentou tirar os espaços dos nomes das colunas da sua tabela do access , e colocar tipo assim que seria o correto... consulta.Fields("DOM...