Macro para poder completar
Estimados existe algún código que me complete la una columna.-
Supongamos que en la columna A existen datos desde 1 al 20 en forma correlativa o aleatoria y cuando la macro funcione debiera rellenar la columna b con el numero 018 hasta el último dato de la columna A.-
1 respuesta
Te envío la macro que buscabas:
Copias la macro en un modulo.
Sub macro_colb()
Sheets("hoja1").Select
Range("B1").Select
'Por Macro_Leo
Dim i As Integer
Range("B1:B20").Select
Selection.NumberFormat = "000"
x = 20
For i = 1 To x Step 1
Cells(i, 2).Value = "018"
Next i
End Sub
Si esto resuelve tu consulta no olvides finalizarla.
Experto tengo una duda, debiera completar la columna B según los datos de la columna A en este caso solo estamos completando solo hasta la fila 20
Ahora si te entendí, te envío la solución:
Sub x()
Application.ScreenUpdating = False
'Por Macro_Leo
Range("B1").Select
Columns("B:B").Select
Selection.NumberFormat = "000"
i = ActiveCell.CurrentRegion.Rows.Count + 1
Range("A1").Select
For N = 1 To i
If ActiveCell <> Empty Then ActiveCell.Offset(0, 1) = "018"
ActiveCell.Offset(1, 0).Select
Next
End Sub
La macro funciona de esta manera:
El código completa la columna B según los datos que ingreses en la columna A.
Si esto resuelve tu consulta no olvides finalizarla.
