Jump to content
Sign in to follow this  
Ricardo_Ruivo

[Resolvido] Comparar nome das folhas de um livro

Recommended Posts

Ricardo_Ruivo

Boa noite,

estou a desenvolver uma macros em que guardo cada registo em uma nova folha do livro. O nome da nova folha é introduzido pelo utilizador numa textbox. O que pretendo é fazer uma comparação entre o nome introduzido na textbox e o nome das folhas já existentes.

Alguém sabe qual é o comando que me permite importar o nome das folhas já existentes?

Tenho o seguinte código:

'Guarda o registo numa nova folha
Private Sub CommandButton1_Click()

nome = TextBox1.Text
Worksheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = nome

End Sub

Obrigado pela ajuda

Share this post


Link to post
Share on other sites
Ricardo_Ruivo

Está resolvido

'Guarda o registo numa nova folha
Private Sub CommandButton1_Click()

Dim nome As String

'MsgBox (nome)
nome = TextBox1.Text

Dim sh As Worksheet, flg As Boolean

For Each sh In Worksheets
If sh.Name Like nome Then flg = True: Exit For
Next

If flg = True Then
MsgBox "Found!"
Exit Sub
Else
Sheets.Add.Name = nome
End If

End Sub

Share this post


Link to post
Share on other sites
FreiNando

Usa esta funcção simples para saber se existe uma folha com o nome pretendido.

Public Function ExisteFolha(Nome As String) As Boolean
    On Error Resume Next
    ExisteFolha = Worksheets(Nome).Index
End Function


O caminho mais curto para conseguir fazer muitas coisas é fazer uma de cada vez. Samuel Smiles

Share this post


Link to post
Share on other sites
Ricardo_Ruivo

Usa esta funcção simples para saber se existe uma folha com o nome pretendido.

Public Function ExisteFolha(Nome As String) As Boolean
    On Error Resume Next
    ExisteFolha = Worksheets(Nome).Index
End Function

Obrigado pela ajuda :D

Também funciona. :)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.