3 problemas en VBA

[aprendiz]

buenas tengo tres problemas

1- En los formularios "FACTURA SIMPLE" y "FACTURA MIXTA" en el combobox de categoria, si se pone una letra que no esta en la hoja de codigos por ejemplo "Y" me dispara un error hacia la linea de codigo:

Me.ICodigo = nombre.Offset(, -1)[/CODE]

es etico resolver el problema poniendo este codigo?:

[CODE]On Error Resume Next[/CODE]

no es muy elegante...

2- En la parte de modificacion y eliminacion de datos al dar los cambios sea modificar los datos o eliminar los datos en la hoja de "REGISTRO" que solo se necesita mostrar los datos desde la columna "B" hasta la "Q" extra;amente inserta datos desde la columna "R" hasta la "U" cosa que no deberia suceder

no supe como resolverlo no veo por donde sale esas columnas de mas aunque me da la impresion de que es por este codigo:

[CODE]BD.Rows(Fila).Copy RG.Rows(x)[/CODE]

3- con el calendario en los formularios "FACTURA SIMPLE", "MODIFICACION" y "FACTURA MIXTA" no funciona bien si se inserta fecha en alguno de estos se inserta en los otros, puse en los botones de cerrar y regresar borrar los datos, pero no deberia suceder eso...

se que esta en dos partes en el modulo MyClase y la otra en el ingreso de fecha en los tres formularios se inserta al mismo tiempo (quite el del modificacion porque se me congela el archivo)

DEPRECIACION 13.rar

[aprendiz]

este es el codigo en donde supuestamente se condiciona para llamar al calendario habia hecho un post sobre esto pero al final nunca me respondieron del problema al llamar el calendario desde la hoja que lo eliminaron... del calendario ofrecido nunca me funciono bien los dias algo tiene que parece que no rabaja bien con ciertas versiones de windows o excel tuve que volver al anterior codigo par poder darle doble click a la celda D3 de la hoja inf general que si me deja con este codigo puesto:

Option ExplicitPrivate WithEvents LbCustom1  As MSForms.Label



Public Property Set Control(LbNew As MSForms.Label)

    Set LbCustom1 = LbNew

End Property



Private Sub LbCustom1_Click()

    Dim xForm As UserForm

    Dim i As Long

    Dim xconto

    Lafecha = CDate(DateSerial(MyCalendario.ComboBox1, MyCalendario.SpinButton2, LbCustom1.Caption))



    Select Case xTag


        Case "UserForm1":

           FmFacSimple.IFeCompra = CDate(Lafecha)

           FmFacMixta.IFeCompra = CDate(Lafecha)

           FmModificacion.MoFecha = CDate(Lafecha)

        Case "Celda":

           ActiveCell = CDate(Lafecha)


            Set xForm = Nothing

    End Select

    Unload MyCalendario

End Sub



Private Sub Class_Terminate()

    Set LbCustom1 = Nothing

End Sub



[/CODE]

como vera puse los tres form en userform1 puesto que no se como hacer que se idenifiquen individualmentey no me inserte la fecha en los tres formularios a pesar de que solo uno esta activo

lo del registro lo solucione ocultando columnas no es una solucion muy elegante pero no tengo tiempo para buscar los errores

se que deo ir aprendiendo pero no soy genio ni aprendo rapido pero constante si y ya no cuento con tiempo debo entregarlo a mas tardar ma;ana y con la forma que lo solucione aunque sin gracia solo me quedaria lo del calendario

[aprendiz]

logre solucionar lo del calendario modificando el colocame del calendario

'>>>>>>>>>>>>>>>    COLOCAR CALENDARIO EN PANTALLA      <<<<<<<<<<<<<<<<<<<


Sub Coloqueme()

       Me.Top = ActiveCell.Top

       Me.Left = ActiveCell.Left

       If FmFacSimple.Visible = True Then

            Me.Top = FmFacSimple.Top

            Me.Left = FmFacSimple.Left + FmFacSimple.Width + 3

         ElseIf FmFacMixta.Visible = True Then

            Me.Top = FmFacMixta.Top

            Me.Left = FmFacMixta.Left + FmFacMixta.Width + 3

         Else

            Me.Top = FmModificacion.Top

            Me.Left = FmModificacion.Left + FmModificacion.Width + 3

       End If

End Sub[/CODE]

lo de la categoria que se muestra con el codigo no se porqeu es tan delicado no se porque es tan delicado, se pone histerico si se le modifica algo en el codigo pero creoq ue ya lo resolvi aunque no confio mucho y me da miedo

lo que definitivamente no he podido resolver es del registro no he podido para nada no he dormido nada XD

por mas que miro no veo donde ace que al modificar o eliminar datos grabe tantas columnas en el registro este es el codigo para ingresar datos al registro

ESTE ES DEL BOTON ELIMINAR:

[CODE]Private Sub BtnGrabarDatos_Click()
x = RG.Range("F" & Rows.Count).End(xlUp).Row + 1

BD.Rows(Fila).Copy RG.Rows(x)
RG.Range("N" & x) = Date
RG.Range("O" & x) = MoEstado.Text
RG.Range("P" & x) = MoMotivo.Text
RG.Range("Q" & x) = MoJustificación

BD.Cells(Fila, 2) = ""
BD.Cells(Fila, 3) = ""
BD.Cells(Fila, 4) = ""
BD.Cells(Fila, 7) = ""
BD.Cells(Fila, 8) = ""
BD.Cells(Fila, 9) = ""
BD.Cells(Fila, 11) = ""
BD.Cells(Fila, 12) = ""
BD.Cells(Fila, 13) = ""

Unload Me
End Sub[/CODE]

ESTE ES DEL BOTON MODIFICAR:

[CODE]Private Sub BtnGrabarDatos_Click()
x = RG.Range("F" & Rows.Count).End(xlUp).Row + 1

BD.Rows(Fila).Copy RG.Rows(x)
RG.Range("N" & x) = Date
RG.Range("O" & x) = MoEstado.Text
RG.Range("P" & x) = MoMotivo.Text
RG.Range("Q" & x) = MoJustificación

BD.Cells(Fila, 2) = CDbl(MoCodigo)
BD.Cells(Fila, 3) = MoCategoria

If IsNumeric(MoFactura) Then
BD.Cells(Fila, 4) = CDbl(MoFactura)
Else
BD.Cells(Fila, 4) = MoFactura
End If

If IsNumeric(MoReferencia) Then
BD.Cells(Fila, 7) = CDbl(MoReferencia)
Else
BD.Cells(Fila, 7) = MoReferencia
End If

BD.Cells(Fila, 8) = MoDescripcion
BD.Cells(Fila, 9) = MoFecha
BD.Cells(Fila, 11) = Date
BD.Cells(Fila, 12) = MoEstado.Text
BD.Cells(Fila, 13) = CDbl(MoUnitario)

Unload Me
End Sub[/CODE]

ven? es ilogico que agreegue columnas que nada tienen que ver al registro

DEPRECIACION 23.rar

[aprendiz]

alguien me ayuda con este sencillo codigo? que para un simple mortal iniciado no logra resolver? solo em falta el registro para dar como solucionado el tema me refiero al registro

DEPRECIACION 30.rar