Hola, Estoy haciendo un trabajito, el cual lo tengo casi listo, éste
se alimenta de algunos datos de la Planilla Excel y despues inserto
todos estos datos en una base de Datos del Mismo Libro. Pero estoy
complicado con el Resultado de 2 TextBox, uno de estos es (ingresos
(textbox3) y otro Egresos (textbox4)), por lo tanto debo hacer una
resta con estos Textbox...
El problema es que no logro que me muestre el resultado en el
Combobox5 y me inserte en la base de Datos "Detalle_Gastos"
Este es el codigo..
************************************************************
Private Sub CommandButton1_Click()
Dim lRow As Long
Dim lPart As Long
Dim ws As Worksheet
Set ws = Worksheets("Detalle_Gastos")
'Busca la fila vacia en la BD
lRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
lPart = Me.ComboBox1.ListIndex
'Chequea el Codigo del Socio
If Trim(Me.ComboBox1.Value) = "" Then
Me.ComboBox1.SetFocus
MsgBox "Por Favor, ingrese un Codigo"
Exit Sub
End If
'Copya en la Base de Datos
With ws
.Cells(lRow, 1).Value = Me.ComboBox1.Value
.Cells(lRow, 2).Value = Me.ComboBox1.List(lPart, 1)
.Cells(lRow, 3).Value = Me.ComboBox2.Value
.Cells(lRow, 4).Value = Me.TextBox1.Value
.Cells(lRow, 5).Value = Me.TextBox2.Value
.Cells(lRow, 6).Value = Me.TextBox3.Value
.Cells(lRow, 7).Value = Me.TextBox4.Value
' Este es el dato que va a la Base de datos, y no lo inserta
`******************************************************
.Cells(lRow, 8).Value = Me.TextBox5.Text
'*****************************************************
.Cells(lRow, 9).Value = Me.TextBox6.Value
End With
'Limpia las variables
Me.ComboBox1.Value = ""
Me.ComboBox2.Value = ""
Me.TextBox1.Value = ""
Me.TextBox2.Value = Format(Date, "Medium Date")
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = Format(Saldo, "#,##.00")
Me.TextBox6.Value = 0
Me.ComboBox1.SetFocus
End Sub
Private Sub UserForm_Initialize()
Dim codigolist As Range
Dim codigoDepto As Range
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("Tabla_socios")
Set ws2 = Worksheets("Tabla_deptos")
' Defini estas variables pero no pasa nada
ing = Val(TextBox3.Text)
egr = Val(TextBox4.Text)
Saldo = ing - egr
For Each codigolist In ws1.Range("codigolist")
With ComboBox1
.AddItem codigolist.Value
.List(.ListCount - 1, 1) = codigolist.Offset(0, 1).Value
End With
Next codigolist
For Each codigoDepto In ws2.Range("codigoDepto")
With ComboBox2
.AddItem codigoDepto.Value
.List(.ListCount - 1, 1) = codigoDepto.Offset(0, 1).Value
End With
Next codigoDepto
TextBox1.Value = 0
TextBox2.Value = Format(Date, "Medium Date")
TextBox3.Value = 0
TextBox4.Value = 0
****************************************
TextBox5.Text = Saldo ' se supone que aqui esta el resultado pero
nada
'****************************************
TextBox6.Value = 0
ComboBox1.SetFocus
End Sub
Leer las respuestas