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

10: Funciones definidas por el usuario (UDF)

11: Funciones VBA para manejo de textos

12: Funciones VBA para manejo de Fecha y Hora

13: Funciones VBA de conversión, formato y evaluación

14: Usar Fórmulas y funciones de Excel desde VBA

15: Introducción a los Eventos en VBA y Eventos de libro

16: Introducción a los Eventos en VBA y Eventos de hoja

17: Eventos de Aplicación y eventos no asociados a objetos

Caso práctico: Cambiar texto a MAYÚSCULAS

Participaciones

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

Iniciar sesión Inscribirme

Juan Alberto hace 3 meses

Podría hacerse con un InputBox y según la respuesta efectuar u UCase o LCase. También podrían agregarse 2 botones de comando uno para mayúsculas y el otro para minúsculas. Igualmente habrían más opciones...

JuliaBravo490 hace 3 meses

¡Buena propuesta!
El InputBox es práctico y los botones de comando mejoran la experiencia.
También podrías usar un Select Case para validar la entrada y evitar errores.

Gracias por aportar.

nalattanzio hace 5 meses

Sabiendo que la función IMPUTBOX devuelve un STRING la estructura CASE podría ser:
CASE "1"
...
CASE "2"
...

JuliaBravo490 hace 5 meses

¡Exactamente!
Muy bien apuntado: como InputBox devuelve un String, lo ideal es que los valores en la estructura Select Case estén entre comillas, como "1", "2", etc.

¡Gracias por compartirlo! Seguro que este detalle le sirve a muchos compañeros.

JuanRodriguez603 hace 7 meses

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 hace 1 año

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

Elena-G hace 7 meses

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

JuliaBravo490 hace 7 meses

¡Buena propuesta, Elena!

Tu macro tiene una buena estructura para permitir la conversión de texto a mayúsculas o minúsculas, pero hay un pequeño detalle: InputBox devuelve un valor de tipo String, por lo que al asignarlo a Opción, que es de tipo Byte, puede haber errores si el usuario ingresa un valor no numérico.

Corrección recomendada: Convertir explícitamente la entrada a número con CLng y validar que sea un valor esperado antes de continuar.

Versión mejorada de tu macro:

Sub Convertir_Mayusc_Minusc()

Dim Celda As Range

Dim Texto As String

Dim Opción As Variant ' Cambiado a Variant para manejar mejor la entrada del usuario

Texto = "Elige una opción:" & vbNewLine & _

vbNewLine & "1. MAYÚSCULAS" & _

vbNewLine & "2. minúsculas"

Opción = InputBox(Texto, "Conversión de texto")

' Validar que la entrada sea un número

If Not IsNumeric(Opción) Then

MsgBox "Por favor, ingresa un número válido (1 o 2).", vbExclamation

Exit Sub

End If

Select Case CLng(Opción)

Case 1

For Each Celda In Selection

Celda.Value = VBA.UCase(Celda.Value)

Next Celda

Case 2

For Each Celda In Selection

Celda.Value = VBA.LCase(Celda.Value)

Next Celda

Case Else

MsgBox "Elegiste un valor no asignado", vbExclamation

End Select

End Sub

Mejoras aplicadas:
- Se usa Variant en lugar de Byte para evitar errores de tipo de dato.
- Se valida que la entrada sea numérica antes de procesarla.
- Se usa CLng(Opción) en Select Case para evitar problemas de comparación de tipos.
- Se agrega un mensaje de advertencia si el usuario ingresa un valor inválido.

Con estos ajustes, tu macro será más robusta y evitará posibles errores.

FelixSilvaNavas177 hace 8 meses

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

JuliaBravo490 hace 8 meses

Hola, Félix

¡Excelente iniciativa! Me parece una propuesta muy útil agregar la opción para convertir a "Nombre Propio". Así, se cubren todas las posibles necesidades de formato de texto.

Tu código está muy bien estructurado y la opción adicional complementa perfectamente las funcionalidades que ya se habían planteado. Sin duda, es una mejora que puede facilitar mucho la tarea de dar formato a los textos de manera eficiente.

Gracias por compartirlo, ¡sin duda será de gran ayuda!

Saludos,
Julia
Equipo DEZTACA