Matris Oluşturma

[dogan081]

Değerli hocalarım.
Ekli dosyada matris oluşturmaya çalıştım. Mevcut faktörlerde işlemi tanımlarsam yapabiliyorum. Ancak yeni bir faktör ilave yapılırsa makro kodlarını değiştirmek gerekiyor. Evrensel olması adına döngü oluşturmam gerekiyor ancak ben bunu başaramadım. Sizden ricam bu konuda yardımcı olabilir misiniz. Ayrıntıları dosyada belirtmiştim.
Şimdiden çok teşekkür ederim.

 

[systran]

Yıl döngüsü içindeki tüm if koşullarını silip sadece şunu yazın.

If veri(i, 1) = Sayfa1.Range("A" & (i + 2)) Then
        Sayfa2.Cells(i, i + 2) = 1
End If

Ay döngüsü içindeki tüm if koşullarını silip şu kodu yazı deneyiniz.

If veri(i, 2) = Sayfa1.Range("B" & (i + 2)) Then
    Sayfa2.Cells(i, i + 8) = 1
End If

 

[dogan081]

Yıl döngüsü içindeki tüm if koşullarını silip sadece şunu yazın.

If veri(i, 1) = Sayfa1.Range("A" & (i + 2)) Then
        Sayfa2.Cells(i, i + 2) = 1
End If

Ay döngüsü içindeki tüm if koşullarını silip şu kodu yazı deneyiniz.

If veri(i, 2) = Sayfa1.Range("B" & (i + 2)) Then
    Sayfa2.Cells(i, i + 8) = 1
End If

systran hocam elinize sağlık başarıyla çalıştı. Bir yere müdahele ettim

j = 2 to 6 'yıl faktörünün döngü aralığı
If veri(i, 1) = Sayfa1.Range("A" & (j + 2)) Then
Sayfa2.Cells(i, j + 2) = 1
End If

j değişkenini ekledim. İkiside i olunca çalışmadı.
Elinize sağlık, çok teşekkür ederim.