Saltar al contenido

Ayuda con boton modificar de un formulario

publicado

Buenas tardes, expertos por favor me pueden ayudar tengo un formulario que fuciona perfectamente los botones nuevo, registrar, eliminar y salir; pero en cuanto modificar me funciona raro cuando selecciono una fecha dentro del combobox  la "X" me imprime en la fila de los titulos, antes que insertara el control combobox si funcionaba el boton modificar perfecto, este codigo adjunte al en modificar:

            If cmbFecha.Text = Hoja1.Range("P4") Then
                Hoja1.Cells(Fila, 16) = "X"
            ElseIf cmbFecha.Text = Hoja1.Range("Q4") Then
                Hoja1.Cells(Fila, 17) = "X"
            ElseIf cmbFecha.Text = Hoja1.Range("R4") Then
                Hoja1.Cells(Fila, 18) = "X"
            ElseIf cmbFecha.Text = Hoja1.Range("S4") Then
                Hoja1.Cells(Fila, 19) = "X"
            ElseIf cmbFecha.Text = Hoja1.Range("T4") Then
                Hoja1.Cells(Fila, 20) = "X"
            ElseIf cmbFecha.Text = Hoja1.Range("U4") Then
                Hoja1.Cells(Fila, 21) = "X"
            ElseIf cmbFecha.Text = Hoja1.Range("V4") Then
                Hoja1.Cells(Fila, 22) = "X"
            ElseIf cmbFecha.Text = Hoja1.Range("W4") Then
                Hoja1.Cells(Fila, 23) = "X"
            ElseIf cmbFecha.Text = Hoja1.Range("X4") Then
                Hoja1.Cells(Fila, 24) = "X"
            ElseIf cmbFecha.Text = Hoja1.Range("Y4") Then
                Hoja1.Cells(Fila, 25) = "X"
            ElseIf cmbFecha.Text = Hoja1.Range("Z4") Then
                Hoja1.Cells(Fila, 25) = "X"
            ElseIf cmbFecha.Text = Hoja1.Range("AA4") Then
                Hoja1.Cells(Fila, 26) = "X"
            Else
            End If

Por favor me pueden ayudar los agradecere bastante; Adjunto el archivo.

Asistencia.xlsm

Featured Replies

publicado

Buenos dias, mirando el codigo del adjunto , creo que el error esta en la linea.

Fila = ListBox1.ListIndex + 2 'Fila = 9

cambiala por :

Fila = 5 

saludos.

publicado
  • Autor

JasallBcn, solo el código que adjunte es el error porque cuando lo saco funciona bien es por eso que señale esas líneas de código... Muchas gracias

publicado

Buenas tardes,

el codigo que no te funciona depende de la fila que te comenté. ¿probaste a cambiarlo?

   If cmbFecha.Text = Hoja1.Range("P4") Then
      Hoja1.Cells(Fila, 16) = "X"

saludos.

Asistencia.xlsm

publicado
  • Autor

JasallBcn, muchas gracias funciona en gran parte, en algunas filas y columnas no imprime la X

publicado
  • Autor

Antoni, muchas gracias ya lo he probado en la mayor parte de las asistencias y funciona perfectamente, creo que queda ahi por favor muchas gracias, eres un genio

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.