¿Como pego un valor según cantidad?
'Macro para insertar los codigos en las celdas vacias
Sub CopiaHastaVacioCODIGO()
ultlinea = Cells(Rows.Count, 1).End(xlUp).Row
For I = 1 To ultlinea
If I = 1 Then
Range("a" & 1 + I).Value = Range("a" & 1 + I).Value
Else
Valor = Range("a" & 1 + I).Value
If Valor = "" Then
Range("a" & 1 + I).Value = Range("a" & I).Value
Else
dato = Range("a" & 1 + I).Value
Range("a" & 1 + I).Value = dato
End If
End If
Next
MsgBox ("Se añadieron los codigos")
End Sub
Buen día tengo la anterior macro que copia un código y lo pega en las celdas vacías:
Pero solo copia los valores y rellena celdas vacías, ¿algún consejo para que copie la palabra y pegue según la cantidad (columna de la derecha)? Es decir, si cantidad dice 5 que pegue código 5 veces.
1 Respuesta
Respuesta de Dante Amor
1
Si, los espacios en blanco ya estarían asignados.
Los datos originalmente estarían así:
Y los datos quedarían de la siguiente forma:
Saludos.
Te anexo la macro
Sub CopiarCodigos()
'Por.Dante Amor
For i = 3 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, "B") <> "" Then
For j = 1 To Cells(i, "B")
Cells(i - 1 + j, "A") = Cells(i, "A")
Next
End If
Next
MsgBox "Se añadieron los codigos"
End Sub
