Hamman Pelo jeito você não leu os links que postei na minha primeira mensagem: viewtopic.php?f=7&t=16757 []s

Baixe a planilha e confira: 02_10_16-Comprovação de resultado_Patropi.zip Se foi útil, clique na mãozinha das minhas 2 respostas. Esse é um dos mo...

Boa tarde Seja bem-vindo ao fórum! Para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo: viewtopic.php...

. Sugestão ... . B9=ÍNDICE($B4:$I4;CORRESP(ALEATÓRIOENTRE($B4;$I4)+1;$B4:$I4;1)) . B11=ÍNDICE($B6:$M6;CORRESP(ALEATÓRIOENTRE($B6;$M6)+1;$B6:$M6;1)) . ...

. Sugestão, poste a planilha, ou um exemplo identico ... caso contrário cada um, que quiser ajudar, terá que montar um modelo para testar uma solução!...

Veja se esta de acordo com o esperado

Desculpe, mas o "problema" está no formulário de procura (frmBusca) ou em outro local? Qual a rotina/formulário envolvido

Estranho, no seu modelo/exemplo (veja anexo) funcionou; fez a alteração? no local correto?

Nessa sheet existe apenas um gráfico? Se simexperimente --> ActiveSheet.ChartObjects(1).delete

Não sei se entendi, mas experimente alterar na rotina: Private Sub ProcuraPersonalizada(ByVal TermoPesquisado As String) o trecho conforme abaixo ...

Olá ElsonDion, tudo bem... como sempre digo, em Excel, existe várias maneiras de se chegar ao mesmo resultado. Anexo uma planilha com a minha maneir...

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("M8").Address Then Range("...

Veja se assim atende: Eu modifiquei as datas da linha 6 30_09_16_somases-Patropi.xlsx Dê retorno. []s

Experimente TempoInicial = VBA.Format(Sheets("BASE GRAFICO").Range("A2").Value, "yyyy/mm/dd") TempoFinal = VBA.Format(Sh...

sjmartins As linhas 49 e 50 não possuem dado???? []s