Home Excel - Dicas Microsoft Excel VBA Excel VBA - Worksheets Excel vba worksheet renomear planilha ativa dados celula

Excel vba worksheet renomear planilha ativa dados celula

E-mail Imprimir PDF

Saberexcel - site das macros

Macro do Aplicativo Microsoft Excel VBA, contém renomeia a folha de planilha ativa, se a célula (D1) estiver preeenchida,
será inserido o nome relativo ao valor da célula(D1), senão será preenchido com o nome "Nova Planilha Saberexcel"

Sub Nomeando_planilha_ativa()
On Error Resume Next
If Range("D10").Value = "" Then
ActiveSheet.Name = "Nova Planilha Saberexcel"
MsgBox "Nome [" & ActiveSheet.Name & " ] porque a célula D10 está vazia", _
vbInformation, "Saberexcel - o site das macros"
Exit Sub
Else
ActiveSheet.Name = Range("D10").Value
MsgBox "Planilha nomeada como [ " & Range("D10") & " ] valor da célula[D10]", _
vbInformation, "Saberexcel - o site das macros"
End If
End Sub


Aprenda Aplicativo Microsoft Excel VBA com SaberExcel



    Baixe a planilha exemplo da macro acima
vba worksheet renomear planilha ativa dados celula (17.22 kB 2010-11-30 18:50:05)   

Última atualização em Sex, 26 de Agosto de 2011 09:18  

Comentários  

 
# willison 09/01/2014 12:43
gostaria de uma macro que ao clicar em comandbutton, seria execultado uma procura nas woorkbooks, se encontra-se varias woorkbooks aberta, apenas ela (a que contem a macro "texte.xlsm") seria fechada (close) apenas ela.
Responder | Responder com citação | Citação
 
 
# Expedito Marcondes, 10/01/2014 17:10
Option Explicit
'//========' SEJA UM ASSINANTE ESCOLA SABEREXCEL
'------------------------------------'
Prezado Wagner, veja bem, não sei como é o seu projeto, como é um assunto de conhecimento Pleno em Programação, estou lhe passando um a rotina que faz uma varredura no Workbook Ativo, e lista os macros existentes, com isso você poderá fazer o For em seus Livros Abertos,
e rodar o macro, assim que encontrar o Macro (X) que voce procura, neste ponto voce manda fechar o Workbook.
Fique com Deus,
Expedito Marcondes.
"//=============ABAIXO OS PROCEDIMENTOS /======'
'macro habilita a referencia:
'Microsoft Visual Basic for Applications Extensibility 5.3
esse macro insere a referencia Microsoft Visual Basic for Applications
'Extensibility 5.3 para que o macro funcione

Sub Listar_macros()
On Error Resume Next '< error = referencia endereço set
'para adicionar a referencia (biblioteca)
'set referencia Microsoft Visual Basic for Applications
'Extensibility 5.3
ThisWorkbook.VBProject.References.AddFromGuid _
"{0002E157-0000-0000-C000-000000000046}", 5, 3
'agora chamamos a rotina para listar os macros
Call ListandoNomesMa cros
End Sub
'//==================='
Private Sub ListandoNomesMa cros()
Dim N&, Contador&, vListaMacros(20 0), Lista$
Dim Component As VBComponent
For Each Component In ActiveWorkbook. _
VBProject.VBComponents
With Component.CodeModule
Contador = .CountOfDeclarat ionLines + 1
Do Until Contador >= .CountOfLines
vListaMacros(N) = .ProcOfLine(Cont ador, _
vbext_pk_Proc)
Contador = Contador + .ProcCountLines _
(.ProcOfLine(Cont ador, vbext_pk_Proc), _
vbext_pk_Proc)
Lista = Lista & vbCr & vListaMacros(N)
If Contador < .CountOfLines Then N = N + 1
Loop
End With
N = N + 1
Next
MsgBox "LISTA DOS MACROS NO LIVRO ATIVO " & vbCrLf & Lista, , "Listando Macros - Escola SaberExcel"
End Sub
'//======='
'esses macros abaixo for am criados com a finalidade de preencher a lista de macros solicitado pelos procedimentos acima.
'//======='
Private Sub sbx_nao_existe( )

End Sub

Private Sub sbx_nao_faz_nad a()

End Sub

Private Sub sbx_procura_por _nada()

End Sub
Responder | Responder com citação | Citação
 
 
# kurtm 13/10/2014 09:05
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.
Responder | Responder com citação | Citação
 
 
# PhlavioBarreto 29/07/2016 09:22
Citando kurtm:
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.



up!
Responder | Responder com citação | Citação
 
 
# Expedito Marcondes r 29/07/2016 17:16
Prezado Amigo, obrigado pelo contato.
para atender sua dúvida, fiz os seguintes códigos, fácil e eficaz.
'// no link abaixo esta disponível a planilha e os códigos abaixo.

http://www.saberexcel.com.br/index.php/excel-vba-dicas/217-excel-vba-dicas/livre-excel-vba-worksheets/422-saberexcel-copiar-lista-para-todas-folhas-planilhas

'//=======
Sub sbx_copiar_p_to das()
Dim wPlan As Worksheets
Dim vLin As Integer
Set f1 = Planilha1
Set wkf = Application.WorksheetFuncti on
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
f1.[d3].Value = "Valores copiados para todas folhas de planilhas"
Set f1 = Nothing
Set Sh = Nothing
Set wkf = Nothing

End Sub

Fiquem com Deus,
Expedito Marcondes.
Responder | Responder com citação | Citação
 

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje6
mod_vvisit_counterOntem5104
mod_vvisit_counterEsta Semana29770
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês43499
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10466328
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA