Saltar al contenido
View in the app

A better way to browse. Learn more.
Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Crear un buscador y que devuelva encontrado en formulario

publicado

Hola a todos!

En esta oportunidad los molesto con un proyecto en el que estoy trabajando en el que necesitaría crear un buscador (A modo de formulario), que al encontrar el "Campo clave" o "Primary Key" me devuelva los demás campos que le corresponden cargado en un Formulario.

Los pasos serían los siguientes:

*Clickea en un botón

*Abre el formulario de búsqueda

*Carga el dato "Clave" y presiona en buscar

*Devuelve todos los datos correspondientes a ese campo "Clave" o informa que no se encontró nada con ese nombre

Ya tengo algo armado, pero realmente lo veo muy primitivo (Y funciona el 50% de las veces) y condicionado a mezclar el modelo de programación con el del negocio.

Por favor, si necesitan que les arme alguna planilla de ejemplo, no duden en pedirmelo.

Saludos.

Featured Replies

publicado

Prueba con esto si no es lo que busca sube tu archivo ya que esas son las reglas

Private Sub CommandButton1_Click()

Dim id_nombre, idBuscar As String

Dim fila As Integer

fila = 1

id_nombre = TextBox1

If TextBox1 = "" Then Exit Sub

Do While idBuscar <> id_nombre

fila = fila + 1

idBuscar = Range("A" & fila).Value

If idBuscar = Empty Then

MsgBox "Código no Encontrado"

Exit Do

End If

Loop

TextBox2 = Range("b" & fila).Value

TextBox3 = Range("C" & fila).Value

TextBox4 = Range("D" & fila).Value

End Sub

publicado
  • Autor

Compaq,

Antes que nada, muchas gracias por tu respuesta!

Voy a probar la lógica que sugerís adaptándola al modelo que hice yo. Cualquier cosa te comento como funcionó.

Si alguien mas considera alguna posible solución, les agradezco que me la hagan saber.

Saludos

publicado
  • Autor
Prueba con esto si no es lo que busca sube tu archivo ya que esas son las reglas

Private Sub CommandButton1_Click()

Dim id_nombre, idBuscar As String

Dim fila As Integer

fila = 1

id_nombre = TextBox1

If TextBox1 = "" Then Exit Sub

Do While idBuscar <> id_nombre

fila = fila + 1

idBuscar = Range("A" & fila).Value

If idBuscar = Empty Then

MsgBox "Código no Encontrado"

Exit Do

End If

Loop

TextBox2 = Range("b" & fila).Value

TextBox3 = Range("C" & fila).Value

TextBox4 = Range("D" & fila).Value

End Sub

Compaq, funcionó, muchas gracias!

Un detalle que me olvidé de nombrar es que necesitaría que una vez que me trae los datos al formulario, es que los pueda modificar y al presionar un botón que se puedan actualizar todos los campos del registro que me trajo con ese ID.

publicado

Trata de hacer el formulario para modificar si tenes problemas te subo el archivo de buscar,ingresar y modificar datos.

Private Sub Label4_Click()


End Sub


Private Sub LOGOFALSO_Click()


End Sub



Private Sub NOMBRE_Change()


End Sub


Private Sub REGISTRAR_Click()


    If TIPOSDEEMPRESAS = "" Then TIPOSDEEMPRESAS.SetFocus: tbcedulachofer = "": tbrepresentante = "": tbnombre = "": tbplaca1 = "": tbplaca2 = "": tbzona = "": tbplaca3 = "": tbcomprador = "": tbchofer = "": tbayudante = "": tbproducto = "": NOMBRE = "": Exit Sub


    If Len(NOMBRE) < Len("00") Then TIPOSDEEMPRESAS = "": tbcedulachofer = "": tbrepresentante = "": tbnombre = "": tbplaca1 = "": tbplaca2 = "": tbzona = "": tbplaca3 = "": tbcomprador = "": tbchofer = "": tbayudante = "": tbproducto = "": NOMBRE = "": LOGO.Visible = True: LOGOFALSO.Visible = False: Exit Sub


    If NOMBRE = "" Then NOMBRE.SetFocus: Exit Sub


    RPTA = MsgBox("DESEA MODIFICAR LOS DATOS?", vbYesNo + vbQuestion)

    If RPTA = vbNo Then TIPOSDEEMPRESAS = "": tbcedulachofer = "": tbrepresentante = "": tbnombre = "": tbplaca1 = "": tbplaca2 = "": tbzona = "": tbplaca3 = "": tbcomprador = "": tbchofer = "": tbayudante = "": tbproducto = "":  Exit Sub




  Sheets("INGRESO").Select 'MODIFICA EL NOMBRE DE LA EMPRESA EN LA HOJA : INGRESO

  Range("INGRESO").Select

        ActiveCell.Offset(1, 0).Select


    While ActiveCell <> Empty


        If ActiveCell = TIPOSDEEMPRESAS Then ActiveCell = NOMBRE

        If ActiveCell = "" Then GoTo CONTINUAR2

        ActiveCell.Offset(1, 0).Select

        ActiveCell.Select


    Wend


CONTINUAR2:

    Z = tbnombre

    y = tbplaca1

    x = tbplaca2

    W = tbzona

    U = tbcomprador

    T = tbchofer

    S = tbayudante

    R = tbproducto

    Q = NOMBRE

    A = tbcedulachofer

    B = tbrepresentante


  Sheets("PROVEEDORES").Select 'AQUI BUSCA LA EMPRESA SELECCIONADA Y SI NO ESTA REGISTRADA FIN DE LA EJECUCION

    Range("EMPRESA").Select

    ActiveCell.Offset(1, 0).Select


    While ActiveCell <> Empty


        If ActiveCell = TIPOSDEEMPRESAS Then GoTo VAMONOS

        If ActiveCell = "" Then GoTo CONTINUAR3

        ActiveCell.Offset(1, 0).Select

        ActiveCell.Select


    Wend


VAMONOS:


    ActiveCell = Q

    ActiveCell.Offset(0, 1) = Z

    ActiveCell.Offset(0, 2) = A

    ActiveCell.Offset(0, 3) = T

    ActiveCell.Offset(0, 4) = S

    ActiveCell.Offset(0, 5) = B

    ActiveCell.Offset(0, 6) = y

    ActiveCell.Offset(0, 7) = x

    ActiveCell.Offset(0, 8) = W

    ActiveCell.Offset(0, 9) = U

    ActiveCell.Offset(0, 10) = R


CONTINUAR3:


    NOMBRE = ""

    tbnombre = ""

    tbrepresentante = ""

    tbcedulachofer = ""

    tbplaca1 = ""

    tbplaca2 = ""

    tbzona = ""

    tbcomprador = ""

    tbchofer = ""

    tbayudante = ""

    tbproducto = ""

    tbrepresentante = ""


End Sub




Private Sub SALIR_Click()


Sheets("INGRESO").Visible = False

Sheets("PROVEEDORES").Visible = True


    Unload Me

End Sub



Private Sub tbayudante_Change()



End Sub


Private Sub tbcedulachofer_Change()




End Sub


Private Sub tbchofer_Change()




End Sub


Private Sub tbcomprador_Change()


End Sub


Private Sub tbnombre_Change()


If Val(tbnombre) <> Text Then tbnombre = "": Exit Sub

        If tbnombre = "" Then Exit Sub


End Sub


Private Sub tbplaca1_Change()




End Sub


Private Sub tbplaca2_Change()




End Sub




Private Sub tbproducto_Change()


End Sub


Private Sub tbrepresentante_Change()


End Sub


Private Sub tbzona_Change()


End Sub




Private Sub TIPOSDEEMPRESAS_Change()


        Beep

        MSG = "MODIFICAR DATOS DE PROVEEDOR" & vbNewLine & "ASEGURESE DE COMFIRMAR CODIGO DE PROVEEDOR" & vbNewLine & "EN LA CASILLA DE COMFIRMACION"



    LOGO.Picture = LoadPicture("") 'AQUI PRIMERO BORRA TODO Y ESTA LISTO PARA COMENZAR A BUSCAR LA EMPRESA SELECCIONADA

    LOGO.Visible = True

    LOGOFALSO.Visible = False

    tbnombre = ""

    tbrepresentante = ""

    tbcedulachofer = ""

    tbplaca1 = ""

    tbplaca2 = ""

    tbzona = ""

    tbcomprador = ""

    tbchofer = ""

    tbayudante = ""

    tbproducto = ""

    tbrepresentante = ""


    Sheets("PROVEEDORES").Select 'AQUI BUSCA LA EMPRESA SELECCIONADA Y SI NO ESTA REGISTRADA FIN DE LA EJECUCION

    Range("EMPRESA").Select

    ActiveCell.Offset(1, 0).Select



    While ActiveCell <> TIPOSDEEMPRESAS


        If ActiveCell = "" Then TIPOSDEEMPRESAS = "": LOGO.Visible = True: LOGOFALSO.Visible = False: Exit Sub


        ActiveCell.Offset(1, 0).Select


    Wend


    'AQUI EMPIEZA HA BUSCAR LOS DATOS DE LA EMPRESA SELECCIONADA


    On Error GoTo SINFOTO

    LOGO.Picture = Nothing

    If TIPOSDEEMPRESAS = "" Then LOGO.Picture = LoadPicture(""): tbrepresentante = "": tbcedulachofer = "": tbnombre = "": tbplaca1 = "": tbplaca2 = "": tbzona = "": tbplaca3 = "": tbcomprador = "": tbchofer = "": tbayudante = "": tbproducto = "": Exit Sub

    If Len(TIPOSDEEMPRESAS) < Len("00") Then TIPOSDEEMPRESAS = "": LOGO.Visible = True: LOGOFALSO.Visible = False: Exit Sub

    Ruta = ActiveWorkbook.Path

    If TIPOSDEEMPRESAS = "" Then Foto.Visible = False: Exit Sub


    LOGO.Visible = True

    LOGO.Picture = LoadPicture(Ruta & "\" & TIPOSDEEMPRESAS & ".jpg"): LOGO.Visible = True: LOGOFALSO.Visible = False

    tbnombre = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 2, 0)

    tbcedulachofer = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 3, 0)

    tbchofer = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 4, 0)

    tbayudante = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 5, 0)

    tbrepresentante = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 6, 0)

    tbplaca1 = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 7, 0)

    tbplaca2 = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 8, 0)

    tbzona = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 9, 0)

    tbcomprador = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 10, 0)

    tbproducto = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 11, 0)


    GoTo SEGUIMOS10000


SINFOTO:


    LOGO.Visible = False: LOGOFALSO.Visible = True


SEGUIMOS10000:


    tbnombre = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 2, 0)

    tbcedulachofer = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 3, 0)

    tbchofer = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 4, 0)

    tbayudante = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 5, 0)

    tbrepresentante = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 6, 0)

    tbplaca1 = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 7, 0)

    tbplaca2 = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 8, 0)

    tbzona = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 9, 0)

    tbcomprador = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 10, 0)

    tbproducto = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 11, 0)


End Sub

Private Sub UserForm_Initialize()

Dim hoja As String


hoja = "PROVEEDORES"

Sheets(hoja).Activate

Sheets(hoja).Unprotect (klavex)



Sheets(hoja).Activate



End Sub


Private Sub UserForm_Terminate()

Dim hoja As String



hoja = "PROVEEDORES"

Sheets(hoja).Activate





Sheets(hoja).Protect (klavex)


Sheets(hoja).Activate

validar = False

End Sub



[/CODE]

publicado
  • Autor
Trata de hacer el formulario para modificar si tenes problemas te subo el archivo de buscar,ingresar y modificar datos.

Private Sub Label4_Click()


End Sub


Private Sub LOGOFALSO_Click()


End Sub



Private Sub NOMBRE_Change()


End Sub


Private Sub REGISTRAR_Click()


    If TIPOSDEEMPRESAS = "" Then TIPOSDEEMPRESAS.SetFocus: tbcedulachofer = "": tbrepresentante = "": tbnombre = "": tbplaca1 = "": tbplaca2 = "": tbzona = "": tbplaca3 = "": tbcomprador = "": tbchofer = "": tbayudante = "": tbproducto = "": NOMBRE = "": Exit Sub


    If Len(NOMBRE) < Len("00") Then TIPOSDEEMPRESAS = "": tbcedulachofer = "": tbrepresentante = "": tbnombre = "": tbplaca1 = "": tbplaca2 = "": tbzona = "": tbplaca3 = "": tbcomprador = "": tbchofer = "": tbayudante = "": tbproducto = "": NOMBRE = "": LOGO.Visible = True: LOGOFALSO.Visible = False: Exit Sub


    If NOMBRE = "" Then NOMBRE.SetFocus: Exit Sub


    RPTA = MsgBox("DESEA MODIFICAR LOS DATOS?", vbYesNo + vbQuestion)

    If RPTA = vbNo Then TIPOSDEEMPRESAS = "": tbcedulachofer = "": tbrepresentante = "": tbnombre = "": tbplaca1 = "": tbplaca2 = "": tbzona = "": tbplaca3 = "": tbcomprador = "": tbchofer = "": tbayudante = "": tbproducto = "":  Exit Sub




  Sheets("INGRESO").Select 'MODIFICA EL NOMBRE DE LA EMPRESA EN LA HOJA : INGRESO

  Range("INGRESO").Select

        ActiveCell.Offset(1, 0).Select


    While ActiveCell <> Empty


        If ActiveCell = TIPOSDEEMPRESAS Then ActiveCell = NOMBRE

        If ActiveCell = "" Then GoTo CONTINUAR2

        ActiveCell.Offset(1, 0).Select

        ActiveCell.Select


    Wend


CONTINUAR2:

    Z = tbnombre

    y = tbplaca1

    x = tbplaca2

    W = tbzona

    U = tbcomprador

    T = tbchofer

    S = tbayudante

    R = tbproducto

    Q = NOMBRE

    A = tbcedulachofer

    B = tbrepresentante


  Sheets("PROVEEDORES").Select 'AQUI BUSCA LA EMPRESA SELECCIONADA Y SI NO ESTA REGISTRADA FIN DE LA EJECUCION

    Range("EMPRESA").Select

    ActiveCell.Offset(1, 0).Select


    While ActiveCell <> Empty


        If ActiveCell = TIPOSDEEMPRESAS Then GoTo VAMONOS

        If ActiveCell = "" Then GoTo CONTINUAR3

        ActiveCell.Offset(1, 0).Select

        ActiveCell.Select


    Wend


VAMONOS:


    ActiveCell = Q

    ActiveCell.Offset(0, 1) = Z

    ActiveCell.Offset(0, 2) = A

    ActiveCell.Offset(0, 3) = T

    ActiveCell.Offset(0, 4) = S

    ActiveCell.Offset(0, 5) = B

    ActiveCell.Offset(0, 6) = y

    ActiveCell.Offset(0, 7) = x

    ActiveCell.Offset(0, 8) = W

    ActiveCell.Offset(0, 9) = U

    ActiveCell.Offset(0, 10) = R


CONTINUAR3:


    NOMBRE = ""

    tbnombre = ""

    tbrepresentante = ""

    tbcedulachofer = ""

    tbplaca1 = ""

    tbplaca2 = ""

    tbzona = ""

    tbcomprador = ""

    tbchofer = ""

    tbayudante = ""

    tbproducto = ""

    tbrepresentante = ""


End Sub




Private Sub SALIR_Click()


Sheets("INGRESO").Visible = False

Sheets("PROVEEDORES").Visible = True


    Unload Me

End Sub



Private Sub tbayudante_Change()



End Sub


Private Sub tbcedulachofer_Change()




End Sub


Private Sub tbchofer_Change()




End Sub


Private Sub tbcomprador_Change()


End Sub


Private Sub tbnombre_Change()


If Val(tbnombre) <> Text Then tbnombre = "": Exit Sub

        If tbnombre = "" Then Exit Sub


End Sub


Private Sub tbplaca1_Change()




End Sub


Private Sub tbplaca2_Change()




End Sub




Private Sub tbproducto_Change()


End Sub


Private Sub tbrepresentante_Change()


End Sub


Private Sub tbzona_Change()


End Sub




Private Sub TIPOSDEEMPRESAS_Change()


        Beep

        MSG = "MODIFICAR DATOS DE PROVEEDOR" & vbNewLine & "ASEGURESE DE COMFIRMAR CODIGO DE PROVEEDOR" & vbNewLine & "EN LA CASILLA DE COMFIRMACION"



    LOGO.Picture = LoadPicture("") 'AQUI PRIMERO BORRA TODO Y ESTA LISTO PARA COMENZAR A BUSCAR LA EMPRESA SELECCIONADA

    LOGO.Visible = True

    LOGOFALSO.Visible = False

    tbnombre = ""

    tbrepresentante = ""

    tbcedulachofer = ""

    tbplaca1 = ""

    tbplaca2 = ""

    tbzona = ""

    tbcomprador = ""

    tbchofer = ""

    tbayudante = ""

    tbproducto = ""

    tbrepresentante = ""


    Sheets("PROVEEDORES").Select 'AQUI BUSCA LA EMPRESA SELECCIONADA Y SI NO ESTA REGISTRADA FIN DE LA EJECUCION

    Range("EMPRESA").Select

    ActiveCell.Offset(1, 0).Select



    While ActiveCell <> TIPOSDEEMPRESAS


        If ActiveCell = "" Then TIPOSDEEMPRESAS = "": LOGO.Visible = True: LOGOFALSO.Visible = False: Exit Sub


        ActiveCell.Offset(1, 0).Select


    Wend


    'AQUI EMPIEZA HA BUSCAR LOS DATOS DE LA EMPRESA SELECCIONADA


    On Error GoTo SINFOTO

    LOGO.Picture = Nothing

    If TIPOSDEEMPRESAS = "" Then LOGO.Picture = LoadPicture(""): tbrepresentante = "": tbcedulachofer = "": tbnombre = "": tbplaca1 = "": tbplaca2 = "": tbzona = "": tbplaca3 = "": tbcomprador = "": tbchofer = "": tbayudante = "": tbproducto = "": Exit Sub

    If Len(TIPOSDEEMPRESAS) < Len("00") Then TIPOSDEEMPRESAS = "": LOGO.Visible = True: LOGOFALSO.Visible = False: Exit Sub

    Ruta = ActiveWorkbook.Path

    If TIPOSDEEMPRESAS = "" Then Foto.Visible = False: Exit Sub


    LOGO.Visible = True

    LOGO.Picture = LoadPicture(Ruta & "\" & TIPOSDEEMPRESAS & ".jpg"): LOGO.Visible = True: LOGOFALSO.Visible = False

    tbnombre = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 2, 0)

    tbcedulachofer = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 3, 0)

    tbchofer = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 4, 0)

    tbayudante = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 5, 0)

    tbrepresentante = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 6, 0)

    tbplaca1 = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 7, 0)

    tbplaca2 = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 8, 0)

    tbzona = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 9, 0)

    tbcomprador = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 10, 0)

    tbproducto = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 11, 0)


    GoTo SEGUIMOS10000


SINFOTO:


    LOGO.Visible = False: LOGOFALSO.Visible = True


SEGUIMOS10000:


    tbnombre = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 2, 0)

    tbcedulachofer = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 3, 0)

    tbchofer = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 4, 0)

    tbayudante = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 5, 0)

    tbrepresentante = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 6, 0)

    tbplaca1 = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 7, 0)

    tbplaca2 = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 8, 0)

    tbzona = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 9, 0)

    tbcomprador = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 10, 0)

    tbproducto = Application.WorksheetFunction.VLookup(TIPOSDEEMPRESAS, Range("TABLA2"), 11, 0)


End Sub

Private Sub UserForm_Initialize()

Dim hoja As String


hoja = "PROVEEDORES"

Sheets(hoja).Activate

Sheets(hoja).Unprotect (klavex)



Sheets(hoja).Activate



End Sub


Private Sub UserForm_Terminate()

Dim hoja As String



hoja = "PROVEEDORES"

Sheets(hoja).Activate





Sheets(hoja).Protect (klavex)


Sheets(hoja).Activate

validar = False

End Sub



[/CODE]

Hola Tan178, primero que nada, muchas gracias.

Realmente estuve tratando de entender y adaptar el código que vos me pasaste según mis necesidades, pero no puedo entender donde se hacen los pasos que necesitaría. Por ahora estoy estancado en la parte de actualizar los datos después que los trae al formulario.

Decime por favor, si te serviría que arme un archivo de ejemplo con el estilo que estoy usando yo a ver si así lo puedo entender mejor.

Saludos, y gracias nuevamente.

publicado

Hola en un formulario crea 4 textbox y 2 botones y colocas este código: 



Public x As String

Private Sub CommandButton1_Click()

Dim busq As Range

On Error Resume Next

Set busq = Cells.Find(TextBox1, lookat:=xlWhole)

If busq Is Nothing Then MsgBox "Valor no encontrado": Exit Sub

x = busq.Row

TextBox2 = Cells(x, "B")

TextBox3 = Cells(x, "C")

TextBox4 = Cells(x, "D")

End Sub

Private Sub CommandButton2_Click()

If x = "" Then x = Range("A" & Rows.Count).End(xlUp).Row + 1

Cells(x, "A") = TextBox1

Cells(x, "B") = TextBox2

Cells(x, "C") = TextBox3

Cells(x, "D") = TextBox4

TextBox1 = ""

TextBox2 = ""

TextBox3 = ""

TextBox4 = ""

x = ""

End Sub

[/CODE]

Donde el botón 1 sera con el que buscaras el valor que contenga el textbox1 y el botón 2 modificara los valores o también los agregara.

No esperes a que te pidamos un archivo ejemplo, siempre debes subirlo ya que de esta forma siempre recibirás respuestas genéricas y pueden que no sepas como adaptarlas a tu trabajo.

Salu2

publicado
Hola Tan178, primero que nada, muchas gracias.

Realmente estuve tratando de entender y adaptar el código que vos me pasaste según mis necesidades, pero no puedo entender donde se hacen los pasos que necesitaría. Por ahora estoy estancado en la parte de actualizar los datos después que los trae al formulario.

Decime por favor, si te serviría que arme un archivo de ejemplo con el estilo que estoy usando yo a ver si así lo puedo entender mejor.

Saludos, y gracias nuevamente.

ok pasame un archivo con los datos que vas a utilizar para poder establecer los rangos en el formulario.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

Configure browser push notifications
Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.