Macro para modificar registros del combobox

Para dante

Buen día

Podrías ayudarme con esto

Tengo un archivo que ya me has trabajado, con el cual ingreso a través de formulario datos y que utiliza un combobox con lista, pero me doy cuenta que los datos del combobox no se pueden modificar, solo los demás datos que corresponden al nombre que aparece en el combo. Para modificar el dato del combo tengo que volver a ingresar el dato y eliminar el que esta mal.

Te mando el archivo

1 respuesta

Respuesta
1

Envíame un correo nuevo con el archivo y las explicaciones detalladas.

R ecuerda poner tu nombre de usuario en el asunto del correo.

¡Gracias! 

pregunta cancelada, voy a reformular la pregunta y explicarla mejor

saludos

Te anexo todo el código para que verifiques todos los cambios que le hice:

'Option Explicit
Dim ArchivoIMG As String
'
Private Sub cmd_Agregar_Click()
'Por.Dante Amor
    '
    If Not UCase(Left(TextBox1, 1)) Like "[A-Z]" Then
        MsgBox "Nombre inválido", vbInformation + vbOKOnly
        TextBox1.SetFocus
        Exit Sub
    End If
    '
    If OptionButton1.Value = False And OptionButton2.Value = False And OptionButton3.Value = False And OptionButton4.Value = False And OptionButton5.Value = False Then
        MsgBox "Debes seleccionar algún botón de Cliente. Luego ejecuta nuevamente el botón de guardado.", , "ERROR"
        Exit Sub
    End If
    '
    If OptionButton6 = False And OptionButton7 = False Then
        MsgBox "Selecciona la opción de agregar o modificar"
        Exit Sub
    End If
    '
    If TextBox1 = "" Then
        MsgBox "Escribe el nuevo nombre"
        TextBox1.SetFocus
        Exit Sub
    End If
    '
    If OptionButton6 Then   'Agregar registro
        Set b = Columns("A").Find(TextBox1, lookat:=xlWhole)
        If Not b Is Nothing Then
            MsgBox "El nombre ya existe"
            TextBox1.SetFocus
        End If
        Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1).Select
    ElseIf OptionButton7 Then ' modificar
        If cbo_Nombre.ListIndex = -1 Then
            MsgBox "Para modificar un nombre, primero tienes que seleccionar uno"
            cbo_Nombre.SetFocus
            Exit Sub
        End If
    End If
    'Aqui es cuando agregamos o modificamos el registro
    ActiveCell = TextBox1
    ActiveCell.Offset(0, 1) = txt_numero
    ActiveCell.Offset(0, 2) = txt_conteofisico
    ActiveCell.Offset(0, 3) = txt_fechaven
    ActiveCell.Offset(0, 4) = txt_numerolote
    ActiveCell.Offset(0, 5) = txt_nukardex
    ActiveCell.Offset(0, 6) = txt_fekardex
    ActiveCell.Offset(0, 7) = txt_ultimosaldo
    ActiveCell.Offset(0, 8) = txt_observaciones
    ActiveCell.Offset(0, 9) = ArchivoIMG
    '
    Columns("J").EntireColumn.Hidden = True
    With ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("A1")
        .SetRange Range("A2:J" & Range("A" & Rows.Count).End(xlUp).Row)
        .Header = xlNo: .MatchCase = False: .Orientation = xlTopToBottom
        .SortMethod = xlPinYin: .Apply
    End With
    '
    LimpiarFormulario
    OptionButton6 = False: OptionButton7 = False
    cbo_Nombre.SetFocus
End Sub
Private Sub cmd_Eliminar_Click()
    Dim fCliente As Integer
    fCliente = nCliente(cbo_Nombre.Text)
    If fCliente = 0 Then
        MsgBox "El cliente que usted quiere eliminar no existe", vbInformation + vbOKOnly
        cbo_Nombre.SetFocus
        Exit Sub
    End If
    If MsgBox("¿Seguro que quiere eliminar este cliente?", vbQuestion + vbYesNo) = vbYes Then
        Cells(fCliente, 1).Select
        ActiveCell.EntireRow.Delete
        LimpiarFormulario
        MsgBox "Cliente eliminado", vbInformation + vbOKOnly
        cbo_Nombre.SetFocus
   End If
