JanOwe Waldner

Si puedo ver tu archivo intentaré averiguar dónde se produce el error.

Prueba esto a ver si es lo que buscas. Valores en columna A, en la B te va listando las filas en las que es valor 1 en la columna 1. Saludos. --------------------- Dim Fila1 As Integer, Fila2 As Integer Fila2 = 1 For Fila1 = 1 To Cells(Rows.Count,...