CAMBIAR DE FILA DESPUES DE UNA BUSQUEDA DE UNA BD MOSTRADA EN LISTBOX PARA AGREGAR OTRO REGISTRO

[ChrisAb]

Hola buenas tardes, solicito de su ayuda, ya que estoy programando una macro que genera referencia de depósitos bancarios concatenando varios valores guardados en las celdas de una hoja en especifico de mi libro de Excel y posterior proporcionarla al cliente, específicamente mi problema es:  Al buscar un cliente en mi BD el resultado me lo arroja en un listbox que llamé "LISTA" y cuando selecciono el valor que encontré después de la búsqueda para capturarlo en las celdas que le indico a la macro, antes cabe mencionar que para seleccionar ese resultado de mi búsqueda lo hago con una acción "DBLCLICK" , y de las 5 columnas que tiene mi BD, solo me selecciona la columna y fila "A2" y" B2" que para el Listbox serían 0 y 1 las posiciones que corresponden al ID CLIENTE y CLIENTE, estos son los únicos registros que necesito, el resto solo es visualizarlo es decir solo informativo para el usuario final.

Entonces una vez que selecciono este registro, si jala los dos valores que les comento, pero no logro que brinque a la siguiente fila entonces cada vez que busco un cliente nuevo me lo guarda en la misma posición, de igual formo capturo otros datos que ingreso en mi formulario pero desde un botón al dar clic y ese me funciona a la perfección.

Pero eso me genera duda, al ser proceso de selección en diferentes acciones al aumentar una fila, para guardar nuevos registros solo aumento con uno para los rangos A2 y B2 y con mi botón el resto de las celdas, les comparto mi código:

 

CON ESTE CÓDIGO SELECCIONO EL REGISTRO CON DOBLE CLIC:

Private Sub LISTA_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

idcliente = Me.LISTA.List(LISTA.ListIndex, 0)
Sheets("CREDITO").Select
Range("A2").Select
ActiveCell.Value = idcliente

ncliente = Me.LISTA.List(LISTA.ListIndex, 2)
Sheets("CREDITO").Select
Range("B2").Select
ActiveCell.Value = ncliente

End Sub

 

CON ESTE CÓDIGO MI BOTÓN GUARDAR REGISTRO ME GUARDA EL RESTO DE LOS DATOS INGRESADOS EN EL FORM:

Private Sub BT_REGISTRA_Click()

    Dim NombreHoja As String
    Dim HojaDestino As Range
    Dim NuevaFila As Integer
    
    NombreHoja = "CREDITO"
    Set HojaDestino = ThisWorkbook.Sheets(NombreHoja).Range("C1").CurrentRegion
    NuevaFila = HojaDestino.Rows.Count + 1
    
    With ThisWorkbook.Sheets(NombreHoja)
    
        .Cells(NuevaFila, 3).Value = Me.ComboBox1.Value
        .Cells(NuevaFila, 4).Value = Me.ComboBox2.Value
        .Cells(NuevaFila, 5).Value = Me.TextBox3.Value
        .Cells(NuevaFila, 6).Value = Me.TextBox4.Value
        .Cells(NuevaFila, 7).Value = CDate(Me.TextBox1.Value)
        .Cells(NuevaFila, 8).Value = Me.TextBox2.Value
        
   End With
      

End Sub

 

**GRACIAS, ESPERO PUEDAN AYUDARME**