Tengo estos Números en un rango de celdas
Tengo un Rango de celda con los numero de NCF (Numero de Comprobante Fiscal) y quiero ingresarloSecuencialmente en otra celda donde tengo el diseño de una factura comercial y que me muestre un mensaje de texto cuando los números se agoten, como puedo hacerlo, los numero son de este tipoA010010010100000001 hasta el 1000
1 respuesta
En un rango de celdas, por ejemplo, el rango A1 a A1000, ahí en ese rango de celdas tienes NFC, por ejemplo:
A
1 A010010010100000001
2 A010010010100000002
3 A010010010100000003
4 ... y así hasta la A1000
Quieres poner en una celda, por ejemplo en la celda B5 el dato:
"A010010010100000001"
Necesitas que la macro tome el dato de A1 y lo ponga en B5, luego que la macro tome el dato de A2 y lo ponga en la celda B5, y así sucesivamente vaya poniendo cada uno de los datos hasta llegar a A1000 y ahí te envíe un mensaje de que llegó al último. ¿Eso necesitas?
Si es otra cosa, podrías explicarlo con datos reales y referencias reales de nombre de hoja, celdas y rango de celdas.
¡Gracias!, si es así como usted lo esta planteando, favor enviarme la macro, Gracias
Ejecuta la siguiente macro
Sub Cambiar_Dato()
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
Range("B5").Value = Cells(i, "A").Value
Next
MsgBox "Fin"
End Sub.
.
