Ingresar información en planilla desde formulario en celdas especificas referenciadas por combobox

Para realizar ese procedimiento debe insertar un botón “GUARDAR” en el formulario que desea completar la información, en este caso le puse el nombre “BTN_GUARDAR” partiendo del hecho que la información que completa está en varios textbox, el código sería el siguiente:

Dim DATOID As Long ‘se declara la variable como Long por si sus ID tienen muchos números

Private Sub BTN_GUARDAR_Click()

Application.ScreenUpdating = False

DATOID = CLng(ID.Value) ‘Asignar el id que se está mostrando actualmente en el text box “id"

    Sheets("HOJA1").Select ‘Hoja donde quiere colocar los datos que usted completa (hoja destino)

    With ActiveSheet.Range(“A:A”) ‘Rango donde tiene la lista de id en la hoja destino

        Set C = .Find(CLng(DATOID), LookIn:=xlValues, LookAt:=xlWhole)  ‘ Buscar el ID en el rango

        If Not C Is Nothing Then

            VLENC = C.Row ‘Asignar la fila donde encuentra el ID

            TXT_VALOR1.Value = Hoja1. Cells(VLENC, 2).Value  ‘Escribir el valor que tiene el textbox en columna B, fila donde está el id encontrado

            TXT_ VALOR2.Value = Hoja1.Cells(VLENC, 3).Value  ‘Escribe el valor en columna C

            TXT_ VALOR3.Value = Hoja1.Cells(VLENC, 4).Value  ‘‘Escribe el valor en columna D

‘

‘ Repite con todos los datos que quiera

       Else

            MsgBox ("Dato no encontrado"), vbCritical

        End If

    End With

    NOMBRE_DE_SU_FORMULARIO.Hide ‘oculta el formulario

    Unload NOMBRE_DE_SU_FORMULARIO ‘descarga los datos del formulario

End Sub