Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Macro copiar pasta de trabalho e copiar registros
-
- Colaborador
- Mensagens: 11
- Registrado em: Sex Jul 03, 2020 5:56 pm
Macro copiar pasta de trabalho e copiar registros
Olá! Como posso criar uma macro que gere uma cópia da pasta de trabalho e copie alguns registros da antiga? Por exemplo, mudou o ano 2020 para 2021 e ainda possuo faturas a vencer ou ordem de serviço a serem concluídas e esses registros precisam constar na pasta de trabalho de 2021. Desculpem se não tenho uma planilha para print, é que é uma pergunta meio teórica mesmo!
- muca
- Acabou de chegar
- Mensagens: 5
- Registrado em: Dom Fev 05, 2017 4:58 pm
- Localização: São José dos Campos(SP)
- Contato:
Re: Macro copiar pasta de trabalho e copiar registros
Sub Vincendas()
Dim P As String, UltimaLinha As String, Lin As String, i As Integer
P = Planilha4.Cells(1, 1) + 3 'Última linha da aba destino
Planilha4.Range("B4:F" & P).ClearContents 'Limpa aba destino
UltimaLinha = Planilha1.Cells(Rows.Count, "A").End(xlUp).Row 'Última linha aba origem dos dados
Lin = 4 'primeira linha aba de destino
For i = 3 To UltimaLinha 'percorre a aba de origem
If Planilha1.Cells(i, 2) > Date Then 'Se data for maior que data atual
Planilha4.Cells(Lin, 2) = Planilha1.Cells(i, 2)
Planilha4.Cells(Lin, 3) = Planilha1.Cells(i, 4)
Planilha4.Cells(Lin, 4) = Planilha1.Cells(i, 5)
Planilha4.Cells(Lin, 5) = Planilha1.Cells(i, 6)
Planilha4.Cells(Lin, 6) = Planilha1.Cells(i, 7)
Lin = Lin + 1
End If
Next
Range("B2").Select
MsgBox "Filtro finalizado"
End Sub
Dim P As String, UltimaLinha As String, Lin As String, i As Integer
P = Planilha4.Cells(1, 1) + 3 'Última linha da aba destino
Planilha4.Range("B4:F" & P).ClearContents 'Limpa aba destino
UltimaLinha = Planilha1.Cells(Rows.Count, "A").End(xlUp).Row 'Última linha aba origem dos dados
Lin = 4 'primeira linha aba de destino
For i = 3 To UltimaLinha 'percorre a aba de origem
If Planilha1.Cells(i, 2) > Date Then 'Se data for maior que data atual
Planilha4.Cells(Lin, 2) = Planilha1.Cells(i, 2)
Planilha4.Cells(Lin, 3) = Planilha1.Cells(i, 4)
Planilha4.Cells(Lin, 4) = Planilha1.Cells(i, 5)
Planilha4.Cells(Lin, 5) = Planilha1.Cells(i, 6)
Planilha4.Cells(Lin, 6) = Planilha1.Cells(i, 7)
Lin = Lin + 1
End If
Next
Range("B2").Select
MsgBox "Filtro finalizado"
End Sub
Re: Macro copiar pasta de trabalho e copiar registros
Boa noite.
Tenho um problema semelhante.
Tenho uma macro que gera o relatório e exporta em excel em uma nova pasta em formato de compatibilidade.
Gostaria de saber como faço para salvar está pasta de trabalho gerada no meu PC de forma automática.
Obrigado
Tenho um problema semelhante.
Tenho uma macro que gera o relatório e exporta em excel em uma nova pasta em formato de compatibilidade.
Gostaria de saber como faço para salvar está pasta de trabalho gerada no meu PC de forma automática.
Obrigado