-
Total de itens
2 -
Registro em
-
Última visita
Posts postados por Yuri Lucka
-
-
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 Integercaminho_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 ThenSet 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.Columnnome = Workbooks(Workbooks.Count).Sheets(1).Range("A1").Value
conteudo = Workbooks(Workbooks.Count).Sheets(1).Range(Cells(2, coluna), Cells(8, coluna)).ValueFor 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 IfNext
End If
Next
planilha.Close
End If
Application.ScreenUpdating = True
NextEnd Sub
VBA erro 1004
em VBA
Postado
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