Copa troque essas duas linhas Nlin = WsM.Range("B65530").End(xlUp).Row Rem Pega a última linha não preenchida da planilha WsH ...

Tb fiquei boiando

Nao sei como vc fez mas tente assim txtdata.value =date

Precisa dos arquivos nao dos dados. Os dados vc deve colocar informações nao reais. Não é possivel usar os arquivos em vinculos?

Não da pra usar uma formula? = data final - data inicial.

O codigo sempre vai salvar em pdf a planilha ativa. Vc testou em outras guias?

Eu dei uma olhada rapida, e vi que vc tem inputboxs que sao preenchidas pelo usuario e isso retarda o funcionamento das macros e faz com que vc veja a...

Ao inves de usar a macro direto no formulario, coloque em um modulo e chame no formulario e na rotina de atualização

Cleiton, deu certo! Agora, há alguma macro que consigo colocar que ao alterar os itens e apos concluir, o listbox atualize? Desde já agradeço! Chame...

Tenta assim No inicio do codigo on error resume next.

Agora que funcionou nao entendi o que vc pretende. Se ja esta funcionando qual o problema?

Tenta assim Plan2.Select 'seleciona a excluidos Range("A1048576").Select 'seleciona a ultima linha da plan Selection.End(xlU...

Seu arquivo de exemplo nao funciona, Mas faça uma busca combinada dentro de um loop. if colunas status = combobox1.value and colua transportadora ...

Tente assim Sub Imprimir() Application.Dialogs(xlDialogPrint).Show End Sub

Entao disponibilize o arquivo.