Tengo una hoja que copie de este foro sobre contabilidad casera, la estoy adaptando para mi casa, pero el combobox no sale lo que quiero, cuándo le doy al botón asiento , sale el formulario, pero no se queda lo que escribo en las celdas que le digo,el caso es que si selecciona la celda pero no escribe. Supongo que viendo el archivo será mejor.
Este es código :
Private Sub UserForm_Click()
Private Sub aceptar1_Click()
If Not IsNumeric(TextBox2) Then
MsgBox "EEEhhhh!!!!. En el apartado Cantidad debe indicar sólo números", vbOKOnly Or vbCritical
Else
Hide
End If
End Sub
Private Sub Cancelar1_Click()
Hide
End Sub
Private Sub gasto1_Initialize()
ComboBox1.AddItem "Gasolina"
ComboBox1.AddItem "Guaska"
ComboBox1.AddItem "Bajera"
ComboBox1.AddItem "695"
ComboBox1.AddItem "propano"
ComboBox1.AddItem "corte ingles"
ComboBox1.AddItem "seguro casa "
ComboBox1.AddItem "seguro coche"
ComboBox1.AddItem "lUZ"
ComboBox1.AddItem "654"
ComboBox1.AddItem "tELEFONO FIJO"
ComboBox1.AddItem "UCI"
ComboBox1.AddItem "REFI"
ComboBox1.AddItem "RURAL"
ComboBox1.AddItem "Agua"
ComboBox1.AddItem "ESCALERA"
ComboBox1.AddItem "Ocio"
ComboBox1.AddItem "Viajes, hoteles, turismo"
ComboBox1.AddItem "Otras Compras"
ComboBox2.AddItem "Varios"
ComboBox2.AddItem "Verdura"
ComboBox2.AddItem "Mercadona"
ComboBox2.AddItem "Carrefour"
ComboBox2.AddItem "Tabaco"
ComboBox2.AddItem "Eroski"
ComboBox2.AddItem "Carne"
ComboBox2.AddItem "Eleclerq"
End Sub
Private Sub fecha11_Change()
Range("O25:O50").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Private Sub hogar1_Click()
Range("P25:P50").Select
ActiveCell.FormulaR1C1 = ComboBox1
End Sub
Private Sub cantidad11_Change()
Range("Q25:Q50").Select
ActiveCell.FormulaR1C1 = TextBox2
End Sub
Private Sub Fecha2_Change()
Range("S25:S50").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub
Private Sub alimentacion2_Click()
Range("T25:T50").Select
ActiveCell.FormulaR1C1 = ComboBox2
End Sub
Private Sub Cantidad2_Change()
Range("U25:U50").Select
ActiveCell.FormulaR1C1 = TextBox4
End Sub
Tengo una hoja que copie de este foro sobre contabilidad casera, la estoy adaptando para mi casa, pero el combobox no sale lo que quiero, cuándo le doy al botón asiento , sale el formulario, pero no se queda lo que escribo en las celdas que le digo,el caso es que si selecciona la celda pero no escribe. Supongo que viendo el archivo será mejor.
Este es código :
mi conta.xls