Botón Modificar
Publicado por Michael Elvis (16 intervenciones) el 25/03/2020 03:18:32
Buenas noches, tengo un problema con mi botón de modificar, por favor si me pueden ayudar. La macro que tengo si llega a modificar pero solo la primera fila, quisiera que me modifique la 2da, 3ra, etc.
Aquí les dejo la codificación de la macro.
Nota: al dar doble click en el listbox se carga los datos en el textbox y en los combobox, luego comparo los datos del textbox con la celda excel, al realizar esta comparación solo cambia en la primera fila así seleccione la segunda fila solo cambia en la primera fila.
Gracias de ante mano por la ayuda.
Aquí les dejo la codificación de la macro.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub cmb_modificar_Click()
'selecciono la hojaWorksheets("FICHA").Select
'selecciono la columna donde se encuentra los apellidos y nombresFor Each CL In Worksheets("FICHA").Range("C15:C39")
'Igualo el contenido del textbox con el de la hoja excelIf CL = txt_ap.Text Then
ActiveCell.Offset(0, 1) = cmb_p1.Value
ActiveCell.Offset(0, 2) = cmb_p2.Value
ActiveCell.Offset(0, 3) = cmb_p3.Value
ActiveCell.Offset(0, 4) = cmb_p4.Value
ActiveCell.Offset(0, 5) = cmb_p5.Value
End If
Next
End Sub
Nota: al dar doble click en el listbox se carga los datos en el textbox y en los combobox, luego comparo los datos del textbox con la celda excel, al realizar esta comparación solo cambia en la primera fila así seleccione la segunda fila solo cambia en la primera fila.
Gracias de ante mano por la ayuda.
Valora esta pregunta
0