Crear fecha con una macro

Hola Expertos

Me surge la necesidad de una macro que me genere una fecha en una celda determinadas. Ejemplo G1 de Hoja1

La idea si es que sólo me genere las fechas para los días Lunes a Viernes ( Formato Viernes, 12 de Septiembre 2014). Osea si yo ejecuto detecte que si hoy es Viernes me genere esa fecha, pero si ejecuto y hoy es Sábado o Domingo automáticamente se me genere la fecha Lunes 15 de septiembre.

En realidad el problema seria si es Sábado o Domingo ya que para los otros días se debiera mostrar la fecha de ese día, sólo si al ejecutar la macro.

Respuesta
1

Te anexo la macro

Sub fecha()
'Por.Dante Amor
    Select Case Weekday(Date)
        Case Is = 7: [G1] = Date + 2
        Case Is = 1: [G1] = Date + 1
        Case Else:   [G1] = Date
    End Select
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Calculo de fecha en excel

Necesisto el apoyo para lo siguiente: Calculo de fecha en excel que no exceda 20 días dependiendo de la recepción de un documento, si la fecha cae en viernes, sábado, domingo y lunes nos de la fecha del jueves. Si cae la fecha en miércoles nos de...
1 respuesta

Fechas de vencimiento sin sábados ni domingos

A _salva un cordial saludo, estoy realizando una base de datos en access la cual a partir de una fecha cita se genera una fecha de vencimiento para ello tengo que pasar los días sábados y domingos a lunes... Encontré un código en un libro de access...
1 respuesta

Necesito calcular Fecha Final en día hábil

La fórmula de basa en "Fecha inicial (A1)+ $Días$ = Fecha Final en día hábil" Necesito como resultado una fecha hábil, de decir que excluye los fines de semanas y los días feriados. Necesito un macro que no me colapse la computadora. (Tabla...
2 respuestas

¿Cómo guardar sólo una hoja de excel con un nombre predefinido mas la fecha?

Quisiera saber como lo puedo hacer para guardar una hoja de excel en el escritorio con un nombre predefinido mas la fecha correspondiente al mes en que se guardo mas el año ej: hoja de cuenta noviembre 2012 o hoja de cuenta diciembre 2012... Etc.
1 respuesta

Semana segun dia en access

Tengo una base de datos access, donde un campo numero de semana, para sacarlo es fácil, uso =Formato([FECHA TRANSITO],"Ww")-1, eso esta bien, solo que ahora se van a tomar la semana de miércoles a martes, es decir el día de hoy lunes 4 y martes 5 de...
1 respuesta

Necesito auto aviso excel para fecha de vencimiento en macro

Necesito auto aviso excel que me informe cuando falten 15 días y otro cuando falten 4 hábiles(de lunes a viernes) para las fechas que están en las celdas de la columna equis, pero agradecería que me expliquen en español y para usuario super inexperto.
2 respuestas

Filtro múltiple con lista desplegable

Tengo un filtro avanzado con múltiples criterios, el cual funciona de manera eficaz y quiero mantenerlo intacto. Hay varios criterios de fechas que quisiera integrar en una celda con lista desplegable. ¿Cómo se puede hacer? Private Sub...
1 respuesta

Macro para calculo de promedio Excel 2003 (va dirigida a Dante Amor)

Lo que necesitaría es obtener una macro en la cual me permita calcular los totales con sus promedios según se le indiquen, puede ser 2, 3, 6, 8 o 12 meses.- Ej. - Supongamos que estoy en el Mes de Marzo y quiero saber los consumo y promedio de los...
1 respuesta

Agregar diferentes datos en la fila de lListBox vb6

Si tengo un ciclo for para llenar un listbox desde texbox(texbox1 = 5 y textbox2 = 20) quiero que el primer item que se agregue a el listbos que sera 5, salga con una hora establecida por mi, no por el de la computadora, y obtener algo asi;...
2 respuestas

Rellenar un combobox

En un combobox escojo un municipio y me da un rango de celdas que contiene las localidades de ese municipio ¿Cómo le hago para que en un segundo combobox me aparezcan las localidades de ese rango de celdas? Para un municipio el rango puede ser...
1 respuesta