Problema con macro
Hola tengo una macro creada por mi, que no soy una experta, pero al agregar nombres nuevos no funciona y me aparece error 9 en tiempo de ejecución, subíndice fuera del intervalo, y señala todos los nombres, mando la macro para ver si me pueden ayudar.
Gracias
Sub LimpiaFactNegro()
'
' LimpiaFactNegro Macro
' Macro grabada el 04/02/2008 por Valeria Dag
'
' Acceso directo: CTRL+b
'
sub limpiafactnegro()
'
' limpiafactnegro macro
' macro grabada el 04/02/2008 por valeria dag
'
' acceso directo: ctrl+b
'
sheets(array("el ferre", "lar", "mingo", "el tropezón", "aguas verdes", "vic hug", "terminielo", _
"alvear", "san cayetan", "m mendoza", "san miguel", "sanigas", "josec", "fonrouge", "mario oliden", "avenida", _
"venecia", "roberto", "las heras", "magurno", "franco", "sol-dami", "fer-one", "manielo", "nahuel", _
"miriam", "mabe", "lope", "meyer", "casa rodrig", "rex", "feijo", "bahia", "rodrig", _
"lanin", "ojeda", "las cadenas", "fusa", "rosana", "sebastian", "la ferreteria", "casa poli", _
"j.e", "mario glew", "bulonera", "ele glew", "la mejor", "los 7 ena", "la clarita", "suyay", "fr", _
"el topin", "hector", "elmuñeco", "integral", "marimo", "cacela", _
"elect mp", "los dos hermanos", "zepol", "alem", "berasain", "silvio", "carizo", _
"valicar", "el sol", "eugeni", "bargero", "saen", "la ros", "luch", "marcelo", "rosa roja", _
"scarpati", "de la ros", "alfredo", "pelliza", "colgat", "angel")).select
sheets("el ferre").activate
range("a6,a6:a54,c6:c54").select
range("c54").activate
selection.clearcontents
activewindow.scrollrow = 44
activewindow.scrollrow = 43
activewindow.scrollrow = 41
activewindow.scrollrow = 39
activewindow.scrollrow = 38
activewindow.scrollrow = 36
activewindow.scrollrow = 35
activewindow.scrollrow = 34
activewindow.scrollrow = 33
activewindow.scrollrow = 32
activewindow.scrollrow = 30
activewindow.scrollrow = 29
activewindow.scrollrow = 27
activewindow.scrollrow = 25
activewindow.scrollrow = 23
activewindow.scrollrow = 20
activewindow.scrollrow = 17
activewindow.scrollrow = 13
activewindow.scrollrow = 11
activewindow.scrollrow = 8
activewindow.scrollrow = 6
activewindow.scrollrow = 4
activewindow.scrollrow = 3
activewindow.scrollrow = 2
activewindow.scrollrow = 1
range("a6").select
sheets("el ferre").select
end sub
Gracias
Sub LimpiaFactNegro()
'
' LimpiaFactNegro Macro
' Macro grabada el 04/02/2008 por Valeria Dag
'
' Acceso directo: CTRL+b
'
sub limpiafactnegro()
'
' limpiafactnegro macro
' macro grabada el 04/02/2008 por valeria dag
'
' acceso directo: ctrl+b
'
sheets(array("el ferre", "lar", "mingo", "el tropezón", "aguas verdes", "vic hug", "terminielo", _
"alvear", "san cayetan", "m mendoza", "san miguel", "sanigas", "josec", "fonrouge", "mario oliden", "avenida", _
"venecia", "roberto", "las heras", "magurno", "franco", "sol-dami", "fer-one", "manielo", "nahuel", _
"miriam", "mabe", "lope", "meyer", "casa rodrig", "rex", "feijo", "bahia", "rodrig", _
"lanin", "ojeda", "las cadenas", "fusa", "rosana", "sebastian", "la ferreteria", "casa poli", _
"j.e", "mario glew", "bulonera", "ele glew", "la mejor", "los 7 ena", "la clarita", "suyay", "fr", _
"el topin", "hector", "elmuñeco", "integral", "marimo", "cacela", _
"elect mp", "los dos hermanos", "zepol", "alem", "berasain", "silvio", "carizo", _
"valicar", "el sol", "eugeni", "bargero", "saen", "la ros", "luch", "marcelo", "rosa roja", _
"scarpati", "de la ros", "alfredo", "pelliza", "colgat", "angel")).select
sheets("el ferre").activate
range("a6,a6:a54,c6:c54").select
range("c54").activate
selection.clearcontents
activewindow.scrollrow = 44
activewindow.scrollrow = 43
activewindow.scrollrow = 41
activewindow.scrollrow = 39
activewindow.scrollrow = 38
activewindow.scrollrow = 36
activewindow.scrollrow = 35
activewindow.scrollrow = 34
activewindow.scrollrow = 33
activewindow.scrollrow = 32
activewindow.scrollrow = 30
activewindow.scrollrow = 29
activewindow.scrollrow = 27
activewindow.scrollrow = 25
activewindow.scrollrow = 23
activewindow.scrollrow = 20
activewindow.scrollrow = 17
activewindow.scrollrow = 13
activewindow.scrollrow = 11
activewindow.scrollrow = 8
activewindow.scrollrow = 6
activewindow.scrollrow = 4
activewindow.scrollrow = 3
activewindow.scrollrow = 2
activewindow.scrollrow = 1
range("a6").select
sheets("el ferre").select
end sub
1 respuesta
Respuesta de Alvaro Silveira
1
Estimada : en el caso que el o los rango que quieras borrar sean de todas las hojas del libro la solución es bastante sencilla, creas una bucle con el total de hojas de libro, en el mismo va activando de a una por vez y va borrando los rangos :
Sub limpia()
For hoja = 1 To Sheets.Count
Sheets(hoja).Activate
Range("a6,a6:a54,c6:c54").Select
Selection.ClearContents
Next
End Sub
Espero que te halla sido de ayuda, por cualquier consulta quedo a las ordenes
Saludos, y no te olvides de finalizar y evaluar la respuesta.
Sub limpia()
For hoja = 1 To Sheets.Count
Sheets(hoja).Activate
Range("a6,a6:a54,c6:c54").Select
Selection.ClearContents
Next
End Sub
Espero que te halla sido de ayuda, por cualquier consulta quedo a las ordenes
Saludos, y no te olvides de finalizar y evaluar la respuesta.
Hola experto, gracias por contestarme, te cuento que el archivo tiene varias hojas de calculo, creo que tiene unas 80 hojas de calculo, pero solo quiero borrar estas celdas de los nombres que aparecen en la macro que te envíe, ¿habrá solución si solo quiero borrar para estas solas?
Gracias
Gracias
Estimada : disculpa la demora, la solución es sencilla, aquí te paso un modelo
Sub a()
hojas = Array("Hoja1", "Hoja2", "Hoja3", "Hoja6", "Hoja7", "Hoja8")
For n = 0 To 5 'ojo que el indice de la matriz comienza en 0 y tiene n-1 elementos
Sheets(hojas(n)).Select
Range("a6,a6:a54,c6:c54").Select
Selection.ClearContents
Range("a1").Select
Next
Sheets("hoja1").Select
Range("a1").Select
End Sub
Bueno, suerte y no te olvides de finalizar y evaluar la respuesta.
Sub a()
hojas = Array("Hoja1", "Hoja2", "Hoja3", "Hoja6", "Hoja7", "Hoja8")
For n = 0 To 5 'ojo que el indice de la matriz comienza en 0 y tiene n-1 elementos
Sheets(hojas(n)).Select
Range("a6,a6:a54,c6:c54").Select
Selection.ClearContents
Range("a1").Select
Next
Sheets("hoja1").Select
Range("a1").Select
End Sub
Bueno, suerte y no te olvides de finalizar y evaluar la respuesta.
