Ir para conteúdo

A partir do dia 19/11/2018, o foco do Fórum do BABOO é apenas Windows e Segurança Digital conforme informado no início de 2018.
As áreas que não têm relação com esses dois assuntos foram arquivadas e seus tópicos estão disponíveis para consulta na área Tópicos Antigos.

GENECI

RESPONDIDO Quantidade e a posição do registro.

Mensagem Recomendada

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.


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×