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: Validación y Formato de Rangos
Participaciones
OsmaniPititi hace 1 mes
Buenas Tardes Julia
Abajo la variante usando select case
Dim Fila As Integer
Dim UltimaFila As Integer
Dim Valor As Variant
Dim Resultado As String
' Detectar la última fila con datos en la columna A
UltimaFila = Cells(Rows.Count, 1).End(xlUp).Row
' Recorre las filas con datos en la columna A
For Fila = 5 To UltimaFila
Valor = Range("A" & Fila).Value
' Evaluar el tipo de dato
Select Case True
Case VBA.IsEmpty(Valor)
Resultado = "Celda vacía"
Case VBA.IsDate(Valor)
' Si es una fecha, formatearla en formato largo
Resultado = VBA.FormatDateTime(Valor, vbLongDate)
Case VBA.IsNumeric(Valor)
' Si es un número, convertirlo y formatearlo como moneda
If Valor >= 0 Then
Resultado = VBA.FormatCurrency(Valor, 2)
Else
Resultado = VBA.Format(Valor, "($#,##0.00)")
End If
Case Else
' Si no es válido, mostrar mensaje de error
Resultado = "No es un número válido"
End Select
Range("B" & Fila).Value = Resultado
Next Fila
Abajo la variante usando select case
Dim Fila As Integer
Dim UltimaFila As Integer
Dim Valor As Variant
Dim Resultado As String
' Detectar la última fila con datos en la columna A
UltimaFila = Cells(Rows.Count, 1).End(xlUp).Row
' Recorre las filas con datos en la columna A
For Fila = 5 To UltimaFila
Valor = Range("A" & Fila).Value
' Evaluar el tipo de dato
Select Case True
Case VBA.IsEmpty(Valor)
Resultado = "Celda vacía"
Case VBA.IsDate(Valor)
' Si es una fecha, formatearla en formato largo
Resultado = VBA.FormatDateTime(Valor, vbLongDate)
Case VBA.IsNumeric(Valor)
' Si es un número, convertirlo y formatearlo como moneda
If Valor >= 0 Then
Resultado = VBA.FormatCurrency(Valor, 2)
Else
Resultado = VBA.Format(Valor, "($#,##0.00)")
End If
Case Else
' Si no es válido, mostrar mensaje de error
Resultado = "No es un número válido"
End Select
Range("B" & Fila).Value = Resultado
Next Fila
↳ Responder
JuliaBravo490 hace 1 mes
Hola, Osmani.
El código está bien. La detección de la última fila, el recorrido y el uso de Select Case True funcionan correctamente. Las validaciones para vacío, fecha y número están bien aplicadas, y el mensaje del Case Else es coherente con la condición. No hay errores de lógica.
Bien hecho!
El código está bien. La detección de la última fila, el recorrido y el uso de Select Case True funcionan correctamente. Las validaciones para vacío, fecha y número están bien aplicadas, y el mensaje del Case Else es coherente con la condición. No hay errores de lógica.
Bien hecho!
0
OsmaniPititi hace 1 mes
Buenas Tardes
Otra variante seria utilizar Select Case para evaluar las condiciones , en vez de utilizar If Then Else.
Otra variante seria utilizar Select Case para evaluar las condiciones , en vez de utilizar If Then Else.
↳ Responder
JuliaBravo490 hace 1 mes
Buenas tardes, Osmani.
Gracias por tu aporte. Usar Select Case también es una muy buena opción para organizar las validaciones de forma más clara. En este caso se usó por simplicidad, pero tu sugerencia aporta una alternativa útil.
Saludos,
Julia - Equipo Deztaca
Gracias por tu aporte. Usar Select Case también es una muy buena opción para organizar las validaciones de forma más clara. En este caso se usó por simplicidad, pero tu sugerencia aporta una alternativa útil.
Saludos,
Julia - Equipo Deztaca
1
Estás agregando un comentario en esta clase
Inicia sesión para dejar tu duda, comentario y/o respuesta