Problema con limite filas y columnas

2 envíos / 0 nuevos
Último envío
eugeniocol
Imagen de eugeniocol
Offline
última acción: Hace 3 días 20 horas
Nivel 1 - 200 puntos
alta: 29/08/2017 - 17:21
Puntos: 1550
Problema con limite filas y columnas

Hola buenas.

Tengo una macro para combinacion de numeros, pero dado el limite en excel
Número total de filas y columnas en una hoja de cálculo 1.048.576 filas por 16.384 columnas

No puede finalizar la macro se queda pillada en la fila 810.00, la idea es que se ejecute ejemplo hasta la fila 500.00 y siga en otras columnas o rango ejemplo k:m

Esta es la macro:

Sub COMBINAR_4()

Columns(5).ClearContents
Columns(6).ClearContents
Columns(7).ClearContents
Columns(8).ClearContents
Columns(9).ClearContents


FIN_A = Range("A1", Range("A" & Rows.Count).End(xlUp)).Rows.Count
FIN_B = Range("B1", Range("B" & Rows.Count).End(xlUp)).Rows.Count
FIN_C = Range("C1", Range("C" & Rows.Count).End(xlUp)).Rows.Count
FIN_D = Range("D1", Range("D" & Rows.Count).End(xlUp)).Rows.Count

For X = 1 To FIN_A
   For Y = 1 To FIN_B
    For Z = 1 To FIN_C
     For AA = 1 To FIN_D
      FIN_E = FIN_E + 1
     
     
      Cells(FIN_E, 6) = Cells(X, 1)
      Cells(FIN_E, 7) = Cells(Y, 2)
      Cells(FIN_E, 8) = Cells(Z, 3)
      Cells(FIN_E, 9) = Cells(AA, 4)
     Next AA
    Next Z
   Next Y
Next X

End Sub

Salud2....

eugeniocol
Imagen de eugeniocol
Offline
última acción: Hace 3 días 20 horas
Nivel 1 - 200 puntos
alta: 29/08/2017 - 17:21
Puntos: 1550
respuesta

solucionado

Sub COMBINAR_4()

For H = 5 To 35
Columns(H).ClearContents
Next H
M = 6
n = 7
O = 8
P = 9
FIN_A = Range("A1", Range("A" & Rows.Count).End(xlUp)).Rows.Count
FIN_B = Range("B1", Range("B" & Rows.Count).End(xlUp)).Rows.Count
FIN_C = Range("C1", Range("C" & Rows.Count).End(xlUp)).Rows.Count
FIN_D = Range("D1", Range("D" & Rows.Count).End(xlUp)).Rows.Count

For x = 1 To FIN_A
   For y = 1 To FIN_B
    For Z = 1 To FIN_C
      For AA = 1 To FIN_D
        If FIN_E > 150000 Then
            FIN_E = 0
            M = M + 5
            n = n + 5
            O = O + 5
            P = P + 5
        End If
        If Cells(x, 1).Value <> Cells(y, 2).Value Then
        If Cells(x, 1).Value <> Cells(Z, 3).Value Then
        If Cells(x, 1).Value <> Cells(AA, 4).Value Then
            If Cells(y, 2).Value <> Cells(Z, 3).Value Then
            If Cells(y, 2).Value <> Cells(AA, 4).Value Then
                If Cells(Z, 3).Value <> Cells(AA, 4).Value Then
                    FIN_E = FIN_E + 1
                    Cells(FIN_E, M) = Cells(x, 1)
                    Cells(FIN_E, n) = Cells(y, 2)
                    Cells(FIN_E, O) = Cells(Z, 3)
                    Cells(FIN_E, P) = Cells(AA, 4)
                End If
            End If
            End If
        End If
        End If
        End If
      Next AA
    Next Z
   Next y
Next x
End Sub