Notifications
Clear all
2024 - VBA & Macros
5
Posts
3
Usuários
0
Reactions
831
Visualizações
Topic starter
Boa tarde !
Como posso colocar no VBA o CPF e fazer aparecer em 3 sheets na A1 ?
Obrigado !
Postado : 26/09/2016 12:38 pm
Segue exemplo...
Postado : 26/09/2016 2:53 pm
Topic starter
Não seria isso, mas isso, pois ainda não apareceu em array
Private Sub Worksheet_Activate()
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim sheetsArray As Variant
sheetsArray = Array("Plan1", "Plan2", "Plan3")
ThisWorkbook.Sheets(sheetsArray).Range("D1").FormulaLocal = "XXX.XXX.XXX-XX"
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Postado : 26/09/2016 4:05 pm
Veja se é isto :
Private Sub Worksheet_Activate()
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim sheetsArray As Variant
sheetsArray = Array("Plan1", "Plan2", "Plan3")
For Each x In sheetsArray
ThisWorkbook.Sheets(x).Range("D1").FormulaLocal = "XXX.XXX.XXX-XX"
Next x
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 26/09/2016 5:29 pm
Topic starter
Deu certo Mauro ! Obrigado !
Para ter efeito tem q fechar todo excel !
Postado : 26/09/2016 6:11 pm