Autocompletar seleccion de celda

3 envíos / 0 nuevos
Último envío
IVANNA
Imagen de IVANNA
Offline
última acción: Hace 3 semanas 1 día
alta: 20/10/2017 - 15:15
Puntos: 35
Autocompletar seleccion de celda

Hola,

Soy nueva en esto y necesito ayuda, tengo este codigo:

Sub lstProducto_Click()
    txtDesProducto.Text = lstProducto.List(lstProducto.ListIndex)
            

End Sub

Sub txtDesProducto_Change()
    Dim i As Variant
    Dim final As Long
    Hoja5.Select
    final = Application.CountA(Worksheets("PRODUCTOS").Range("A:A"))
    Me.lstProducto.Clear
    
    For i = 2 To final
        If LCase(Range("B" & i).Value) Like "*" & LCase(txtDesProducto.Text) & "*" Then
            Me.lstProducto.Visible = True
            Me.lstProducto.AddItem Range("B" & i).Value
        End If
    Next i
End Sub

 

Necesito conseguir la celda en la que esta la "Descripcion del elemento" para partir de ella y con "offset" completar el rellenado de el formulario.

Perdon por no usar los terminos correctos, pues soy nueva en esto.

Gracias.

AdjuntoTamaño
File proyecto.xlsm32.71 KB
pacomegia
Imagen de pacomegia
Offline
última acción: Hace 23 horas 24 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 7570
una celda a la derecha

La descripción de tu producto está una celda a la derecha de donde tienes el código

Así que la celda con tu descripción será

Range("B" & i).Offset(0,1)

Offset 0 filas y 1 columna

con esa celda puedes tomar el valor o lo que necesites

Range("B" & i).Offset(0,1).value

 

Data Tools Suite
datos y tablas con Excel

IVANNA
Imagen de IVANNA
Offline
última acción: Hace 3 semanas 1 día
alta: 20/10/2017 - 15:15
Puntos: 35
Gracias pacomegia,Voy a

Gracias pacomegia,

Voy a probar y despues te comento.

Saludos.

Ivanna