Hilario Isaac López Rivera

Suponiendo que tienes los datos en la columna E y los porcentajes en la columna J, puedes hacerlo de la siguiente manera: Sub Calcular() Dim x, zval As Integer x = 2 zval = 2 Do While Cells(x, 8).Value <> "" Cells(x, 8).Activate dat =...

De acuerdo, intenta lo siguiente : 1) Verifica cuan grande es el archivo, cuantos formatos puede tener ya que si se pasa de 4000 formatos diferentes puede empezar a darte fallas, en este caso puedes simplificarlo un poco. 2) Verifica la configuración...

Prueba con el siguiente código: Sub Descubrir_contraseña() Dim a As Integer, b As Integer, c As Integer Dim d As Integer, e As Integer, f As Integer Dim a1 As Integer, a2 As Integer, a3 As Integer Dim a4 As Integer, a5 As Integer, a6 As Integer On...