Saltar al contenido

Determinar mes del año

Featured Replies

  • 2 weeks later...
publicado

Hola @cesarion_2009

Espero tambien este te pueda ser util:

Dibujando un botón de comando en la hoja1 y colocar el siguiente procedimiento:

Dim Lin As Long

With Hoja1


Lin = 2

    Do While .Cells(Lin, 1) <> ""
    
        .Cells(Lin, 2) = UCase(MonthName(Month(.Cells(Lin, 1))))
    
    Lin = Lin + 1
    Loop

End With

Adjunto archivo para mayor comprensión.

Mis respetos.

Determinar fecha.xlsm

publicado

Aquí tienes una UDF:

Function QUEMES(Fecha As Range) As String

   QUEMES = UCase(MonthName(Month(Fecha)))

End Function

 

  • 3 weeks later...
  • Enigma25 bloqueó este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.