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
# 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 | Citar
 
 
Expedito Marcondes,
# 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.VB Project.Referen ces.AddFromGuid _
"{0002E157-0000 -0000-C000-0000 00000046}", 5, 3
'agora chamamos a rotina para listar os macros
Call ListandoNomesMacros
End Sub
'//==================='
Private Sub ListandoNomesMa cros()
Dim N&, Contador&, vListaMacros(20 0), Lista$
Dim Component As VBComponent
For Each Component In ActiveWorkbook. _
VBProject.VBCom ponents
With Component.CodeM odule
Contador = .CountOfDeclara tionLines + 1
Do Until Contador >= .CountOfLines
vListaMacros(N) = .ProcOfLine(Con tador, _
vbext_pk_Proc)
Contador = Contador + .ProcCountLines _
(.ProcOfLine(Con tador, 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_nada()

End Sub

Private Sub sbx_procura_por_nada()

End Sub
Responder | Responder com citação | Citar
 
 
kurtm
# 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 | Citar
 
 
PhlavioBarreto
# 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 | Citar
 
 
Expedito Marcondes r
# 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.

saberexcel.com.br/.../...

'//=======
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.C ount, "a").End(xlUp). Row
sbx.Cells(vLin, "a").Value = f1.Cells(vLin, "a")
sbx.Tab.ColorIn dex = 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 | Citar
 

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

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

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