Saltar al contenido

Problemas al cambiar Combobox

publicado

Buen día a todos antes que nada, gracias a este foro que me ha ayudado ya en varias ocasiones,

esta vex tengo un problema con un combobox, al cambiar el valor no cambia los textbox a los que esta

vinculado.


Private Sub CbPaciente_Change()
'Encabezado
CbSesión = ""
TbDisciplina.Value = ""
TbEdad.Value = ""
TbSexo.Value = ""
TbFecha.Value = ""
TbSesión.Value = ""
End sub

Private Sub CbSesión_Change()
If CbSesión = "" Then Exit Sub
Application.ScreenUpdating = False
Hoja = CbPaciente.Value
Valor = CbSesión.Value

Set busca = Sheets(Hoja).Range("A5:FH34").Find(Valor, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
Copiar = busca.Address
'Encabezado
Me.TbDisciplina.Text = Sheets(Hoja).Range(Copiar).Offset(0, 2).Value
Me.TbEdad.Text = Sheets(Hoja).Range(Copiar).Offset(0, 7).Value
Me.TbSexo.Text = Sheets(Hoja).Range(Copiar).Offset(0, 5).Value
Me.TbFecha.Text = Sheets(Hoja).Range(Copiar).Offset(0, 4).Value
Me.TbSesión.Text = Sheets(Hoja).Range(Copiar).Offset(0, 150).Value
End Sub

[/PHP]

Tengo alrededor de 160 columnas, ¿tendrá algo que ver?

Gracias por su ayuda, no tengo idea de que puede ser puesto que antes si me servia, de hecho hice otro archivo con menos columnas y este si funciona.

Featured Replies

No hay posts para mostrar

Archivado

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