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
