Excel Excel VBA - verificar se aba ja existe

[Yuri Pedroso]

Estou com uma dificuldade em uma macro de uma planilha que estou criando

Quero fazer um procedimento mas não sei como fazê-lo (nem se é possível)

A planilha consiste numa agenda, onde eu insiro uma data e ele cria uma nova aba nomeada com essa data

o problema está em quando preciso registrar alguma coisa em uma aba que ja existe, será que tem como ele verificar se o nome dessa aba a ser criada ja existe e me levar direto pra essa aba ja existente?

 

Não sei se ficou claro rsrs mas agradeço desde  já!

[Midori]

@Yuri Pedroso Você pode usar uma função para verificar se a planilha já existe assim,

 

If AbaExiste(PlanNome) Then
    ThisWorkbook.Worksheets(PlanNome).Activate
End If

...

Function AbaExiste(Nome As String) As Boolean
    Dim Tmp As String
    AbaExiste = True
    On Error GoTo FIM
    Tmp = ThisWorkbook.Worksheets(Nome).Name
FIM: If Err.Number = 9 Then AbaExiste = False
End Function

 

[Visitante]

Instale uma cópia do código abaixo no módulo da planilha em que você insere a data.

  

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
 If Target.Address <> "$A$1" Or Target.Value = "" Then Exit Sub
 If Evaluate("IsError('" & Format([A1], "dd-mm-yy") & "'!A1)") = True Then
  On Error Resume Next
  Sheets.Add(, Sheets(Sheets.Count)).Name = Format([A1], "dd-mm-yy")
 Else
  Sheets(Format([A1], "dd-mm-yy")).Activate
 End If
End Sub

Considerei que a data é inserida em A1, altere no código se necessário.

[Yuri Pedroso]

@osvaldomp  Funcionou perfeitamente!

 

Obrigado!

[Patropi]

@Yuri Pedroso

 

Você se esqueceu de clicar em Curtir nas resposta que contribuíram e também marcar o tópico como Resolvido.

Na minha assinatura tem um link para uma instrução de como proceder.

 

[]s