Jump to content
Fórum Script Brasil
  • 0

Ajuda com o código VBA


Question

Olá a todos, vocês pode me ajudar com esse código? Preciso deixar as letras em maiúsculas a partir da linha A7 da coluna A. O código funciona mas ele pega toda coluna A. E eu quero que ele comece a funcionar a partir da linha 7 até o final da planilha. Segue o código. Obrigado pela atenção e sucesso.

 
'Começo da função que deixa as letras em maiúsculas
Private Sub Worksheet_Change(ByVal Target As Range)
      Application.EnableEvents = False
      On Error Resume Next
 
>>Aqui que ele pega toda coluna A, eu quero que ele comece a funcionar na linha A7 >>     If Target.Column = 1
 
' Deixa as primeiras letras em maiúsculas
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
 
'Substitui as palavras
Target.Value = Replace(Target.Value, " Dos ", " dos ")
Target.Value = Replace(Target.Value, " Da ", " da ")
Target.Value = Replace(Target.Value, " E ", " e ")
Target.Value = Replace(Target.Value, " De ", " de ")
Target.Value = Replace(Target.Value, " Do ", " do ")
 
End If
 
Application.EnableEvents = True
 
End Sub
 
Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148687
    • Total Posts
      644519
×
×
  • Create New...