Jump to content

Oscar.Villatoro

Members
  • Content Count

    59
  • Joined

  • Last visited

Everything posted by Oscar.Villatoro

  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. wow¡¡!! excelente aporte¡¡!! Enigma25
  5. 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.
  6. 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
  7. 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...
  8. 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
  9. wow¡¡!!! un aporte que me ha dejado asombrado... que excelente ¡¡!!
  10. descuida rodrigo_suarez... tú dime cuál será lo que necesitas que se te auxilie...
  11. 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...
  12. Estimados excelnautas... podrían auxiliarme en mi consulta....? gracias por su apoyo....
  13. 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.
  14. excelente aporte Enigma25
  15. Estimado Nikelodeum, sería conveniente que subieras un archivo a modo de ejemplo, no precisamente con la cantidad de datos que haz indicado, así como lo que haz intentando. De pronto, según veo tu ejemplo, considero que la formula CONSULTAV o BuscarV (según la versión que tengas), te funciona en algunos, ya que cuando copias la formula (hacia abajo) la matriz de datos se corre igualmente, por lo que te sugiero que pruebes en colocar la matriz como ABSOLUTA; es decir, la formular quedaría de ésta forma: =CONSULTAV(A1;PARO!$A$2:$E$80;2;FALSO). Por cierto, en relación a los gráficos... podrías probar con una tabla dinámica, ya que ésta herramienta también gráficos.... funciona exactamente como un autofiltro, con la simplicidad, de que la tabla dinámica tiene muchas más opciones relacionadas con la generación de informes de todo tipo..... tal es el caso, de los 10 mejores, promedios, conteos, etc...
  16. muchas gracias mis estimados amigos.... he de comentarles que ya he logrado encajar la informaciòn en el proyecto... Saludos cordiales y mi màs sincero agradecimiento por tan pronta respuesta y acertada ayuda. Saludos desde Guatemala.
  17. Saludos cordiales mis estimados integrantes de tan gran foro... He de comentarles que estoy desarrollando un proyecto para la compañia donde laboro, y he estado trabajàndolo en un formulario... Sin embargo, tengo un pequeño inconveniente... Resulta que necesito que al momento de obtener un resultado matemàtico (por ejemplo: 10 por 10 = 100 me convierta el resultado numerico (100 ) a letras "CIEN" ; es decir, que el resultado en letras me lo refleje en uno de los textbox. Le he dado vueltas al asunto y he logrado ubicar algo al respecto, sin embargo, no consigo que me resulte... por lo que incluyo el archivo para solicitar el valioso apoyo para encontrarle soluciòn a la problemàtica que tengo... Por cierto, aprovechando la oportunidad, si fuera posible que el dato que lea pueda ser capaz de transcribirlo como por ejemplo: 892,345.46 (OCHOCIENTOS NOVENTA Y DOS MIL, TRESCIENTOS CUARENTA Y CINCO QUETZALES CON CUARENTA Y SEIS CENTAVOS) NUMEROS_A_LETRAS_TEXTBOX.xls
  18. crea un boton y colocas el código dentro del mismo... mucho ojo, el botón debe estar en la hoja "calculo"...
  19. sugeriria que nombraras los rangos... es decir, tanto donde colocas los datos así como donde obtienes el resultado... basado en ello te propongo que incluyas éste codigo en un boton... para registrar Sub registrar_resultado() Application.ScreenUpdating = False Sheets("calculo").Unprotect "abc" If ThisWorkbook.Names("valora").RefersToRange.Value = Empty Or _ ThisWorkbook.Names("valorb").RefersToRange.Value = Empty Or _ ThisWorkbook.Names("resultado").RefersToRange.Value = Empty Then MsgBox "Favor de completar los datos", vbOKOnly + vbInformation, "**Información incompleta" Sheets("calculo").Protect "abc" Exit Sub End If 'grabamos el resultado en la hoja que lleva el mismo nombre Application.ScreenUpdating = False Sheets("resultado").Activate Sheets("resultado").Visible = True Sheets("resultado").Select Sheets("resultado").Unprotect "abc" Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select ActiveCell.Value = ThisWorkbook.Names("resultado").RefersToRange.Value Sheets("resultado").Protect "abc" End Sub
  20. saludos dmorill..... seria conveniente que subieras el archivo que contiene tu formulario... para asi poderte apoyar de una mejor manera
  21. Excelente ayuda mi estimado febrero59 ... justo lo que necesitaba, muchas gracias por tu valiosa ayuda...
  22. Gracias febrero59.... Es probable que no me haya explicado muy bien... Lo que pretendo es que: Si en la etiqueta denominada LB_R hay un valor mayor o igual a 90 que me muestre el mensaje "Vencido" en otra etiqueta; y si el valor en LB_R es menor a 90 en otra etiqueta me muestre el mensaje "Vigente"...
  23. Saludos mis estimado compañeros... Les comento que estoy trabajando en un proyecto, y dentro de las características del mismo, es necesario llevar un control sobre el número de día que hay de una fecha a otra (sin tomar en cuentas los fines de semana), pues en éste asunto todo me ha ido bien. La información es mostrada en un formulario. La información está asociada a un número de registro y efectivamente el calculo de los dias entre fechas si ocurre (dicho cálculo se muestra en una etiqueta llamada "LB_R").... dónde necesito que me orienten (porque no doy como) es: que al evaluarse el resultado de la etiqueta y si éste es mayor o igual a 90 en otra etiqueta me muestre la leyenda: "VENCIDO" (label58) ahora si fuera menor o igual a 90 entonces "VIGENTE"(label59). Lo he intentado de ésta forma, pero no me ha funcionado. 'INDICAR SI ESTÁ VIGENTE O VENCIDO, DE ACUERDO A LA POLITICA DE 90 DIAS If LB_R <= "90" Then Label58.Visible = True If LB_R > "90" Then Label59.Visible = True End Sub De antemano muchas gracias por su apoyo...
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png