End Sub
Private Sub cmd_Cerrar_Click()
Application.ScreenUpdating = True
Call Ocultas
ActiveWorkbook.Save
frm_Clientes.Hide
ThisWorkbook.Application.Visible = False
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
OptionButton5.Value = False
Load Menu
Menu.Show
End Sub
Private Sub cbo_Nombre_Change()
    'On Error Resume Next
    If cbo_Nombre.ListIndex > -1 Then
        Cells(cbo_Nombre.ListIndex + 2, 1).Select
        txt_numero = ActiveCell.Offset(0, 1)
        txt_conteofisico = ActiveCell.Offset(0, 2)
        txt_fechaven = ActiveCell.Offset(0, 3)
        txt_numerolote = ActiveCell.Offset(0, 4)
        txt_nukardex = ActiveCell.Offset(0, 5)
        txt_fekardex = ActiveCell.Offset(0, 6)
        txt_ultimosaldo = ActiveCell.Offset(0, 7)
        txt_observaciones = ActiveCell.Offset(0, 8)
        On Error Resume Next
            fotografia.Picture = LoadPicture("")
            fotografia.Picture = LoadPicture(ActiveCell.Offset(0, 9))
            ArchivoIMG = ActiveCell.Offset(0, 9)
        On Error GoTo 0
    Else
        'TextBox1 = ""
        txt_numero = ""
        txt_conteofisico = ""
        txt_fechaven = ""
        txt_numerolote = ""
        txt_nukardex = ""
        txt_fekardex = ""
        txt_ultimosaldo = ""
        txt_observaciones = ""
        ArchivoIMG = ""
        fotografia.Picture = LoadPicture("")
    End If
End Sub
'
Sub CargarLista()
    cbo_Nombre.Clear
    Range("A2").Select
    Do While Not IsEmpty(ActiveCell)
        cbo_Nombre.AddItem ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
    Loop
End Sub
'
Sub LimpiarFormulario()
    CargarLista
    cbo_Nombre = ""
    TextBox1 = ""
    txt_numero = ""
    txt_conteofisico = ""
    txt_fechaven = ""
    txt_numerolote = ""
    txt_nukardex = ""
    txt_fekardex = ""
    txt_ultimosaldo = ""
    txt_observaciones = ""
    ArchivoIMG = ""
End Sub
Private Sub cmd_Imagen_Click()
On Error Resume Next
        ArchivoIMG = Application.GetOpenFilename("Imágenes jpg,*.jpg,Imágenes bmp,*.bmp", 0, "Seleccionar Imágen para Reegistro de Clientes")
        fotografia.Picture = LoadPicture("")
        fotografia.Picture = LoadPicture(ArchivoIMG)
End Sub
Private Sub commandbutton1_click()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents and Settings\MORALES\Escritorio\Inventario\" + Cells(2, 12) & Format(Cells(2, 13), "dd-mm-yyyy") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
Private Sub CommandButton2_Click()
  Application.ScreenUpdating = False
  Cells.EntireRow.Hidden = False
  Dim Celda As Range
  For Each Celda In Range(Range("c2"), Range("c65536").End(xlUp))
    If Celda <> 0 Then Celda.EntireRow.Hidden = False Else Celda.EntireRow.Hidden = True
  Next
End Sub
Private Sub OptionButton1_Click()    'repetir para cada OB
If OptionButton1.Value = True Then
    Sheets("Medicamentos").Select
    Call CargarLista
    cbo_Nombre.SetFocus
End If
End Sub
Private Sub OptionButton2_Click()    'repetir para cada OB
If OptionButton2.Value = True Then
    Sheets("Planificacion F.").Select
    Call CargarLista
    cbo_Nombre.SetFocus
End If
End Sub
Private Sub OptionButton3_Click()    'repetir para cada OB
If OptionButton3.Value = True Then
    Sheets("Quirurgico").Select
    Call CargarLista
    cbo_Nombre.SetFocus
End If
End Sub
Private Sub OptionButton4_Click()    'repetir para cada OB
If OptionButton4.Value = True Then
    Sheets("M. de Oficina").Select
    Call CargarLista
    cbo_Nombre.SetFocus
