Cargar información que se encuentra almacenada en Celdas con base en la selección de un ComboBox.

Private Sub cbo_Nombre_Change()
On Error Resume Next

If CmdEditar <> "" Then
CmdEditar.Visible = True
cmd_Agregar.Visible = False
cmd_Eliminar.Enabled = True
Else
CmdEditar.Visible = False
cmd_Agregar.Visible = True
cmd_Eliminar.Enabled = False
End If

If cbo_Nombre = "" Then
cmd_Eliminar.Enabled = False
CmdEditar.Visible = False
cmd_Agregar.Visible = True
Else
TxtNombres.Enabled = False
txt_Direccion.Enabled = False
txt_Telefono.Enabled = False
TxtCedula.Enabled = False
txt_Email.Enabled = False

cmd_Eliminar.Enabled = True
CmdEditar.Visible = True
End If

If nCliente(cbo_Nombre.Text) <> 0 Then

Sheets("Funcionarios").Activate

'Cells(cbo_Nombre.ListIndex + 2, 1).Select
'TxtNombres = cbo_Nombre.Text
'TxtNombres = cbo_Nombre.Text
'txt_Direccion = ActiveCell.Offset(0, 1)
'txt_Telefono = ActiveCell.Offset(0, 2)
'TxtCedula = ActiveCell.Offset(0, 3)
'txt_Email = ActiveCell.Offset(0, 4)
Cells(cbo_Nombre.ListIndex + 2, 1).Select
CmbCategoria = ActiveCell.Offset(0, 2)
CmbGenero = ActiveCell.Offset(0, 3)
CmbCuerpo = ActiveCell.Offset(0, 5)
CmbGrado = ActiveCell.Offset(0, 4)
CmbArma = ActiveCell.Offset(0, -1)
TxtApellidos = ActiveCell.Offset(0, 0)
'TxtNombres = ActiveCell.Offset(0, 1)
'TxtNombres = cbo_Nombre.Text
'txt_Direccion = ActiveCell.Offset(0, 3)
'txt_Telefono = ActiveCell.Offset(0, 4)
'TxtCedula = ActiveCell.Offset(0, 2)
'txt_Email = ActiveCell.Offset(0, 6)

Fotografia.Picture = LoadPicture("")
Fotografia.Picture = LoadPicture(ActiveCell.Offset(0, 7))

ArchivoIMG = ActiveCell.Offset(0, 8)
ArchivoIMG2 = ActiveCell.Offset(0, 9)

Else
CmbCategoria = ""
CmbGenero = ""
CmbCuerpo = ""
CmbGrado = ""
CmbArma = ""
TxtApellidos = ""
TxtNombres = ""
txt_Direccion = ""
txt_Telefono = ""
TxtCedula = ""
txt_Email = ""
ArchivoIMG = ""
ArchivoIMG2 = ""
Fotografia.Picture = LoadPicture("")
End If

'TxtNombres.SetFocus ' RECIBE EL FOCO AL CAMBIAR

End Sub

Con esta macro pretendo colocar en todos los combobox y textbox que tiene el formulario la información que exista sobre la selección, pero no he logrado dar con el "chiste".

Esto hace parte de un pequeño proyecto casero, si alguien tiene la disposición para colaborarme, con gusto le envío el fichero para que vean en que estoy trabajando y de paso me echen una mano.

1 respuesta

Respuesta
1

Estás seleccionando la celda cuya fila tiene relación con el indice del combobox y la col es A(1)

Cells(cbo_Nombre.ListIndex + 2, 1).Select

Entonces no podés enviar a un control datos a la izquierda de esta selección, como en esta línea:

CmbArma = ActiveCell.Offset(0, -1)

Todos los pases se harán desde la selección, es decir desde la col A.

Si esto resuelve tu consulta no olvides valorarla. Sinó enviame tu libro. Mi correo aparece en la portada de mi sitio.

Gracias por la pronta respuesta Elsa.

Hace unos minutos te envié el fichero al correo que aparece en tu sitio Web.

Nuevamente gracias..!

Tu libro presenta un Userform con alrededor de 100 macros... podrías aclararme cuál es la que no funciona o qué parte del UF debo revisar?

