Escola Saberexcel VBA Estudos® - Treinamentos com Macros & Curso Excel VBA Planilhas

Escola SaberExcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Escola SaberExcel VBA Estudos.
Treinamentos com Macros, Fórmulas e Funções      

Adquira Já:  Area de Membros.

site...: https://www.saberexcel.com.br
Email....: O endereço de e-mail address está sendo protegido de spambots. Você precisa ativar o JavaScript enabled para vê-lo.
Fone....: (16) 9.8133 - 3066 - Op. TIM
Video Aulas: 260 - Fazendo mais e escrevendo menos.
(video aulas são publicadas periodicamente)

'///======================='
macro
COPIA OS VALORES PARA TODAS AS FOLHAS PLANILHAS
Ao executar o macro, será copiado os valores da coluna(A) da planilha1, para todas as folhas de planilhas. E também insere cores aleatorias nas abas de planilha a cada interação. Sendo Assim novos valores, alterados ou inseridos também são automaticamente, inseridos ou corrigidos.
Fique com Deus,
Expedito Marcondes
Escola Saberexcel VBA Estudos

'///======================='
DUVIDA.
Olá, daria pra desenvolver código facil de entender para o caso abaixo? obrigado. Tenho uma pasta excel com 11 planilhas(abas).
Na plan1 tenho de A1 ate A10, dez nomes. Quero que os nomes das planilhas 2 até 11 sejam aquele 10 nomes da plan1.
Caso A1 de plan1 mude de Pedro para Paulo, a plan2 que tem nome Pedro mudará para Paulo. 
//========================='
(ASSISTA NOSSAS VIDEO AULAS DE PROGRAMAÇÃO)
//========================='
RESPOSTA: Prezado segue a planilha programada, acho que poderá ajudar mais pessoas, por isso esta publicada no site.

Sub sbx_copiar_p_todas()
Dim wPlan As Worksheets
Dim vLin As Integer
Set f1 = Planilha1
Set wkf = Application.WorksheetFunction
For st = 2 To Sheets.Count
Set sbx = Sheets(st) 'somente para substituir (sheets(st))
For vLin = 1 To f1.Cells(Rows.Count, "a").End(xlUp).Row
sbx.Cells(vLin, "a").Value = f1.Cells(vLin, "a")
sbx.Tab.ColorIndex = wkf.RandBetween(3, 56)
sbx.Columns("A").AutoFit
Next vLin
Next st
Set f1 = Nothing
Set sh = Nothing
Set wkf = Nothing
End Sub
'//==================='
'macro para limpar todas planilhas (teste)
Sub sbx_deletar_todos_teste()
Dim wPlan As Worksheets
Dim vLin As Integer
Set f1 = Planilha1
Set wkf = Application.WorksheetFunction
For st = 2 To Sheets.Count
Set sbx = Sheets(st) 'somente para substituir (sheets(st))
For vLin = 1 To f1.Cells(Rows.Count, "a").End(xlUp).Row
sbx.Cells(vLin, "a").Value = ""
sbx.Tab.ColorIndex = xlNone
Next vLin
Next st
Set f1 = Nothing
Set Sh = Nothing
Set wkf = Nothing
End Sub
'//============='
Escola SaberExcel VBA Estudos.
desde 2001

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos
Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.




 u - Procedimentos de Aquisição dos produtos Didáticos SaberExcel
 Baixe o exemplo de planilha contendo os macros acima:
   SaberExcel copiar lista para todas folhas planilhas