Deztaca - Academia online para destacar en tu trabajo

Temario del curso

Anterior Siguiente

Lección 65 de 96 · Módulo 13

Caso práctico: Validación y Formato de Rangos

▶️ Video · 11 min 📊 Módulo 13

Tus notas de esta clase

Inicia sesión y accede al contenido para usar marcadores en este curso.

Inicia sesión y accede al contenido para ver los anuncios de esta lección.

Participaciones 4 comentarios

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

Iniciar sesión Inscribirme

OsmaniPititi hace 6 meses

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

JuliaBravo490 Equipo Deztaca hace 6 meses

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!

OsmaniPititi hace 6 meses

Buenas Tardes

Otra variante seria utilizar Select Case para evaluar las condiciones , en vez de utilizar If Then Else.

JuliaBravo490 Equipo Deztaca hace 6 meses

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