[SOLUCIONADO] validar Edicion en ListBox

[JoaoM]

Como dice el titulo, Validar en el ListBox:

Este libro de ejemplo me tiene loco para y con mis flacos conocimientos.

Al crear nuevo cliente funciona muy bien, Ingresa nuevo en la hoja y ListBox al instante y además ordena en la hoja y por supuesto en el ListBox

Cuando abro el form para EDITAR un cliente, Seleciono cliente del ListBox y edito los datos que tengo que editar de dicho cliente, presiono el botón Validar Cliente y en la hoja SI se actualisa, pero no así estantaneo en el LlistBox ni ordena en ninguno de los 2.

Vuelta y vuelta y no logro hacerlo que se actualise instantáneo en el ListBox y ordene en la hoja y ListBox

El ordenamiento tiene que darse sobre la columna B tal como esta en el evento del botón Nuevo Cliente

Podria recibir alguna ayuda de algún amig@?

Aquí el libro. Libre de cualquier bicho

Gracias

[Triby]

No es posible ayudarte sin ver el código que usas para guardar los datos y como intentas actualizar la hoja y el listbox; me refiero a tu código y no al del libro.

[JoaoM]

Pues el código esta en el libro. dejemolo así.

Gracias por tu "ayuda"

[Triby]

Insisto en que, por mucha intención de ayudar, habemos quienes no descargamos archivos y preferimos ver código.

De qué vale que alguien quiera ayudarte si no estás dispuesto a hacer lo necesario para recibir ayuda?

[JoaoM]

No es que no este dispuesto pero para colocar todo el código tendrías que usar media pagina por que además del codigo del evento del botón tiene dos mas 3 o 4 mas que hacen la conformacion del evento.

No lo tomes a mal

[Triby]

De igual forma, te pido que no tomes a mal mi costumbre de no descargar archivos.

En fin, así sin ver lo que estás haciendo:

1- Crea una macro para ordenar el listado en la hoja:
- Ficha programador -> Macros -> Grabar nueva macro
- Realizas las tareas necesarias para ordenar y luego grabas

2- En tu formulario crea una subrutina para cargar el contenido, pero no lo hagas en la inicialización del formulario, que sea en rutina aparte:
- Limpia el contenido con ListBox.clear
- Un ejemplo de como sería: http://msdn.microsoft.com/en-us/libr...ice.15%29.aspx

3- Tanto en la inicialización del formulario, como al terminar la edición ejecuta las dos macros anteriores y eso debería solucionar el problema

[JoaoM]

Estaba editando y no me dejo entrar la edición del post

el problema aquí es ue tien que ordenarlos por la B y arrastrar consigo la A, la C ect hasta la G

Código:

En modulo
Public Modificar As Boolean     '<==
Public FilaModificacion As Long '<==

Sub client()
BuscaClientes.Show
End Sub

En formulario

Código:

Private Sub cbtEdCli_Click()
    Dim strfila$
    Dim fila As String
    With Worksheets("Clientes")
        [A65536].End(xlUp).Offset(1, 0).Select
        strfila$ = .Range("a1:a50000").Find(txtRIF, lookat:=xlWhole).Row
        .Range("A" + strfila$) = txtRIF
        .Range("B" + strfila$) = txtNombre
        .Range("C" + strfila$) = txtDirecci
        .Range("D" + strfila$) = txtP_Ciud
        .Range("E" + strfila$) = txtTelf1
        .Range("F" + strfila$) = txtTelf2
        txtRIF = "": txtNombre = "": txtDirecci = "": txtP_Ciud = "": _
        txtTelf1 = "": txtTelf2 = "": txtFech = ""
        If Modificar = True Then Modificar = False
        Call actualizar_lista
        Exit Sub
    End With
    'buscar.SetFocus
End Sub

Private Sub actualizar_lista()
    lista.RowSource = ""
    lista.RowSource = "Filtro!A2:G" & Sheets("Filtro").Range("A" & Rows.Count).End(xlUp).Row
    Buscar.SetFocus
End Sub

Sobre el ordenar los datos cuando se edita cualquier cliente tiene que ordenarlos por el nombre (columna B). Este ordenamiento tien que llevarse conjuntamente el cod Cliente (A) y los demás de la C, D, ect hasta la G




"Filtro" es una hoja para el filtro de la búsqueda y algo mas
Gracias Hector

[Triby]

Prueba la solución sugerida en el mensaje anterior y nos cuentas.

[JoaoM]

Cuando ingreso nuevo cliente estos son los eventos involucrados con el botón

Código:

Private Sub cbtNueClien_Click()
    On Error Resume Next
    Dim fila As Integer
    With Sheets("CLIENTES")
       fila = .Range("b5:b50000").Find(txtRIF, lookat:=xlWhole).Row
       If Err.Number = 91 Then
          fila = .Range("b" & .Rows.Count).End(xlUp)(2).Row
         ' fila = .Range("b5:b50000").Find("").Row
          Call ingresar_datos(fila)
          Exit Sub
       End If
       Call ingresar_datos(fila)
    End With
End Sub

'Inserta y luego ordena alfabeticamente de A hasta G por la columna B
Sub ingresar_datos(fila As Integer, Optional OrdenarPor As String = "B")
    With Sheets("CLIENTES")
        .Cells(fila, 1) = txtRIF
        .Cells(fila, 2) = txtNombre
        .Cells(fila, 3) = txtDirecci
        .Cells(fila, 4) = txtP_Ciud
        .Cells(fila, 5) = txtTelf1
        .Cells(fila, 6) = txtTelf2
        .Cells(fila, 7) = txtFech
        .Range("A2:G" & fila).Sort key1:=.Range(OrdenarPor & fila)
    End With
    Dim tbx As Control
    For Each tbx In Me.Controls
        If TypeName(tbx) = "TextBox" Then tbx = ""
    Next tbx
    Call buscar_Change
    Call actualizar_lista
    txtRIF.SetFocus
End Sub

[JoaoM]

Código:

Private Sub actualizar_lista()
    lista.RowSource = ""
    lista.RowSource = "Filtro!A2:G" & Sheets("Filtro").Range("A" & Rows.Count).End(xlUp).Row
    Buscar.SetFocus
End Sub

Private Sub buscar_Change()
    Application.ScreenUpdating = False
    lista.RowSource = ""
    Sheets("Clientes").Range("A:G").Copy Sheets("Filtro").Range("A1")
    Sheets("Filtro").Range("A2:G2").Insert Shift:=xlDown
    Sheets("Filtro").Range("B2:G2") = ""
    Sheets("Filtro").Range("A2") = Buscar
    
    If FiltrarPor.ListIndex = 1 Then 'Buscar por nombre
       Sheets("Filtro").Range("A2") = ""
       Sheets("Filtro").Range("B2") = Buscar
    End If
    
    Sheets("Filtro").Range("A1:G22").AdvancedFilter _
                     Action:=xlFilterCopy, _
                     CriteriaRange:=Sheets("Filtro").Range("A1:G2"), _
                     CopyToRange:=Sheets("Filtro").Range("H1:N22")
    Sheets("Filtro").Rows(2).Delete
    fila = Sheets("Filtro").Range("H" & Rows.Count).End(xlUp).Row
    If fila > 1 Then lista.RowSource = "Filtro!H2:N" & fila
    Application.ScreenUpdating = True
End Sub

[JoaoM]

Solucionado