Excel colocar por fecha
hola como estáis...
teniendo en cuenta
a5=donde de pone la fecha
b5=donde de pone la tarea
rango donde se pega f1:f365 según el dia
si la celda elegida esta ocupada avanzar una columna a derechas y poner la tarea allí...
muchas gracias
1 Respuesta
hola como estas...
mi correo [email protected] si me dejas el tuyo te mando un ejemplo de lo que quiero hacer....
muchas gracias
Mi correo es [email protected]
Avísame aquí en todo expertos cuando me envíes un correo, en el asunto del correo escribe tu clave de usuario y el título de esta pregunta.
Saludos. Dam
ya te lo he enviado....muchas gracias
Te anexo la macro
Instrucciones para un botón
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona ALt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro: selecciona agenda, Aceptar.
9. Para ejecutarla dale click a la imagen.
Sub agenda()
'pone la tarea en la columna F
'Por.Dam
fecha = Range("A5")
dia = Day(Range("A5"))
mes = Month(Range("A5"))
Select Case mes
Case 1
acumdias = 0
Case 2
acumdias = 31
Case 3
acumdias = 59
Case 4
acumdias = 90
Case 5
acumdias = 120
Case 6
acumdias = 151
Case 7
acumdias = 181
Case 8
acumdias = 212
Case 9
acumdias = 243
Case 10
acumdias = 273
Case 11
acumdias = 304
Case 12
acumdias = 334
End Select
acumdias = acumdias + dia
columna = 6
Do While tarea = 0
If Cells(acumdias, columna) = "" Then
Cells(acumdias, columna) = Range("A6")
Exit Do
End If
columna = columna + 1
Loop
End SubSaludos.Dam
Podrías
