Ordenar macro para captación y edición de datos desde formulario
Para DAM
Hola DAM, salude suerte y felicidad son mis empujes para ti.
Hoy vengo con algo sencillo (para ti y otros con experiencia.
Te envío libro que Busca, Elimina y Edita. De este ultimo es donde estoy atascado, frenado.
Desde el formulario busco, OK, selecciono línea en ListBox y se llenan los TextBox, OK, elimino dicha línea del ListBox y Hoja3 con el botón ELIMINAR, OK, edito los textos en el o en los TextBox, presiono el botón Editar y nada.
Como puedes ver en el formulario, los TextBox2 hasta el 9 están marcados cada uno con su columna respectiva.
Al editar el texto o números en cada TextBox al pisar el botón Editar debe sobrescribir o reemplazar los datos en la fila respectiva y no me edita casi nada.
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro
Private Sub cmbEdit_Click()
Dim Lin As Long
Dim b
Lin = 2
If MsgBox("Desea modificar el item: " & ListBox1.List(ListBox1.ListIndex, 1) & "?", vbQuestion + vbYesNo, "Modificar") = vbYes Then
Set b = Hoja3.Columns("A").Find(TextBox2, lookat:=xlWhole)
If Not b Is Nothing Then
Hoja3. Cells(b.Row, "B") = TextBox3.Text 'columna B
Hoja3. Cells(b.Row, "C") = TextBox4.Text 'columna C
Hoja3. Cells(b.Row, "E") = TextBox5.Text 'columna E
Hoja3. Cells(b.Row, "F") = TextBox6.Text 'columna F
Hoja3. Cells(b.Row, "H") = TextBox7.Text 'columna H
Hoja3. Cells(b.Row, "I") = TextBox8.Text 'columna I
Hoja3. Cells(b.Row, "K") = TextBox9.Text 'columna K
End If
Consulta 'Refrescar la consulta
ListBox1.ListIndex = -1
TextBox2.Text = "" 'Columna A
TextBox3.Text = "" 'Columna B
TextBox4.Text = "" 'Columna C
TextBox5.Text = "" 'columna E
TextBox6.Text = "" 'columna F
TextBox7.Text = "" 'columna H
TextBox8.Text = "" 'columna I
TextBox9.Text = "" 'columna K
MsgBox "Datos modificados satisfactoriamente", vbInformation, "Listo"
Else
ListBox1.ListIndex = -1
TextBox2.Text = "" 'Columna A
TextBox3.Text = "" 'Columna B
TextBox4.Text = "" 'Columna C
TextBox5.Text = "" 'columna E
TextBox6.Text = "" 'columna F
TextBox7.Text = "" 'columna H
TextBox8.Text = "" 'columna I
TextBox9.Text = "" 'columna K
Exit Sub
End If
End Subsal u dos
