Anónimo
Macro para hacer N numero de tablas
Buenas tardes. Mi consulta es la siguiente: necesito realizar una macro que me cree cuantas tablas ocupe, me explico; Necesito realizar una hoja de calculo para averiguar el peso de un edificio determinado, entonces yo deseo poner el numero de pisos del edificio ejpl: 4 pisos y que al correr la macro con un botón me salga 4 tablas iguales y cada tabla con un titulo especificando el piso a averiguar ejep: "piso 3". Deseo haberme explicado bien, muchas gracias
1 Respuesta
Respuesta de Enrique Bernal
1
Disculpa la tabla contiene lo siguiente:
Numero del piso # (esto es el titulo)
En la columna B a partir de la fila 2
B C
-Peso propio losa en blanco
-Piso cerámico en blanco
-Cielos en gypsum en blanco
-Muros y divisiones en blanco
-Otros acabados en blanco
-avabados hidráulicos en blanco
- En blanco sumatoria C
Las tablas son iguales para cada piso
Numero del piso # (esto es el titulo)
En la columna B a partir de la fila 2
B C
-Peso propio losa en blanco
-Piso cerámico en blanco
-Cielos en gypsum en blanco
-Muros y divisiones en blanco
-Otros acabados en blanco
-avabados hidráulicos en blanco
- En blanco sumatoria C
Las tablas son iguales para cada piso
Olvide aclarar la cantidad de pisos se pondría en la celda "e4"
Y se ejecturia mediante un botón en la hoja
De antemano muchas gracias por la ayuda
Y se ejecturia mediante un botón en la hoja
De antemano muchas gracias por la ayuda
Otra aclaración ocupo las tablas en una misma hoja, y puede haber una saparacion entre tablas de 2 filas. Gracias...!
Espero esto te ayude
Sub crea()
a = Range("E4").Value
piso = piso + 1
b = 5
For i = 1 To a
Range("A" & b).Value = "Piso " & piso
Range("B" & b).Value = "Peso propio losa"
Range("B" & b + 1).Value = "piso ceramico"
Range("B" & b + 2).Value = "cielos en gypsum"
Range("B" & b + 3).Value = "muros y divisiones"
Range("B" & b + 4).Value = "otros acabados"
Range("B" & b + 5).Value = "acabados hidraulicos"
Range("C" & b + 6).Value = "sum(C" & b & ":C" & b + 5
b = b + 9
Next i
End Sub
Sub crea()
a = Range("E4").Value
piso = piso + 1
b = 5
For i = 1 To a
Range("A" & b).Value = "Piso " & piso
Range("B" & b).Value = "Peso propio losa"
Range("B" & b + 1).Value = "piso ceramico"
Range("B" & b + 2).Value = "cielos en gypsum"
Range("B" & b + 3).Value = "muros y divisiones"
Range("B" & b + 4).Value = "otros acabados"
Range("B" & b + 5).Value = "acabados hidraulicos"
Range("C" & b + 6).Value = "sum(C" & b & ":C" & b + 5
b = b + 9
Next i
End Sub