Ir para conteúdo

Leaderboard


Popular Content

Showing content with the highest reputation on 31/10/2018 in all areas

  1. 1 point
    Barde tarde! Sr. Osvaldo Os dois códigos funcionaram, estou satisfeito. Muito obrigado.
  2. 1 point
    Olá, Geneci. Seguem duas opções. Veja se aproveita alguma delas. opção1 - cole a fórmula abaixo em F1 e o código abaixo no módulo da planilha. =SE(CÉL("col")>1;"";"Registro "&CÉL("lin")-9&" de "&CONT.VALORES(A:A)) ~~~> se retornar #NOME substitua col por coluna Private Sub Worksheet_SelectionChange(ByVal Target As Range) Calculate End Sub opção2 - cole o código abaixo no módulo da planilha Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column > 1 Or Target.Value = "" Then [F1] = "": Exit Sub [F1] = "Registro " & Target.Row - 9 & " de " & Application.CountA([A:A]) End Sub obs. teste uma opção por vez, ou em planilhas diferentes, pois os dois códigos não podem ser instalados juntos.
This leaderboard is set to São Paulo/GMT-02:00
×