Insertar filas teniendo como referencia el valor de una celda
Me pueden ayudar tengo una lista de códigos en la columna A, y sus respectivas cantidades el la columna B. Lo que quiero hacer una macro que inserta en la columna A tanta filas como dice la columna B y a cada código insertado en la columna A le de un valor diferente agregando al final del código un numero correlativo
1 Respuesta
Respuesta de Victor Rodriguez
1
Podrías poner dos imágenes de ejemplo, ¿la primera de como están los datos en origen y la segunda cual es el resultado buscado?
Gracias por preguntar:
Saludos.
Esta macro te srevirá
Sub nombres()
Sheets("Hoja1").Range("A3").Select
m = 3
Do
b = 1
j = ActiveCell.Offset(0, 1).Value
For i = 1 To j
Number = ActiveCell.Value
Sheets("Hoja1").Range("D" & m) = Number & "_" & b
Sheets("Hoja1").Range("E" & m) = 1
b = b + 1
m = m + 1
Next
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Value = 0
End Sub
