Jump to content

Guardar encabezado y detalle


Muscaria

Recommended Posts

Amigos, veran tengo esta macro para guardar datos de una proforma,solo debe guardar encabezados y el detalle, pero lo que hace es guardar solo el detalle (Cantidad,Dcs_actividad,semana) y el resto no lo guarda (sector,responsable,etc) y lo poco que guardalo hace mal por ejemplo.

- guardar solo 3 campos, en la hoja dbreal, que es un historico.

- lo que guardar lo hace muy bajo com sigue el corralativo de las filas ejem. 1er registro lo guarda en la fila 120 el 2do registro en la fila 500, y asi sucesivamente.

yo trte de buscar el problea a estos inconvenientes pero no lo encuentro. Recurro al apoyo del foro para resolver este inconveniente y a la vez aprender a identificar estas situaciones.

muchas gracias, y la espera de su colaboración

MEGAUPLOAD - The leading online storage and file delivery service

Disculpen por subir mi archivo en otro servidor, pero pesa un poquito mas de lo permitido, espero que no sea un problema.

Saludos

Muscaria

Link to comment
Share on other sites

Hola Muscaria,

lo que estas haciendo es como una factura o orden de compra verdad? yo también, busca algo asi baje tu archivo pero falta esa parte del guardar, si es que ya lo terminaste puedes subir el archivo para adaptarlo a mis necesidades.

saludos,

Celeste

Link to comment
Share on other sites

Hola Celest3,

como no en cuanto este listo lo comparto para que otros que tengan el mismo problema pueden resolverlo, pero como digo cuendo este listo ya que hasta ahora no he podido dar con la solución. lamentablemente mis conocimientos son de novato, por eso subi mi archivo a ver si algun maestro del foro me da una ayuda para resolverlo.

ojala pronto tenga una repuesta.

saludos

muscaria

Link to comment
Share on other sites

Saludos Muscaria.

Cambia la macro del boton guardar por la siguiente

Private Sub cmdguardar_Click()
'Boton para cerrar orden
'Sheets("formulario").Unprotect "10"
Application.ScreenUpdating = False
'Se selecciona la hoja donde se encuentra la cotizacion y se selecciona el rango d18
Sheets("formulario").Activate
Sheets("formulario").Range("C13").Select
'Pregunta si se desea cerrar la orden de compra para ya no ingresar articulos.
YesNo = MsgBox(" Al cerrar ya no podra agregar al Pre actual..... ¿Esta seguro de Cerrar ? ", vbYesNo + vbCritical, "Atencion")
Select Case SiNo
'Si la respuesta es SI
Case vbSi
'Valida si se tiene unicamente una linea la orden de compra para colocar el titulo y si se han ingresado datos
If ActiveCell(1, 0).Value = Empty Then
MsgBox ("No ha ingresado datos")
Exit Sub
Else
'Se selecciona la ultima linea para colocar el titulo de ultima linea de la orden de compra
ActiveCell.Offset.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell = "********** U L T I M A L I N E A **********"
ActiveCell.Offset(0, -1) = "*"
'Se coloca formato rojo
Selection.Font.ColorIndex = 3
Selection.Font.Bold = True
End If
'Hace visibles los botones cerrar orden e imprimir
cmdimprimir.Visible = True
cmdnuevo.Enabled = True
'Oculta botones de cerrar orden y de agregar articulos a orden de compra
cmdguardar.Enabled = False
frmpresupuesto.Frame1.Enabled = False
frmpresupuesto.Frame2.Enabled = False
frmpresupuesto.Frame3.Enabled = False
'Coloca el lista de articulos en blanco
ListBox1.RowSource = Empty
ListBox2.RowSource = Empty
'Se traslada al historico el numero de la cotizacion cerrada
'Sheets("Dbreal").Range("r1") = lbconta.Caption
'Se traslada al historico para copiar la informacion de la orden de compra
'**********joshua***********
Range("B14").Select
Do Until ActiveCell = "*"
Sheets("Dbreal").Range("A65536").End(xlUp).Offset(1, 0).Resize(, 10) = _
Array(ActiveCell, ActiveCell.Offset(, 1), ActiveCell.Offset(, 2), CBCULTIVO, CBSECTOR, _
CBVARIEDAD, cbrubro, lbconta, txtresponsable, Format(Now, "dd/mm/yyyy"))
ActiveCell.Offset(1, 0).Select
Loop
'**********joshua*************
'Si la respuesta es NO se cancela la operacion
Case vbNo
MsgBox ("Operacion cancelada")

End Select
Sheets("formulario").Activate
Application.ScreenUpdating = True
'Sheets("formulario").Protect "10"
End Sub

[/PHP]

Es una simple combinación de un bucle y un array, espero te sea de utilidad.

Atte.

joshua

Link to comment
Share on other sites

Hola Joshua, yo estaba haciendo algo parecido a Muscaria, he cambiado el código con el que tu has puesto, y si me funciona, mo me corria el contador pero viendo el codigo vi que la linea del contador estaba con ' le quite a ya corre, muchas gracias.mira siguendo este tema algo que me paso hoy estaba haciendo una orden llevaba 3 lineas y me llamaron de urgencia y tuve que cerrar la orden, cuando aun me faltaba ingresar mas cosas.Creo que muscaria, se le apso o no necesita esta opcion pero ami asi, nose si sera un boton que lo guarde pero no cierra y regreso a seguir haciendo esa orden.Espero que se me entienda lo que quiero decir y sea posible ayudarme. dfame una ayuda de como a hacerlo, asi como me ayudo Cacho R. y ahora estoy aprendiendo . SaludosCelest3

Link to comment
Share on other sites

joshua,

garcias por tu ayuda en el guardar, si me funciono, disculpa la demora en responder.

A celest3, amiga veras no me habia dado cuenta de ese detalle creo que si seria bueno tenerlo asi que avance y diseñe un formulario para eso y lo codifique, pero hay algunos problemas y dudas que se presentan y denuevo a pedir apoyo al foro.

1.- cuando selecciono un numero de presupuesto, me jala todos los datos que hay en la dbreal.

2.- y duda es al guardar. por ejemplo si escojo el pre N° 2 que tiene un item y de ahi segue el pre N° 3 cuando quiero agregar mas item al Pre N° 2 nose como seria por que tendria que agregarse una fila entre el pre- n° 2 y 3, pero ni idea como hacer esto .

Por favor alguien del foro nos pueda ayudar,

celet3, no hay ningun problema que me uses los formulariso que uso solo adaptarlos o lo que tu necesites, y ojala nos den ayuda a los dos, y si por ahi tienes algún conocimiento o opinión sobre el tema seran bien aceptados.

Adjunto Link para su descarga y puedan revisarlo y darme algun ejemplo o recomendacion sobre esta duda

https://skydrive.live.com/redir.aspx?cid=83f852d07de8a083&resid=83F852D07DE8A083!111

Link to comment
Share on other sites

Hola muscaria,que paso nada ninguna ayuda, yo estuve viendo tu archivo y bueno gracias por dejar que lo pueda usar si me vale para lo que quiero, pero parece que nos vamos a quedar en el mismo punto.voy por ahi averiguar com ayudarte desde que ingrese a este foro y tuve la ayuda de Cacho R, como que me gusta un poco y me baje algunos manuales que se llama el Code de Vba. parece muy complemento. buscare la manera de ayudar ya que paar eso es un foro de ayuda o n o ? SaludosCelest3

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy