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
macro que pase unos datos especificos de una celda a otra hoja
buenas nose si podran ayudarme pero lo explico estoy haciendo un macro que me pase unos datos especificos a otras hoja
el problema es que los datos estan por filas no por celdas ,
le pongo un ejemplo:
[TABLE=width: 792]
[TR]
[TD=width: 1056] SERVICIO DE INDICES[/TD]
[/TR]
[TR]
[TD]Nombre Solicitado : pepito gri fernandez El problema es que el contenido esta por fila(celda) y nose como filtrarlo[/TD]
[/TR]
[TR]
[TD]NIF/CIF : 021322212F[/TD]
[/TR]
[TR]
[TD]Fecha : 19/03/2013[/TD]
[/TR]
[TR]
[TD]Referencia : 1232316[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD] Nombre Verificado [100% similitud] NIF/CIF Verificado [100% similitud][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD] AUTOMOCION RUBIO RODRIGO SA ----->quiero que me pase este datoa una celda de otra hoja 21322212F ----------->y este otro dato a otra celda[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]Registro Población
[/TD]
[/TR]
[TR]
[TD]Desconocido --->Lo mismo con esto Toledo (Desconocida) --------------->lo mismo con esto
[/TD]
[/TR]
[TR]
[TD]El Puente ---->Lo mismo con esto Belvis De La Jara (Toledo) ----------->lo msmo conesto
[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[/TABLE]
el problema que tengo es que yo sabria hacerlo si fueran siempre los mismo datos pero siempre son diferentes cambiando el nombre /dni
registro y poblacion
vean el ejemplo para que se aclaren
saludos y gracias de antemano
ejemplo.rar