Saltar al contenido
dorgelis

Borrar mismos Rangos en varias Hojas

Recommended Posts

Saludos mis apreciados foreros la presente es para solicitar ajustar una macro donde pueda borrar el contenido con el mismo rango en todas las hojas a la vez. Es decir hoja1, hoja2 ....Hoja10

Aqui el codigo de la grabadora con los rangos que deseo Borrar

 

Sub borrar()
'
' borrar Macro
'

    Range("B7:I46").Select
    Selection.ClearContents
    Range("L8:M46").Select
    Selection.ClearContents
    Range("O8:O46").Select
    Selection.ClearContents
    Range("Q8:Q46").Select
    Selection.ClearContents
    Range("K8:K46").Select
    Selection.ClearContents
    Range("S7:Z46").Select
    Selection.ClearContents
    Range("AB7:AD46").Select
    Selection.ClearContents
    Range("AF7:AF46").Select
    Selection.ClearContents
    Range("AH7:AH46").Select
    Selection.ClearContents
    Range("AJ7:AQ46").Select
    Selection.ClearContents
    Range("AS7:AV46").Select
    Selection.ClearContents
    Range("AW7:AW46").Select
    Selection.ClearContents
    Range("AY7:AY46").Select
    Selection.ClearContents
    Range("BA7:BH46").Select
    Selection.ClearContents
    Range("BJ7:BL46").Select
    Selection.ClearContents
    Range("BN7:BN46").Select
    Selection.ClearContents
    Range("BP7:BP46").Select
    Selection.ClearContents
    Range("BR7:BY46").Select
    Selection.ClearContents
    Range("CA7:CC46").Select
    Selection.ClearContents
    Range("CE7:CE46").Select
    Selection.ClearContents
    Range("CG7:CG46").Select
    Selection.ClearContents
    Range("CN7:CR46").Select
    Selection.ClearContents
    Range("CT7:CZ46").Select
    Selection.ClearContents
    Selection.ClearContents
    Range("A1").Select
End Sub
 

Gracias de ante mano

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

te dejo este código @dorgelis 

Sub Borrarcelda()
'esta macros se utiliza para limpiar celda de todas las hojas
Call Borrar_todos_los_filtros
Dim respuesta As Integer
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
respuesta = MsgBox("¿Realmente desea borrar los datos?", vbYesNo, "Confirmación")
If respuesta = vbYes Then
For T = 3 To Worksheets.Count
With Worksheets(T).Select
Range("E11:AC2500").ClearContents
End With
Next T
Sheets(1).Select
MsgBox ("Se han borrado los datos")
End If
.ScreenUpdating = True
.Calculation = xlCalculationManual
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayHorizontalScrollBar = True
End With
End Sub

ahí modifica tus rango que quieres limpiar espero que te sirva

saludos isidro 

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

Prueba esta macro:

Sub Borrar()
Dim Hoja As Worksheet
For Each Hoja In Sheets
   With Hoja
      .Range("B7:I46").ClearContents
      .Range("L8:M46").ClearContents
      .Range("O8:O46").ClearContents
      .Range("Q8:Q46").ClearContents
      .Range("K8:K46").ClearContents
      .Range("S7:Z46").ClearContents
      .Range("AB7:AD46").ClearContents
      .Range("AF7:AF46").ClearContents
      .Range("AH7:AH46").ClearContents
      .Range("AJ7:AQ46").ClearContents
      .Range("AS7:AV46").ClearContents
      .Range("AW7:AW46").ClearContents
      .Range("AY7:AY46").ClearContents
      .Range("BA7:BH46").ClearContents
      .Range("BJ7:BL46").ClearContents
      .Range("BN7:BN46").ClearContents
      .Range("BP7:BP46").ClearContents
      .Range("BR7:BY46").ClearContents
      .Range("CA7:CC46").ClearContents
      .Range("CE7:CE46").ClearContents
      .Range("CG7:CG46").ClearContents
      .Range("CN7:CR46").ClearContents
      .Range("CT7:CZ46").ClearContents
   End With
