Hola @RubenDario
Faltaría que en cada línea dentro del With le pongas un punto al inicio
With Hoja1
.Range("B6:B18,F6:F18,J6:J18").Select
.Range("J6").Activate
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
.Selection.ClearContents
.Range("A1").Select
End With
Sin embargo, lo que yo haría (si fuese mi proyecto)... te ofrezco varias soluciones.
No asignarlo a una combinación de teclas, mejor ponerlo en una forma o botón.
Modificar tu libro con la app Custom UI Editor o similar y adicionar un botón en el Ribbon, estará visible solo cuando el libro esté activo.
Al principio de tu código pondría algo como: If Thisworkbook.Name <> ActiveWorkbook.Name Then Exit sub
Por
DiegoPC, · publicado
Hola como están?
Tengo un libro de excel con registros de una base de datos de productos, dividivos en grupos por hojas.
Necesito que en una nueva hoja se copien todos los datos de cada registro de cada hoja siempre que la columna digamos
tengo un valor mayor a cero.
Estuve intentando crear macros para lograrlo pero no pude avanzar mucho ya que solo vi macros muy básicas.
Se que doy poca info y es un tema extenso pero no se, en lo que me puedan ayudar les agradeceré
Algunas de las dudas que me pueden ayudar son
* como preguntar si un dato es mayor que cero
* como tener en cuenta todas las hojas del libro
* como copiar los datos a la columna que quiero