Fórmula o macro para rangod

Hola:
Necesito saber si hay alguna fórmula o macro que me pueda indicar que números me faltan en un rango, sin tener que poner todos los números del rango, por ejemplo solo coloco el 1 y el 100 y en otra columna o hoja coloco todos los números que tengo, me indique del rango del 1 al 100 cuales me faltan
Les agradeceré mucho esta ayuda

1 Respuesta

Respuesta
1
Si es posible hacerlo con una macro, te explico.
En mi caso tengo las hojas:
Hoja1 = Datos que tengo
Hoja2 = Lista de datos
Hoja3 = reporte de faltantes
Este es el codigo
Sub Comprueba()
fil_rep = 1
fil_dat = 1
While Sheets("Hoja2").Cells(fil_dat, 1) <> ""
a = Application.CountIf(Sheets("Hoja1").Cells(1, 1).CurrentRegion, _
"=" & Sheets("Hoja2").Cells(fil_dat, 1))
If a <> 0 Then
Else
Sheets("Hoja3").Cells(fil_rep, 1) = Sheets("Hoja2").Cells(fil_dat, 1)
fil_rep = fil_rep + 1
End If
fil_dat = fil_dat + 1
Wend
End Sub
Si quieres darte una idea de como funciona entonces baja o solo mira la imagen, en tamaño grande dando clic en ella

Si necesitas explicaciones extras mandame un correo a [email protected]
Hasta pronto.
Hola muchas gracias por ayudarme mira si me sirve esta macro, pero quiero saber si se puedo colocar solo dos números de un rango cualquiera el primero y el final, por ejemplo colocar en una celda el 1 y en otra el 100, sin tener que poner toda la serie completa y que la macro por lógica entienda que entre el 1 y el 100 se encuentran el 2, 3, 4, 5, etc. para que así me indique que números faltan en la base.
Nuevamente gracias por la ayuda
Si se puede hacer solo que como para esta macro es necesario tener un listado de referencia primero lo crea, después compara y al final lo borra.
Los datos inicial y final los capturas en la hoja2 en las celdas A1 y B1 respectivamente, bien este es el código que propongo.
Sub Comprueba()
fil_rep = 1
fil_dat = 1
fil_ser = 1
fin = Sheets("Hoja2").Cells(1, 2)
For ini = Sheets("Hoja2").Cells(1, 1) To fin
Sheets("Hoja2").Cells(ini, 1) = ini
Next
While Sheets("Hoja2").Cells(fil_dat, 1) <> ""
a = Application.CountIf(Sheets("Hoja1").Cells(1, 1).CurrentRegion, _
"=" & Sheets("Hoja2").Cells(fil_dat, 1))
If a <> 0 Then
Else
Sheets("Hoja3").Cells(fil_rep, 1) = Sheets("Hoja2").Cells(fil_dat, 1)
fil_rep = fil_rep + 1
End If
fil_dat = fil_dat + 1
Wend
With Sheets("Hoja2")
.Cells(2, 1).Resize( _
.Cells(2, 1).CurrentRegion.Rows.Count - 1, _
.Cells(2, 1).CurrentRegion.Columns.Count) _
.EntireRow.Delete
End With
End Sub

Añade tu respuesta

Haz clic para o
El autor de la pregunta ya no la sigue por lo que es posible que no reciba tu respuesta.

Más respuestas relacionadas

¿Cómo separo dos números que se encuentran en una sola celda de excel?

En una celda de excel se encuentran dos cantidades separadas por un guion. Quisiera separar el primer número en una segunda celda y el segundo número en una tercer celda. Ejemplo: A 1 48,264 - 65,371 2 55,555 - 66,666 3 . . . Debería quedar así: A B...
2 respuestas

Al seleccionar celda extraer sus dígitos automáticamente

Necesito dos favores, la idea es que al seleccionar una celda numérica de 4 dígitos del rango "af1;aj42" esta automáticamente extraiga sus cifras a la columna "a1, b1, c1, d1" como se muestra en la imagen Y lo segundo como puedo quitarle el msgbox a...
2 respuestas

Se puede agregar voz a Excel

Tengo una pantalla de vuelo de vuelo donde anotó despegues y arribos, Quiero que cada vez que se produzca un despegue y se agregue hora o aterrice alguno y se ponga la hora, excel diga o se escuche atención Aterrizaje o Atención despegue.
3 respuestas

Gráfico Comparativo por Semanas, en Power Bi.

Espero se encuentren muy bien. Tengo una tabla en Power BI con fechas, códigos, costos y cantidades. La necesidad que tengo es de crear un gráfico o tabla donde pueda comparar y analizar el comportamiento de los costos y las cantidades de un código...
1 respuesta

En una lista para pedidos tengo varios formularios

En una lista para pedidos con varios formularios la vengo usando desde hace tiempo sin ningún problema pero hace días la abrí para hacer un pedido y al pisar en el cuadro donde apunta la flecha para que me abra un otro cuadro donde coloco ciertos...
2 respuestas

Código VBA para crear un botón y guardar en PDF

Tengo un archivo word con 7 capturas, una en cada página (1-7), cual seria el código para crear un botón en la barra de herramientas de acceso rápido para convertir en PDF cada página. El resultado seria 7 pdf.
2 respuestas

Detectar si he marcado Celda dentro de un Rango de Excel.

Tengo un Rango en Hoja Excel: RgoDatos >> $B$3:$V$39 Quiero detectar si la celda que selecciono está dentro de ese Rango Si no está que por omisión me marque B3.
1 respuesta

Dato fecha ya existe en tabla

Como están estimados maestros. En formulario, tengo botón archivar. Envío información a hoja "existencias" a tabla "tbl_existencias". En columna A un Código desde textbox1 En columna B fecha desde textbox "txtFecha2" En columna C total desde textbox2...
2 respuestas

Enviar hoja activa al monitor secundario con vba

He creado una segunda ventana de mi hoja excel con NewWindow, y lo que pretendo es mediante código VBA enviarla al monitor secundario, lo he intentado con Application.SendKeys "^({ESC}+{RIGHT})", pero no lo consigo, con "^{ESC}" estoy tratando de...
2 respuestas

Ingresar información en una hoja y rescatar los datos principales en otra hoja ordenadamente.

Debo hacer cotizaciones y necesito guardar la información de los datos de las personas en una BD, sin ocupar Tablas. Lo principal de esto es que queden ordenada según el número de la cotización y mantener el número correlativo de la cantidad de...
1 respuesta