Notifications
Clear all

Quantidade de linhas no título da ABA

6 Posts
2 Usuários
0 Reactions
1,367 Visualizações
(@ronierick)
Posts: 16
Active Member
Topic starter
 

Pessoal, bom dia.

Estou com uma necessidade de colocar a quantidade de linhas de uma planilha em seu título de aba.
Para ser mais claro estou colocando uma imagem e também uma planilha como exemplo em anexo.

Existe essa possibilidade?!!

Obrigado!!

 
Postado : 12/12/2012 8:08 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite Ronie

Pelo que eu sei não existe essa posibilidade, com as funções nativas do excel.

Se a informação foi útil, clique na mãozinha que fica ao lado da ferramenta Citar.

Um abraço.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/12/2012 4:17 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Se eu entendi bem, a única chance seria tentar VBA.

Sub test_AleVBA()
    MsgBox AleVBATeste
End Sub

Function AleVBATeste()
         
    Dim myNUMBER As Long
    Dim myTAB_NAME
    Dim vResult
     
    With ActiveWorkbook
        With ActiveSheet
            myTAB_NAME = .Name
            myNUMBER = .Range("A65534").End(xlUp).Row
            vResult = myNUMBER - 3
            AleVBATeste = myTAB_NAME & " - " & vResult & " - " & Range("a16").Value
        End With
    End With
     
End Function

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/12/2012 5:03 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Por formula, até onde sei nao é possível, mas podemos utilizar o VBA para criar a situação, pela sua figura, temos a Aba CONTAGEM e você quer que a mesma mantenha o nome e acrescente a contagem dos itens na coluna A, então utilize a seguinte rotina :

Sub TotalNaAba()
    
    Dim total As Variant

    total = (Cells(Rows.Count, 1).End(xlUp).Row) - 1
    
    ActiveSheet.Name = "CONTAGEM = " & total
    
End Sub

Como a mesma utiliza ActiveSheet, significa que tem de ser rodada na aba ativa, podemos ainda utilizar uma outra variante associando pelo indice da aba, por exemplo se a aba em questão for a primeira utilizamos :

Sheets(1).Name = "CONTAGEM = " & total

Faça os testes e veja se é isto.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 13/12/2012 7:48 pm
(@ronierick)
Posts: 16
Active Member
Topic starter
 

Como faço pra incluir esse código vba que você me passou?

 
Postado : 17/12/2012 3:36 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!
Com o excel já aberto aperte Alt + F11, depois Alt + I + M, cole o código dentro.
http://www.ambienteoffice.com.br/office ... os_em_vba/

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/12/2012 4:31 pm