Aneudys Martinez

Para agilizar el procedimiento yo uso lo siguiente En el evento change del textbox uso estos ListBox1. Clear valor = TextBox1.Value Set busca = Sheets("REPORTE").Range("B10:C1048575").Find(valor, LookIn:=xlValues, lookat:=xlPart) If Not busca Is...

Mmmmm. Pero para eso no es necesario que selecciones la hoja activa ya que estas activa Puedes ´pones la macro completa para ver en que pordemos ayudarte

Estos lo consigo con una búsqueda desde la la primera columna del listbox así En el evento click del listbox Private Sub ListBox1_Click() Set busco = ActiveSheet.Range("a:a").Find(ListBox1, LookIn:=xlValues, lookat:=xlWhole) If Not busco Is Nothing...

Puedes conseguir el filtro de esta manera En el evento open del thisworkbook seria así ----------------------------------------------------------------------------------- Private Sub Workbook_Open() Filtro Ordenar End Sub...

De la misma manera que lo hace para ingresar los datos Desbloquea la hoja y vuelve a bloquearla Porque me Imagino que la consulta es solo para visualizer la información

¿Es un listbox que quiere filtrar? Si se puede

cambia la & por , seria de la siguiente manera dato = ho1.Range ("B" , I) Si te silve no olvides valorar para cerrar la pregunta

Te esta pidiendo que definas la variable I estos lo puede corregir así Dim i for I = 2 to 1000 ...

Este es mi correo [email protected] Esto se puede conseguir definiendo rango y agregando le nombre a eso rango Y con la formula suma producto Mandame el archivo para agregar la formula

En ves de crear una hoja copia la hoja principal asi te crea la misma hoja con el boton Y copia la informacion que require en ella Ejemplo Worksheets("modelo").Copy After:=Worksheets(Worksheets.Count) Modelo seria el nombre de tu hoja principal Si te...