End If
End Sub
Private Sub OptionButton5_Click()    'repetir para cada OB
If OptionButton5.Value = True Then
    Sheets("M. de Limpieza").Select
    Call CargarLista
    cbo_Nombre.SetFocus
End If
End Sub
'
Private Sub txt_fechaven_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal shift As Integer)
     Select Case Len(txt_fechaven.Value)
     Case 2
     txt_fechaven.Value = txt_fechaven.Value & "/"
     Case 5
     txt_fechaven.Value = txt_fechaven.Value & "/"
    End Select
End Sub
Private Sub txt_fekardex_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal shift As Integer)
     Select Case Len(txt_fekardex.Value)
     Case 2
     txt_fekardex.Value = txt_fekardex.Value & "/"
     Case 5
     txt_fekardex.Value = txt_fekardex.Value & "/"
    End Select
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    '    If CloseMode = vbFormControlMenu Then
'        Cancel = True
'    End If
End Sub
Sub Ocultas()
    Rows.EntireRow.Hidden = False
End Sub

No olvides cambiar la valoración a la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ejecutar macro si en la celda B1 hay datos

Esta es la macro que utilizo siempre, pero tengo la dificultad que a veces me olvido de colocar el numero de curso (Ejp. 1era_1era o 2da_2da ...)en la celda B1, todo este proceso se ejecuta en la hoja Activa "Curso", lo que busco que la macro se...
2 respuestas

¿Qué hay de mal en este macro?

Quiero hacer un macro para hacer un filtro de una base de datos poniendo como condición un periodo de tiempo, teniendo una celda como fecha de inicio y otra celda como fecha de terminación. Te mando imagen de mi libro y código. Muchas gracias Sub...
1 respuesta

Need a good construction contractor for a home renovation project?

Interested in the uk area. Building a home will be a great investment and dream of their life for most of the people. It is really important to choose the best building contractor for this work. Choosing the right, trustworthy professional contractor...
7 respuestas

Saber el último precio de cierre de cada uno de los valores que compone una cartera de acciones y reflejarlos en un textBox.

Estoy construyendo un formulario para que se vuelque los datos de aquellos la situación de una cartera compuesta por acciones. Es un formulario único pero al clikear en un botón comando se abre un formulario continuo. La situación en la que estoy...
1 respuesta

Como puedo borrar registros relacionados desde un formulario

Tengo un formulario en donde tengo varios registros relacionados, deseo borrar cualquiera de esos registros pero me dice que no puedo borrar registros relacionados, quisiera saber si hay alguna opción con la que pueda borrar.
2 respuestas

Desactivar un Button al entrar a un formulario en VB.NET

Después de mucho tiempo, he retomado la programación, ahora en vb.net, como hobby, pues estoy jubilado. Os agradecería vuestra ayuda. Tengo un atasco en esta parte del formulario y es que estoy tratando de desactivar un Button al entrar en un...
4 respuestas

Dividir un valor en excel y que el resultado sea igual al de una calculadora manual

Sres. T.E La Consulta es la siguiente: Como dividir 4.888,00 / 30 y que el resultado sea igual tanto en excel como una calculadora manual o la calculado de win xp. Ejemplos: En excel 2003 si divido 4.888,00 / 30 = 162,93 En una Calculadora 4.888,00 /...
2 respuestas

Poner contraseña a una BD de access.

A ver si podéis ayudarme en la siguiente cuestión. Trato de establecer contraseña para la base de datos y no puedo porque aparece un mensaje diciendo que el cifrado de bloques no es compatible con el bloqueo por filas. ¿Cómo puedo arreglar esto?.
2 respuestas

¿Por qué al jugar Minecraft con mods instalados, el conteo de FPS son exageradamente mínimos, es decir, de 8 a 13 FPS?

NOTA: Esta pregunta también la pregunto a programadores en JAVA por si de pronto saben como optimizar una aplicación y que no presente lagueos; por otro lado, espero que alguien conozca sobre este tema y que posibles razones son las que el juego no...
8 respuestas

Vba names add name refers to

Intento crear un árbol no binario en excel con la vba, he conseguido lo siguiente: ActiveWorkbook.Names.Add Name:="range(".....").value, RefersTo:="=Hoja6!a1:b1" El problema es que eh buscado muchas formas de hacer dinámico el rango para ingresar el...
3 respuestas