Jump to content

Oscar.Villatoro

Members
  • Content Count

    59
  • Joined

  • Last visited

About Oscar.Villatoro

  • Rank
    Advanced Member

Recent Profile Visitors

617 profile views
  1. Muchas gracias por tu intervención.... He de comentarte que modifiqué ésto " =microsoft.jet.oledb.4.0; " por uno más actualizado y bingo¡¡!! que me ha funcionado de maravilla, como lo solía hacer. Doy por cerrado el tema.... muchas gracias por tu valiosa atención Enigma25
  2. mUCHAS gracias mi estimado Enigma25 sabía de antemano, que podía contar con tu valiosa intervención.... Saludos cordiales. Por cierto, intento e intento subir el archivo Excel pero me marca error "Ha habido un problema procesando el fichero"...
  3. Saludos cordiales mis estimado amigos... Acá para molestarles con sus valioso apoyo... He estado intentando entrar en el mundo excel-access; todo iba de maravilla, hasta que he cambiado de version de excel, y el archivo que adjunto me funcionaba bien, sin embargo, ahora que pretendo migrar información de una hoja de excel hacia una base de Access me lanza un error. Preciso que me apoyen en ayudarme a corregir el asunto en cuestión. De antemano, muchas gracias por su valioso tiempo y apoyo. EL ERROR, ME LO MARCA CON AMARILLO EN ÉSTA LÍNEA: cn.Open "provider=microsoft.jet.oledb.4.0; " & "data source=" & ThisWorkbook.Path & "\CENTRAL_MED.mdb;" & _ "Jet OLEDB:Database Password=villatoro;" DEJO POR ACÁ EL QUERY QUE OBRA EN EL ARCHIVO DE EXCEL... LO DEJO ASÍ, YA QUE INTENTÉ EN REPETIDAS OCASIONES SUBIR EL ARCHIVO EXCEL, PERO ME MARCÓ ERROR... Sub exportaraccess() Dim cn As ADODB.Connection, rs As ADODB.Recordset, n As Long Dim nfila As String If [a2] = Empty Then MsgBox prompt:="NO HAY DATOS/INFORMACIÓN PARA EXPORTAR", Buttons:=vbOKOnly + vbCritical, Title:="FORMATO DE CARGA VACÍO" Exit Sub End If Set cn = New ADODB.Connection cn.Open "provider=microsoft.jet.oledb.4.0; " & "data source=" & ThisWorkbook.Path & "\CENTRAL_MED.mdb;" & _ "Jet OLEDB:Database Password=villatoro;" Set rs = New ADODB.Recordset rs.Open "Datos", cn, adOpenKeyset, adLockOptimistic, adCmdTable n = 2 Do While Range("a" & n) <> Empty With rs .AddNew .Fields("FECHA RECETA") = Range("a" & n).Value .Fields("FECHA DESPACHO") = Range("b" & n).Value .Fields("AÑO DESPACHO") = Range("c" & n).Value .Fields("MES DESPACHO") = Range("d" & n).Value .Fields("DIA DESPACHO") = Range("e" & n).Value .Fields("SERIE DOCUMENTO") = Range("f" & n).Value .Fields("NO DOCUMENTO") = Range("g" & n).Value .Fields("AFILIACION SALA") = Range("h" & n).Value .Fields("CODIGO") = Range("i" & n).Value .Fields("CANTIDAD DESPACHADA") = Range("j" & n).Value .Fields("CATEGORIA") = Range("k" & n).Value .Fields("OBSERVACIONES") = Range("l" & n).Value .Fields("ESTADO") = Range("m" & n).Value End With n = n + 1 Loop With rs .AddNew .Fields("FECHA RECETA") = Range("a" & n).Value .Fields("FECHA DESPACHO") = Range("b" & n).Value .Fields("AÑO DESPACHO") = Range("c" & n).Value .Fields("MES DESPACHO") = Range("d" & n).Value .Fields("DIA DESPACHO") = Range("e" & n).Value .Fields("SERIE DOCUMENTO") = Range("f" & n).Value .Fields("NO DOCUMENTO") = Range("g" & n).Value .Fields("AFILIACION SALA") = Range("h" & n).Value .Fields("CODIGO") = Range("i" & n).Value .Fields("CANTIDAD DESPACHADA") = Range("j" & n).Value .Fields("CATEGORIA") = Range("k" & n).Value .Fields("OBSERVACIONES") = Range("l" & n).Value .Fields("ESTADO") = Range("m" & n).Value End With Set rs = Nothing cn.Close Set cn = Nothing MsgBox prompt:="LA INFORMACIÓN FUE CARGADA CON ÉXITO", Buttons:=vbOKOnly, Title:="DATOS EXPORTADOS" If [a3] = Empty Then Range("a2", Selection.End(xlToRight)).ClearContents Exit Sub End If nfila = Range("A65535").End(xlUp).Row Range("A2:M" + nfila).ClearContents End Sub CENTRAL_MED.mdb
  4. Hola me podrias compartir el archivo Inventario activo fijo, me interesa llevar un control asi en mi puesto de trabajo de antemano gracias.

    lo he intentado descargar pero me da error.

     

    Salu2.xlsx

     

  5. wow¡¡!! excelente aporte¡¡!! Enigma25
  6. Saludos Manolo Oliva, muchas gracias por tus valioosos y motivadores comentarios. Y muy cierto, el aporte fue desarrollado para una entidad estatal, por cierto, fue mejorado en muchos más aspectos.
  7. Saludos Claudio23.... He realizado un agregado al código de VBA... hice algunas pruebas y me ha resultado que evitar el error que indicas.... Formulario Activex de entrada de datos_NEW.zip
  8. Saludos cordiales mi estimado Huatson70.... Oye¡¡!! excelente tu aporte.... muchas gracias por tu valiosa ayuda... De forma individual me ha funcionado de maravilla.... pronto lo estaré adaptando al proyecto y comentaré al respecto.... Nuevamente muchas gracias por tu apoyo...
  9. Saludos cordiales mis apreciados amigos¡¡!! He de comentarles que estoy en la elaboración de un archivo que me auxilie en el registro, control y seguimiento de la correspondencia que se maneja acá en el trabajo... Derivado de ello, he concebido implementar el asunto de escanear ya sea la carta, oficio o documento que se va como respuesta en atención a algún requerimiento .... ésto con la idea de que, al digitar el número que identifica el documento ( que es un correlativo único por cada año), el escaneado me figure en el browser que está incrustado en el userform.... De ello encontré un ejemplo que casi se adapta a mi necesidad, sin embargo, no consigo lograr que al momento de digitar el número del docto me muestre el escaneado... ( El ejemplo que localicé funciona al cien, al momento de examinar la ubicación del documento y unos cuantos clicks más). De antemano muchas gracias por su valioso apoyo e intervención en el planteamiento realizado... Adjunto el archivo. Cabe mencionar, que de ser posible el auxilio que me brinden, que luego de que el número sea consignado o escrito en la casilla, de manera automática me figure el documento escaneado.... (sin que de forma manual examine la ubicación del archivo) ( que por cierto, he guardado en una sóla carpeta los cientos de documentos escaneados en formato PDF) Nuevamente muchas gracias..¡¡!! Mostrar PDF en Excel _pruebas.zip
  10. wow¡¡!!! un aporte que me ha dejado asombrado... que excelente ¡¡!!
  11. descuida rodrigo_suarez... tú dime cuál será lo que necesitas que se te auxilie...
  12. saludos kukiyo... sería oportuno que subas el trabajo que ya llevas, y así estar en mejores condiciones para comprenderte y apoyarte según la medida de nuestras posibilidades...
  13. Estimados excelnautas... podrían auxiliarme en mi consulta....? gracias por su apoyo....
  14. Saludos cordiales a todos mis estimado excelnautas: Para comentarles que estoy realizando un pequeño aplicativo en mi puesto de trabajo, relacionado con la impresión de formularios, ya que al final de cada 4 meses debo de imprimir alrededor de 250 formularios, mismos que contienen un sin fin de información... bueno, el asunto de llenarlos lo he superado utilizando un buscarv y listo... sin embargo, veia que el tema de ir consignando número por número de formulario también me llevaba un poco de tiempo, por lo que intenté usar el siguiente código: Sub IMPRESION_DE_FORMULARIO() Application.ScreenUpdating = False Dim i As Long If (Sheets("IMPRESION_DAB06_102012_OTROS").Range("V5") * 1) * (Sheets("IMPRESION_DAB06_102012_OTROS").Range("W5") * 1) = 0 Then Exit Sub ' EVALUAMOS QUE EXISTA UN VALOR NUMERICO EN CADA UNA DE LAS CELDAS If WorksheetFunction.Count(Sheets("IMPRESION_DAB06_102012_OTROS").Range("V5"), Sheets("IMPRESION_DAB06_102012_OTROS").Range("W5")) < 2 Then Exit Sub 'EVALUAMOS EXISTA VALOR EN CADA UNA DE LAS CELDAS Application.ScreenUpdating = False For i = Sheets("IMPRESION_DAB06_102012_OTROS").Range("V5") To Sheets("IMPRESION_DAB06_102012_OTROS").Range("W5") 'SE TOMAN LOS DATOS DE INICIO HASTA EL FINAL With Sheets("IMPRESION_DAB06_102012_OTROS") 'INDICAMOS LA HOJA SOBRE LA QUE TRABAJAREMOS .Range("R3") = i 'DAMOS EL VALOR A LA CELDA Application.ScreenUpdating = False .PrintOut 'IMPRIMIMOS End With Next i End Sub y he de comentarles que me ha dado un excelente resultado y optimización de tiempo... (consignaba por ejemplo del número 1 al 50 y listo !!¡¡ iniciaba la impresión). Sin embargo, el inconveniente que se me ha presentado es que ahora se tiene identificado que formularios corresponden a un año y a otro... por ejemplo: para el año 2012 los formularios iniciaron con el correlativo 1 y terminaron en el 12,345 (1/2012 al 12,345/2012) y para el año 2013 inicia del 1 hasta donde termine en diciembre (1/2013).... he tratado de acoplar el código anterior, sin embargo me da error... considero que ha de ocurrir porque ya no es un valor numérico sino más bien combinado (23/2013) y es ahí donde ya no puedo más pensar en encontrar una solución... (cabe mencionar que los datos son capturados desde un formulario y trasladados a la hoja que contiene el formulario). Para comentarles que he intentado que me funcione omitiendo las 2 evaluaciones que se hacen al inicio... pero me sigue dando error... De antemano muchas gracias por su valiosa ayuda e intervención en la presente solicitud.
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 5112 personas - Aprender Excel - Total: 4.7 / 5