Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
sagostinho

código vba para mudar o nome de uma folha

Recommended Posts

sagostinho

olá a todos sou novo por estas bandas. estou a fazer um ficheiro em excel e gostava de ao colocar por exemplo na célula a1 o numero 100 ele me alterasse o nome da folha para o numero 100. na folha seguinte a mesma coisa e por ai fora tenho 30 folhas no livro. não sei se me estou a fazer entender será que me poderiam ajudar obrigada

Share this post


Link to post
Share on other sites
FreiNando

Olá

É possivel, mas não vejo qual a utilidade em mudar o nome da folha através do valor de uma célula.

No entanto, aqui deixo um exemplo de código para colocar em cada folha:

Private Sub Worksheet_Change(ByVal Target As Range)
    '"A1" Coluna 1, Linha 1
    If Target.Column = 1 And Target.Row = 1 Then
        Dim s As String
        s = Trim(Target.Value)
        If s = "" Then Exit Sub
        Me.Name = s
    End If
End Sub

Cuidado, porque ao alterar o nome das folhas algumas referências poderão não actualizar.


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
jpaulino

O exemplo do FreiNando funciona, mas gosto mais de fazer desta forma a validação da célula:

Private Sub Worksheet_Change(ByVal Target As Range)
    '[a1] ou Range("A1")
    If Not Intersect([a1], Target) Is Nothing Then
        Dim s As String
        s = Trim(Target.Value)
        If s = "" Then Exit Sub
        Me.Name = s
    End If
End Sub

Share this post


Link to post
Share on other sites
sagostinho

obrigada FreiNando e jpaulino voçes são os maiores era mesmo isto que eu queria vai-me poupar imenso tempo lá no trabalho ;):thumbsup: :cheesygrin: mais uma vez obrigada

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  

×

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.