Não está copiando a...
 
Notifications
Clear all

Não está copiando as fórmulas

6 Posts
3 Usuários
0 Reactions
1,206 Visualizações
(@vonzuben)
Posts: 549
Prominent Member
Topic starter
 

Bom dia !

O código abaixo não está copiando as fórmulas da A1:A21

wsAtiva.Range(Cells(1, 1), Cells(1, 21)).Copy: wsAtiva.Range(Cells(13, 1), Cells(13, 21)).Offset(-1, 0).Insert shift:=xlDown

Obrigado desde já !

 
Postado : 16/04/2016 8:02 am
(@vonzuben)
Posts: 549
Prominent Member
Topic starter
 

Digitei a fórmula direto na linha 12 e ao dar Enter a fórmula desaparece

 
Postado : 16/04/2016 10:08 am
(@edilsonfl)
Posts: 227
Estimable Member
 

Poste a planilha para tornar a análise mais fácil.

 
Postado : 16/04/2016 10:26 am
(@vonzuben)
Posts: 549
Prominent Member
Topic starter
 

Desativei esse código e a fórmula copia agora, então o problema está nesse código

With wsAtiva
    uC = .Cells(12, .Columns.Count).End(xlToRight).Column

    Set rng = .Range(.Cells(12, "G"), .Cells(12, uC))

    For Each c In rng
        c = UCase(c.Value)
    Next

End With
 
Postado : 16/04/2016 10:30 am
(@osvaldomp)
Posts: 857
Prominent Member
 

(xlToLeft)

 
Postado : 16/04/2016 12:09 pm
(@vonzuben)
Posts: 549
Prominent Member
Topic starter
 

Segue em anexo

Na celula C1 tem uma fórmula, pois ao clicar no botão + ela inseri a linha, mas não copia a fórmula para C11

Agora vai no código VBA e desativa esse trecho do código abaixo, pois assim funciona

Conclusão: Esse código não está deixando copiar a fórmula

With wsAtiva
    uC = .Cells(11, .Columns.Count).End(xlToRight).Column

    Set rng = .Range(.Cells(11, "A"), .Cells(11, uC))

    For Each c In rng
        c = UCase(c.Value)
    Next

End With
 
Postado : 16/04/2016 12:36 pm