Recorre filas encuentra datos y los suma


En un foro me consultan sobre como se puede contar la cantidad de registros que existen en un rango de números, el problema se resuelve con dos bucles, uno que recorre una hoja con un listado de números  fila por fila y el otro bucle que recorre los rangos de números, verificando si el número pertenece al rango en caso lo suma, de lo contrario pasa a la fila siguiente donde existe otro rango de números, la macro presentada en el post recorre filas y cuenta celdas con datos está bastante relacionado con el que se presentá aquí, pudiendo ser de utilidad si se quiere modificar y adaptar la macro a lo que se este realizando en excel, al igual que la macro recorre filas y agrega número de fila en base a criterios.

MASTERCARD PAYONEER

En el caso planteado se tiene dos hojas, una con un listado de números, otra con un rango de números, el objetivo es tomar un número de la hoja 2 y verificar si entra en el rango de números, de la hoja 1 fila 2, en caso contrario verificar en la fila 3 y así sucesivamente hasta la última fila con datos. Una vez que se buscó en todas las filas de la hoja1 que contiene los rangos de datos, se procede a buscar el dato que está en la fila siguiente de la hoja 2, así sucesivamente hasta la  última fila con datos.

Desde el link del final se puede descargar el archivo de ejemplo de esta manera podrás ver su funcionamiento en forma más detallada. El código de VBA o Macro de Excel procede a recorrer fila por fila en la hoja con los datos a buscar; recorriendo también fila o fila la hoja de rangos hasta encontrar el intervalo buscado, una vez encontrado se procede a hacer una suma para determinar que cantidad de registros de la hoja 2 que se encuentran incluidos en los rangos de la hoja1.

Antes de seguir Excel, te recomiendo antes de introducirte en el mundo de las macros, que leas un excelente libro sobre Excel el que te ayudará manejar las planillas de cálculo, debes hacer click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá.
con el desarrollo y en el caso que no tengas conocimiento suficiente sobre el manejo de hojas de


Código que se debe insertar en un módulo


Sub search()
Application.ScreenUpdating = False
Dim file, file1 As Integer
Dim Data1, Data2, Data3, conta As Long
file = 2
file1 = 1
conta = 0


 



Sheets("Range").Range("c:c").ClearContents
Sheets("Not found").Range("b:b").ClearContents

While Sheets("Not found").Cells(file1, 1) <> Empty
   
    While Sheets("Range").Cells(file, 1) <> Empty
 
        Data1 = Sheets("Range").Cells(file, 1).Value
        Data2 = Sheets("Range").Cells(file, 2).Value
        Data3 = Sheets("Not found").Cells(file1, 1).Value
 
     If Data3 >= Data1 And Data3 <= Data2 Then
     conta = Sheets("Range").Cells(file, 3).Value
     conta = conta + 1
     Sheets("Range").Cells(file, 3) = conta
     Sheets("Not found").Cells(file1, 2) = "Found"
     End If
    file = file + 1
    Wend
file = 2
file1 = file1 + 1
Wend
Application.ScreenUpdating = False
End Sub

Otros post de utilidad:
Busca un dato en todas las hojas de excel
Combobox incrustado en Excel
Formulario para insertar datos en hoja de excel
Tutoriales sobre VBA
Llenar combobox y buscar datos
Mensaje de Alerta y envío de mail con Excel
Combobox que lista hojas de excel y las selecciona




Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.



If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends