Jump to content

pinoji

Members
  • Posts

    145
  • Joined

  • Last visited

  • Days Won

    5

pinoji last won the day on July 12

pinoji had the most liked content!

About pinoji

Recent Profile Visitors

679 profile views

pinoji's Achievements

  1. Hola colegas, buenas tardes reiteradas. Vuelvo por acá, ahora para que me brinden ayuda con una alerta. Me explico: Este es el proyecto del que les comenté que mi Jefe me pidió hacer. En el FrmCombustible debo crear dos (2) alertas, UNA - Que un (1) mes antes de vencerse las tarjetas me envíe un MsgBox : "La Tarjeta " & " se vence en un mes" El Listado de tarjetas está en la Hoja5 (Auxiliares). Se debe tener en cuenta que puede estar en blanco o vacío (Empty) este campo. Yo comencé a trabajarlo, pero me "perdí", porque creo se debe generar un ciclo que recorra las tarjetas y las fechas de vencimientos y las compare con la fecha actual. (Modulo4 ) DOS - En este mismo Formulario (FrmCombustible), necesito me envíe una alerta cuando una tarjeta X tenga un consumo de 350, porque el valor máximo a tener es de 400. (Columna "Consumo") Esto puede ser al abrir el archivo o al cargar el formulario. De estos "AVISOS" tengo que hacer algunos más, pero con la ayuda de ustedes con estos dos puedo hacer los que me falten. Mil gracias de antemano. Espero puedan comprenderme. Un abrazo a todos. Pino Sistema de Matto Autos.xlsm
  2. Gracias profesor Antoni, perfecto. Muy agradecido por su oportuna, pronta y eficaz respuesta. En estos días voy a tener que acudir a ustedes en varias ocasiones, porque el Proyecto que mi Jefe me pidió que hiciera es más de lo que mis conocimientos "almacena", pero son retos que me gustan porque aprendo de ellos. Saludos a Usted, AValencia, Haplox y JSD, que por cierto hace días no lo "veo" por el Foro, pero espero que se encuentre bien de salud, y a todo el resto del tremendo equipo de AyudaExcel. Mis respetos. Pino
  3. Buenos días colegas, espero su salud sea buena. Buenos días profesor Antoni. ¿Cómo está usted y su familia? Espero que bien. Adjunto archivo y espero no causarle molestias. Confieso que me apena tener que pedirle esto, pero verdaderamente no tengo idea de como hacerlo. Le prometo que después que vea el código una vez y lo analice lo aprendo. Gracias una vez más profesor. Mis respetos. Pino Ordenes v1.0.0.xlsm
  4. Buenas tardes colegas. Buenas tardes profesor Antoni. Espero se encuentre bien de salud. Le agradezco su pronto y oportuna respuesta, pero no tiene el efecto que deseo. Me explico. Yo no necesito que se muestre la imagen en la hoja, sino en el formulario, pero por otra parte ya agregué 3 imágenes (1.jpg,2.jpg,3.jpg) en la carpeta señalada y ni en la hoja me la muestra. (Imagen Adjunta .doc) Disculpe mi torpeza o desconocimiento, pero esto si que es algo nuevo para mi. Le agradecería cualquier ayuda. Un saludo y respeto. Pino Imagen.docx
  5. Buenos días colegas, que tal de salud, espero que bien. Buenas amigo Haplox, espero que se encuentre bien. Quizás no me supe explicar bien o no lo mencioné, pero mi jefe tiene o va a sacar fotos de cada uno de los equipos (*.jpg, *.png). Según tengo entendido esas fotos se ubican en una carpeta específica y después desde el Proyecto se "Halan" o "Cargan" a un control de Imagen que esté asociada al equipo y cada vez que invoques ese equipo o registro la imagen se muestra. ¿Es así o estoy equivocado? La cuestión está en que nunca antes he realizado ese proceso, no se como es el código, en que evento, nada de eso, es por ello que les pido su ayuda. Yo se que las cosas no son "insertar a tu antojo", vba sigue una secuencia y un procedimiento lógico, el cual debes "decirle" al sistema lo que necesitas, pero hay cosas (bastante) que aun no conozco. A ver; Supongamos que tengo en una Carpeta D:\Ordenes\Fotos... y que dentro de ella (Fotos) tengo todas las fotos de los equipos, ¿cómo, dónde, en que evento, a través de qué logro esto? Es que no tengo la mas mínima idea. Si pudieras ayudarme te lo agradecería mi hermano y no me lo tomes a mal. Necesito su ayuda profesor. Un abrazo y mis respetos Pino
  6. Hola colegas, buenas tardes. Espero se encuentren bien de salud. Tengo un pequeño Proyecto donde trabajo las Ordenes de Servicios y necesito en el FrmEquipamiento, cuando agregue un nuevo registro poder insertarle una foto de ese equipo, o sea, en el ejemplo, en el registro 2 tengo Nevera Vertical y necesito agregar una foto de dicha nevera. Realmente no lo he hecho antes y necesito de su ayuda. Adjunto el Proyecto. De antemano gracias. Un saludo Pino Ordenes v1.0.0.xlsm
  7. Buenos días colegas. Así mismo es mis amigos. Por el momento nada que hacer, pero sí, al menos lo hemos intentado y nos queda esa satisfacción. Gracias a ambos por su tiempo y consejo. Un abrazo desde acá y mis respetos. Pino
  8. Buenos días colegas. Espero su salud sean excelente. Buenos días profesores Antoni y Haplox, gracias por su pronta y acertada respuesta. Realmente lo había intentado con CDate y otras maneras pero nada y mira que fácil era la solución. Todos los días aprendo con ustedes, Ah y no "discutan" por ser el primero o no, acá, en mi país, hay un dicho que dice "...lo importante no es llegar primero, sino saber llegar..." a los dos los aprecio y los respeto mucho, son personas muy capacitada y con un altruismo enorme. Lo importante para nosotros los aprendices es "tener una solución" a nuestros problemas y eso lo logramos con la agradecida ayuda de ustedes. Gracias mil y que tengan u excelente día. Saludos y respetos. Pino Tema cerrado.
  9. Hola colegas, buenas tardes y ojalá se encuentren bien de salud. Colegas, no salgo de una para entrar en otra. Ahora mi Jefe me pidió que le hiciera un Proyecto para controlar el Parque de Transporte con respecto a Gasto de Combustible, Mantenimientos, Hojas de Ruta y Choferes, nada fácil para mi, pero me gustan estos "Retos" porque de cualquier manera aprendo tanto de VBA como de las normativas sobre los temas del transporte. Ya he tenido unos cuantos tropiezos, pero poco a poco voy resolviéndolos y voy a necesitar mucho de sus ayuda que realmente son los que saben, como siempre, acudiré a ustedes después de agotar mis "recursos de conocimientos". Por el momento, quiero que en un formulario, cuando yo escoja (en un ComboBox) el número de Tarjeta de Combustible, me ponga la fecha en que vence la misma. Todo esto lo tengo logrado, pero a la hora de imprimirme la fecha en el Label (LblVence) no pone lo que necesito, yo quiero que el formato sea el siguiente: 10/22 ó oct/22 ("mm/yy") Lo he intentado de varias maneras pero no... Me.LblVence.Caption = Application.WorksheetFunction.VLookup(Me.CmbNTarjeta.Text, Hoja5.Range("I:K"), 3, 0) Gracias de antemano. Excelente semana a todos. Saludos Pino
  10. Buenos días Colegas. Espero se encuentre con excelente salud. Buenos días Haplox, son mis deseos que usted y su familia se encuentren bien de salud. Profesor, la primera variante me da un error. (Adjunto imagen.) El segundo caso que me sugiere ¿dónde lo coloco? ¿dentro del Botón, sin más lineas de códigos que esas? Ahora acá, en mi trabajo, no tengo una muestra de una base de datos, pero en la casa si tengo en una USB, tendría que esperar a mañana para enviársela y usted revise. El Office que está instalado en las PC del trabajo es 2013, creo que quizás eso también tenga que ver. Gracias por contestar. Mañana seguiremos. Un abrazo y mis respetos. Pino Imagen.docx
  11. Buenos días colegas. espero su salud sea excelente el día de hoy. Buenos días amigo Abraham, son mis deseos que se encuentre usted bien al igual que su familia. Sé que las versiones nuevas de Excel excluyen esa posibilidad, pero son decisiones en las que nosotros podemos hacer bien poco. Por otro lado, y de acuerdo a lo que me comentas, imagino que lo que deseo no es posible, de cualquier manera gracias por sus consejos que son siempre muy bien recibidos. Tenga usted y los demás miembros del Foro un excelente fin de semana. Un abrazo y mis respetos. Pino
  12. Buenas tardes colegas. Espero se encuentren bien de salud. Colegas, en este pequeño Proyecto pretendo trabajar el Comprobante de Operaciones de las Nóminas de los trabajadores de mi empresa y he creado un grupo de "herramientas" para facilitar mi trabajo y un grupo de informaciones que debo brindar, pero para completar o "redondearlo" necesito convertir un archivo .xlsx en .dbf. He estado preguntando si existe alguna manera de hacerlo, si alguno de ustedes conoce un medio o método que me pueda ayudar, por lo pronto yo lo que pretendo hacer es lo siguiente: 1.- Crear un archivo (puede ser .xlsx o .xls) con nombre Comprobante Nomina, que debe ser el que se encuentra en la Hoja3, rango A3:C45 y ubicarlo en un lugar determinado, que puede ser dentro de la misma carpeta donde se encuentra el archivo Comprobante de Nominas v3.0.5.xlsm. Esto quiero hacerlo a través de una Macro. 2.- En el FrmComprobante1 a través del Botón "Generar .dbf" accedo al FrmComprobanteDBF y dentro de este pretendo buscar con GetOpenFleName un conversor o convertidor de .xls a .dbf, hacer la conversión y el resultado de esta guardarlo en la misma carpeta inicial, para después con el Programa de Contabilidad, importar ese archivo .dbf En la Hoja DBF está el formato (que debe generarlo de manera automática). Todo esto es lo que me gustaría que hiciera porque así se complementaria el Proyecto y reduciría mi trabajo en un 75% y me ahorraría además tiempo, solo que YO NO SE HACER ESTO QUE LES ESTOY DICIENDO, de hecho no se si se pueda hacer, pero me gustaría que me dieran su opinión y de ser posible me ayuden a buscar la solución. De antemano Gracias mil a todos. Adjunto archivo Un abrazo Pino Comprobante de Nóminas v3.0.5.xlsm
  13. Buenas tardes colegas. Mis deseos que se encuentren bien. Buenas tardes Haplox, ya probé el archivo y funciona perfectamente. Gracias mil. Un abrazo y mi respeto. Saludos Pino
  14. Buenos dias colegas. Espero su salud sea excelente. Buenos dias Haplox, Como se encuentra. Espero que muy bien al igual que su familia, al menos son mis deseos. Haplox, en estos momentos no puedo probar su solución por asuntos agenos a mi voluntad, pero seguro mañana le respondo, además, estoy completamente seguro que funcionará de manera perfecta. Sus conocimientos son bastos y su experiencia enorme, asi que no me cabe duda que será una excelente solución. Un abrazo a todos y mis respetos. Saludos Pino.
  15. Buenos dias Jorge94. Creo que lo primero es que subas tu archivo para tener una idea mejor de lo que necesitas, pero te dejo por acá algo para que puedas ir trabajando. Dim Uno As Long Dim nombrep As String uFila = nReg(Hoja2, 2, 1) nombrep = Me.TxtCliente.Value Uno = Application.WorksheetFunction.CountIf(Range("B:B"), nombrep) If Uno > 0 Then MsgBox "El Cliente '" & nombrep & "' ya existe Favor Revise o Modifíquelo", vbCritical, "AVISO" Else With Hoja2 .Cells(uFila, 1) = Me.LblCodigo .Cells(uFila, 2) = Me.TxtCliente.Text .Cells(uFila, 3) = Me.TxtDireccion.Text .Cells(uFila, 4) = Me.TxtTelefono.Text End With Declaras estas dos variables, le asignas valor y mediante el condicional If/End If estableces la comparación. Dentro de un bloque With asignas la o las hojas en las que quieres que esos datos se impriman. El nReg es una UDF con la que yo siempre trabajo, es para localizar la ultima fila con dato y es del profesor Otto del Canal Excel y Más. Tambien debes tener en cuenta la columna donde está el dato que no quieres que se repita, en el ejemplo yo declaré la B, pero puede aser cualquiera. Un saludo Pino
×
×
  • Create New...

Important Information

Privacy Policy