UserForm no operativo

[manuelillo]

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




[/CODE]

mi conta.xls

[manuelillo]

buaaaaaaaaaa¡¡¡¡¡¡¡ necesito ayuda. Un saludo y gracias.

[cexarto]

Hola

He visto el archivo adjunto , pero la macro al parecer esta incompleta. Cuando le das click en ACEPTAR en el Formulario , no hay ningun codigo que escriba en las celdas de la Hoja "Conta".Tienes el archivo Original para poder revisarlo y ver como se puede adaptar a lo que quieres realizar??

Saludos

[manuelillo]

te lo subo .Un saludo.

mi conta.zip

[cexarto]

Hola , estaba intentando modificar las formulas de los gastos de Hogar y de alimentacion ya que estan escritas incorrectamente. Pero al guardar los cambios y volver a abrir el archivo aparece un error en la Apertura y se me cierra el Excel(posiblemente por el exceso de formato de las celdas). Aun asi , me parece un esquema muy interesante para trabajarlo.

Te propongo algo : Crea un Libro con 05 Hojas. La primera hoja sera un menu donde podras ingresar los datos y ver los reportes. Esta Hoja se llamara Menu. Cada una de las otras cuatro hojas seran respectivamente Gastos , Ingresos , Hogar y Alimentacion . Y en cada una de estas 04 hojas le ingresas los rubros que desees. Y los llenas con datos aleatorios(Fecha , descripcion e importe). Ademas puedes colocarle los colores y formato que desees

Teniendo estas 04 hojas con datos , en la Hoja Menu yo voy a escribir el codigo para que ingreses nuevos datos ; y otra macro para que puedas ver los reportes filtrando por fechas , rubros y un estado de resultados.

Saludos

Visita mi web para descargar otras macros : www.guerrillaexcel.com

[manuelillo]

gracias cexarto, a la espera de tú archivo e iré armando el mío, despacito pero sin pausa.Un saludo. Tema solucionado.