Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ajuda sobre o erro ...
 
Notifications
Clear all

Ajuda sobre o erro 1004

 
2024 - VBA & Macros
Post Recente por Basole 7 anos atrás
3 Posts
3 Usuários
0 Reactions
691 Visualizações
RSS
 carvalhogr
(@carvalhogr)
Posts: 0
New Member
Topic starter
 

olá pessoal, sou um pouco novo na programação em VBA e acabei me deparando com um erro que não consigo resolver.
O que não consigo entender é que a linha de código onde aparece o erro 1004 é praticamente igual a anterior que funciona normalmente.
Eu preciso selecionar um intervalo a partir de algumas variáveis (linAnalise, colAnalise, etc) em uma planilha para colar em outra, mas o código não funciona.
Alguém, por favor, conseguiria identificar o problema? Segue o código:

Sub Resumo()

    Dim linAnalise As Long
    linAnalise = 153
    Dim colAnalise As Integer
    colAnalise = 1
    Dim linResumo As Long
    linResumo = 2
    Dim colResumo As Long
    colResumo = 1
    Dim intContador As Integer
    intContador = 1
 
    Worksheets("Análise Percentual").Cells(linAnalise, colAnalise).Copy
    Worksheets("RESUMO").Range(Cells(linResumo, colResumo), Cells(linResumo + 28, colResumo)).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            
    colResumo = colResumo + 1
    
    'erro 1004 a partir daqui
    Worksheets("Análise Percentual").Range(Cells(linAnalise + 2, colAnalise), Cells(linAnalise + 30, colAnalise)).Copy
    Worksheets("RESUMO").Cells(linResumo, colResumo).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            
    Application.CutCopyMode = False
 
End Sub

Desde já, agradeço a atenção de todos.
Obrigado.

 
Postado : 11/08/2017 8:44 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

carvalhogr,

Boa tarde!

Para melhor atendimento da sua demanda, anexe, aqui mesmo no fórum, seu arquivo compactado com .ZIP. Isso fará com que as pessoas respondam mais rapidamente sua demanda, uma vez que será possível rodar e depurar o código.

 
Postado : 11/08/2017 9:05 am
 Basole
(@basole)
Posts: 487
Reputable Member
 

carvalhogr, faltou referenciar algumas celulas a respect. aba. 

Sub Resumo()

    Dim linAnalise As Long
    linAnalise = 153
    Dim colAnalise As Integer
    colAnalise = 1
    Dim linResumo As Long
    linResumo = 2
    Dim colResumo As Long
    colResumo = 1
    Dim intContador As Integer
    intContador = 1

    With Worksheets("Análise Percentual")
        .Cells(linAnalise, colAnalise).Copy
    End With
    
    With Worksheets("RESUMO")
        .Range(.Cells(linResumo, colResumo), .Cells(linResumo + 28, colResumo)).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End With
    
    colResumo = colResumo + 1
    
    'erro 1004 a partir daqui
    With Worksheets("Análise Percentual")
        .Range(Cells(linAnalise + 2, colAnalise), .Cells(linAnalise + 30, colAnalise)).Copy
    End With
    
    With Worksheets("RESUMO")
        .Cells(linResumo, colResumo).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
     End With
    Application.CutCopyMode = False

End Sub
 
Postado : 11/08/2017 9:30 am
Forum Jump:
  Tópico Anterior
Próximo Tópico