|
 Saberexcel - o site das macros
Macros e procedimentos do Aplicativo Microsoft Excel VBA,
insere letras maiúsculas ao digitar na coluna(A) e também ao selecionar a coluna(B).
São dois exemplos de procedimentos Evento Worksheet_Change(Digitar) e Evento Worksheet_Selection_Change(Selecionar)
exemplo de planilha com os dois procedimentos
ao selecionar(coluna(D)) a macro irá percorrer todas as células usadas,
e preencherá com letras maiúsculas todos os ítens da coluna e o outro procedimento é digitar,
tornam maiusculas as letras ao digitar(Coluna(A)).
Espero que o exemplo possa ajudá-los.
Fiquem com Deus, E_Marcondes
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim vCelulas As Range
Dim vUltimaLinha As Long, i As Long
Set vCelulas = Application.Intersect(Target, Columns(4))
If vCelulas Is Nothing Then Exit Sub
vUltimaLinha = Saber1.Range("D" & Rows.Count).End(xlUp).Row
For i = 1 To vUltimaLinha
Saber1.Range("D" & i) = UCase$(Saber1.Range("D" & i))
Next i
[F3] = "EXECUTE A MACRO NOVAMENTE, INSERIR DADOS PARA O TESTE!"
End Sub
'Letras maiúsculas ao digitar na coluna(1) A
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vCelulas As Range
Set vCelulas = Application.Intersect(Target, Columns(1))
If Not vCelulas Is Nothing Then
Target = UCase$(Target)
End If
End Sub
Aqui inserí uma macro para auxiliar no teste.
observe que esse código é bem interessante eu uso muito esse tipo de programação,
faço referenciando o nome da folha de código da folha de Planilha e não pela folha folha de planilha diretamente.
porque, se o usuário mudar o nome da folha de planilha não ocorrerá erro. Fiz uma imagem explicando na folha de planilha
e também esta no topo é so clicar na imagem.
Esse tipo de programação esta dispostos em nossos módulos
COMO FAZER - programação Microsoft Excel VBA - Saberexcel
Sub copiar_teste()
Saber2.[C1].Copy Saber1.[D2:D100]
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA (Visual Basic Application),
sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel
|