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

Macro ou Codigo VBA em todas as abas ao mesmo tempo

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
palomakey
Colaborador
Colaborador
Mensagens: 26
Registrado em: Qui Jun 22, 2017 7:07 pm

Macro ou Codigo VBA em todas as abas ao mesmo tempo

Mensagem por palomakey »

Olá tenho uma planilha que possui diversas abas , eu crie uma macro para deletar os dados da células para fazer o preenchimento, o que ocorre é que essa planilha tem umas 25 abas, o que eu gostaria que essa macro fosse clicada apenas uma vez e fizesse a limpeza de todas as abas.
Espero ter explicado, desde já agradeço a todos


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
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Macro ou Codigo VBA em todas as abas ao mesmo tempo

Mensagem por webmaster »

Pode colocar o código da macro aqui?


palomakey
Colaborador
Colaborador
Mensagens: 26
Registrado em: Qui Jun 22, 2017 7:07 pm

Re: Macro ou Codigo VBA em todas as abas ao mesmo tempo

Mensagem por palomakey »

Oi boa noite fiz no gravador de macro
Obrigado Segue:

Sub DeletaDados()
'
' DeletaDados Macro
'

'
Range("B6:I27,L6:S27").Select
Range("L6").Activate
ActiveWindow.SmallScroll Down:=21
Range("B6:I27,L6:S27,B35:I56,L35:S56").Select
Range("L35").Activate
ActiveWindow.SmallScroll Down:=15
Range("B6:I27,L6:S27,B35:I56,L35:S56,B64:I85,O65:Q74").Select
Range("O65").Activate
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 32
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-48
Range("B6").Select
End Sub


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Macro ou Codigo VBA em todas as abas ao mesmo tempo

Mensagem por Reinaldo »

Talvez assim

Código: Selecionar todos

Sub DeletaDados()
Dim varSheet As Worksheet
Dim strSheetName As String
Dim strSheet As String
strSheet = ActiveSheet.Name 'obtem o nome da planilha incial
For Each varSheet In Sheets 'inicia loop pelas planilhas da pasta
    strSheetName = varSheet.Name
    Sheets(strSheetName).Activate
    Range("B6:I27,L6:S27,B35:I56,L35:S56,B64:I85,O65:Q74").ClearContents
    Range("B6").Select
Next
Sheets(strSheet).Activate 'retorna a planilha inicial
End Sub


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.


palomakey
Colaborador
Colaborador
Mensagens: 26
Registrado em: Qui Jun 22, 2017 7:07 pm

Re: Macro ou Codigo VBA em todas as abas ao mesmo tempo

Mensagem por palomakey »

Olá boa noite a todos.
Reinaldo testei seu código mas está dando um erro, porque parte desta planilha que será apagada está com senha, teria como acrescentar no seu código primeiro a senha para desproteger e depois , que fizer a ação proteger novamente toda a planilhas. tendo envista que todas as planilhas usam a mesma senha
Desculpe pois não havia lembrado deste detalhes.
Obrigada novamente


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Macro ou Codigo VBA em todas as abas ao mesmo tempo

Mensagem por Reinaldo »

algo +/- assim:

Código: Selecionar todos

Sub DeletaDados()
Dim varSheet As Worksheet
Dim strSheetName As String
Dim strSheet As String
strSheet = ActiveSheet.Name 'obtem o nome da planilha incial
For Each varSheet In Sheets 'inicia loop pelas planilhas da pasta
    strSheetName = varSheet.Name
    Sheets(strSheetName).Activate
    ActiveSheet.Unprotect Password:="suasenha"
    Range("B6:I27,L6:S27,B35:I56,L35:S56,B64:I85,O65:Q74").ClearContents
    Range("B6").Select
    ActiveSheet.Protect Password:="suasenha"
Next
Sheets(strSheet).Activate 'retorna a planilha inicial
End Sub
[/code/


palomakey
Colaborador
Colaborador
Mensagens: 26
Registrado em: Qui Jun 22, 2017 7:07 pm

Re: Macro ou Codigo VBA em todas as abas ao mesmo tempo

Mensagem por palomakey »

Boa noite a todos, olá Reinaldo acabei de ver seu código vou colocar na planilha, muito obrigada deve ter ficado ótimo.
Grande abraço


palomakey
Colaborador
Colaborador
Mensagens: 26
Registrado em: Qui Jun 22, 2017 7:07 pm

Re: Macro ou Codigo VBA em todas as abas ao mesmo tempo

Mensagem por palomakey »

Boa noite, Reinaldo deu certo seu código muito obrigada


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