Form busqueda y modificar articulo en excel
GRANDÍSIMA AYUDA con el textbox y el listbox para buscar un articulo. Muchísimas gracias!.
Ahora necesito seleccionar un articulo en el listbox y click en cmb_modificar y que se abra el frm_articulos_modificar con los datos del articulo seleccionado. Y poder realizar en ese frm_articulos_modificar las modificaciones que yo quiera y click en aceptar y que se guarden esos cambios.
Si necesita más info, pídala.
1 respuesta
Respuesta de Dante Amor
1
Código en el form buscar
Private Sub cmb_modificar_Click() 'Por.Dante Amor If listbox1.ListIndex = -1 Then MsgBox "Selecciona un registro a modificar" Exit Sub End If With frm_articulos_modificar .fila = listbox1.List(listbox1.ListIndex, 4) .Show End With End Sub
código en el form modificar
Public fila
Dim h
'
Private Sub cbx_categoria_click()
Select Case cbx_categoria.Text
Case "Accesorios"
cbx_grupo.Clear
cbx_grupo.AddItem "Controles/Mandos"
cbx_grupo.AddItem "Transporte/seguridad"
cbx_grupo.AddItem "Periféricos"
Case "Guías"
cbx_grupo.Clear
cbx_grupo.AddItem "guías"
Case "Juegos"
cbx_grupo.Clear
cbx_grupo.AddItem "Acción"
cbx_grupo.AddItem "Conducción"
cbx_grupo.AddItem "Deportes"
cbx_grupo.AddItem "Disparos"
cbx_grupo.AddItem "Musicales"
cbx_grupo.AddItem "Plataformas"
cbx_grupo.AddItem "Primera Persona"
Case "Packs"
cbx_grupo.Clear
cbx_grupo.AddItem "Juego + Mando"
cbx_grupo.AddItem "Videoconsola + Juego"
cbx_grupo.AddItem "Videoconsola + Mando"
Case "Videoconsolas"
cbx_grupo.Clear
cbx_grupo.AddItem "160 GB"
cbx_grupo.AddItem "320 GB"
cbx_grupo.AddItem "500 GB"
End Select
End Sub
Private Sub cbx_plataforma_click()
Select Case cbx_plataforma.Text
Case "Microsoft"
cbx_consola.Clear
cbx_consola.AddItem "Xbox"
cbx_consola.AddItem "Xbox 360"
cbx_consola.AddItem "Xbox One"
cbx_consola.AddItem "Varias"
Case "Nintendo"
cbx_consola.Clear
cbx_consola.AddItem "2 Ds"
cbx_consola.AddItem "2 Ds XL"
cbx_consola.AddItem "3 Ds"
cbx_consola.AddItem "3 Ds XL"
cbx_consola.AddItem "64"
cbx_consola.AddItem "Supernintendo"
cbx_consola.AddItem "Varias"
Case "Sega"
cbx_consola.Clear
cbx_consola.AddItem "Dreamcast"
cbx_consola.AddItem "Megadrive"
cbx_consola.AddItem "Saturn"
cbx_consola.AddItem "Varias"
Case "Sony"
cbx_consola.Clear
cbx_consola.AddItem "Ps1"
cbx_consola.AddItem "Ps2"
cbx_consola.AddItem "Ps3"
cbx_consola.AddItem "Ps4"
cbx_consola.AddItem "Varias"
Case "Varias"
cbx_consola.Clear
cbx_consola.AddItem "Varias"
End Select
End Sub
Private Sub cmb_aceptar_Click()
'Por.Dante Amor
If fila > 0 Then
h.Cells(fila, "A") = txt_codigo.Value
h.Cells(fila, "B") = txt_nombre.Value
h.Cells(fila, "C") = cbx_plataforma.Value
h.Cells(fila, "D") = cbx_consola.Value
h.Cells(fila, "E") = cbx_categoria.Value
h.Cells(fila, "F") = cbx_grupo.Value
h.Cells(fila, "G") = cbx_estado.Value
h.Cells(fila, "H") = cbx_condicion.Value
h.Cells(fila, "I") = txt_ubicacion.Value
h.Cells(fila, "J") = txt_precio.Value
h.Cells(fila, "K") = txt_cantidad.Value
End If
MsgBox "Registro actualizado"
Unload Me
End Sub
Private Sub cmb_cancelar_Click()
If (MsgBox("Los cambios no se guardarán", vbCritical + vbYesNo, " JJ VIDEOJUEGOS") = vbYes) Then
Unload Me
'frm_articulos_buscar.Show
Else
Cancel = 1
End If
End Sub
'
Private Sub UserForm_Activate()
'Por.Dante Amor
Set h = Sheets("ARTICULOS")
If fila > 0 Then
txt_codigo.Value = h.Cells(fila, "A")
txt_nombre.Value = h.Cells(fila, "B")
cbx_plataforma.Value = h.Cells(fila, "C")
cbx_consola.Value = h.Cells(fila, "D")
cbx_categoria.Value = h.Cells(fila, "E")
cbx_grupo.Value = h.Cells(fila, "F")
cbx_estado.Value = h.Cells(fila, "G")
cbx_condicion.Value = h.Cells(fila, "H")
txt_ubicacion.Value = h.Cells(fila, "I")
txt_precio.Value = h.Cells(fila, "J")
txt_cantidad.Value = h.Cells(fila, "K")
End If
End Sub
Private Sub UserForm_Initialize()
'Activar botones
' cmb_aceptar.Enabled = False
' cmb_cancelar.Enabled = False
' txt_codigo.Enabled = False
' txt_nombre.Enabled = False
' cbx_plataforma.Enabled = False
' cbx_consola.Enabled = False
' cbx_categoria.Enabled = False
' cbx_grupo.Enabled = False
' cbx_estado.Enabled = False
' cbx_condicion.Enabled = False
' txt_ubicacion.Enabled = False
' txt_precio.Enabled = False
' txt_cantidad.Enabled = False
'Añadir items al cbx_plataforma
cbx_plataforma.AddItem "Microsoft"
cbx_plataforma.AddItem "Nintendo"
cbx_plataforma.AddItem "Sega"
cbx_plataforma.AddItem "Sony"
cbx_plataforma.AddItem "Varios"
'Añadir items al cbx_categoria
cbx_categoria.AddItem "Accesorios"
cbx_categoria.AddItem "Guías"
cbx_categoria.AddItem "Juegos"
cbx_categoria.AddItem "Packs"
cbx_categoria.AddItem "Videoconsolas"
'Añadir items al cbx_estado
cbx_estado.AddItem "Nuevo"
cbx_estado.AddItem "Seminuevo/Bueno"
cbx_estado.AddItem "Seminuevo/Regular"
cbx_estado.AddItem "Seminuevo/Malo"
'Añadir items al cbx_condicion
cbx_condicion.AddItem "Alquilado"
cbx_condicion.AddItem "Colección"
cbx_condicion.AddItem "Prestado"
cbx_condicion.AddItem "Venta"
'
End Sub
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
me da error el cmb_modificar de frm_articulo_buscar (te pongo una imagen)
Al seleccionar un registro del listbox y click en cmb_modificar, me da ese error.
Copiaste completo el código en el form modificar, debe tener las variables al principio de todo el código
Public fila Dim h
Revisa el archivo que te envié
¡Gracias!
Si si que estaban las variables, pero ahora funciona todo.
Le hice unas modificaciones para que cuando modificar un articulo vuelva al frm_articulos_buscar tanto en el botón cancelar como aceptar.
Muchas gracias por la ayuda!.
