Notifications
Clear all

Macro para verificar no nome das Planilhas

3 Posts
2 Usuários
0 Reactions
1,193 Visualizações
 caje
(@caje)
Posts: 97
Trusted Member
Topic starter
 

Bom dia a todos do Planilhando.

Gostaria de saber se é possível criar um if mas com o critério do nome das planilhas exemplo.

Tenho uma planilha origem onde exporto ela para outro arquivo com o nome de histórico e a partir dai eu renomeio o nome da planilha para a data do dia
porem quando rodo a macro mais de uma vez ela da erro pois já tem uma planilha renomeada. Gostaria da ajuda de vocês para tratar esse erro.

Segue Abaixo trecho do Codigo

Sub Exportar_PLanilha()
'
' Exportar_PLanilha Macro
Dim nome As String
'
'Copiar a PLanilha  Excel vba
nome = Format(Date, "dd.mm.yyyy")

 Workbooks.Open Filename:= _
        ThisWorkbook.Path & "Historico.XLSB"
Windows("Historico.XLSB").Activate
Windows("Origem.XLSB").Activate

    Sheets("Base").Select
    Sheets("Base").Copy After:=Workbooks("Historico.xlsb").Sheets(3)
     Sheets("Base").Name = nome
Workbooks("Historico").Save
Workbooks("Historico").Close
    
End Sub

Acho que consigo criar um if onde posso colocar um end sub e caso contrario eu rodo esse trecho para exportar e renomear
porém estou com dificuldade de criar a condição para verificar nome com todas as planilhas existentes.

Se alguem puder ajuda agradeço.

Segue um exemplo em Anexo

 
Postado : 18/10/2013 9:15 am
(@tacito)
Posts: 67
Trusted Member
 

Veja se estas planilhas te atendem.

 
Postado : 18/10/2013 9:58 am
 caje
(@caje)
Posts: 97
Trusted Member
Topic starter
 

Atende Sim Obrigado Tacito.

 
Postado : 18/10/2013 11:26 am