Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Modificar macros fechas

jarja33

Active member
Registrado
15 Abr 2014
Mensajes
248
Buenas a todos y todas

Alguien me puede ayudar con una macros que no consigo copiar y pegar correctamente, tiene 2 hojas una llamada TURNOS que en la fila C hay nombres de trabajadores unos 300+-...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Solución
Esta macro hace lo que pides, o eso he entendido yo.
Código:
Sub CopiarValoresTurnosAParteGlobal()
Dim Turnos As Worksheet, Gloval As Worksheet
Dim Nombre As Range, Fecha As Range
'--
Application.ScreenUpdating = False
Set Turnos = Sheets("TURNOS")
Set Gloval = Sheets("PARTE GLOBAL")
Set Fecha = Turnos.Rows(3).Find(Gloval.Range("E1"), , , xlWhole)
'--
For x = 4 To Gloval.Range("B" & Rows.Count).End(xlUp).Row
   Gloval.Range("C" & x) = ""
   If Not Fecha Is Nothing Then
      Set Nombre = Turnos.Columns("C").Find(Gloval.Range("B" & x), , , xlWhole)
      If Not Nombre Is Nothing Then Gloval.Range("C" & x) = Turnos.Cells(Nombre.Row, Fecha.Column)
   End If
Next
End Sub
Esta macro hace lo que pides, o eso he entendido yo.
Código:
Sub CopiarValoresTurnosAParteGlobal()
Dim Turnos As Worksheet, Gloval As Worksheet
Dim Nombre As Range, Fecha As Range
'--...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Con los dos archivos abiertos, prueba así:
Código:
Sub CopiarValoresTurnosAParteGlobal()
Dim Turnos As Worksheet, Gloval As Worksheet
Dim Nombre As Range, Fecha As Range, x, y
'--...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Volver
Arriba