Valor de celda para modificar datos de la fila correspondiente

Tengo un UserForm para buscar datos de una tabla, y requiero modificar los datos seleccionados del ListBox del UserForm. Los datos seleccionados se copian en TextBox3, ComboBox1... Luego al dar click en un botón aceptar, se tiene que modificar los datos de la fila correspondiente. Mas o menos de la siguiente manera:

Private Sub CommandButton1_Click()
fila = Cells(?,?).Value   ... 'aquí deberá ir el valor de la celda seleccionada de un ListBox que corresponde al valor de la celda buscada en la tabla en la columna X

' Luego estos valores los reemplazo en las celdas correspondientes

Cells(fila, 25).Value = TextBox3.Text
Cells(fila, 26).Value = ComboBox1.Text
Cells(fila, 28).Value = TextBox4.Text

End Sub

1 respuesta

Respuesta
2

Una opción es cargar el número de fila en el listbox. Es decir, cuando filtras la información, puede ser que cargaste en el listbox la información de las filas 3, 8 y 20, entonces en el listbox en una columna tienes que cargar el número de fila.

Pon tu código para ver cómo estás cargando los datos en el listbox, ya que depende de si estás cargando con .Rowsource o con .List o con .Additem

Pon tu código y te ayudo con las 2 partes, para guardar el número de fila. Y después cuando vas a modificar los datos en la hoja para recuperar ese número de fila.

Private Sub CommandButton1_Click()
fila = Cells(24, 24).Value

If TextBox3.Value = "" Then
MsgBox "Tiene que introducir un valor en el cuadro 'Precio'"
GoTo Fin:
ElseIf ComboBox1.Value = "" Then
MsgBox "Tiene que seleccionar un valor de la listra desplegable en el cuadro 'Unidad'"
GoTo Fin:
ElseIf TextBox4.Value = "" Then
MsgBox "Tiene que introducir un valor en el cuadro 'Proveedor'"
GoTo Fin:
ElseIf TextBox4.Value <> "" Then

Cells(fila, 25).Value = TextBox3.Text
Cells(fila, 26).Value = ComboBox1.Text
Cells(fila, 28).Value = TextBox4.Text
ActiveSheet.Range("X23").Value = ActiveSheet.Range("X23").Value + 1

End If
Unload Me
Fin:
End Sub


Private Sub TextBox1_Change()
On Error Resume Next
uf = Hoja6.Range("X" & Rows.Count).End(xlUp).Row

If TextBox1 = "" Then
Me.ListBox1.RowSource = ""
Exit Sub
End If
Me.ListBox1.RowSource = "Tabla16715"
Hoja6.AutoFilterMode = False
Me.ListBox1 = Clear
Me.ListBox1.RowSource = Clear

For fila = 26 To uf
strg = Hoja6.Cells(fila, 24).Value 'Variable para descripción
Precio = Hoja6.Cells(fila, 25).Value 'Variable para Precio de venta
Und = Hoja6.Cells(fila, 26).Value 'Variable para unidad de medida
'Exist = Hoja6.Cells(fila, 5).Value 'Variable para existencia en stok
Codg = Hoja6.Cells(fila, 27).Value 'Variable para codigo y ubicacion
Provee = Hoja6.Cells(fila, 28).Value 'Variable para probeedor
'Prec_copr = Hoja6.Cells(fila, 10).Value 'Variable para precio de venta
If UCase(strg) Like "*" & UCase(TextBox1.Value) & "*" Then
Me.ListBox1.AddItem
Me.ListBox1.List(x, 0) = Hoja6.Cells(fila, 24).Value
Me.ListBox1.List(x, 1) = Hoja6.Cells(fila, 25).Value
Me.ListBox1.List(x, 2) = Hoja6.Cells(fila, 26).Value
'Me.ListBox1.List(x, 3000000) = Hoja6.Cells(fila, 5).Value
Me.ListBox1.List(x, 3) = Hoja6.Cells(fila, 27).Value
Me.ListBox1.List(x, 4) = Hoja6.Cells(fila, 28).Value
'Me.ListBox1.List(x, 6000000) = Hoja6.Cells(fila, 10).Value
x = x + 1
ElseIf Codg Like "*" & UCase(TextBox1.Value) & "*" Then
Me.ListBox1.AddItem
Me.ListBox1.List(x, 0) = Hoja6.Cells(fila, 24).Value
Me.ListBox1.List(x, 1) = Hoja6.Cells(fila, 25).Value
Me.ListBox1.List(x, 2) = Hoja6.Cells(fila, 26).Value
'Me.ListBox1.List(x, 3000000) = Hoja6.Cells(fila, 5).Value
Me.ListBox1.List(x, 3) = Hoja6.Cells(fila, 27).Value
Me.ListBox1.List(x, 4) = Hoja6.Cells(fila, 28).Value
'Me.ListBox1.List(x, 6000000) = Hoja6.Cells(fila, 10).Value
x = x + 1
ElseIf Provee Like "*" & UCase(TextBox1.Value) & "*" Then
Me.ListBox1.AddItem
Me.ListBox1.List(x, 0) = Hoja6.Cells(fila, 24).Value
Me.ListBox1.List(x, 1) = Hoja6.Cells(fila, 25).Value
Me.ListBox1.List(x, 2) = Hoja6.Cells(fila, 26).Value
'Me.ListBox1.List(x, 3000000) = Hoja6.Cells(fila, 5).Value
Me.ListBox1.List(x, 3) = Hoja6.Cells(fila, 27).Value
Me.ListBox1.List(x, 4) = Hoja6.Cells(fila, 28).Value
'Me.ListBox1.List(x, 6000000) = Hoja6.Cells(fila, 10).Value
x = x + 1
End If
Next
Me.ListBox1.ColumnWidths = "220 pt;40 pt;40 pt;40 pt;80 pt"
End Sub


