Jump to content

Visor

Members
  • Content Count

    1,169
  • Joined

  • Last visited

  • Days Won

    3

Everything posted by Visor

  1. Gracias, muchas gracias, efectivamente, se concluye que la macro tal como lo encontré si funciona, he cometido el tremendo error de haber dejado Hoja1 en el código, tal como lo muestra Antoni,...y claro efectivamente ese código lo requería otra vez pues era el único archivo en el que lo tenía...Gracias Antoni y Gracias Rolano. con esto he recuperado aqui el codigo. El codigo si funciona, el error lo he cometido yo mismo. Por otro lado "Ficha programador\Código\Seguridad macros: Deshabilitar todas las macros y si te lo quieres ahorrar:" Esto si lo hice, está en: Opciones\centro de confianza\Configuración del centro de confianza\configuración de macros\Deshabilitar todas las macros --- lo selecciono y listo,..pero nada!! ---- también manteniendo pulsado Shift pero no lograba nada, el archivo luego del mensaje, se desaparecía incluso juntos con otros abiertos,..en la ventana de código vba no se mostraba lo del archivo problema...Por eso No lograba colocar manualmente el número de serie Puedo seguir pensando que en mi caso no funciona ese truco, y para futuro me queda el problema de yo miso solucionar romper la macro y recuperar mi codigo. Afortunadamente en ese archivo lo estaba usando como prueba, hubiese sido para mi, desafortunado si lo habria hecho en el archivo con la informacion completa. Gracias por ayudarme en solucionar este tema
  2. Saludos amigos del foro, en el andar viendo el modo de abrir un archivo solo en una máquina, me encontré con una solución interesante, funciona con el artificio en la Hoja1. Le hice unos pequeños cambios, por la hoja3 y otras cosas más.. No obstante, cierro y trato de abrirlo,...... ya no se abre pese a ser la misma máquina, no obstante me sale el mensaje msgbox programado... Intente detener la macro con la famosa tecla shift pero aun no logro que ese truco me funcione.. Envío el archivo, si ustedes lo abren y pueden ver el código, algo no estoy haciendo bien con lo de la tecla shift. Si el codigo esta bien, entonces la macro no funciona para el propósito. Si abre sin usar la tecla shift la macro no funciona. Si no lo abren la macro está bien,..no obstante algo debe estar mal pues en mi propia máquina no logro volver a abrirlo. Me gustaria que lo revisen a ver que ocurre, que habré escrito mal, pues no logro abrirlo por ningún modo Gracias anticipadas CONTROL RECONOCIMIENTO DE COMPUTADOR.xlsm
  3. Sí,.... ha empezado a funcionar ,....ya sea con lo de reemplazar con =xlPart que me encuentra exactamente lo que está en las celdas, o manejando espacios con lo de trim. Es cuestion de probar las alternativas. No sabria como hacer para que las personas acá, que no son fácilmente amigables con los códigos manejen un ID, sobre todo cuando cambian cada vez de actividad. Me ha funcionado bien con tu ayuda, quedo muy agradecido. Se puede cerrar, el tema está solucionado.
  4. Saludos amigos del foro He realizado una instrucción de búsqueda con combobox. La búsqueda la realiza en la columna1. Los datos de esta columna se cargan en un combobox. En el evento change he puesto codigo para que busque en la columna A y muestre el resultado en los labels correspondientes dispuestos en el userform. La búsqueda funciona en todos los items de la columna excepto en una. No comprendo como es que las anteriores y las posteriores si funcionan Solicito que me puedan apoyar revisando el archivo que adjunto para encontrar el problema. Agradezco anticipadamente su colaboración, Busqueda con combobox.xlsm
  5. Excelente!! ya está prácticamente listo y útil para que las personas con ciertos síntomas puedan tener un criterio para decidir mejor,... De tal manera que no tenga que hacer ajetreos innecesarios, o de ir pronto al médico en primer lugar, o sí mismo es necesario ir pronto a emergencia,.... según sea el caso. Le he añadido el cambio de color al mensaje de decisión para aplicar el concepto semáforo. Gracias por todos los aportes y darle estos avances.... DECISION ENF_COVID-19 VERSION 5.xlsm
  6. Gracias @avalencia ahora ya va cogiendo forma Normalmente inserto una forma y dentro coloco el rango (=E4) y me sale lo de la celda pero en este caso no se lo que sucede En todo caso yo se ira resolviendo. El calculo lo puse en la macro para la hoja para que vaya saliendo el porcentaje Adjunto el archivo.. Que sería la versión 3 en este tema DECISION ENF_COVID-19 VERSION 3.xlsm
  7. Ok Gracias me confundi,,,jeje esperemos entonces
  8. Gracias estimado @vaguilarpau por colaborar,.. he puesto en el rango F3 al F12 en lo máximo pero los círculos no cambian de color los rojos siguen rojos, verdes y amarillos no cambian, igual sucede si todo le pongo en 1. Ni tampoco el Alerta de decisión de que saber que hacer No se si eso es lo que comprendo en las Premisas, Ademas el calculo explicado en el enlace Youtube no logro saber como muestra el número de síntomas citados, En el archivo que subes me refiero a F15,.... sabes cómo hacerlo??
  9. Estimados amigos del foro Les saludo con mucha cordialidad. Acorde a un enlace que encontré, donde se muestra un ejemplo no compartido aún, la sintomatología que podría dudarse respecto al COVID-19 creo que aquí podríamos brindar varias sugerencias para irlo mejorando. Por ejemplo he querido que la decisión en el Rango D17 al D9 se vea como un alerta intermitente. Verde si se Debe quedar en casa; amarillo si se De ir a consulta Médica o Rojo si debe ir a emergencia al hospital. Pero no logro hacer funcionar bien. Además me faltan los porcentajes que no sé cómo lo hace él. Es más si tenemos más parámetros o ideas para aportar, será muy conveniente hacerlo. Debo pedir disculpas por la Imagen del Busto que he puesto, no es intención ofender a nadie pues es lo que logré encontrar en la red como imágenes libres para uso y modificación Adjunto el archivo y el enlace donde encontré al ejemplo https://www.youtube.com/watch?v=8QrjyKU2YZg DECISION ENF_COVID-19.xlsm
  10. Estoy muy agradecido JSD, ha sido con una aplicación que no la he tenido, la busque en google y he conseguido su uso gracias me va a servir de mucho.
  11. Estimados amigos del foro Saludos He creído conveniente conversarlo aquí en cafetería este tema puesto que además de a modo de consulta no creo conveniente colocarlo en las otras áreas ya que es un tanto diferente, se sale de los tópicos.. Cuando exponen explicaciones a traves de imagenes animadas tipo gif algunos son de larga duración, en todo caso, ese modo de explicar el problema o la solución es muy útil al menos para mi pue veo exactamente lo que se desea explicar. Me ha interesado que hasta quiero colocar en forma de tips para mis estudiantes ahora que estamos enseñando usando las plataformas virtuales. No obstante, tengo el problema de saber como lo han hecho, con qué utilitarios se consigue hacer las imagenes animadas. Agradezco que me puedan ayudar. Aquí pongo un enlace de un tema del área de Macros, en donde veo a los maestros dando las explicaciones de ese modo, modo que quiero aprender. Ver las Imágenes animadas
  12. Saludos, con el debido permiso,... Te falta el "If" supongo... If Intersect(Target,.....
  13. Nota: Hay que tomar en cuenta que si selecciono solo unos cuantos meses, lo cálculos deben hacerse sólo para los seleccionados
  14. Lo siento he avanzado y me parece que ahora está mejor entendible el propósito y manejo del userform El determinar exactamente el número de días por mes (lo que está en rojo), me sigue limitando el avance. Si no seleccionó un dia de la semana no se debe contabilizar pero no se como hacer en esa parte. Influye mucho si el año es o no bisiesto pero me parece que lo he logrado en algo. Subo el archivo para que miren al avance Espero que ahora este mejor comprensible los datos deber ingresarse conforme la secuencia de los pasos que he colocado en el orden numérico. Agradezco anticipadamente cualquier comentario. Calculo pago horas de investigacionV2.xlsm
  15. Saludos, supongo que este código puedes añadir para guardar como pdf, usando lo que esté en la label. archivo = label.caption ActiveSheet.Range("a1:d20").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\archivo.pdf", quality:=xlQualityStandard, openafterpublish:=True Debes especificar tu rango espero que te sirva
  16. Estimados amigos del foro, esperando en este momento sigamos cuidándonos del problema mundial. Entre tanto, he estado tratando de poder resolver un problema en la que me quede estancado. Se trata de determinar el número de horas de investigación por mes pero para ello hay que separar a días laborables y nuevamente de estos tomar en cuenta el dia que ha sido asignado esta labor y las horas estipuladas. Aquí es necesario distinguir un año normal del bisiesto. Todo esto surge sobre todo por que cada mes muestra semanas incompletas al inicio o al final. Por esta razón he creído que es mejor tomar en cuenta no por semana sino por los días del mes (Ver imagen). Aquí narro el uso de la macro y además subo el archivo para que lo vean: ¿Cómo funciona? 1) Coloco el sueldo mensual del docente investigador ejemplo $2000 2) Coloco el número de horas establecido por la ley ejemplo 8 horas por día 3) Selecciono el o los días en los cuales se ha asignado la tarea de actividad de investigación 4) Ingreso el número de horas de investigación asignado (no debe de ser mayor a 8 horas por dia) 5) Determino (Suma) el número de horas por semana para investigación 6) Escribo el año para el cual deseo calcular los días de labor de investigación 7) Indico si el año se refiere a Normal (Check sin activar) o bisiesto (Check sin activar) 😎 Selecciono todos los meses si son 12,: o seleccionar solo los meses dedicados a investigar 9) Ejecuto el Cálculo De aquí surgen las preguntas que me tiene atascado- ¿Serán los mismos números de días laborables según cambie el año? Y si este es normal o bisiesto? ¿Cómo ajusto la selección de los días con el cálculo para tenerlos dentro de cada mes? (Ver imagen) ¿Cómo se realiza si solo selecciono un determinado mes o meses en los checkbox y que igual siga el curso del cálculo? Como hago que la columna de HORAS INV/MES que son las horas de investigación por cada mes estén en base a los días seleccionados que es en el que se hace la actividad de investigación se compute y se muestre el total? Resuelto aquello, ya se podría calcular el pago por mes.. Es decir multiplicando el valor por hora que ha resultado en cada mes (Columna DOLARES/Hora) por el # HORAS INV/MES de cada mes DOLARES/MES = DOLARES/Hora * HORAS INV/MES DolMes1 = CDbl(LbDolHraMes1.caption) * CDbl(HsrsMes1.caption) Gracias anticipadas el apoyo en este tema Calculo pago horas de investigacion.xlsm
  17. Yo empecé en google en esa hoja de calculo he realizado algunos scripts para mi uso y es gratuito su uso, incluso hay una comunidad de ayuda..Espero que siga avanzando lo excel online de office que es interesante porque lo de VBa lo pasa a JavaScript
  18. Saludos a todos Incluso aquí en el foro ya se ha incluida JavaScript que interesante para quienes quieren programar eb hoja de calculo online...ya tengo algunos pequeños scripts. que interesante!! https://www.youtube.com/watch?v=aTOIfhM55Ps
  19. Estimado AValencia, Saludos he leído una consulta que no se si la persona que lo hizo tuvo solucion,. lo cierto es que ahora yo tengo lo mismo, y en el manual no he encontrado que se diga respecto a excel, si tal vez sabes algo al respecto por favor te pido que me brindes tu ayuda una vez mas. Este es el link del cual te menciono

    https://ayudaexcel.com/foro/topic/41170-lector-de-huellas-dactilar-en-excel/?tab=comments#comment-233284

     

    Te agradezco anticipadamente

    1. avalencia

      avalencia

      Tienes que descargar el o los SDK y verificar si es compatible:

      https://secugen.com/products/sdk/

    2. Visor

      Visor

      Saludos, Gracias tu respuesta no se si comprendo bien, lo del SDK, pues si es para ver la captura de una huella digital, en realidad eso ya lo he logrado.

      Lo que se refiere al enlace que adjunte en mi consulta, es a que, cómo se puede hacer para que se conecte con excel y que registre la asistencia de la persona que coloca la huella en el lector Secugen Hamster Plus......debe haber una plantilla que ayude a esto.

      Como quiera, encontré que alguien estaba intentando esto de la plantilla, pero lo dejó en medio camino y no lo termino.

      El puso esto:

      Sub leerDatosPorID(ByVal id As Integer)
       Dim nombre As String
       Dim titulo As String
       Dim celda As String
       
       'MsgBox (id)
       
       ' el rango maximo es de 11 (el 1 es el titulo)
       If (id > 1 And id <= 11) Then
       celda = "B" & id
       nombre = ThisWorkbook.Sheets(2).Range(celda).Value
       ThisWorkbook.Sheets(1).Range("H27").Value = nombre
       
       celda = "C" & id
       titulo = ThisWorkbook.Sheets(2).Range(celda).Value
       ThisWorkbook.Sheets(1).Range("H28").Value = titulo
       Else
       ThisWorkbook.Sheets(1).Range("H27").Value = "Persona no identificada"
       ThisWorkbook.Sheets(1).Range("H28").Value = "Titulo no identificado"
       End If
      End Sub
      
      Sub obtenerIDHuella()
      Dim id As Integer
      
      id = ThisWorkbook.Sheets(1).Range("P24").Value
       leerDatosPorID (id)
      End Sub

      De seguro  hay que seleccionar referencias o algo por el estilo

      Bueno hasta aquí es lo se sé

    3. avalencia

      avalencia

      Estimado, es evidente que dicho lector de huella no es directamente compatible con Excel, por ende necesitas de manera obligada descargar el SDK. El SDK es a la búsquedael kit de desarrollo de software (en ingles SDK) que tiene conjunto de herramientas de desarrollo de software que permiten conectar el lector a otros programas. Quizá con librerías, objetos ActiveX o llamados a las funciones de la API, yo no lo sé porque no tengo dicho lector. Por ejemplo, en lo que envías hay una UDF llamada "LeerDatosPorID", quizá ahí usan algo de lo mencionado. Tendrás que descargar e investigar.

  20. Esa Utilidad del Ribbon Custom UI si que ha sido muy interesante,..no lo había conocido Gracias por Hacérmelo saber,... voy a tratar de aprender mas de eso
  21. Gracias Abraham Valencia, es cierto, y como haría para que no funcione la combinación de tecla Ctrl+V cuando copio de otro archivo y directamente aplico estas teclas?? para añadir el código al anterior que me diste??
  22. Saludos Abraham Valencia, Estoy muy agradecido por tu colaboración. Tengo varias cosas que no comprendo... Para empezar con lo que me enviaste, entendí que el código había que ponerlo en el Vba de la Hoja ("Custom UI Editor") y no en un modulo o en ThisWorkbook. y claro allí si funcionó. Ahora bien, en la hoja si funciona Ctrl+V si copio de otro archivo y antes de dar click en la hoja de prueba destino pulso Ctrl+V y se pasa lo copiado del otro archivo, lo cual no debería permitirlo. También a pesar de lo que me indicas..., El código que coloque en el primer post ,...funciona!!... también al colocarlo en el código Vba de la hoja, funciona todo incluso no permite pegar con la combinación de teclas Ctrl+V. (mi Excel es 2013) Como problema surge que al borrar todo el código del Vba de la hoja, el comando Pegar sigue en desactivacion, lo cual no me lo esperaba. Coloque nuevamente el código a true.... Application.CutCopyMode = True para revertir la instrucción pero sigue igual desactivado, es decir dejo de funcionar pero veo que solo en este archivo. Los demás libros están bien Finalmente, el código que me diste, o el que tengo en el primer post, no funcionan en Word al colocarlo el Vba de la Hoja. al parecer debe ser algo diferente o estoy colocando donde no debo. Saludos
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png