Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 07/27/2021 in all areas

  1. Prueba y comenta. https://drive.google.com/file/d/1Kn4z4rR2FSanPlJZoNcDcctEqqxzpyCR/view?usp=sharing
    1 point
  2. 'Ejemplo encriptar/desencriptar toda la hoja PNAC Sub EncriptaDesencriptaPNAC() Application.ScreenUpdating = False x = 2 Do Until Range("A" & x) = "" For y = 1 To 7 Cells(x, y) = EncriptaDesencripta(Cells(x, y)) Next x = x + 1 Loop End Sub 'Ejemplo para la fila 100 Sub EjemploFila100() Application.ScreenUpdating = False For y = 1 To 7 Cells(100, y) = EncriptaDesencripta(Cells(100, y)) Next End Sub Nota: En el archivo que has subido hay unas 7.000 filas con información y más de 1.000.000 en blanco.
    1 point
  3. Algo sencillo, te dejo una función que encripta/desencripta de forma alternativa. Con la hoja PNAC activada: 'En un módulo normal Function EncriptaDesencripta(Texto As String) As String For y = 1 To Len(Texto) Mid(Texto, y, 1) = Chr(255 - Asc(Mid(Texto, y, 1))) Next EncriptaDesencripta = Texto End Function Sub Ejemplo() 'Ejemplo de funcionamiento de la función Range("B2") = EncriptaDesencripta(Range("B2")) End Sub
    1 point
  4. ¡Ya está! Para mostrar una imagen que está en la hoja, hay que convertirla a jpg previamente. Abre el adjunto y pulsa sobre un código QR de la columna C. GENERADOR CODIGO QR.xlsm
    1 point
  5. Sergio

    Formula Excel

    Hola Xoel, Es complicado ayudarte si no conocemos cómo tienes dispuestos los datos en las hojas. Entiendo que se trata de información confidencial por tanto te sugiero que clones tu libro de trabajo y elimines los datos privados pero mantengas su estructura. De otra forma no te podremos dar una solución concreta. Un saludo,
    1 point
  6. Enhorabuena por tu cambio de nombre Silvia, digo ...Laura. Vamos a celebrarlo: Saludos.
    1 point
×
×
  • Create New...

Important Information

Privacy Policy