macro para borrar rangos de distintas hojas en un libro de excel
Publicado por Pablo Gpe. (1 intervención) el 12/01/2019 22:07:14
quiero usar esta macro para borrar un rango de celdas de distintas hojas de un libro de excel pero me marca error
espero alguien me pueda ayudar gracias de antemano
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Option Explicit
Sub BorrarCeldas1()
Dim oDoc As Object
Dim oRango1 As Object
Dim oRango2 As Object
Dim oRango3 As Object
Dim oRango4 As Object
Dim oRango5 As Object
Dim oRango6 As Object
'Este documento
oDoc = ThisComponentoRango1 = oDoc.getSheets.getByName("Cumbres").getCellRangeByName("G2:J35")
oRango2 = oDoc.getSheets.getByName("Valle").getCellRangeByName("G2:J35")
oRango3 = oDoc.getSheets.getByName(Bodega").getCellRangeByName("G2:J35")
oRango4 = oDoc.getSheets.getByName("Mojarra").getCellRangeByName("G2:J35")
oRango5 = oDoc.getSheets.getByName("Puerta").getCellRangeByName("G2:J35")
oRango6 = oDoc.getSheets.getByName("Tortas").getCellRangeByName("G2:J35")
'Borramos todos los datos en cada rango
oRango1.clearContents
oRango2.clearContents
oRango3.clearContents
oRango4.clearContents
oRango5.clearContents
oRango6.clearContents
End Subespero alguien me pueda ayudar gracias de antemano
Valora esta pregunta
0
