Modificar rango en macro de excel
Hace un tiempo hice la siguiente pregunta:
"Buenas, ante todo gracias por su atención.
Tengo un libro con muchas hojas (una por dia laborable) todas las hojas tienen el mismo formato. En la columna "O" aparecen los totales.
Lo que quisiera es poder visualizar en una hoja diferente los totales de cada hoja en columnas diferentes. De momento he conseguido sumarlos con la fórmula =SUMA(hoja1:hojax!Ox) Pero necesito visualizarlos. Otra cosa, el nombre de las hojas no es correlativo como hoja1, hoja2.... Es ene02, ene03, ene04, ene07, ene08...
Muchas gracias."
Tras algunos cambios el experto "valerom" me solucionó el problema con esta macro:
Private Sub CommandButton1_Click()
Dim i, NumHojas, NumHojaRes, Respuesta, CuentaColumnas As Integer
Dim HojaNueva As Sheets
Dim SeleccionVieja As Range
Set SeleccionVieja = Application.Selection
NumHojas = Sheets.Count
NumHojaRes = 0
For i = 1 To NumHojas
If LCase$(Sheets(i).Name) = "resumen" Then
NumHojaRes = i
Exit For
End If
Next
If NumHojaRes = 0 Then
Respuesta = MsgBox("No existe hoja resumen.La creo", vbYesNo + _
vbInformation, "Permiso para crear hoja resumen")
If Respuesta = vbYes Then
Sheets.Add(, Sheets(NumHojas)).Name = "Resumen"
NumHojas = NumHojas + 1
NumHojaRes = NumHojas
Else
Exit Sub
End If
End If
CuentaColumnas = 1
Application.ScreenUpdating = False
For i = 1 To NumHojas
If i <> NumHojaRes Then
Sheets(NumHojaRes).Cells(1, CuentaColumnas) = Sheets(i).Name
Sheets(i).Range("O3:O55").Copy
Sheets(NumHojaRes).Range(Cells(3, CuentaColumnas), _
Cells(55, CuentaColumnas)).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
CuentaColumnas = CuentaColumnas + 1
End If
Next
SeleccionVieja.Select
Set SeleccionVieja = Nothing
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Ahora lo que necesito es hacer lo mismo pero con las celdas que van de (S3 a AI6) alguien me puede ayudar?
Muchísimas gracias.