Damassa, eu respondi pelo que foi postado referente a ao tipo numerico e como você não comentou nada que não era o que pretendia conforme o modelo que...

Bom dia!! Seria melhor postar seu arquivo modelo com o código completo!! Ou leia.. Att

Bom dia!! faça os testes! Att

Bom dia!! Para a parte um use. Option Explicit Sub AleVBA_17568() Dim wsBD As Worksheet Dim wsCx1 As Worksheet Dim wsCx2 As Worksheet ...

Pela rotina que o Reinaldo passou, os valores estão direto nas celulas : strAtual = ActiveSheet.Range("C2") strNovo = ActiveSheet.Range(&qu...

Poste o modelo de sua planilha (não exemplos descritivos conforme acima), e demonstre claramente do que é e como deverá ficar assim ficará, faça manua...

Poste exemplos que não atendam, talvez consigamos resolver

Ops! falha nossa, devia ter depurado, mas como aproveitei uma rotina deixei algumas variaves sem necessidade e esqueci dessa. Como o colega Mauro &quo...

cSheet = ActiveSheet.Range("B2").Value Como tem no inicio Option Explicit todas as Variaveis tem de esar declarada e faltou esta, é só adic...

Como disse o colega Mauro, com um modelo ficará muito mais simples, mas verifique a passagem dos paramentros. Em um formulario, o objeto imagem passa ...

Não testei, por não ter os arquivos, mas experimente Option Explicit Sub Carrega_Altera() Dim Msg As String Dim OldName As String, strAtual As String...

Teste e veja se auxilia

Boa tarde Eder Mais uma opção, com critério mês e ano. 01_10_15_SOMARPORDUTO COM MÊS e ANO_Patropi.zip Se foi útil, clique na mãozinha. Dê retorn...

Anexe um modelo de acordo com as regras do forum, ficara mais facil analisar.

Quando diz uma pasta com 130 planilhas, quer dizer um arquivo com 130 abas ou sao arquivos separados ? Fiquei em duvida porque mencionou "sem ter...