Public Declare Function >> altere para >> Public Declare PtrSafe Function Private Declare Function >> altere para >> Private...

Veja se ajuda. Não é exatamente o que tinha em mente A minha sugestão foi com base no que eu entendi ao ler o que você escreveu aqui no tópico, se não...

Veja se ajuda.

Workbooks.OpenText Filename:="C:relato" & Plan1.[A1] & ".##r"

Veja uma solução no site do link abaixo. http://www.tomasvasquez.com.br/blog/microsoft-office/excel/impedir-copiar-colar-no-excel...

Veja se ajuda. O código seleciona as células nas colunas 'C' e 'F' se "B=0,5", conforme o seu código original . Sub SelecionaCélulas() Dim ...

Veja se melhorou. Inclui comandos para ordenar em ordem crescente e centralizar a bandeira. Achei melhor a sua ideia de centralizar, pois ajustando a...

So não esta mais colocando em ordem de codigo, O que você quer dizer com "ordem de codigo" e a bandeira nao centraliza... O que acha de de...

Se quiser experimentar este código no lugar do seu, coloque o nome do país em 'H16' da planilha "Cadastro". Vincule o código ao botão "...

Testei aqui após corrigir o erro que apontei no seu código e funcionou No entanto o meu Excel pode estar com defeito de fabricação Disponibiliz...

Experimente no primeiro código substituir esta linha enderecos = enderecos & Right(enderecos, Len(enderecos) - 1) por esta enderecos = Right(...

(A1=301 - A2=301) Formula: =(A2-A1)*18/60 O resultado na celula é 00:18:00 (minutos) necessito que se veja na celula 00:00:18 (segundos) que seria o ...

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Or IsEmpty(Target(1, 1)) Then Exit Sub If Intersect(Targe...

Veja se ajuda. Quanto às colunas U, V e W da planilha destino: a U e a W não descobri qual a origem dos dados, e a V se possível trocar com a U para ...

... porém quando ele mexe na última linha a variável se perde e da erro. ... É exatamente aí o erro. O código exclui a linha que aloja a variável dec...