Jump to content

Visor

Members
  • Content Count

    1,169
  • Joined

  • Last visited

  • Days Won

    3

Reputation Activity

  1. ¡Excelente!
    Visor reacted to Antoni in Si abres este archivo, entonces puede ser que la macro no funciona   
    Ficha programador\Código\Seguridad macros: Deshabilitar todas las macros y si te lo quieres ahorrar:
    Private Sub Workbook_Open() Dim ruta As String Hoja3.Unprotect Hoja3.Range("A1000000") = "C:\" ruta = Hoja3.Range("A1000000").Text If Hoja3.Range("B1000000") = "" Then Hoja1.Range("B1000000") = DiskVolumeId(ruta) End If If Hoja3.Range("B1000000") <> DiskVolumeId(ruta) Then Application.Visible = False MsgBox "El número de disco no corresponde al Token de la aplicación", , "Error: Número de serie no coincide" ThisWorkbook.Saved = True ThisWorkbook.Close End If Hoja3.Range("A1").Select Hoja3.Protect UserForm1.Show End Sub Function DiskVolumeId(Drive As String) As String Dim sTemp As String Dim iPos As Long iPos = InStr(1, Drive, ":") Drive = IIf(iPos > 0, Left(Drive, iPos), Drive & ":") sTemp = Hex(CreateObject("Scripting.FileSystemObject") _ .Drives.Item(CStr(Drive)).SerialNumber) DiskVolumeId = Left(sTemp, 4) & "-" & Right(sTemp, 4) End Function  
  2. ¡Excelente!
    Visor reacted to rolano in Si abres este archivo, entonces puede ser que la macro no funciona   
    Hola a todos, tu archivo no abre porque tienes que tienes que colocar el numero de serie de tu disco C en la hojas.


    CONTROL RECONOCIMIENTO DE COMPUTADOR.xlsm
  3. ¡Excelente!
    Visor reacted to Antoni in Si abres este archivo, entonces puede ser que la macro no funciona   
    Hola Rolano, que gusto saludarte.
    Yo he entendido que simplemente quería acceder al código.
    Además, tiene un poco de lío con las hojas
    If Hoja3.Range("B1000000") = "" Then Hoja1.Range("B1000000") = DiskVolumeId(ruta) '¿Es correcto? End If
  4. ¡Excelente!
    Visor reacted to rolano in Si abres este archivo, entonces puede ser que la macro no funciona   
    Hola Antoni un gusto saludarte, allí debería ser hoja3 y no hoja1, ahora lo que hice es poner manualmente el numero de serie disco C en la hoja3 celda Range("B100000").
  5. ¡Excelente!
    Visor reacted to Haplox in Poner nivel!!!   
    @smart27 , Te dejouna posible solución, no como querías, porque de esa manera es difícil por cómo se puede mover esa regla según el usuario.
    Hay un spinbutton que al incrementar o decrementar, hace que se mueva la regla. Prueba y comenta
    nivel.xlsm
  6. ¡Excelente!
    Visor reacted to LeandroA in Tomar foto desde formularioa   
    Te lo adjunto en este post.
     
    WebCam.zip
  7. ¡Excelente!
    Visor reacted to Haplox in Tomar foto desde formularioa   
    Para x64, todas las declaraciones del tipo:
    Por:
     
  8. ¡Excelente!
    Visor reacted to Chrispal1977 in MACRO DE SEGURIDAD   
    Yo normalmente uso la seguridad que tiene como ejemplo el documento adjunto en el cual en la celda A1 se encuentra la dirección en la que está guardado el archivo y cuando este se abre automáticamente guarda el número de serie del computador una vez que este guarda por primera vez estos datos van a quedar almacenados en la celda B1 de tal forma que no podrá ser abierto el archivo en ningún computador diferente y se cerrará automaticamente, para que puedas comprobar abre el archivo y se guardará el dato en la celda B1 una vez guardado el archivo cuando quieras abrir por segunda ocasión en tu PC se abrirá sin problema pero si cambias o borras algún dígito de la celda B2 y guardas luego ya no podrás ingresar al archivo.
    ESpero te sirva, saludos Cordiales.
    Segurodad archivo.xlsm
  9. Confused
    Visor reacted to ikanni in Búsqueda combobox no funciona en un item   
    Hola Visor,
    La verdad cosa rara que no funcionara con esa fila. Pero sí le cambias el texto, sí funciona. Entonces el problema es el texto.Elimina el texto y escribelo de nuevo. He hecho la prueba y funciona despues.
  10. ¡Excelente!
    Visor reacted to Antoni in Búsqueda combobox no funciona en un item   
    No utilizar un ID tiene estos inconveniente, prueba así:
    Set busco = ActiveSheet.Range("A:A").Find(Trim(cbxActividades.Text), LookIn:=xlValues, lookat:=xlPart) Otra forma podría ser:
    Set busco = ActiveSheet.Range("A:A").Find(cbxActividades.Text, LookIn:=xlValues, lookat:=xlWhole)  
  11. Like
    Visor got a reaction from bigpetroman in Saber que decidir segun sintomas de la actual pandemia   
    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
  12. Like
    Visor got a reaction from bigpetroman in Saber que decidir segun sintomas de la actual pandemia   
    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
  13. Thanks
    Visor reacted to Janlui in Saber que decidir segun sintomas de la actual pandemia   
    Ya le puse código.
    En las lineas color gris pondrás los puntos y si la pregunta esta entre:
    0 y 30% sera verde
    30 y 60% naranja / amarillo
    mas del 60% en rogo
    Saldrá un mensaje segun la totalidad e puntos. Todo esta formulado y en la hoja "TABLA" podras modificar los topes de los puntos de cada pregunta.
    Suerte, ya me comentaras 
    DECISION ENF_COVID-19 VERSION 4.xlsm
  14. Like
    Visor reacted to Janlui in Saber que decidir segun sintomas de la actual pandemia   
    Muy interesante y para ir dándole forma y no desviarnos, comparto este avance si es que procede. Por el momento no hay nada de código hasta que quede la idea clara.
    Saludos
    DECISION ENF_COVID-19.xlsm
  15. Like
    Visor reacted to avalencia in Saber que decidir segun sintomas de la actual pandemia   
    Hola
    No te voy a dar respuestas puntuales, pero si te voy a comentar algunas forma de hacerlo ya que hay varias formas de lograr todo eso. Por ejemplo para saber la cantidad de respuestas que se van llenado basta algo así en D15:
    =CONTAR.SI(D3:D12;"<>") Luego para que se vean los porcentajes, insertas formar redondas, les quitas el relleno, las líneas de contorno y según se vaya eligiendo el valor en el rango D3:D12, con macros vas aplicando Regla de Tres Simple y el resultado lo insertas en la forma correspondiente y vas dándoles valor y que vaya apareciendo el contorno (borde). Si no sabes cómo insertar texto a una forma y cambiar su contorno (borde), la grabadora de macros te ayudará. Sobre tu alerta intermitente, sugiero ir por partes. Saludos.
  16. Confused
    Visor reacted to Janlui in Saber que decidir segun sintomas de la actual pandemia   
    Te puse en la nota anterior que por el momento no hay nada de código (programación) hasta que la idea quede clara.
  17. Thanks
    Visor reacted to JSDJSD in Explicación animada es muy didáctica   
    Hola Visor, a continuación te muestro como se hace.
    Como se hace.mkv
  18. Like
    Visor reacted to JSDJSD in Explicación animada es muy didáctica   
    Y por supuesto el resultado
  19. Thanks
    Visor reacted to JSDJSD in CONSULTA EN ListBox CON CRITERIOS DE VARIOS CheckBox   
    Hola yack, prueba y comenta, he anulado el  Check_todos, no le encuentro sentido, simplemente pon en los 3 Check los datos que necesites filtrar y pulsas el botón.


    CONSULTAS VARIAS Prueba1.xlsm
  20. Thanks
    Visor reacted to JSDJSD in Ayuda con combobox   
    Añadiendo la hoja no tendrás ningún problema
  21. Thanks
    Visor got a reaction from juanmanuel85 in marcar x en distintas columnas   
    Saludos,
    con el debido permiso,...
    Te falta el "If" supongo...
    If Intersect(Target,.....
  22. Thanks
    Visor reacted to Haplox in Emparejar a personas   
    sí, perdona... Es que a veces me puede 😉
    Copia de sortear parejas de jugadores.xlsm
  23. Thanks
    Visor reacted to JSDJSD in Emparejar a personas   
    Hola a todos, venga aprovecho y subo otra opción que tenía y no me dio tiempo a subir.


    Sorteo (1).xlsm
  24. Thanks
    Visor reacted to Haplox in Emparejar a personas   
    @PATILARGO , te dejo lo que he entendido como solución
     
    Copia de sortear parejas de jugadores.xlsm
  25. Thanks
    Visor got a reaction from juanmanuel85 in marcar x en distintas columnas   
    Saludos,
    con el debido permiso,...
    Te falta el "If" supongo...
    If Intersect(Target,.....
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png