Insertar un número determinado de filas a partir de un número determinado a elegir
publicado
Buenas tardes,
Necesito ayuda en varios aspectos, me he bloqueado y a pesar de haber intentado varios métodos no consigo llegar a lo que necesito.
Adjunto archivo con una pequeña prueba.
1. Necesito insertar un número determinado de filas desde A1 hacia abajo, a partir de la cantidad que ponga en B2, será entre 1 y 6 máximo, pero es por no estar insertando manualmente. Lo he intentado con la siguiente macro, pero siempre tengo que tener la celda bien marcada y con al menos 2 filas ya fijadas para que se quede el mismo formato, no sé si existe otra forma de hacerlo:
SubInsertarFilas()
DimnumFilas AsLong
Preguntar al usuario por el número de filas a insertar
numFilas = Application.InputBox(Prompt:="Filas a insertar:", Type:=1)
Validar si el número de filas indicado es superior a cero
2. Al tener el número de filas, necesito que se copie el nombre (B2) seguido del número (C2), por ejemplo MIKE 01, y en cada fila poner mismo nombre pero seguido del siguiente número, en este caso sería MIKE 02, y así sucesivamente. Para este caso, ni con CONCATENAR, ni usando & lo he conseguido, ya que añadir una valor más al número no me deja.
3. Por último, en la celda J de la fila correspondiente, usar los datos en una sola línea (como en el ejemplo), que he usado CONCATENAR, pero si en alguna celda pongo 0, me gustaría que no apareciera ese dato. De esto, le he dado mil vuelta y no consigo dar con absolutamente nada.
Gracias de antemano, por simplemente leer la entrada. Toda ayuda sería de gran ayuda. Un saludo
Buenas tardes,
Necesito ayuda en varios aspectos, me he bloqueado y a pesar de haber intentado varios métodos no consigo llegar a lo que necesito.
Adjunto archivo con una pequeña prueba.
1. Necesito insertar un número determinado de filas desde A1 hacia abajo, a partir de la cantidad que ponga en B2, será entre 1 y 6 máximo, pero es por no estar insertando manualmente. Lo he intentado con la siguiente macro, pero siempre tengo que tener la celda bien marcada y con al menos 2 filas ya fijadas para que se quede el mismo formato, no sé si existe otra forma de hacerlo:
Sub
InsertarFilas()
Dim
numFilas
As
Long
Preguntar al usuario por el número de filas a insertar
numFilas = Application.InputBox(Prompt:=
"Filas a insertar:"
, Type:=1)
Validar si el número de filas indicado es superior a cero
If
numFilas > 0
Then
'Insertar filas
Rows(ActiveCell.Row &
":"
& ActiveCell.Row + numFilas - 1).Insert
End
If
End
Sub
2. Al tener el número de filas, necesito que se copie el nombre (B2) seguido del número (C2), por ejemplo MIKE 01, y en cada fila poner mismo nombre pero seguido del siguiente número, en este caso sería MIKE 02, y así sucesivamente. Para este caso, ni con CONCATENAR, ni usando & lo he conseguido, ya que añadir una valor más al número no me deja.
3. Por último, en la celda J de la fila correspondiente, usar los datos en una sola línea (como en el ejemplo), que he usado CONCATENAR, pero si en alguna celda pongo 0, me gustaría que no apareciera ese dato. De esto, le he dado mil vuelta y no consigo dar con absolutamente nada.
Gracias de antemano, por simplemente leer la entrada. Toda ayuda sería de gran ayuda. Un saludo
Prueba.xlsx