Sdos!

Esta es la macro que no logro que me funcione como necesito:

Private Sub cbo_Nombre_Change()
On Error Resume Next

If CmdEditar <> "" Then
CmdEditar.Visible = True
cmd_Agregar.Visible = False
cmd_Eliminar.Enabled = True
Else
CmdEditar.Visible = False
cmd_Agregar.Visible = True
cmd_Eliminar.Enabled = False
End If

If cbo_Nombre = "" Then
cmd_Eliminar.Enabled = False
CmdEditar.Visible = False
cmd_Agregar.Visible = True
Else
TxtNombres.Enabled = False
txt_Direccion.Enabled = False
Txt_Telefono.Enabled = False
TxtCedula.Enabled = False
txt_Email.Enabled = False

cmd_Eliminar.Enabled = True
CmdEditar.Visible = True
End If

If nCliente(cbo_Nombre.Text) <> 0 Then

'Sheets("Funcionarios").Activate

Cells(cbo_Nombre.ListIndex + 2, 1).Select
'TxtNombres = cbo_Nombre.Text
'TxtNombres = cbo_Nombre.Text
'txt_Direccion = ActiveCell.Offset(0, 1)
'txt_Telefono = ActiveCell.Offset(0, 2)
'TxtCedula = ActiveCell.Offset(0, 3)
'txt_Email = ActiveCell.Offset(0, 4)
Cells(cbo_Nombre.ListIndex + 6, 2).Select
CmbCategoria = ActiveCell.Offset(0, -1)
CmbGenero = ActiveCell.Offset(0, 1)
CmbCuerpo = ActiveCell.Offset(0, 4)
'CmbGrado = ActiveCell.Offset(0, 2)
CmbArma = ActiveCell.Offset(0, 3)
TxtApellidos = ActiveCell.Offset(0, 4)
TxtNombres = ActiveCell.Offset(0, 5)
'TxtNombres = cbo_Nombre.Text
txt_Direccion = ActiveCell.Offset(0, 7)
'txt_Telefono = ActiveCell.Offset(0, 4)
TxtCedula = ActiveCell.Offset(0, 6)
Txt_Telefono = ActiveCell.Offset(0, 6)
TxtTelefax = ActiveCell.Offset(0, 7)
TxtCelular1 = ActiveCell.Offset(0, 8)
TxtCelular2 = ActiveCell.Offset(0, 9)
txt_Email = ActiveCell.Offset(0, 10)
TxtEmail2 = ActiveCell.Offset(0, 11)

'Fotografia.Picture = LoadPicture("")
'Fotografia.Picture = LoadPicture(ActiveCell.Offset(0, 7))

'ArchivoIMG = ActiveCell.Offset(0, 8)
'ArchivoIMG2 = ActiveCell.Offset(0, 9)

Else
CmbCategoria = ""
CmbGenero = ""
CmbCuerpo = ""
CmbGrado = ""
CmbArma = ""
TxtApellidos = ""
TxtNombres = ""
txt_Direccion = ""
Txt_Telefono = ""
TxtCedula = ""
txt_Email = ""
ArchivoIMG = ""
ArchivoIMG2 = ""
Fotografia.Picture = LoadPicture("")
End If

'TxtNombres.SetFocus ' RECIBE EL FOCO AL CAMBIAR

End Sub

Específicamente esta parte:

Cells(cbo_Nombre.ListIndex + 2, 1).Select
CmbCategoria = ActiveCell.Offset(0, -1)
CmbGenero = ActiveCell.Offset(0, 1)
CmbCuerpo = ActiveCell.Offset(0, 4)
'CmbGrado = ActiveCell.Offset(0, 2)
CmbArma = ActiveCell.Offset(0, 3)
TxtApellidos = ActiveCell.Offset(0, 4)
TxtNombres = ActiveCell.Offset(0, 5)
'TxtNombres = cbo_Nombre.Text
txt_Direccion = ActiveCell.Offset(0, 7)
'txt_Telefono = ActiveCell.Offset(0, 4)
TxtCedula = ActiveCell.Offset(0, 6)
Txt_Telefono = ActiveCell.Offset(0, 6)
TxtTelefax = ActiveCell.Offset(0, 7)
TxtCelular1 = ActiveCell.Offset(0, 8)
TxtCelular2 = ActiveCell.Offset(0, 9)
txt_Email = ActiveCell.Offset(0, 10)
TxtEmail2 = ActiveCell.Offset(0, 11)

