macro para varias hojas de un libro
Publicado por rocio (2 intervenciones) el 23/10/2014 23:04:12
Hola a todos,
estoy intentando ejecutar una macro para borrar rangos en distintas hojas de un libro. La macro que he creado es la siguiente:
La macro funciona pero me borra el mismo rango en todas la hojas, tomando como referencia el rango de valores de la hoja que he nombrado como"la" y si las otras hojas contienen más datos que esta no los elimina. Si alguien me pudiera ayudar a corregirla sería una gran ayuda. Muchas gracias de antemano.
estoy intentando ejecutar una macro para borrar rangos en distintas hojas de un libro. La macro que he creado es la siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub prueba2()
'
' prueba2 Macro
'
Dim celda As Range, ultfila As Longultfila = Range("a" & Rows.Count).End(xlUp).Row
Sheets("hh").Select
Range("a2:b" & ultfila).Select
Selection.ClearContentsSheets("pi").Select
Range("a2:c" & ultfila).Select
Selection.ClearContentsSheets("la").Select
Range("a2:d" & ultfila).Select
Selection.ClearContentsFor Each celda In Range("a2:b" & ultfila)
If (celda.Value = "") Then celda.ClearContents
Next celda
End Sub
La macro funciona pero me borra el mismo rango en todas la hojas, tomando como referencia el rango de valores de la hoja que he nombrado como"la" y si las otras hojas contienen más datos que esta no los elimina. Si alguien me pudiera ayudar a corregirla sería una gran ayuda. Muchas gracias de antemano.
Valora esta pregunta
0