Jump to content

Visor

Members
  • Content Count

    1,153
  • Joined

  • Last visited

  • Days Won

    3

Visor last won the day on June 2 2019

Visor had the most liked content!

About Visor

  • Rank
    Advanced Member
  • Birthday 05/28/1973

Converted

  • Campos
    ;

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. 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
  2. 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
  3. Visor, muy buenas noches, me atrevo a escribirte debido a un interesante y "Reorganizador de cronogramas" que publicaste hace algún tiempo, te comento que es juntamente lo que estoy necesitando, soy profesor y me vendría bien para organizar mis actividades y clases que dicto.

    si no fuera mucha molestia y atrevimiento, quisiera que me compartas dicho reorganizador de actividades que al final del post encontraste la solución.

    muchas gracias de antemano!

    gracias.png

    1. Visor

      Visor

      Saludos recien veo tu mensaje, me disculpas, si aun estas interesado por favor enviame el enlace de donde encontraste el tema que mencionas para ponerme al corriente

  4. 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.

  5. 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
  6. 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??
  7. 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
  8. Saludos estimados amigos del foro Esta consulta pretende saber cómo se puede evitar con vba para que en el archivo que le daré a mi estudiante pueda usar el icono o control de comando para copiar, cortar o pegar, incluso no funcione las teclas abreviadas Ctrl+C, Ctrl+C, Ctrl+V. Es decir solo en el archivo que le dé para que haga la tarea. Tengo Excel 2013 pero entiendo que también funcionaria en Word 2016. Deseo que no hago uso del copy-paste si no que pueda escribir ojala por el mismo, o que sus compañeros se copien datos entre ellos. En realidad lo que necesito es para un archivo Word pero como aquí es Excel lo planteo, y si funciona para Excel podría entender como seria para Word. Encontré este código, pero no funciona, ni para Excel ni para Word. Me gustaría que solo incida el código para el archivo que se este manejando, pues si tengo otros archivos abiertos allá no afecte. Sub alabrirThisWorkbook_Activate() Dim oCtrl As Office.CommandBarControl 'Deshabilita Cut del todo el menu For Each oCtrl In Application.CommandBars.FindControls(ID:=21) oCtrl.Enabled = False Next oCtrl 'Deshabilita Copy del todo el menu For Each oCtrl In Application.CommandBars.FindControls(ID:=19) oCtrl.Enabled = False Next oCtrl 'Deshabilita Paste del todo el menu For Each oCtrl In Application.CommandBars.FindControls(ID:=6002) oCtrl.Enabled = False Next oCtrl Application.CellDragAndDrop = False End Sub Sub alabrirThisWorkbook_Activate() Dim oCtrl As Office.CommandBarControl 'Habilita Cut del todo el menu For Each oCtrl In Application.CommandBars.FindControls(ID:=21) oCtrl.Enabled = True Next oCtrl 'Habilita Copy del todo el menu For Each oCtrl In Application.CommandBars.FindControls(ID:=19) oCtrl.Enabled = True Next oCtrl 'Habilita Paste del todo el menu For Each oCtrl In Application.CommandBars.FindControls(ID:=6002) oCtrl.Enabled = True Next oCtrl Application.CellDragAndDrop = True End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) With Application .CellDragAndDrop = False .CutCopyMode = False 'Clear clipboard End With End Sub La lista de los IDs los consigo con este código que funciona bien en un archivo Excel Sub listaIDs() 'Funciona Dim oneCont As Object Dim outRow As Long For Each oneCont In CommandBars("Standard").Controls outRow = outRow + 1 Cells(outRow, 1) = oneCont.Caption Cells(outRow, 2) = oneCont.ID Next oneCont End Sub Agradezco anticipadamente su gentil colaboración Deshabilitar comandos de controlV1.xlsm
  9. En mi correo me pide autorizacion de descarga,... entonces ya te lo envie Saludos
  10. Estimado Antoni, .....Bueno, en tanta ayuda que seguimos recibiendo. Con ayuda de las bondades del Spreadsheet GAS he podido hacer uso del Excel en Arte y he puesto tu foto Hecho en Excel en emblema de la dedicacion constante que todos recibimos. Como no se donde es apropiado enviarlo he hecho uso del mensaje aqui en cafeteria para hacer llegar el resultado Para ver mejor la imagen hay que bajar el zoom al 30% Con el aprecio que todos tenemos por tu dedicación espero que lo recibas y te guste este resultado ExcelArte. Saludos Felix UNACH Ecuador Descargar el Archivo Nota solo mantendre el archivo hasta confirmar hoy que lo has recibido.
  11. Es cierto,!!! muy importante observar todos los detalles, en especial corregirse en los errores ortográficos que nos vienen en las plantillas de la institución. Funcionó al colocarle las tildes Gracias y mil disculpas😁 Tema solucionado
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png