'Fotografia.Picture = LoadPicture("")
'Fotografia.Picture = LoadPicture(ActiveCell.Offset(0, 7))

'ArchivoIMG = ActiveCell.Offset(0, 8)
'ArchivoIMG2 = ActiveCell.Offset(0, 9)

Gracias Elsa.

Te envío el libro ajustado. Te estabas posicionando en otra hoja al cargar uno de los combos. Además tenías otros errores de ubicación de datos, como género y cuerpo.

Sdos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Cómo puedo buscar un dato en un textbox, con las fórmulas indirecto & coincidir?

Los amigos expertos de este excelente foro, la noche de hoy me he encontrado con una limitante en un pequeño procedimiento en un textbox, no lo he podido resolver y me siento un poco frustrado. Pido amablemente a ustedes me puedan ayudar con este...
1 respuesta

Como mantener el focus fijo sin que se pierda en un textbox

Al iniciar userform inicia el setfocus en el textbox que quiero pero al trabajar se pierde yo siempre quiero que permanezca el setfocus en un textbox determinado
1 respuesta

Control imagen en formulario excel

Estoy practicando macros para excel con formularios y necesito agregarle a mi gestor de inventarios por medio del humilde formulario que armé en Visual para cargarle una foto del producto de modo tal que, cuando varíe los datos en el combobox, ¿Vayan...
1 respuesta

Activar la Celda "A#" que contien el Dato buscado en un TextBox llamado TxtPlaca y que se encuentra guardado en "N#"

Tengo un formulario con un llamado FrmRegistro, el cual contiene un textbox llamdo "TxtPlaca", y un botón con el que ejecuto una búsqueda, lo que necesito, es que una vez, los datos que corresponden a la búsqueda hayan sido llamados y colocados en...
2 respuestas

Código para que aparezca automáticamente en una columna un texto en especifico

Tengo la columna QUE la cual tengo puedo incidencias y en la columna R la clave... Entonces quisiera sustituir esta fórmula por un código: =SI.ERROR(BUSCARV(R2,W2:X2,2),"FACTURADO") Al poner en la columna R el numero 1 me aparezca en automático...
1 respuesta

Actualizar campo a partir de un formulario en Access

Tengo una tabla Access llamada Usuario con los campos ID, Nombre y Apellidos, los tres de tipo texto; un formulario llamado Fusuario con los cuadros de texto de nombres respectivos, txtNombre y txtApellidos. Desde el formulario se introducen los...
1 respuesta

Macro que copia celdas sin repetir los datos copiados

Hará cosa de dos meses os consultaba una duda sobre una macro que me copiase celdas de una hoja a otra en determinadas columnas (la pregunta era: "Crear macro que copie celdas si cumplen una condición".) Me funcionó a la perfección, pero usándola me...
1 respuesta

Cargar foto por formulario excel y guardar el path en planilla

Les consulto lo siguiente: tengo hecho un formulario básico donde ingreso artículos de stock y decidí agregarle una foto por cada producto. Para tal fin le incorpore un control "imagen" al formulario con un botón debajo que dice"ingresar foto". ¿Yo...
1 respuesta

Consulta de código para recorrer valores obtenidos de consulta a la base de datos access

Tengo un problema y quisiera que me ayudaras... Tengo un formulario que contiene varios campos y tengo un botón "agregar" que es del asistente de access y cuando se cliquea limpia los campos y recorre su posición para introducir un nuevo registro(eso...
1 respuesta

Macro para ocultar filas en cero

Tengo una tabla dinámica con muchos valores, necesito ocultar una serie de filas cuyo valor sea mayor o menor a 1, son 3 columnas comenzando en la celda "D8" y las 3 deben estar en este rango para ocultarse, aunado a esto, si las 3 columnas tienen...
1 respuesta