insercion en una nueva hoja mediante macro excel VB.classic

[daniels_238]

Hola a todos soy nuevo en esto.... bueno les cuento estoy en medio de un proyecto por mis estudios en el cual me toco realizar un poco de programacion de macro y soy bastanate novato en este tema.

Bueno lo que necesito hacer es una busqueda en una hoja la cual esta dividida en tres donde n la parte superior tngo codigos de actividades al costado derecho tengo codigos de aprendizajes y en la parte central se encuentra el cruce de estos
donde existe un "1" estos codigos estan relacionados.

lo que necesito es crear una macro mediante la cual realice una busqueda en esta hoja y cuando el valor de una de las celdas de cruce tenga un "1" me inserte en una nueva hoja los codigos relacionados....


yo eh trabajado en algo pero no realiza lo que yo espero puesto que en la nueva hoja me registra los numeros de las celdas y columnas donde estan los "1" y lo que necesito como dije es que me guarde los codigos que estan enlazados con este valor "1"

este es el codigo que tengo


Sub traspaso_primero_basico()

Dim fila, columna, encontrados As Integer
encontrados = 0
For columna = 15 To 208
For fila = 3 To 1913
If Worksheets("AE_IL_T1").Cells(fila, columna).Value = 1 Then
encontrados = encontrados + 1
Worksheets("Hoja1").Cells(encontrados, 1).Value = fila
Worksheets("Hoja1").Cells(encontrados, 2).Value = columna
End If
Next fila
Next columna


End Sub



Agradezco de ante mano su ayuda muchas gracias!!!!