Deztaca - Academia online para destacar en tu trabajo

Clases

1: Instrucción Select...Case para múltiples condiciones

2: Introducción a los Bucles en VBA: Bucle For...Next

3: Bucle For Each...Next para recorrer objetos de una colección

4: Bucle Do...While. Ejecutar mientras se cumple una condición

5: Bucle Do...Until . Ejecutar hasta que se cumpla una condición

6: Implementar un Controlador de errores

7: Procedimientos Sub públicos, privados y cómo ejecutarlos

Caso práctico: Cambiar texto a MAYÚSCULAS

Participaciones

Inicia sesión para dejar tu duda, comentario y/o respuesta

Iniciar sesión Inscribirme

uc9agh4h 1 week ago

Hola, respondiendo al ejercicio:

Como hacer un macro que permita elegir entre Mayúsculas y Minúsculas. Tengo la siguiente propuesta:

Sub Convertir_Mayusc_Minusc()

Dim Celda As Range
Dim Texto As String
Dim Opción As Byte

Texto = "Elige una opción:" & vbNewLine & _
vbNewLine & "1. MAYÚSCULAS" & _
vbNewLine & "2. minúsculas"

Opción = InputBox(Texto, 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 "Elegiste un valor no asignado": Exit Sub

End Select

JuanRodriguez603 3 weeks ago

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