Mostrar valor según celda activa
Una consulta como puedo saber si se ingresa una fecha y en la siguiente celda me muestra el mes la idea que sea con macro. Alguien me pueda dar una idea
Fila = Hoja2.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To Fila
If Range("B" & i) <> "" Then
Range("C" & i) = Format(Range("B" & i), "MMM")
End If
Next i
2 respuestas
Respuesta de Elsa Matilde
2
Para saber si se ingresa una fecha y en ese caso devolver el mes, de lo contrario nada ajusta la macro de este modo:
Fila = Hoja2.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To Fila
If IsDate(Range("B" & i)) Then
Range("C" & i) = Format(Range("B" & i), "MMM")
Else
Range("C" & i) = ""
End If
Next i
PD) Te invito a mirar este video donde sugiero el no uso de algunas expresiones que he visto en tu macro, como Hoja2. : https://www.youtube.com/watch?v=81VCdnHi9Ic
Sdos y no olvides valorar las respuestas.
