Saltar al contenido

yobani

Miembros
  • Contador de contenido

    14
  • Unido

  • Última visita

Sobre yobani

  • Rango
    Miembro

Visitantes recientes del perfil

25 visitas de perfil
  1. FILTRADO CON COMBOBOX

    me equivoque de enlace
  2. FILTRADO CON COMBOBOX

    aqui esta el en lace correcto del archivo: https://drive.google.com/file/d/0B8vCoxTMqt-9NHZvVkVDN09qZEU/view?usp=sharing
  3. FILTRADO CON COMBOBOX

    https://drive.google.com/drive/my-drive hay esta el archivo
  4. FILTRADO CON COMBOBOX

    OK Y COMO LO HAGO, SON SOLOS 20,000 CELDA
  5. FILTRADO CON COMBOBOX

    Holas a todos, por favor díganme como poner que el filtrado sea mas rápido, funciona muy bien la solución que me dieron, pero dura mucho tiempo, el filtrado se ejecuta en un rango de A2;D20000
  6. FILTRADO CON COMBOBOX

    Perfecto hay me funciona solo que corre muy lento, habrá alguna forma que sea mas rápido
  7. FILTRADO CON COMBOBOX

    si, pero no me funciono
  8. FILTRADO CON COMBOBOX

    este es el enlace: https://drive.google.com/file/d/0B8vCoxTMqt-9cGJBcTZJN0V4X00/view?usp=sharing
  9. FILTRADO CON COMBOBOX

    aqui esta el link de google drive el archivo se llama listado de heredero: https://drive.google.com/drive/my-drive
  10. FILTRADO CON COMBOBOX

    ok gracias tratare de subirlo asi
  11. FILTRADO CON COMBOBOX

    no funciono y trato de enviar el fichero y da error
  12. FILTRADO CON COMBOBOX

    se me olvido decirle las variables las declares asi: Dim Columna, j, Filas, i
  13. Buena tardes, necesito su ayuda estoy haciendo una aplicación que me filtre la base de dato en un listbox, pero cuando lo ejecuto me da el mensaje de que no encontro los datos este es el codigo que estoy utilizando: Private Sub TextBox21_Change() On Error GoTo Errores If Me.TextBox21.Value = "" Then Exit Sub Me.Listbox1.Clear Columna = Me.ComboBox2.ListIndex j = 1 Filas = Range("A2").CurrentRegion.Rows.Count For i = 2 To Filas If LCase(Cells(i, j).Offset(0, CInt(Columna)).Value) Like "*" & LCase(Me.TextBox21.Value) & "*" Then Me.Listbox1.AddItem Cells(i, j) Me.Listbox1.List(Me.Listbox1.ListCount - 1, 1) = Cells(i, j).Offset(0, 1) Me.Listbox1.List(Me.Listbox1.ListCount - 1, 2) = Cells(i, j).Offset(0, 2) Me.Listbox1.List(Me.Listbox1.ListCount - 1, 3) = Cells(i, j).Offset(0, 3) Else End If Next i Exit Sub Errores: MsgBox "No se encuentra el dato introducido.", vbExclamation, "EXCELeINFO" End Sub Private Sub UserForm_Initialize() Worksheets("BASE").Activate Listbox1.ColumnWidths = "40;300;70;600" Me.ComboBox2.List = Application.Transpose(ActiveCell.CurrentRegion.Resize(1).Value) Me.ComboBox2.ListStyle = fmListStyleOption 'Limpiamos Listbox Listbox1.RowSource = Empty Listbox1.RowSource = "BASE!A2:D1048000" ActiveWorkbook.Save End Sub
  14. FILTRAL

    Buenas tardes, estoy aprendiendo a usar excel 2010 y estoy creando un formulario para introducir, modificar y filtrar datos, pero solo en este ultimo tengo problema, cuando intento filtrar me da un error de variable no declarada este es el procedimiento que estoy usando: Private Sub TextBox6_Change() On Error Resume Next uf = Hoja1.Range("A" & Rows.Count).End(xlUp).Row If TextBox6 = "" Then Me.Listbox1.RowSource = "Tabla1" Exit Sub End If Hoja1.AutoFilterMode = False Me.Listbox1 = Clear Me.Listbox1.RowSource = Clear For fila = 1 To uf Representante = Hoja1.Cells(fila, 4).Value 'Variable para Representante Cedula = Hoja1.Cells(fila, 3).Value 'Variable para cedula strg = Hoja1.Cells(fila, 2).Value 'Variable para Nombre Codigo = Hoja1.Cells(fila, 1).Value 'Variable para codigo If UCase(strg) Like "*" & UCase(TextBox1.Value) & "*" Then Me.Listbox1.AddItem Me.Listbox1.List(x, 0) = Hoja1.Cells(fila, 1).Value Me.Listbox1.List(x, 1) = Hoja1.Cells(fila, 2).Value Me.Listbox1.List(x, 2) = Hoja1.Cells(fila, 3).Value Me.Listbox1.List(x, 3) = Hoja1.Cells(fila, 4).Value x = x + 1 '---------------------------------------------------------------------------------- 'He añadido todo este fragmento para que me busque al mismo tiempo por codigo. ElseIf Codigo Like "*" & UCase(TextBox1.Value) & "*" Then Me.Listbox1.AddItem Me.Listbox1.List(x, 0) = Hoja1.Cells(fila, 1).Value Me.Listbox1.List(x, 1) = Hoja1.Cells(fila, 2).Value Me.Listbox1.List(x, 2) = Hoja1.Cells(fila, 3).Value Me.Listbox1.List(x, 3) = Hoja1.Cells(fila, 4).Value x = x + 1 'He añadido todo este fragmento para que me busque al mismo tiempo por codigo. ElseIf Cedula Like "*" & UCase(TextBox1.Value) & "*" Then Me.Listbox1.AddItem Me.Listbox1.List(x, 0) = Hoja1.Cells(fila, 1).Value Me.Listbox1.List(x, 1) = Hoja1.Cells(fila, 2).Value Me.Listbox1.List(x, 2) = Hoja1.Cells(fila, 3).Value Me.Listbox1.List(x, 3) = Hoja1.Cells(fila, 4).Value x = x + 1 'He añadido todo este fragmento para que me busque al mismo tiempo por codigo. ElseIf Representante Like "*" & UCase(TextBox1.Value) & "*" Then Me.Listbox1.AddItem Me.Listbox1.List(x, 0) = Hoja1.Cells(fila, 1).Value Me.Listbox1.List(x, 1) = Hoja1.Cells(fila, 2).Value Me.Listbox1.List(x, 2) = Hoja1.Cells(fila, 3).Value Me.Listbox1.List(x, 3) = Hoja1.Cells(fila, 4).Value x = x + 1 End If '---------------------------------------------------------------------------------- Next Me.Listbox1.ColumnWidths = "40;300;70;600" End Sub Private Sub UserForm_Initialize() Dim lngMyHandle As Long, lngCurrentStyle As Long, lngNewStyle As Long 'Obtenemos el "Handle" del Userform lngMyHandle = FindWindow("THUNDERDFRAME", Me.Caption) 'Obtenemos el estilo actual del UserForm lngCurrentStyle = GetWindowLong(lngMyHandle, GWL_STYLE) 'Creamos un nuevo estilo de titulo con los botones deseados lngNewStyle = lngCurrentStyle Or WS_MINIMIZEBOX 'Aplicamos las nuevas propiedades al UserForm SetWindowLong lngMyHandle, GWL_STYLE, lngNewStyle Worksheets("BASE").Activate Me.Listbox1.RowSource = "Tabla1" Listbox1.ColumnWidths = "40;300;70;600" 'ordena la base 'muestra datos de entrada 'Limpiamos Listbox Listbox1.RowSource = Empty Listbox1.RowSource = "BASE!A2:D1048000" Me.TextBox5.Value = Worksheets("Base").Range("G1").Value Me.TextBox1.SetFocus ActiveWorkbook.Save End Sub Si me pudieran ayudar se lo agradeceria aqui le dejo el fichero el usuario es Admin clave 1111 LISTADO DE HEREDEROS.xlsm
×