Private Sub UserForm_Initialize()
Me.ListBox1.ColumnCount = 5
Me.ListBox1.ColumnWidths = "220;40;40;40;80"
Me.ListBox1.RowSource = ""

Me.TextBox1.SetFocus
Frame1.Caption = "Modificar item existente: "
Me.ComboBox1.List = Array("Pza.", "Global", "Bolsa", "Rollo", "Kg", "Lb", "Lt", "m", "cm", "pulg", "Barra")
End Sub

Private Sub ListBox1_Click()
Dim i As Integer
For i = 0 To Me.ListBox1.ListCount - 1

If ListBox1.Selected(i) = True Then
'Me.TextBox2.Text = Me.ListBox1.List(i, 0)
'Me.TextBox4.Text = Me.ListBox1.List(i, 4)
Me.Label13.Caption = Me.ListBox1.List(i, 0)
Me.Label15.Caption = Me.ListBox1.List(i, 3)
Me.Label18.Caption = Me.ListBox1.List(i, 1)
Me.Label17.Caption = Me.ListBox1.List(i, 2)
Me.Label16.Caption = Me.ListBox1.List(i, 4)
End If
Next
End Sub

Estimado, 

Este es el código completo.

Me tomé la libertad de actualizar partes de tu código:

Private Sub CommandButton1_Click()
'Act.Por.Dante Amor
    If TextBox3.Value = "" Then
        MsgBox "Tiene que introducir un valor en el cuadro 'Precio'"
        Exit Sub
    End If
    If ComboBox1.Value = "" Then
        MsgBox "Tiene que seleccionar un valor de la listra desplegable en el cuadro 'Unidad'"
        Exit Sub
    End If
    If TextBox4.Value = "" Then
        MsgBox "Tiene que introducir un valor en el cuadro 'Proveedor'"
        Exit Sub
    End If
    If ListBox1.ListIndex = -1 Then
        MsgBox "Tiene que seleccionar un registro del list", vbExclamation, "ACTUALIZAR"
        Exit Sub
    End If
    '
    'toma le número de fila almacenado en la columna 5 del registro seleccionado
    fila = Val(ListBox1.List(ListBox1.ListIndex, 5))
    Cells(fila, 25).Value = TextBox3.Text
    Cells(fila, 26).Value = ComboBox1.Text
    Cells(fila, 28).Value = TextBox4.Text
    ActiveSheet.Range("X23").Value = ActiveSheet.Range("X23").Value + 1
    MsgBox "Registro actualizado"
End Sub
'
Private Sub TextBox1_Change()
    uf = Hoja6.Range("X" & Rows.Count).End(xlUp).Row
    If TextBox1 = "" Then
        Me.ListBox1.RowSource = ""
        Exit Sub
    End If
    'Me.ListBox1.RowSource = "Tabla16715"
    If Hoja6.AutoFilterMode Then Hoja6.AutoFilterMode = False
    Me.ListBox1.Clear
    'Me.ListBox1.RowSource = ""
    '
    x = 0
    For fila = 26 To uf
        strg = Hoja6.Cells(fila, 24).Value 'Variable para descripción
        Precio = Hoja6.Cells(fila, 25).Value 'Variable para Precio de venta
        Und = Hoja6.Cells(fila, 26).Value 'Variable para unidad de medida
        'Exist = Hoja6.Cells(fila, 5).Value 'Variable para existencia en stok
        codg = Hoja6.Cells(fila, 27).Value 'Variable para codigo y ubicacion
        provee = Hoja6.Cells(fila, 28).Value 'Variable para probeedor
        'Prec_copr = Hoja6.Cells(fila, 10).Value 'Variable para precio de venta
        '
        cadena = UCase(strg & codg & provee)
        If UCase(cadena) Like "*" & UCase(TextBox1.Value) & "*" Then
            Me.ListBox1.AddItem
            Me.ListBox1.List(x, 0) = Hoja6.Cells(fila, 24).Value
            Me.ListBox1.List(x, 1) = Hoja6.Cells(fila, 25).Value
            Me.ListBox1.List(x, 2) = Hoja6.Cells(fila, 26).Value
            Me.ListBox1.List(x, 3) = Hoja6.Cells(fila, 27).Value
            Me.ListBox1.List(x, 4) = Hoja6.Cells(fila, 28).Value
            'línea para guardar el número de fila
            Me.ListBox1.List(x, 5) = fila
            x = x + 1
        End If
    Next
    Me.ListBox1.ColumnWidths = "220 pt;40 pt;40 pt;40 pt;80 pt"
