Introducir datos dependiendo del mes

Hola javi10,

No estaria demas que expusieras un poco mas de detalle sobre como esta construida tu base de datos, el codigo que usas y los
controles que tienen tus multiples formularios, en fin, para que tambien podamos ver por donde van los tiros. De hecho, si puedes
colocar tu fichero en algun ftp y darnos un link - mejor.

Saludso,
KL


"javi10" wrote in message news:

Hola...

Necesitaria hacer un formulario que, dependiendo del mes (seleccionado
de un desplegable ) sobre el que quiera introducir los datos , me
guarde los valores en una fila o en otra.
Hasta ahora lo hago con 12 formularios (uno para cada mes) pero el
problema que tengo es que, por ejemplo, si introduzco 4 registros en
Noviembre, cuando introduzco los de Diciembre, me los introduce 4
registro mas abajo de lo que le tenia programado.

Saludos

Hola de nuevo,

Mientras tanto prueba el ejemplo que te he colocado en el siguiente enlace:

http://www.telefonica.net/web/kl/VB...Months.xls

Saludos,
KL


"KL" wrote in message news:

Hola javi10,

No estaria demas que expusieras un poco mas de detalle sobre como esta construida tu base de datos, el codigo que usas y los
controles que tienen tus multiples formularios, en fin, para que tambien podamos ver por donde van los tiros. De hecho, si puedes
colocar tu fichero en algun ftp y darnos un link - mejor.

Saludso,
KL


"javi10" wrote in message news:

Hola...

Necesitaria hacer un formulario que, dependiendo del mes (seleccionado
de un desplegable ) sobre el que quiera introducir los datos , me
guarde los valores en una fila o en otra.
Hasta ahora lo hago con 12 formularios (uno para cada mes) pero el
problema que tengo es que, por ejemplo, si introduzco 4 registros en
Noviembre, cuando introduzco los de Diciembre, me los introduce 4
registro mas abajo de lo que le tenia programado.

Saludos

Hola. No tengo ningun ftp en el que pueda colgarlo.Os he colgado una
foto en
para que podais ver lo que tengo.
Os explico un poco.
Estoy con Excel haciendo un tema personal de facturacion. Hasta ahora
tenia mi hoja en la que introducia los valores "a pelo".
Lo que pasa, es que para evitar posibles errores a la hora de
introducir los datos queria automatizarlo y evitar problemas.
Hasta ahora estoy introduciendo en filas lo siguiente:
Nombre Particular Colaboracion Precio Fecha1 Fecha2 Fecha3
Fecha4 Fecha5

Para hacerlas del "tiron" no tengo problemas porque me las escribe
todas en filas una debajo de otra.(esto o hago con
"NextRow = Application.WorksheetFunction.CountA(Range("A:A")) + 3
Cells(NextRow, 1) = TextName.Text"
Claro, el problema es que me suma todos los registro que he introducido
y no me los separa por meses como yo quiero...
Lo que quiero hacer es definir por ejemplo, Noviembre desde la fila 3 a
la 30 y que me introduzca los datos en funcion de las filas que tengo
rellenas entre esas filas y no respecto al total de filas rellenas.
No se si se me entiende bien

Con todo y con eso, os envio el codigo en VBA que estoy usando:
Private Sub BotAcep_Click()

Sheets("Hoja1").Activate

If TextName.Text = "" Then
MsgBox "Debe introducir un nombre."
TextName.SetFocus
Exit Sub
End If

If TextBox1.Text = "" Then
MsgBox "Debe introducir un precio."
TextName.SetFocus
Exit Sub
End If

'Ahora la posicion donde voy a escribir
'los valores introducidos en el formulario

NextRow = Application.WorksheetFunction.CountA(Range("A:A")) + 3
Cells(NextRow, 1) = TextName.Text

'Ahora si Particular o Colaboración
If OpcionPart Then Cells(NextRow, 2) = "Particular"
If OpcionColab Then Cells(NextRow, 3) = "Colaboración"

TextName.Text = ""
OpcionPart = True
TextName.SetFocus

'Ahora donde voy a escribir el resto de entradas

Cells(NextRow, 4) = TextBox1.Text
Cells(NextRow, 5) = TextBox2.Text
Cells(NextRow, 6) = TextBox3.Text
Cells(NextRow, 7) = TextBox4.Text
Cells(NextRow, 8) = TextBox5.Text
Cells(NextRow, 9) = TextBox6.Text

End Sub

Private Sub BotCanc_Click()
Unload UserForm1
End Sub

Private Sub CommandButton1_Click()

End Sub

Private Sub Frame1_Click()

End Sub

Private Sub OptionButton2_Click()

End Sub

Private Sub OptionButton5_Click()

End Sub

Private Sub OpcionColo_Click()

End Sub

Private Sub OpcionManch_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub UserForm_Click()

End Sub