Excel VBA Planilhas copiar lista para todas folhas planilhas


Adquira já o Curso Excel VBA Expert : Promoção

Adquirir com PagSeguro    Adquirir com PayPal
excel-vba-treinamento-pagseguro   excel-vba-treinamentos-paypal
     

Escola SaberExcel VBA Estudos - Didáticos SaberExcel VBA

PROMOÇÃO ESPECIAL - EXCEL VBA Adquirir o Material Didático Escola SaberExcel VBA Estudos

Aprenda Excel VBA com os didáticos SaberExcel


Treinamentos com Macros, Fórmulas e Funções     – Assine já
site…: https://www.saberexcel.com.br
Email….: [email protected]
 Fone….: (16) 9.8133 – 3066 – Op. TIM
Video Aulas: mais de  500 – 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 fácil 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.

 Adquira já pelo PagSeguro.

PROMOÇÃO ESPECIAL – EXCEL VBA      Adquirir Todo Material Didático Escola SaberExcel VBA Estudos

u – Procedimentos de Aquisição dos produtos Didáticos SaberExcel

Baixe o exemplo de planilha contendo os macros acima do Post:

[email-download-link namefield=”YES” id=”227″]

Deixe um comentário

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *