............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

bases de datos

Ver el tema anterior Ver el tema siguiente Ir abajo

bases de datos

Mensaje por VERO el Jue Ene 15, 2009 1:49 pm

Hola, tengo un problema y no se como resolverlo, ojala y me puedan ayudar…
Tengo una plantilla de Excel, para que la llenen los vendedores, pero no se como hacer para que la información se vaya almacenando en una base de datos, en registros consecutivos, he usado formulas, pero tienen el error de que solo se guarda un registro, y cada que se modifica la plantilla, cambia ese unico registro, ojala y puedan ayudarme, gracias.
avatar
VERO

Cantidad de envíos : 8
Fecha de inscripción : 12/01/2009

Volver arriba Ir abajo

Re: bases de datos

Mensaje por GalileoGali el Jue Ene 15, 2009 10:38 pm

Se puede usar un Formulario del Menu datos, o un Formulario de Vba, o convertir la Hoja en Formulario, en el primer caso no hace falta VBA, pero es muy limitado, en los otros dos caso hay saber algo de codigo.
Sugerencia, subi tu archivo a algun Host Gratuito y pega el link de descarga
lo vemos y tratamos de resolver tu caso.

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: bases de datos

Mensaje por VERO el Vie Ene 16, 2009 4:48 pm

OK, GRACIAS, Y PODRIAS RECOMENDARME ALGUN HOTS EN ESPECIAL.
avatar
VERO

Cantidad de envíos : 8
Fecha de inscripción : 12/01/2009

Volver arriba Ir abajo

Re: bases de datos

Mensaje por GalileoGali el Vie Ene 16, 2009 5:39 pm

si skydrive para los usuaros de hotmail
esnips
rapidshare.de
megaupload

y si pones uploader en goggle apareceran muchisimos
(Trata de elegir aquellos que no bajan los archivos pasado cierto tiempo)

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: bases de datos

Mensaje por VERO el Vie Ene 16, 2009 8:16 pm

[Tienes que estar registrado y conectado para ver este vínculo]

Hola, esta es la liga para el archivo, esta es mi plantilla y me gustaria que todo lo que se llene se vaya almacenando en una base de datos como registros consecutivos…
Ojala y pudas ayudarme y si no, gracias de todos modos.
avatar
VERO

Cantidad de envíos : 8
Fecha de inscripción : 12/01/2009

Volver arriba Ir abajo

Re: bases de datos

Mensaje por GalileoGali el Vie Ene 16, 2009 10:42 pm

[Tienes que estar registrado y conectado para ver este vínculo]
en el adjunto encontraras un boton, que carag en la base los tres primeros campos y el ultimo Numero de Factura en la segunda hoja,
tendrias que continuar definiendo campos y encabezados en la tabla, el metodo es el mismopara todos los campso que te faltan...
Código:
Option Explicit

Sub cargarBase()
Dim ultfila As Long
If [j35] = "" Then
MsgBox "Debe consignar Nro factura"
Exit Sub
End If
ultfila = Hoja2.Cells(Rows.Count, "A").End(xlUp).Row + 1
Hoja1.Activate
With Hoja2
.Cells(ultfila, "A") = [j35]: [j35].MergeArea.ClearContents
.Cells(ultfila, "B") = [c8]: [c8].MergeArea.ClearContents
.Cells(ultfila, "C") = [c10]: [c10].MergeArea.ClearContents
.Cells(ultfila, "D") = [c12]: [c12].MergeArea.ClearContents

End With
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: bases de datos

Mensaje por VERO el Lun Ene 19, 2009 12:57 pm

Mil gracias, es justo lo que necesitaba…
No tienes idea de lo mucho que intente hacer una formula, porque debo confesar que mis conocimientos en macros y programación son muy bajos, espero poder aprender un poco, pero si en algo puedo ayudar a alguno de los usuarios de este sitio, lo haré con gusto, otra vez muchas gracias.
avatar
VERO

Cantidad de envíos : 8
Fecha de inscripción : 12/01/2009

Volver arriba Ir abajo

Re: bases de datos

Mensaje por VERO el Lun Ene 19, 2009 1:17 pm

