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

8: Práctica: Agrupar tablas de varias hojas en una sola

9: Macro optimizada: Agrupar tablas de varias hojas en una sola

Caso práctico: Cambiar texto a MAYÚSCULAS

Participaciones

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

Iniciar sesión Inscribirme

FelixSilvaNavas177 4 weeks ago

Como mis compañeros que me antecedieron han respondido acertadamente con sus propuestas, me tome la libertad de agregar una opción para convertir los texto como Nombre Propio, A continuación les comparto el código.

Sub Convertir_Mayusc_Minusc_Nombre_Propio()

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

Texto = "Elige una opción:" & vbNewLine & _
vbNewLine & "1. Mayúscula" & _
vbNewLine & "2. Minúscula" & _
vbNewLine & "3. Nombre Propio "

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 3
For Each Celda In Selection
Celda.Value = Application.WorksheetFunction.Proper(Celda)
Next Celda

Case Else: MsgBox "Elegiste un valor no asignado": Exit Sub

End Select

End Sub

uc9agh4h 1 month 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 1 month 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

SusanaUztariz245 3 weeks 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