End Sub
'
Private Sub UserForm_Initialize()
    Me.ListBox1.ColumnCount = 5
    Me.ListBox1.ColumnWidths = "220;40;40;40;80"
    'Me.ListBox1.RowSource = ""
    '
    Me.TextBox1.SetFocus
    'Frame1.Caption = "Modificar item existente: "
    Me.ComboBox1.List = Array("Pza.", "Global", "Bolsa", "Rollo", "Kg", "Lb", "Lt", "m", "cm", "pulg", "Barra")
End Sub
'
Private Sub ListBox1_Click()
    i = ListBox1.ListIndex
    'Me.TextBox2.Text = Me.ListBox1.List(i, 0)
    'Me.TextBox4.Text = Me.ListBox1.List(i, 4)
    Me.Label13.Caption = Me.ListBox1.List(i, 0)
    Me.Label15.Caption = Me.ListBox1.List(i, 3)
    Me.Label18.Caption = Me.ListBox1.List(i, 1)
    Me.Label17.Caption = Me.ListBox1.List(i, 2)
    Me.Label16.Caption = Me.ListBox1.List(i, 4)
End Sub

Puse un par de comentarios para que veas cómo utilizo el número de fila.

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Feliz Año 2018

.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Encontrar datos no coincidentes excel

Sucede que tengo que comparar dos bases de datos y encontrar los elementos no coincidentes para analizar. Se puede hacer por fórmula pero necesito algo más optimizado. El otro problema es que los datos son más de 1.48.576 capacidad de líneas de...
1 respuesta

¿Cómo resolver num a letras en excel?

En un libro excel habilitado para macros al convertir números a letras, en lugar de aparecer el resultado esperado aparece el mensaje # ¿NOMBRE?.
2 respuestas

´No sé que fórmulas usar para resolverme el problema

La imagen no me la sube y tampoco veo como se sube un fichero, os intentaré explicar lo mejor que pueda mi problema. En una hoja Excel tengo hallados los pagos por formas de pago: SUMAR.SI(D1:D16;"Efectivo";B1:B16), y...
3 respuestas

¿Cómo ajustar texto automáticamente en celdas combinadas en Excel 2019?

Solicito amablemente su valiosa ayuda para ajustar automáticamente un rango de celdas de una columna, he intentado con la opción de ajuste autamático de filas, también con al opción de ajustar texto de la pestaña inicio e incluso con la siguiente...
1 respuesta

¿Cómo usar un excel con macros desde varios ordenadores?

A tod@s! Tengo una aplicación en excel para introducir datos y visualizarlos con diferentes formularios creados. Lo que quiero hacer es: 1 Que ese libro este alojado en un sitio común y que lo puedan abrir desde varios ordenadores. 2º Que se pueda...
3 respuestas

Error en macro al ejecutar el botón aceptar

Necesitaría la colaboración para resolver el error que sucede al ejecutar el botón aceptar Set mifila = Hoja2.ListObjects(1).ListRows.Add Lo que yo agregue solamente a la base fue una columna al inicio ("A") anteriormente se llamaba Tabla6 y yo ahora...
1 respuesta

Detectar cambios en tabla dinámica

Tengo una hoja donde se van actualizando datos mediante una tabla dinámica. ¿Cómo detecto cuando se producen cambios (sólo en la parte de la tabla dinámica) para ejecutar otra macro en la misma hoja?
1 respuesta

Macro con combinación de teclas

Acudo aquí buscando ayuda, ¿Cómo crear una macro que genere una combinación de teclas? NO se trata de asignar una macro a una combinación de teclas, es todo lo contrario. El problema radica en que tengo una macro que rellena ciertas celdas con...
1 respuesta

Pasar datos de listbox a hoja con decimales

Como están estimados maestros y maestras, una vez mas solicitando vuestra experta ayuda. Tengo un formulario que busca datos entre 2 fechas desde 2 textbox, carga en listbox lo filtrado, en la columna 2 del listbox carga valores con formato de 2...
1 respuesta

Una macro que de aviso sobre vencimiento de una cedula de identidad

Tengo una hoja de calculo de 6 columnas en donde la columna A es fecha de vencimiento, las columnas B, C, y D son apellidos paterno, Materno u nombres, la columna E es el numero de cedula de identidad Con Formato ##.###.###-# la columna F es lo...
1 respuesta