Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Macro copiar pasta de trabalho e copiar registros

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
douglasr20
Colaborador
Colaborador
Mensagens: 11
Registrado em: Sex Jul 03, 2020 5:56 pm

Macro copiar pasta de trabalho e copiar registros

Mensagem por douglasr20 »

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!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
muca
Acabou de chegar
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

Mensagem por muca »

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


Renan10
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qui Jul 16, 2020 12:17 pm

Re: Macro copiar pasta de trabalho e copiar registros

Mensagem por Renan10 »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder