Rango de tabla según el valor de dos celdas
Estoy haciendo una tabla y necesito que tenga el número de columnas y filas que yo indique en dos celdas. Por ejemplo si A1=5 la tabla debe tener 5 columnas, además todas las columnas agregadas deben contener una fórmula y un formato que ya utilizo en la columna 1 inicial. El número de filas es más complicado, quiero que la tabla sume filas hasta una cantidad máxima indicada en otra celda, por ejemplo en A2. Puedo utilizar macros si es necesario.
Lo único complicado con lo que pides es entender que pides, así que te hice un ejemplo así, en la pantalla 1 estoy asumiendo que así tienes tus datos
asi que una vez que corro una macro el resultado es este
Te crea una copia en el numero de columnas marcado en a1 junto con la fórmula y el formato además suma las filas marcadas en b1 y este es el código.
Sub realiza_tabla()
columnas = Range("a1"): filas = Range("b1")
Set datos = Range("b4").CurrentRegion
With datos
.Copy
.Columns(.Columns.Count + 1).Resize(.Rows.Count, columnas - 1).PasteSpecial Paste:=xlPasteAllUsingSourceTheme
Set datos = .CurrentRegion
Set datos = .Resize(filas)
.Columns(columnas + 1).Formula = "=sum(" & .Rows(1).Address(False, False) & ")"
End With
End Subes lo que buscas?
