CONHEÇA o BABOO PRO e a Comunidade BABOO que substituirão o site BABOO e esse fórum

Ir para conteúdo
  • Cadastre-se
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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Quer postar a sua dúvida? Cadastre-se pois é rápido e fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

×
×
  • Criar Novo...