Módulo VBA Maiúsculas

jcgmcs

(@jcgmcs)

Posts: 69

Estimable Member

Topic starter

Boa tde!

Peço ajuda para um código dentro do Módulo.

Tudo que digitar em minúscula transforme em Maiúsculas quando teclar "Enter"

As colunas são: B, C, G, H e K

A partir da linha 5

Este tópico foi modificado 2 meses atrás by jcgmcs

Postado : 22/10/2024 1:05 pm

kev027

(@kev027)

Posts: 64

Trusted Member

No evento Change da Sheet, cole o código:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    
    ' Trata possíveis erros
    On Error Resume Next
    
    If Target.Value = Empty Then

        End
        
    End If
    
    ' Sendo 2 = B; 3 = C; 7 = G; 8 = H; 11 = K
    Select Case Target.Column
    
        Case 2, 3, 7, 8, 11
            
            If Target.Row >= 5 Then
            
                Target.Value = UCase(Target.Value)
                
            End If
            
    End Select

End Sub

Postado : 01/11/2024 10:00 pm

jcgmcs

(@jcgmcs)

Posts: 69

Estimable Member

Topic starter

Kev blz!

Adaptei aki como dito e não não sei o pq partindo do 11 = K qdo dou Enter planilha trava e fica maior
tempão Calculando Processador...

Pode por favor dar uma olhadinha ae em meus códigos oq pode ser feito pra corrigir isso...

Private Sub CommandButton1_Click()
cxRelatorio.Show vbModeless

End Sub

Private Sub CommandButton2_Click()
cxRelatorio.Show vbModeless

End Sub

Private Sub CommandButton3_Click()
cxRelatorio.Show vbModeless

End Sub

Private Sub CommandButton4_Click()
cxRelatorio.Show vbModeless

End Sub

Private Sub CommandButton5_Click()
cxRelatorio.Show vbModeless

End Sub

Private Sub CommandButton6_Click()
cxRelatorio.Show vbModeless

End Sub

Private Sub CommandButton7_Click()
cxRelatorio.Show vbModeless

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim lngAlt As Long
If Target.Row < 5 Or Target.Column <> 11 Or Range("AP" & Target.Row).Value = "" Then Exit Sub
Cancel = True: Columns(11).ClearComments: lngAlt = 1.5
If Len(Range("AP" & Target.Row).Value) > 150 Then lngAlt = lngAlt + 1.1
If Len(Range("AQ" & Target.Row).Value) > 150 Then lngAlt = lngAlt + 1.1
If Len(Range("BL" & Target.Row).Value) > 150 Then lngAlt = lngAlt + 1.1
Target.AddComment.Text Text:=Left(Range("AP" & Target.Row).Value, 253) & vbLf & _
Left(Range("AQ" & Target.Row).Value, 253) & vbLf & Left(Range("BL" & Target.Row).Value, 253)
With Target.Comment
With .Shape.TextFrame.Characters.Font
.ColorIndex = 1 'cor da fonte
.Size = 10 'tamanho da fonte
.Name = "Arial" 'tipo da fonte
End With
.Shape.TextFrame.AutoSize = True
If .Shape.Width > 930 Then
.Shape.Width = 930
.Shape.Height = lngAlt * 20
End If
.Visible = True
.Shape.Top = Target.Comment.Parent.Top - 60
.Shape.Left = Target.Comment.Parent.Left - 630
.Shape.Fill.ForeColor.SchemeColor = 41 'cor de preenchimento
End With

End Sub

Option Explicit 'Por kev027

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Colunas As Range

Set Colunas = Range("B5:GY5000")

[A5:A5000] = Clear

If Not Application.Intersect(Colunas, Range(Target.Address)) Is Nothing Then
Linha = Target.Row

Range("A" & Linha).Value = "X"

End If

[B1] = "PG. " & Application.RoundDown(ActiveCell.Row / 47, 0) + 1 'Conta Página

Columns(11).ClearComments

'------------------------------------------------------
'Cor SIM Cor NÃO - Zebrado

'=MOD(LIN();2)=1 Amarelo
'=$A5="X" Laranja
'--------------------------------------------------------

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

Dim PosiçãoBarra As Long
Dim Texto As String
Dim Ano As String
Dim AnoCheio As String
Dim TemSinal As String

Application.EnableEvents = False
If Target.Count > 1 Then
Application.EnableEvents = True
Exit Sub
End If

If Target.Row > 1 And Target.Column = 18 Then
If Target.Value <> "" Then
TemSinal = Right(Target.Value, 1)
PosiçãoBarra = InStr(1, Target.Value, "/", vbTextCompare)
Texto = Mid(Target.Value, 1, PosiçãoBarra - 5)
Ano = Mid(Target.Value, PosiçãoBarra + 1, 2)
AnoCheio = Left(Year(Date), 2) & Ano
If TemSinal = "+" Then
Range("BB" & Target.Row).Value = Texto & "/" & AnoCheio & "+"
Range("BB" & Target.Row).Value = UCase(Range("BB" & Target.Row).Value)
Else
Range("BB" & Target.Row).Value = Texto & "/" & AnoCheio
Range("BB" & Target.Row).Value = UCase(Range("BB" & Target.Row).Value)
End If
Else
Range("BB" & Target.Row).Value = " "
End If
End If

Application.EnableEvents = True