Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Macro para buscar, copiar, pegar

publicado

Estimados amigos:

Hace pocos días tuve una consulta a este mismo foro debido a un proyecto que estoy realizando en mi trabajo. Solicité apoyo para poder hacer una búsqueda en todas las hojas de un libro a partir de una celda de la hoja "RESUMEN DEL DIA". El respetado forista/moderador JOSHUA me ayudó muy gentilmente y me dio el código VBA (abajo) para el esquema que pasé como ejemplo (ver adjunto "Libro2"). He querido "amoldar" dicho código (líneas abajo) a mi proyecto real (adjunto "Pruebai") y ahora no puedo.

Sub Resumen_Dia()
Dim n As Rangefecha = Sheets("RESUMEN DEL DIA").Range("B3")For i = 2 To Sheets.CountX = Sheets("RESUMEN DEL DIA").Range("A65536").End(xlUp).Row + 1With Sheets(i)Y = .Range("A65536").End(xlUp).Row.Range("A1:M" & Y).AutoFilter Field:=1, Criteria1:= _fecha, Operator:=xlAndVerificar = WorksheetFunction.Subtotal(3, .Range("A1:A" & Y))If Verificar > 1 Then.Range("A2:K" & Y).SpecialCells(xlCellTypeVisible).Copy _Destination:=Sheets("RESUMEN DEL DIA").Range("A" & X)End If.Range("A1").AutoFilterEnd WithNext

End Sub[/PHP]

Resumiendo:

- Tengo la hoja "RESUMEN DEL DIA", celda B3: "fecha". Al ejecutar la macro hace una búsqueda en todas las hojas del libro y copia y pega la fila donde esté el dato igual a "fecha", en la hoja "RESUMEN DEL DIA".

- Copia, pega y sigue la búsqueda en las siguientes hojas. De encontrar el dato buscado copia y pega en la hoja resumen después de última fila.

Lamentablemente no puedo abrir un tema ya cerrado, por lo que vuelvo a plantear mi pregunta, para las correcciones respectivas.

Desde ya, gracias a Joshua y a todos por el apoyo.

Saludos,

José.

Pruebai.rar

Libro2.rar

Featured Replies

publicado

Saludos.

La macro seria la siguiente:

Sub Resumen_Dia()
Dim n As Range
fecha = Sheets("RESUMEN DEL DIA").Range("B3")
For i = 2 To Sheets.Count
X = Sheets("RESUMEN DEL DIA").Range("A65536").End(xlUp).Row + 1
With Sheets(i)
Y = .Range("A65536").End(xlUp).Row
.Range("A10:A" & Y).AutoFilter Field:=1, Criteria1:=fecha, Operator:=xlAnd
Verificar = WorksheetFunction.Subtotal(3, .Range("A10:A" & Y))
If Verificar > 1 Then
.Range("A11:M" & Y).SpecialCells(xlCellTypeVisible).Copy _
Destination:=Sheets("RESUMEN DEL DIA").Range("A" & X)
End If
.Range("A10").AutoFilter
End With
Next
End Sub[/PHP]

Prueba y comentas.

Atte.

joshua

publicado
  • Autor

Estimado Joshua,

No he podido correr la macro. Me sale un mensaje de errror.

La depuración se dirige a: ".Range("A10:A" & Y).AutoFilter Field:=1, Criteria1:=fecha, Operator:=xlAnd".

A ti te corrió normal?

Saludos y gracias por tu gentil apoyo,

José

publicado
  • Autor

Gracias por tu apoyo, Joshua.

Veo tu prueba y funciona perfecto, pero en mi trabajo real persiste el mismo problema. Ahora, te comento que mi archivo consiste en varias hojas, muchas de ellas son copias de la una misma pestaña ("Trabajador"), pero con datos cambiados. Ahora bien, en esta hoja tengo muchos otros botones y macros (quizás esto sea el problema??). Además, otro posible problema sea que en mi archivo, si bien el 99% son copias de la pestaña "Trabajador", tengo un 1% que son hojas con formatos diferente. Quizás esto también sea causa del problema?

Me encantaría pasarte mi archivo, pero creo que no es posible enviar archivo con macros por este medio?

Un abrazo,

José.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.