From principal muestra información errónea en el label del from
Para Dante
Disculpa la molestia mita tengo un problema ya casi termino de configurar mi pequeño programa pero ahora el from principal me muestra el label información errónea ya revise el código varias veces he estado desde la mañana pero nada no encuentro nada te adjunto imágenes para ver si me puedes ayudar a solucionar este problema
Me muestra en entrada la palabra me en salida día y en efectivo caja motivo, y hay debería mostrar cantidades me puedes ayudar por favor he buscado todo el día el error pero no lo encuentro
Respuesta de Dante Amor
1
Así quedaría el código para guardar
Private Sub CommandButton1_Click()
'Por.Dante Amor
'Pasar los datos del form a la hoja
If ComboBox1.ListIndex = -1 Or ComboBox1 = "" Then
MsgBox "Selecciona el mes requerido"
ComboBox1.SetFocus
Exit Sub
End If
If TextBox2.Value = "" Then
MsgBox "Necesita tener una Cantidad para guardar"
ComboBox1.SetFocus
Exit Sub
End If
'
If ComboBox2 <> "" Then
With Sheets(ComboBox1.Value)
vf = .Range("B3:B1000000").Find(ComboBox2, LookIn:=xlValues).Row
If vf <> "" Then
MsgBox "Se intentando ingresar un dia duplicado", vbCritical, "AVISO"
Exit Sub
End If
Set h = Sheets(ComboBox1.Value)
u = h.Range("A" & Rows.Count).End(xlUp).Row + 1
h.Cells(u, "A").Value = ComboBox1.Value
h.Cells(u, "B").Value = ComboBox2.Value
h.Cells(u, "C").Value = TextBox1.Value
h.Cells(u, "D").Value = TextBox2.Value
'
'continuar con los demás controles
frm_sistema.Label1 = Format(Sheets("Hoja1").Range("B2").Value, "$#,##0.00")
frm_sistema.Label2 = Format(Sheets("Hoja1").Range("B3").Value, "$#,##0.00")
frm_sistema.Label3 = Format(Sheets("Hoja1").Range("B4").Value, "$#,##0.00")
frm_sistema.Label8 = Format(Sheets("Hoja1").Range("B5").Value, "$#,##0.00")
frm_sistema.Label10 = Format(Sheets("Hoja1").Range("B6").Value, "$#,##0.00")
'frm_sistema.Label3 = Format(Label3, "$#,##0.00")
'frm_sistema.Label1 = Format(Label1, "$#,##0.00")
'frm_sistema.Label2 = Format(Label2, "$#,##0.00")
'frm_sistema.Label8 = Format(Label8, "$#,##0.00")
'frm_sistema.Label10 = Format(Label10, "$#,##0.00")
MsgBox "Registrado"
'
TextBox3.Value = ""
TextBox5.Value = ""
End With
End If
End Subsal u dos
Dante que significa poner un row después de un FIND saludos! - Adriel Ortiz Mangia