VBA de tablo oluşturma

[semih4]

Ekteki dosyada 17 aktivite ve aktivitelerin öncelikleri bulunuyor.Kullanıcı butona bastıgı zaman Predecessors Relationship diye adlandırdığım tabloyu başka bi sayfada olusturmasını istiyorum.VBA kodu ile bunu nasıl yapabilirim.Tablo aktiviteler arasındaki ilişkiyi gösteriyor yani birbirlerinin önceliği ise 1 yazdırılıyor.Mesela 9 uncu aktivitenin önceliği 13 ve 15 oldugu için 9 activetenin 13 ve 15. sutununa 1 koyması gerekiyor,Yardımcı olabilirseniz çok sevinirim..

İyi akşamlar
iyi çalışmalar.

 

[Orion1]

Dosyanız ektedir.

Sub oncelik_59()
Dim i As Long, k As Range, a, j As Integer
Range("D6:X26").ClearContents
For i = 6 To 26
    If Cells(i, "B").Value <> "" Then
        a = Split(Cells(i, "B").Value, ",")
        For j = LBound(a) To UBound(a)
            Set k = Range("D5:X5").Find(a(j), , xlValues, xlWhole)
            If Not k Is Nothing Then
                Cells(i, k.Column).Value = 1
            End If
            Set k = Nothing
        Next j
    End If
Next i
MsgBox "İşlem tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation
End Sub

 

[semih4]

Çok teşekkür ederim süper