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.
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