Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Problema em Macro - Criar nova planilha, Nomear, e copiar nome

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
drfaraujo



Mensagens : 1
Data de inscrição : 16/04/2015

MensagemAssunto: Problema em Macro - Criar nova planilha, Nomear, e copiar nome   Qui Abr 16, 2015 6:16 pm

Bom dia,

Sou iniciante em VBA, por isso a solução pode ser simples, mas não estou enchergando!

Estou usando a MACRO abaixo para gerar uma nova planilha e automaticamente nomea-la por uma sequencia númerica.
Assim também possue um comando que copia para a Cel "I4" o nome da planilha.

Meu problema é que quando executo a macro, ela esta colando o nome de todas as planilhas nas suas respectivas Celulas I4! (não teria problema se não possuisse outras planilhas além das que estou copiando!

Como resolver???


Sub SheetCopy()
'
' SheetCopy Macro
'
' Atalho do teclado: Ctrl+Shift+N
'
Dim Sh As Worksheet, TemplateSh As Worksheet
Dim ShNum As Integer, HighestNum As Integer
Dim SheetCoreName As String


' INDICATE THE CORE SHEET NAME
SheetCoreName = " "

' INDICATE THE SOURCE SHEET
Set TemplateSh = Sheets("NOVA PLANILHA")


' DETERMINE NEXT NUMBER FOR SHEET
For Each Sh In Worksheets
If InStr(1, Sh.Name, SheetCoreName) = 1 Then
   ShNum = Val(Right(Sh.Name, Len(Sh.Name) - Len(SheetCoreName)))
   If ShNum > HighestNum Then HighestNum = ShNum
End If
Next Sh

' COPY TEMPLATE
TemplateSh.Copy after:=Sheets(Sheets.Count)

' MAKE VISIBLE
ActiveSheet.Visible = xlSheetVisible

' RENAME
ActiveSheet.Name = SheetCoreName & HighestNum + 1

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
   ws.Range("I4") = ws.Name
Next


End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Problema em Macro - Criar nova planilha, Nomear, e copiar nome   Sex Abr 17, 2015 2:48 pm

Bom dia!!

Eu não sei se entendi, mas tente isso.
Código:
    
    For i = 1 To Sheets.Count
        Cells(i, 9) = Sheets(i).Name
    Next i

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Problema em Macro - Criar nova planilha, Nomear, e copiar nome
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Criar nova tag
» Problema quando tento criar Tópico
» Problema com código de nova MP
» [tutorial] Usando time lines
» Criar uma nova área

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: