Saltar al contenido

Crear un buscador y que devuelva encontrado en formulario


Emasd

Recommended Posts

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.

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

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
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
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.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.