Ir para conteúdo
Fórum Script Brasil
  • 0

VBA erro 1004


Yuri Lucka

Pergunta

alguém poderia me ajudar fazendo favor, pela primeira vez estou travado em um código de VBA.
Está ocorrendo o erro 1004, e já tentei de tudo mas não consigo entender o erro.

OBS( sou novo no VBA kkk então ignore se tiver muito feio esse código)


o código é grande.

Segue o código

 

Sub Puxar_fechamento()

Application.ScreenUpdating = False
Dim pasta As Object
Dim caminho_pasta As String
Dim planilha As Object
Dim nome As String

'sistema de repeticao para extrair o mes
Dim coluna As Integer

caminho_pasta = "C:\Users\ricar\Desktop\treino\"

Set pasta = CreateObject("scripting.filesystemobject").getfolder(caminho_pasta)


For Each arquivo In pasta.Files
If InStr(arquivo.Name, "Thumbs") = 0 Then

Set planilha = Workbooks.Open(caminho_pasta & arquivo.Name)

For Each mes In Workbooks(Workbooks.Count).Sheets(1).Range("B1:M1")
If mes = ThisWorkbook.Sheets(1).Range("S14") Then
coluna = mes.Column

nome = Workbooks(Workbooks.Count).Sheets(1).Range("A1").Value
conteudo = Workbooks(Workbooks.Count).Sheets(1).Range(Cells(2, coluna), Cells(8, coluna)).Value

For Each meses In ThisWorkbook.Sheets(nome).Range("B40:M40")
If meses = ThisWorkbook.Sheets(1).Range("S14") Then
coluna = meses.Column


ThisWorkbook.Sheets(nome).Range(Cells(41, coluna), Cells(47, coluna)) = conteudo         '( o erro está nessa linha)


End If

Next

End If

Next

planilha.Close

End If


Application.ScreenUpdating = True

    
Next

End Sub

Editado por Yuri Lucka
Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

Consegui resolver.

Segue o código pra quem tiver curiosidade de como ficou:

 

Sub Puxar_fechamento()


Dim pasta As Object
Dim caminho_pasta As String
Dim planilha As Object
Dim nome As String
Dim coluna As Integer

caminho_pasta = "C:\Users\ricar\Desktop\treino\"
Set pasta = CreateObject("scripting.filesystemobject").getfolder(caminho_pasta)
For Each arquivo In pasta.Files
    If InStr(arquivo.Name, "Thumbs") = 0 Then
    
    Set planilha = Workbooks.Open(caminho_pasta & arquivo.Name)
        
        For Each mes In Workbooks(Workbooks.Count).Sheets(1).Range("B1:M1")
        If mes = ThisWorkbook.Sheets(1).Range("S14") Then
        coluna = mes.Column
        nome = Workbooks(Workbooks.Count).Sheets(1).Range("A1").Value
        conteudo = Workbooks(Workbooks.Count).Sheets(1).Range(Cells(2, coluna), Cells(8, coluna)).Value
            
            For Each meses In ThisWorkbook.Sheets(nome).Range("B40:M40")
            If meses = ThisWorkbook.Sheets(1).Range("S14") Then
            coluna = meses.Column
            ThisWorkbook.Sheets(nome).Activate
            Range(Cells(41, coluna), Cells(47, coluna)) = conteudo

            planilha.Close
            End If
            Next
        End If
        Next
    End If
Next

End Sub

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...