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
697 Visualizações
RSS
 carvalhogr
(@carvalhogr)
Posts: 1
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
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious 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.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 11/08/2017 9:05 am
Basole
 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

Click em se a resposta foi util!

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