| Adquirir com PagSeguro | Adquirir com PayPal | |
 |
 |
|
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″]
