Macro busqueda y seleccion multiple
Dayvitt quisiera que me ayudaras con este caso:
es para realizarlo con un form en vba
Se requriere realizar la búsqueda de información en una hoja que tiene n filas. Esta búsqueda debe ser realizada según varios criterios, es decir donde la fila buscada tenga condiciones requeridas da acuerdo a las columnas, por ejemplo buscar entre la columna a y la columna C. También se necesita que las councidencias de la búsqueda sean copiadas y pegadas en otra hoja del mismo libro
es para realizarlo con un form en vba
Se requriere realizar la búsqueda de información en una hoja que tiene n filas. Esta búsqueda debe ser realizada según varios criterios, es decir donde la fila buscada tenga condiciones requeridas da acuerdo a las columnas, por ejemplo buscar entre la columna a y la columna C. También se necesita que las councidencias de la búsqueda sean copiadas y pegadas en otra hoja del mismo libro
1 respuesta
Respuesta de dayvitt
1
Bien,
Dime las condiciones que se deben dar y lo que debe hacer en cada caso
Dime las condiciones que se deben dar y lo que debe hacer en cada caso
Gracias,
este es parte del informe que tengo
col a col b col c col d
Elementos Electricos 161020750050 13045 adaptador emt 1 1/2 pulg
Elementos Electricos 161020750050 13047 adaptador emt 1/2 pulg
Elementos Electricos 161020750050 13048 adaptador emt 2 pulg
Electricos mundial 161021162550 13158 base para rele 11
Electricos mundial 161021162550 13161 base para rele 8
Electricos mundial 161021162550 13164 bloque contacto
Ferreteria nueva 161003913520 23196 galga espesores
Ferreteria nueva 161003913520 23283 llave boca fija 9/16
lo q necesito es un form en vba por ejemplo con 2 textbox y me coincida los criterios de busqueda con los text entre columna a y columna C, y que esos que encuentre, los seleccione y los pegue en una nueva hoja dentro del mismo libro.
Espero haber sido claro,
Gracias
este es parte del informe que tengo
col a col b col c col d
Elementos Electricos 161020750050 13045 adaptador emt 1 1/2 pulg
Elementos Electricos 161020750050 13047 adaptador emt 1/2 pulg
Elementos Electricos 161020750050 13048 adaptador emt 2 pulg
Electricos mundial 161021162550 13158 base para rele 11
Electricos mundial 161021162550 13161 base para rele 8
Electricos mundial 161021162550 13164 bloque contacto
Ferreteria nueva 161003913520 23196 galga espesores
Ferreteria nueva 161003913520 23283 llave boca fija 9/16
lo q necesito es un form en vba por ejemplo con 2 textbox y me coincida los criterios de busqueda con los text entre columna a y columna C, y que esos que encuentre, los seleccione y los pegue en una nueva hoja dentro del mismo libro.
Espero haber sido claro,
Gracias
Bien,
Dime el nombre de los textbox y de la hoja nueva.
Dime el nombre de los textbox y de la hoja nueva.
textbox1 y textbox2, la hoja seria la hoja3
¿Y la tabla de datos en que hoja esta?
Es la segunda hoja y se llama Metada
Bien,
Ponle un botón a ese form y aquí tienes el código:
Private Sub CommandButton1_Click()
Dim x As Integer
x = 1
Do Until Hoja2.Cells(x, "A") = ""
If (Chr(34) & Hoja2.Cells(x, "A") & Chr(34) = Chr(34) & TextBox1.Value & Chr(34)) And (Chr(34) & Hoja2.Cells(x, "C") & Chr(34) = Chr(34) & TextBox2.Value & Chr(34)) Then
Hoja3.Cells(1, "A") = Hoja2.Cells(x, "A")
Hoja3.Cells(1, "b") = Hoja2.Cells(x, "b")
Hoja3.Cells(1, "c") = Hoja2.Cells(x, "c")
Hoja3.Cells(1, "d") = Hoja2.Cells(x, "d")
End If
x = x + 1
Loop
End Sub
Ponle un botón a ese form y aquí tienes el código:
Private Sub CommandButton1_Click()
Dim x As Integer
x = 1
Do Until Hoja2.Cells(x, "A") = ""
If (Chr(34) & Hoja2.Cells(x, "A") & Chr(34) = Chr(34) & TextBox1.Value & Chr(34)) And (Chr(34) & Hoja2.Cells(x, "C") & Chr(34) = Chr(34) & TextBox2.Value & Chr(34)) Then
Hoja3.Cells(1, "A") = Hoja2.Cells(x, "A")
Hoja3.Cells(1, "b") = Hoja2.Cells(x, "b")
Hoja3.Cells(1, "c") = Hoja2.Cells(x, "c")
Hoja3.Cells(1, "d") = Hoja2.Cells(x, "d")
End If
x = x + 1
Loop
End Sub
