Anónimo
Macro que pueda ajustar celdas
Bueno te explico
cree un macro para que al meter un numero "x" la macro me arrojase la cantidad de planillas (en este caso "x" planillas ) entonces hasta ahi esta bien pero lo malo es que abajo de la planilla viene un item que no es ajustable a ese numero "x" por lo que si "x" es muy grande pasa a llevar el item que viene abajo y desaparece. Aqui te adjunto la macro
sub macro1()
dim numero
numero = range("A3")
range("A20:L100").select
selection.clearcontents
selection.clearformats
range("A5:L18").select
selection.copy
for i =1 to numero -1
range("A" & (16*i + 4)).select
activesheet.paste
next
end sub
La idea es que cuando se ingrese el numero "x" y aparezcan las "x" planillas el item que este abajo se valla ajustando en espacio a la cantidad de planillas o sea si son 3 planillas el item quede justo abajo de las 3 y si son 2 quede abajo de las 2 y si son 15 quede abajo de las 15 y así sucesivamente.
Espero se entienda la pregunta y de ante mano muchas gracias por tu tiempo
cree un macro para que al meter un numero "x" la macro me arrojase la cantidad de planillas (en este caso "x" planillas ) entonces hasta ahi esta bien pero lo malo es que abajo de la planilla viene un item que no es ajustable a ese numero "x" por lo que si "x" es muy grande pasa a llevar el item que viene abajo y desaparece. Aqui te adjunto la macro
sub macro1()
dim numero
numero = range("A3")
range("A20:L100").select
selection.clearcontents
selection.clearformats
range("A5:L18").select
selection.copy
for i =1 to numero -1
range("A" & (16*i + 4)).select
activesheet.paste
next
end sub
La idea es que cuando se ingrese el numero "x" y aparezcan las "x" planillas el item que este abajo se valla ajustando en espacio a la cantidad de planillas o sea si son 3 planillas el item quede justo abajo de las 3 y si son 2 quede abajo de las 2 y si son 15 quede abajo de las 15 y así sucesivamente.
Espero se entienda la pregunta y de ante mano muchas gracias por tu tiempo
1 Respuesta
Respuesta de mrtool
1
Si te he entendido pienso que habría que jugar con las .rows para desplazar el item lo que indica la variable 'numero' hacia abajo. ¿Es eso correcto?, coméntamelo por favor para ver la solución.
De todas formas lo mismo no es posible pero ¿has pensado en ponerlo arriba en la 1ª fila para simplificar? Así quedaría más sencilla la macro.
De todas formas lo mismo no es posible pero ¿has pensado en ponerlo arriba en la 1ª fila para simplificar? Así quedaría más sencilla la macro.
De ante mano muchas gracias por tu tiempo
mira lo de poner en primera fila lo pensé pero no se puede ya que son unas planillas de inspección las cuales tiene que seguir un orden.
Lo segundo no te entendí con lo de .rows si puedes ser más explicito seria genial
repitiendo los agredecimientos y esperando respuesta
saludos
mira lo de poner en primera fila lo pensé pero no se puede ya que son unas planillas de inspección las cuales tiene que seguir un orden.
Lo segundo no te entendí con lo de .rows si puedes ser más explicito seria genial
repitiendo los agredecimientos y esperando respuesta
saludos
Prueba este bucle a ver si te lo resuelve. Inserta siempre para abajo por lo que la ultima fila se ajusta.
Saludos
Sub Macro1()
Dim numero
numero = range("a3")
Dim cont
For cont = 1 To numero
Range("A5:L18").Select
Selection.Copy
Selection.Insert Shift:=xlDown
ActiveSheet.Paste
Next cont
End Sub
Saludos
Sub Macro1()
Dim numero
numero = range("a3")
Dim cont
For cont = 1 To numero
Range("A5:L18").Select
Selection.Copy
Selection.Insert Shift:=xlDown
ActiveSheet.Paste
Next cont
End Sub