Perdón, tengo una duda, es posible que su guarde todo pero en otro archivo?
Ya le cambie al código pero no funciono y también quisiera saber si se puede hacer algo para que no permita repetir el numero de factura.
avatar
VERO

Cantidad de envíos : 8
Fecha de inscripción : 12/01/2009

Volver arriba Ir abajo

Re: bases de datos

Mensaje por jairga el Lun Ene 19, 2009 3:52 pm

Hola vero si se puede, pero lleva algo de programacion y si dices que no sabes mucho de VBA seria hacerte lo que pides y llevaria algo de tiempo y disponibilidad de algun o algunos miembros del foro. pero tienes otra opcion con Acces y el ayudante tendrias un buen comienzo, si lo quieres en excel planifica bien lo que quieres hacer y veo de mi parte que puedo aportarte.

saludos

jairga
Moderador
Moderador

Masculino Cantidad de envíos : 163
Edad : 40
Ciudad - Pais : Cartagena-Barranquilla(Colombia)
Version de Excel : XP-2003-2007
Fecha de inscripción : 11/03/2008

Volver arriba Ir abajo

Re: bases de datos

Mensaje por VERO el Lun Ene 19, 2009 6:19 pm

Ok, muchas gracias, voy a tratar de resolverlo por mi cuenta, pero si no puedo, entonces te molesto para solicitar y aceptar tu ayuda…
Otra vez gracias por tu interes.
avatar
VERO

Cantidad de envíos : 8
Fecha de inscripción : 12/01/2009

Volver arriba Ir abajo

Re: bases de datos

Mensaje por jairga el Lun Ene 19, 2009 7:09 pm

ok, no es ninguna molestia lo que sé, que es poquito en VBA lo he aprendido en foros. aunque tengo que reconocer que aqui el ambiente del foro es excelente y el trato con los miembros tambien.

jairga
Moderador
Moderador

Masculino Cantidad de envíos : 163
Edad : 40
Ciudad - Pais : Cartagena-Barranquilla(Colombia)
Version de Excel : XP-2003-2007
Fecha de inscripción : 11/03/2008

Volver arriba Ir abajo

Re: bases de datos

Mensaje por VERO el Lun Ene 19, 2009 7:54 pm

