Jump to content

3 problemas en VBA


Recommended Posts

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy