Es necesario estar inscrito para dejar tu duda, comentario y/o respuesta

Todos los posts

Sin respuesta

Excel

Power BI

Power Query

Power Pivot

DAX

Macros VBA

SQL

Comentarios en clases

JuanRodriguez603

publicó en la clase

Caso práctico: Cambiar texto a MAYÚSCULAS
Buenos dí­as Sergio yo harí­a la siguiente macro para preguntar 
si quiere convertir a Mayúsculas o a Minúsculas:

Sub Convertir_Mayusc_Minusc()

Dim Celda As Range
Dim Resp As Byte

Resp = InputBox("Digite la opción que desea" & vbNewLine & _
        "1. Cambiar a Mayúsculas" & vbNewLine & _
        "2. Cambiar a Minúsculas", _
        "Convertir a Mayúsculas o Minúsculas", 1)
        
For Each Celda In Selection
        
    Select Case Resp
        Case 1
            Celda.Value = VBA.UCase(Celda)
        Case 2
            Celda.Value = VBA.LCase(Celda)
        Case Else
            MsgBox "Opción No Valida": Exit Sub
    End Select
    
Next Celda
    
End Sub

Respuestas

SusanaUztariz245 respondió hace 1 month ago:

Sub Convertir_Mayusc()

Dim Celda As Range
Dim Opcion  As Variant
Dim Texto As String

Texto = "Elige uns opcion:" & vbNewLine & _
        vbNewLine & " 1. MAYÚSCULAS" & _
        vbNewLine & " 2. minúsculas"

Opcion = InputBox(Texto, "Excela", 1)


Select Case Opción

 Case 1
    For Each Celda In Selection
        Celda.Value = VBA.UCase(Celda)
    Next Celda
    
    Case 2
         For Each Celda In Selection
        Celda.Value = VBA.LCase(Celda)
    Next Celda
    
    Case Else
    
    MsgBox "Eligio un valor no asignado", vbCritical, "Excela": Exit Sub
    
    End Select
    
        
         

End Sub