UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 COPIAR FECHA EN OTRA HOJA el 28/12/16, 10:47 am

alberto sierra


Buenas a tod@s:

Os cuento tengo 2 macros, una (FECHA) que me copia la fecha de la hoja "DATOS" a la hoja "RESUMEN" y otra (LANZAR CALCULOS) que me hace una serie de cálculos. La macro FECHA funciona perfectamente si la ejecuto sola, pero al añadirla a la macro (LANZAR CALCULOS) solo me funciona la macro de los cálculos la de fecha no... Y no se como hacerlo para que me funcione solo en una macro las dos operaciones.
Os adjunto archivo para que lo veáis mejor.


Un saludo y muchas gracias
Alberto
Archivos
PRUEBA_TE (2).xlsm
No tienes los permisos para descargar los archivos.
(76 KB)

2 Re: COPIAR FECHA EN OTRA HOJA el 29/12/16, 01:30 pm

servando


Buen día para tod@s.

Por favor, prueba con estas modificaciones y comenta.

Sub FECHA()

Dim Celda As Range
Dim PALABRA As String

PALABRA = "*" & "??/??/????" & "*"

'Creo que el problema esta en la línea siguiente, decías las celdas pero no de que hoja
'entonces si esta otra hoja activa opera con las celdas de esta otra hoja.
  
For Each Celda In Sheets("DATOS").Range("A1:K1")
    If Celda.Value Like PALABRA Then
'        Celda.Select
'        'VVV = Celda.Address
'        Celda.Copy
'        'Worksheets("RESUMEN").Range(VVV).PasteSpecial xlPasteAll
        vals = InStr(1, Celda.Value, "/")
        vfech = Mid(Celda.Value, vals - 2, 10)
        vfech = CDate(vfech)
        vdia = Weekday(vfech)
       'VR = Cells(3, vdia + 1)
        Worksheets("RESUMEN").Cells(3, vdia) = vfech '.PasteSpecial xlPasteAll
   
    End If
Next Celda

End Sub

Un saludo desde Vitoria, Servando

3 Muy buenas a tod@s!! el 29/12/16, 01:55 pm

alberto sierra


Muchas gracias por la ayuda Servando!

He probado a añadir lo que me pones a la macro que me hace los cálculos, pero me sigue sin funcionar, igual es que la estoy añadiendo en un lugar que no es el correcto. Pero es algo raro por que en la macro "calcular_datos_dia1" he añadido la macro "fecha" y me funciona perfectamente las dos macros a la vez... Y ahora al añadirla a la macro "calcular_resto_dias" no me funciona. Te paso el documento con el que estoy trabajando a ver si ves algo raro

Un saludo y muchas gracias
Alberto
Archivos
PRUEBA_TE (1) - - copia.xlsm
No tienes los permisos para descargar los archivos.
(62 KB)

4 Re: COPIAR FECHA EN OTRA HOJA el 29/12/16, 03:05 pm

servando


Buen día para tod@s.

Yo he probado y me funciona.

Te adjunto el fichero.

Comenta por favor.

Saludoos
Archivos
Copia de PRUEBA.xlsm
No tienes los permisos para descargar los archivos.
(55 KB)

5 Muy buenas a todos!! el 30/12/16, 04:36 am

alberto sierra


Buenos días Servando,

Lo primero darte las gracias por toda la ayuda que me estas prestando! Acabo de probar lo que me has pasado y al pasar la macro "calcular resto días" no me copia la fecha de la hoja "DATOS" a la hoja "RESUMEN" (pero si que me hace los cálculos perfectamente). Pero pasando la macro "fecha" si que me copia la fecha de la hoja "DATOS" a la hoja "RESUMEN". Me gustaría que quedara como el día 14 (hoja RESUMEN). Voy a seguir investigando pero creo que ya he puesto la macro "fecha" en todas partes del código de "calcular resto días". Te paso el documento para que veas como queda cuando paso las macros.

Un saludo y muchas gracias
Alberto
Archivos
Copia de PRUEBA.xlsm
No tienes los permisos para descargar los archivos.
(56 KB)

6 Re: COPIAR FECHA EN OTRA HOJA el 30/12/16, 11:37 am

servando


Buen día Alberto.

Lo que veo es que si escribimos la fecha pero luego la machacamos al poner los datos de las máquinas encima.

Para evitarlo he pasado las líneas de código que ponen la fecha al final de la rutina.

Tambien he modificado la posición para que salga la lado del día 14.

Adjunto el fichero modificado.

Un saludo desde Vitoria, Servando.
Archivos
1PRUEBA.xlsm
No tienes los permisos para descargar los archivos.
(56 KB)

7 Muy buenas a tod@s!! el 03/01/17, 01:18 pm

alberto sierra


Lo primero felicitarte el año!! Y lo segundo perdón por no poder contestarte antes... Muchas gracias por la ayuda, va perfecto, ahora pone la fecha en su sitio y hace los cálculos perfectos. Lo que pasa que al quinto día salta error en el código de la fecha, no es muy importante, voy a ver si lo puedo solucionar sino haré a mano ese día.

Un saludo y muchas gracias!!
Alberto

alberto sierra


Muy buenas a tod@s!!

Ya esta resuelto el problema.

Muchísimas gracias por la ayuda. 

Un saludo
Alberto

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.