Hola, he estado trabajando sobre el código que me hicieron el favor de enviar y haciendo unos cambios vi que es posible guardarlo de acuerdo al nombre del vendedor en una hoja distinta, quisiera que me ayudaran a hacer lo mismo, pero en lugar de guardarse en diferentes hojas que se guarde en diferentes archivos.
Espero haberme explicado, si el vendedor es vallejo, entonces se guarda en la hoja3, y lo que quiero es que se guarde en un archivo llamado vallejo.
Ojala y puedan ayudarme, este es el código;
Sub cargarBase()
Dim ultfila As Long
If [a1] = "Guasso" Then
ultfila = Hoja2.Cells(Rows.Count, "A").End(xlUp).Row + 1
Hoja1.Activate
With Hoja2
.Cells(ultfila, "A") = [j35]: [j35].MergeArea.ClearContents
.Cells(ultfila, "B") = [c8]: [c8].MergeArea.ClearContents
.Cells(ultfila, "C") = [c10]: [c10].MergeArea.ClearContents
.Cells(ultfila, "D") = [c12]: [c12].MergeArea.ClearContents
.Cells(ultfila, "E") = [c14]: [c14].MergeArea.ClearContents
.Cells(ultfila, "F") = [i14]: [i14].MergeArea.ClearContents
.Cells(ultfila, "G") = [c16]: [c16].MergeArea.ClearContents
.Cells(ultfila, "H") = [f16]: [f16].MergeArea.ClearContents
.Cells(ultfila, "I") = [j16]: [j16].MergeArea.ClearContents
.Cells(ultfila, "J") = [c18]: [c18].MergeArea.ClearContents
.Cells(ultfila, "K") = [h18]: [h18].MergeArea.ClearContents
.Cells(ultfila, "L") = [c20]: [c20].MergeArea.ClearContents
.Cells(ultfila, "M") = [f20]: [f20].MergeArea.ClearContents
.Cells(ultfila, "N") = [j20]: [j20].MergeArea.ClearContents
.Cells(ultfila, "O") = [c22]: [c22].MergeArea.ClearContents
.Cells(ultfila, "P") = [d24]: [d24].MergeArea.ClearContents
.Cells(ultfila, "Q") = [f24]: [f24].MergeArea.ClearContents
.Cells(ultfila, "R") = [h24]: [h24].MergeArea.ClearContents
.Cells(ultfila, "S") = [j24]: [j24].MergeArea.ClearContents
.Cells(ultfila, "T") = [l24]: [l24].MergeArea.ClearContents
.Cells(ultfila, "U") = [c26]: [c26].MergeArea.ClearContents
.Cells(ultfila, "V") = [c28]: [c28].MergeArea.ClearContents
.Cells(ultfila, "W") = [c30]: [c30].MergeArea.ClearContents
.Cells(ultfila, "X") = [c31]: [c31].MergeArea.ClearContents
.Cells(ultfila, "Y") = [c33]: [c33].MergeArea.ClearContents
.Cells(ultfila, "Z") = [c35]: [c35].MergeArea.ClearContents
End With
Else
If [a1] = "Vallejo" Then
ultfila = Hoja3.Cells(Rows.Count, "A").End(xlUp).Row + 1
Hoja1.Activate
With Hoja3
.Cells(ultfila, "A") = [j35]: [j35].MergeArea.ClearContents
.Cells(ultfila, "B") = [c8]: [c8].MergeArea.ClearContents
.Cells(ultfila, "C") = [c10]: [c10].MergeArea.ClearContents
.Cells(ultfila, "D") = [c12]: [c12].MergeArea.ClearContents
.Cells(ultfila, "E") = [c14]: [c14].MergeArea.ClearContents
.Cells(ultfila, "F") = [i14]: [i14].MergeArea.ClearContents
.Cells(ultfila, "G") = [c16]: [c16].MergeArea.ClearContents
.Cells(ultfila, "H") = [f16]: [f16].MergeArea.ClearContents
.Cells(ultfila, "I") = [j16]: [j16].MergeArea.ClearContents
.Cells(ultfila, "J") = [c18]: [c18].MergeArea.ClearContents
.Cells(ultfila, "K") = [h18]: [h18].MergeArea.ClearContents
.Cells(ultfila, "L") = [c20]: [c20].MergeArea.ClearContents
.Cells(ultfila, "M") = [f20]: [f20].MergeArea.ClearContents
.Cells(ultfila, "N") = [j20]: [j20].MergeArea.ClearContents
.Cells(ultfila, "O") = [c22]: [c22].MergeArea.ClearContents
.Cells(ultfila, "P") = [d24]: [d24].MergeArea.ClearContents
.Cells(ultfila, "Q") = [f24]: [f24].MergeArea.ClearContents
.Cells(ultfila, "R") = [h24]: [h24].MergeArea.ClearContents
.Cells(ultfila, "S") = [j24]: [j24].MergeArea.ClearContents
.Cells(ultfila, "T") = [l24]: [l24].MergeArea.ClearContents
.Cells(ultfila, "U") = [c26]: [c26].MergeArea.ClearContents
.Cells(ultfila, "V") = [c28]: [c28].MergeArea.ClearContents
.Cells(ultfila, "W") = [c30]: [c30].MergeArea.ClearContents
.Cells(ultfila, "X") = [c31]: [c31].MergeArea.ClearContents
.Cells(ultfila, "Y") = [c33]: [c33].MergeArea.ClearContents
.Cells(ultfila, "Z") = [c35]: [c35].MergeArea.ClearContents
End With
Else
End If
End If
MsgBox "Debe asignar Nro factura"
Exit Sub
End Sub
avatar
VERO

Cantidad de envíos : 8
Fecha de inscripción : 12/01/2009

Volver arriba Ir abajo

Re: bases de datos

Mensaje por GalileoGali el Mar Ene 20, 2009 8:24 pm

Código:
Option Explicit

Sub cargarBase()
Dim ultfila As Long
'alcanzara con que las Hojas lleven Nombres de los vendedores, es decir llamas a la Hoja2 "Guasso" y a la Hoja3 = "Vallejo"
'entonces reduces  los pasos a lo siguiente:
ultfila = Worksheets([a1].Value).Cells(Rows.Count, "A").End(xlUp).Row + 1
Hoja1.Activate
With Worksheets([a1].Value)
.Cells(ultfila, "A") = [j35]: [j35].MergeArea.ClearContents
.Cells(ultfila, "B") = [c8]: [c8].MergeArea.ClearContents
.Cells(ultfila, "C") = [c10]: [c10].MergeArea.ClearContents
.Cells(ultfila, "D") = [c12]: [c12].MergeArea.ClearContents
.Cells(ultfila, "E") = [c14]: [c14].MergeArea.ClearContents
.Cells(ultfila, "F") = [i14]: [i14].MergeArea.ClearContents
.Cells(ultfila, "G") = [c16]: [c16].MergeArea.ClearContents
.Cells(ultfila, "H") = [f16]: [f16].MergeArea.ClearContents
.Cells(ultfila, "I") = [j16]: [j16].MergeArea.ClearContents
.Cells(ultfila, "J") = [c18]: [c18].MergeArea.ClearContents
.Cells(ultfila, "K") = [h18]: [h18].MergeArea.ClearContents
.Cells(ultfila, "L") = [c20]: [c20].MergeArea.ClearContents
.Cells(ultfila, "M") = [f20]: [f20].MergeArea.ClearContents
.Cells(ultfila, "N") = [j20]: [j20].MergeArea.ClearContents
.Cells(ultfila, "O") = [c22]: [c22].MergeArea.ClearContents
.Cells(ultfila, "P") = [d24]: [d24].MergeArea.ClearContents
.Cells(ultfila, "Q") = [f24]: [f24].MergeArea.ClearContents
.Cells(ultfila, "R") = [h24]: [h24].MergeArea.ClearContents
.Cells(ultfila, "S") = [j24]: [j24].MergeArea.ClearContents
.Cells(ultfila, "T") = [l24]: [l24].MergeArea.ClearContents
.Cells(ultfila, "U") = [c26]: [c26].MergeArea.ClearContents
.Cells(ultfila, "V") = [c28]: [c28].MergeArea.ClearContents
.Cells(ultfila, "W") = [c30]: [c30].MergeArea.ClearContents
.Cells(ultfila, "X") = [c31]: [c31].MergeArea.ClearContents
.Cells(ultfila, "Y") = [c33]: [c33].MergeArea.ClearContents
.Cells(ultfila, "Z") = [c35]: [c35].MergeArea.ClearContents
End With

End Sub

Para que el proceso pueda ser hecho en otro libro, no es complicado, pero deberias evaluar si es absolutamente necesario. En ese caso eso necesitas:
Conocer el Metodo Workbooks.Open, como establecer un Path, por las dudas ThisworkBook.Path (puede ser muy util), algun pasito de programa (o Function) para comprobar si el libro a abrir, no estuviera abierto desde antes y despues algo más con el metodo Close, tambien para Workbook......
Despues que hayas leido algo de todo eso, seguimos con tu caso particular....

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: bases de datos

Mensaje por GalileoGali el Mar Ene 20, 2009 8:32 pm

Aclaracion: deberias concultarnos por MergeArea, para que lo entriendas, ya que si mal no recuerdo tu planilla de factura, no incluia en todos los casos, celdas combinadas, de corroborarse habria que utilizar MergeArea, solo en aquellos casos en que resulta necesario, ya que en Materia de Codigo, todo lo que sobra, rallentiza y entorpece la comprension del programa, tema éste, por el que debes preocuparte, desde tus comienzos...

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: bases de datos

Mensaje por VERO el Mar Ene 20, 2009 8:49 pm

Ok, gracias por tus consejos.
avatar
VERO

Cantidad de envíos : 8
Fecha de inscripción : 12/01/2009

Volver arriba Ir abajo

Re: bases de datos

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.