Macro saber que numeros que faltan en un rango
Hola amigos quisiera saber como crear una macro para saber que números que faltan en un rango y me los dejara en otro rango como lo deje en una imagen.
Disculpen si pudieran decirme el código necesario para ello de antemano gracias
http://www.imagengratis.org/thumbs/preguntamacro.jpg
Disculpen si pudieran decirme el código necesario para ello de antemano gracias
http://www.imagengratis.org/thumbs/preguntamacro.jpg
1 Respuesta
Respuesta de toldeman
1
Prueba esta macro:
Sub rellenarserie()
Dim rango As Range, ul As Long, i As Byte, x As Byte
ul = Range("A" & Rows.Count).End(xlUp).Row
Set rango = Range("A1:A" & ul)
Do While i <> 50
i = i + 1
For Each celda In rango
If celda = i Then i = i + 1
Next
x = x + 1
Cells(x, 4) = i
Loop
End Sub
Sub rellenarserie()
Dim rango As Range, ul As Long, i As Byte, x As Byte
ul = Range("A" & Rows.Count).End(xlUp).Row
Set rango = Range("A1:A" & ul)
Do While i <> 50
i = i + 1
For Each celda In rango
If celda = i Then i = i + 1
Next
x = x + 1
Cells(x, 4) = i
Loop
End Sub
