Jump to content
GR77

Copiar datos a columna de fecha respectiva

Recommended Posts

Buenos días

Me gustaría que me ayudaran a modificar la macro que tengo, para hacer lo siguiente:

Tengo dos hoja Base y Resumen, de la hoja Base deseo ir analizando celda por celda de la columna E:K y si la celda es igual a 100, me copie ese registro a la hoja Resumen en el día correspondiente, ademas de copiar los datos de la columna A:D de la hoja Base.

Adjunto un pequeño ejemplo con el código de la macro que tengo y un ejem de como me debería quedar

Agradezco de antemano su apoyo y/o ayuda

Saludos

prueba07122019.xlsm

Share this post


Link to post
Share on other sites

Gracias Antoni por tu interés para ayudarme.

JSDJSD como podría modificar la parte de que cuando se repite un código, hice una prueba repitiendo el código D5 y le puse 100 el día 19/10/2019 en la fila 22 al correr la macro, le cambia al ultimo código con 100 (w258) por D5 y le asigna el 100 al día 19/10/2019.

Ya intenté modificar la línea Hoja2.cells(ufh2 + 1, 1) = codigo pero no me funcionó

Agradezco de antemano tu ayuda.

Saludos

Share this post


Link to post
Share on other sites

Casi, casi, lo mismo que JSDJSD:

Sub Resumen()
Application.ScreenUpdating = False
Hoja2.Range("A12:AI" & Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1).ClearContents
For x = 10 To Hoja1.Range("A" & Rows.Count).End(xlUp).Row
   For y = 5 To 11
      Set código = Hoja2.Columns("A").Find(Hoja1.Range("A" & x), , xlValues, xlWhole)
      If Hoja1.Cells(x, y) = 100 Then
         Set fecha = Hoja2.Rows(10).Find(Hoja1.Cells(8, y), , xlValues, xlWhole)
         If Not fecha Is Nothing Then
            If Not código Is Nothing Then
               fila = código.Row
            Else
               fila = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1
               Hoja2.Range("A" & fila) = Hoja1.Range("A" & x)
               Hoja2.Range("B" & fila) = Hoja1.Range("B" & x)
               Hoja2.Range("C" & fila) = Hoja1.Range("C" & x)
               Hoja2.Range("D" & fila) = Hoja1.Range("D" & x)
            End If
            Hoja2.Cells(fila, fecha.Column) = 100
         End If
      End If
   Next
Next
Hoja2.Activate
End Sub

 

Share this post


Link to post
Share on other sites

Buen día y saludos a todos

Antoni y JSDJSD, mil gracias por su tiempo y apoyo, las macros de ambos funcionan muy bien

Por favor pueden cerrar el tema, tema solucionado 

Saludos

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy