-
Contador de contenido
1202 -
Unido
-
Última visita
-
Días con premio
3
Todo se publica por Visor
-
Saludos Estimado JSDJSD
Disculpa que me atreva a entrar por este medio a dejarte un mensaje,.. me gustaria que me puedas echar un vistazo a mi tema que no logro obtener un resultado de traer la información seleccionada. No se si mi tema ya se va a quedar en algún olvido.
esta en este hilo
https://ayudaexcel.com/foro/topic/43696-importar-sólo-datos-requeridos-desde-otro-libro-excel/
Anticipo mis agradecimientos y mil disculpas
-
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
Te agradezco anticipadamente
-
Tienes que descargar el o los SDK y verificar si es compatible:
-
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é
-
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.
-
-
La aplicación que te dio Macro Antonio sobre el Examen es muy practica, creo que seria bueno plantearle que pueda colocar calificación inmediata luego de responder al examen y que pueda tener encabezado institucional.
El tema esta cerrado solo tu mismo si estas interesado podrías abrir un nuevo tema
Saludos