Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Macro ou Codigo VBA em todas as abas ao mesmo tempo
Macro ou Codigo VBA em todas as abas ao mesmo tempo
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
Espero ter explicado, desde já agradeço a todos
Re: Macro ou Codigo VBA em todas as abas ao mesmo tempo
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
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
- Reinaldo
- 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
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
Re: Macro ou Codigo VBA em todas as abas ao mesmo tempo
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
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
- Reinaldo
- 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
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/
Re: Macro ou Codigo VBA em todas as abas ao mesmo tempo
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
Grande abraço
Re: Macro ou Codigo VBA em todas as abas ao mesmo tempo
Boa noite, Reinaldo deu certo seu código muito obrigada