Ir ao conteúdo
  • Cadastre-se
Cassio Miguel

RESOLVIDO duvida com macro para rg do excel

Recommended Posts

Private Sub Worksheet_Change(ByVal Target As Range)    Dim sCaractere As String    If Target.Column <> 8 Or Target.Count > 1 Then Exit Sub    Target.NumberFormat = "General"    sCaractere = UCase(Right(Target.Value, 1))    If sCaractere Like "[A-Z]" Then        Application.EnableEvents = False        Target.Value = Left(Target.Value, Len(Target.Value) - 1)        Application.EnableEvents = True        Target.NumberFormat = "##"".""###"".""###""-" & sCaractere & """"    Else        Target.NumberFormat = "##"".""###"".""###""-""#"    End IfEnd Sub

essa macro serve pra formatar RG no no excel so que ela seleciona a coluna inteira e eu gosta de so um parte da coluna EX: (H14 até H88) sei que com um pequeno ajuste deve resolver

desde ja agradeço

Compartilhar este post


Link para o post
Compartilhar em outros sites

substitua esta linha

If Target.Column <> 8 Or Target.Count > 1 Then Exit Sub


por esta

If Intersect(Target, Range("H14:H88")) Is Nothing Or Target.Count > 1 Then Exit Sub

 



 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×