Geliel, dá uma olhada no Private Sub btnGravar_Click() quase no final tem um comando assim btnImprimir.Enabled = True troca o true por false End ...

Bernardo, Parece que está funcionando, pelo menos mostrou certo. Poxa, desculpe tirar seu tempo. Muito Obrigado pela ajuda. Abraço

Bernardo, ainda continua repetindo que nem antes..

Agora funciona, mas com um pequeno detalhe: Cada tipo ele repete 2 vezes. Veja no anexo.

Bom dia Bernardo deixei assim, abaixo: (não deu resultado, simplesmente não mostra). Sub Preenchercbopericia() Dim n As Long, texto As Vari...

Pelos testes que fiz realmente deve ser isto. Com a tua linha nao consegui resolver... Vou fazendo testes. Se tiver mais uma sugestão, pode postar. ...

Bernardo fiz uns testes trocando a palavra que ele nao achava por outra tipo "teste" e ele acha certo... Deve ter algo na palavra.... será q...

Acho que deveria descrever melhor. Coloque mais informações para que haja um entendimento melhor.... abraço

Também postei um exemplo em: viewtopic.php?f=10&t=21506 devido uma outra duvida..... Talvez sirva este exemplo.....

Bom dia Zgoda por que vc não faz com macros? Da forma que vc quer acredito que não vá funcionar. Cria macros e ao ativar a macro coloca desproteger e...

Agora está funcionando certo. Mas tive que colocar um "IF" pois nem todas as datas foram preenchidas. Ficou assim: Private Sub ListView1_Co...

A resposta que achei está abaixo e funciona, porém eu preciso que ela seja feita mais 5 colunas. Alguém sabe como fazer?

outra resposta que achei foi a seguinte: Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) Dim Item As ListItem ...