Next
End Sub

 

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

Hola @dorgelis

Una opción mas

Sub BorrarRangos()

For Each Hoja In Worksheets
With Hoja
Union(.Range("B7:I46"), .Range("L8:M46"), .Range("O8:O46"), .Range("Q8:Q46"), .Range("K8:K46"), _
      .Range("S7:Z46"), .Range("AB7:AD46"), .Range("AF7:AF46"), .Range("AH7:AH46"), .Range("AJ7:AQ46"), _
      .Range("AS7:AV46"), .Range("AW7:AW46"), .Range("AY7:AY46"), .Range("BA7:BH46"), .Range("BJ7:BL46"), _
      .Range("BN7:BN46"), .Range("BP7:BP46"), .Range("BR7:BY46"), .Range("CA7:CC46"), .Range("CE7:CE46"), _
      .Range("CG7:CG46"), .Range("CN7:CR46"), .Range("CT7:CZ46")).ClearContents
End With
Next

End Sub

o asi

Sub BorrarRangos2()

For Each Hoja In Worksheets
With Hoja
    .Range("B7:I46, L8:M46, O8:O46, Q8:Q46, K8:K46, S7:Z46, AB7:AD46, AF7:AF46, AH7:AH46, AJ7:AQ46, AS7:AV46, AW7:AW46, AY7:AY46, BA7:BH46, BJ7:BL46, BN7:BN46, BP7:BP46, BR7:BY46, CA7:CC46, CE7:CE46, CG7:CG46, CN7:CR46, CT7:CZ46").ClearContents
End With
Next

End Sub

 

Saludos!

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs
En 6/2/2019 at 11:49 , Gerson Pineda dijo:

Hola @dorgelis

Una opción mas


Sub BorrarRangos()

For Each Hoja In Worksheets
With Hoja
Union(.Range("B7:I46"), .Range("L8:M46"), .Range("O8:O46"), .Range("Q8:Q46"), .Range("K8:K46"), _
      .Range("S7:Z46"), .Range("AB7:AD46"), .Range("AF7:AF46"), .Range("AH7:AH46"), .Range("AJ7:AQ46"), _
      .Range("AS7:AV46"), .Range("AW7:AW46"), .Range("AY7:AY46"), .Range("BA7:BH46"), .Range("BJ7:BL46"), _
      .Range("BN7:BN46"), .Range("BP7:BP46"), .Range("BR7:BY46"), .Range("CA7:CC46"), .Range("CE7:CE46"), _
      .Range("CG7:CG46"), .Range("CN7:CR46"), .Range("CT7:CZ46")).ClearContents
End With
Next

End Sub

o asi


Sub BorrarRangos2()

For Each Hoja In Worksheets
With Hoja
    .Range("B7:I46, L8:M46, O8:O46, Q8:Q46, K8:K46, S7:Z46, AB7:AD46, AF7:AF46, AH7:AH46, AJ7:AQ46, AS7:AV46, AW7:AW46, AY7:AY46, BA7:BH46, BJ7:BL46, BN7:BN46, BP7:BP46, BR7:BY46, CA7:CC46, CE7:CE46, CG7:CG46, CN7:CR46, CT7:CZ46").ClearContents
End With
Next

End Sub

Saludos Profesor, le comento que trate de correr ambos códigos y me genero estos errores, desconozco que podria ser ..

Sub BorrarRangos2()

For Each Hoja In Worksheets
With Hoja
    .Range("B7:I46, L8:M46, O8:O46, Q8:Q46, K8:K46, S7:Z46, AB7:AD46, AF7:AF46, AH7:AH46, AJ7:AQ46, AS7:AV46, AW7:AW46, AY7:AY46, BA7:BH46, BJ7:BL46, BN7:BN46, BP7:BP46, BR7:BY46, CA7:CC46, CE7:CE46, CG7:CG46, CN7:CR46, CT7:CZ46").ClearContents
End With
Next

End Sub

Error 400

En 6/2/2019 at 11:49 , Gerson Pineda dijo:

Saludos!

 

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs
Invitado
Este tema está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.