Guardar encabezado y detalle

[Muscaria]

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

[Celest3]

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

[Muscaria]

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

[joshua]

Saludos.

De principio el subirlo a megaupload ya es un problema, recuerda que la mayoria de miembros no tienen acceso a este tipo de servidores, una buena alternativa y mucho más accesible seria utilizar SkyDrive.

Atte.

joshua

[Muscaria]

Joshua,

garcias por avisar adjunto vinculo de SkyDrive, espero que con eso puedan darle un vistazo mi archivo y darme un consejo para solucionarlos.

https://skydrive.live.com/?cid=83f852d07de8a083&Bsrc=EMSHYH&Bpub=SN.Notifications&id=83F852D07DE8A083%21111

Saludos

Muscaria

[joshua]

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

[Celest3]

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

[joshua]

Saludos Celest3.

La verdad no te entiendo seria bueno subieras tu archivo con la misma estructura (formastos,rayado, etc), con datos ficticios y una descripción clara y grafica de lo que quieres.

Atte.

joshua

[Muscaria]

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

[Celest3]

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