Mira, yop acabo de hacer lo q estas pidiendo en un libro de excel, tienes q tener activada "barra de herramientas --> Cuadro de control" para poder acceder a colocar un boton en la hoja, luego haces doble click en el boton y pegas el sigte codigo....
Código:
'--Esto genera el numero de registros a comparar------
For i = 1 To 1000
If Cells(i, 1).Value <> "" Then
contador = contador + 1
Else
i = 1000
End If
Next
h1 = 1
h2 = 1
'acá es donde comenzarà la busqueda -------------------
For y = 1 To contador
aux = Cells(y, 2) '--recupera el valor a consultar-----
If aux >= 40000 And aux <= 49999 Then
MsgBox "entre 40000 y 49999" + Chr(13) + "el valor es: " & aux '-se puede dejar en comentario
'--Aca la codificacion para poder pegar en otra hoja el resulado-----
'--En la Hoja 2 va a dejar los valores comprendidos entre 40000 y 49999 --------
Worksheets("Hoja2").Cells(h1, 1) = Cells(y, 1).Value
Worksheets("Hoja2").Cells(h1, 2) = Cells(y, 2).Value
Worksheets("Hoja2").Cells(h1, 3) = Cells(y, 3).Value
Worksheets("Hoja2").Cells(h1, 4) = Cells(y, 4).Value
h1 = h1 + 1
ElseIf aux >= 60000 And aux <= 69999 Then
MsgBox "entre 60000 y 69999" + Chr(13) + "el valor es: " & aux '--se puede dejar en comentario
'--Aca la codificacion para poder pegar en otra hoja el resulado----------------
'--En la Hoja 3 va a dejar los valores comprendidos entre 60000 y 69999 --------
Worksheets("Hoja3").Cells(h2, 1) = Cells(y, 1).Value
Worksheets("Hoja3").Cells(h2, 2) = Cells(y, 2).Value
Worksheets("Hoja3").Cells(h2, 3) = Cells(y, 3).Value
Worksheets("Hoja3").Cells(h2, 4) = Cells(y, 4).Value
h2 = h2 + 1
End If
Next
MsgBox "Termino"
como lo explico con comentarios lo q hace esto es verificar el valor q estas ingresando y compararlo, si cae en las condiciones q estas dando esta codificacion lleva la informacion de la linea completa a otra oja, dependiendo de la condicion q presente verdadero (en este caso Hoja2 entre 40000-49999, Hoja3 entre 60000-69999)
espero te sirva, ya q esta 100% mas q comprobado, en todo kso cualquier cosa comunicas y te ayudamos.....
