Excel Formatar ponto automaticamente no meio de uma descrição

[Rafael nunes da silva]

Bom dia, 

 

gostaria de saber se é possível ao digitar uma informação em uma célula, a mesma formatar pontos automaticamente entre ela

 

Ex: em uma coluna é sempre inserido nas células a seguinte informação : S13F341A, S13F341B, S13F341C e assim por diante.

 

gostaria que a digitar S13F341A a mesma retornasse S13.F34.1A automaticamente

 

seja por formula ou macro, ambas me ajudarão.

 

[deciog]

@Rafael nunes da silva , Boa Tarde

 

Não conheço por formatação normal, somente por Macro

 

Decio

 

[Rafael nunes da silva]

@deciog sabe como ficaria esse código? 

 

por macro é até melhor

[deciog]

@Rafael nunes da silva , Bom Dia.

 

Eu não sei programar em Macro só formulas, não posso ajudar.

 

Decio

 

[Edson Luiz Branco]

Bom dia, @Rafael nunes da silva

 

Qual é o critério? 3 caracteres, 1 ponto, 3 caracteres, 1 ponto, 2 caracteres... Seria isso?

Se sim, supondo que você queira monitorar as entradas dos códigos de 8 caracteres de qualquer célula da coluna A de uma determinada planilha, clique com o botão direito na "orelha" da planilha e escolha "Exibir Código".

Cole o seguinte código:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim c As Range
  If Not Intersect(Target, Me.Columns(1)) Is Nothing Then
    Application.EnableEvents = False
      For Each c In Target.Columns(1).Cells
        If Len(c.Value) = 8 Then
          c.Value = Left(c.Value, 3) & "." & Mid(c.Value, 4, 3) & "." & Right(c.Value, 2)
        End If
      Next c
    Application.EnableEvents = True
  End If
End Sub

 

[Rafael nunes da silva]

4 horas atrás, Edson Luiz Branco disse:

Bom dia, @Rafael nunes da silva

 

Qual é o critério? 3 caracteres, 1 ponto, 3 caracteres, 1 ponto, 2 caracteres... Seria isso?

Se sim, supondo que você queira monitorar as entradas dos códigos de 8 caracteres de qualquer célula da coluna A de uma determinada planilha, clique com o botão direito na "orelha" da planilha e escolha "Exibir Código".

Cole o seguinte código:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim c As Range
  If Not Intersect(Target, Me.Columns(1)) Is Nothing Then
    Application.EnableEvents = False
      For Each c In Target.Columns(1).Cells
        If Len(c.Value) = 8 Then
          c.Value = Left(c.Value, 3) & "." & Mid(c.Value, 4, 3) & "." & Right(c.Value, 2)
        End If
      Next c
    Application.EnableEvents = True
  End If
End Sub

 

Era isso mesmo. muito obrigado