Excel Macro para atualizar célula em várias abas que está com a função TabName()

[paulo merlim]

Bom dia

Estou com uma planilha onde preciso gerar varias abas. Em um celula especifica de cada aba tem a Função Tabname(). Toda vez que crio uma nova aba tenho que entrar aba por aba para dar enter na celula para atualizar o valor.

 

Como faço para não precisar entrar em aba por aba para atualizar essas celulas?

Controle de OSs Calibração.rar

[Midori]

11 minutos atrás, paulo merlim disse:

Toda vez que crio uma nova aba tenho que entrar aba por aba para dar enter na celula para atualizar o valor.

Qual célula?

[paulo merlim]

Midori,

 

Célula C2 de cada aba. Nela estara a função tabname ..

[Midori]

15 minutos atrás, paulo merlim disse:

Célula C2 de cada aba. Nela estara a função tabname ..

Na planilha que anexou não tem essa função nessa célula (essa célula aliás está mesclada nas abas da ordem de serviço). Veja se anexou o arquivo correto.

 

Parece que você substituiu essa função pela fórmula da célula D3 que pega o valor na coluna F da planilha OS's...

[paulo merlim]

Midori,

 

a função está a partir da aba 47 que foi quando adicionei a formula.

[Midori]

@paulo merlim Encontrei, mas mão seria melhor a macro já colocar o nome da planilha como valor em vez dessa fórmula? Assim não terá que ficar atualizando ela. Com uma macro é simples deixar todas essas células das planilhas já criadas com o formato texto atribuindo o nome da aba.  E depois sempre que criar a planilha é só colocar o nome dela no forma texto na célula.

 

Mas se quiser mesmo usar essa fórmula, esta macro vai automatizar processo de atualização da fórmula em todas as abas,

 

Sub Atualizar()
    Dim Planilha As Worksheet
    
    For Each Planilha In ThisWorkbook.Worksheets
        Planilha.Activate
        Planilha.Calculate
    Next Planilha
End Sub

 

[paulo merlim]

@Midori,

 

certamente seria melhor sim já sair com o campo preenchido... mais não consegui fazer isso... Sou bem iniciante em macros ainda e apanho muito kkk...se puder me ajudar alterando o que já tenho la...

[Midori]

@paulo merlim Para deixar como valor é só atribuir o nome da aba. Na macro Duplica_e_Renomeia coloque esse comando no fim da Sub,

 

Plan.[D3] = Plan.Name

 

D3 é a célula que receberá o valor.