Satırda bulunan rakamları sütunla ilişkilendirme problemi

[gnorar]

Merhaba arkadaşlar. Çözemediğim bir sorunla karşı karşıyayım. Örnek bir tablo vererek sorumu sorayım.

Tablunun 1 nolu satırında bulunan rakamları A stunundaki isimlerle ilişkilendirmem gerekiyor. 1 satırda satırda bulunan rakamları inceleyerek stünda var olan yerlere "1" şekildeki gibi yazdırmam gerekiyor. Yardımınız için şimdiden teşekkürler

 

[veyselemre]

Sub DENE()
    For x = 2 To [A65536].End(3).Row
        sayi = Evaluate(Split(Cells(x, 1))(0))
        If sayi > 0 Then
            For y = 2 To [b1].End(xlToRight).Column
                If InStr(Cells(1, y), sayi) Then Cells(x, y) = 1
            Next y
        End If
    Next x
End Sub

 

[gnorar]

ilgilendiğiniz için çok teşekküür ederim veyselemre ancak " if sayi > 0 then " satırında run time error "13" type mismatch hatası veriyor.

 

[veyselemre]

Örnek eklerseniz daha iyi olur.

 

[gnorar]

Örnek eklerseniz daha iyi olur.

ilk mesajımdaki iki resmi örnek olarak vermiştim. Birinci resim sorunun çözülmemiş hali 2. resim sorunun el yoramıyla çözülmüş hali. Ben bu işlemi makro aracılığıyla yapılmasınını istiyorum zira çalıştığım excel dosyası çok büyük.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Sub DÜZENLE()
    Range(Cells(2, 2), Cells(65536, [B1].End(2).Column)).ClearContents
    For X = 2 To [A65536].End(3).Row
    For Y = 1 To Len(Cells(X, 1))
    If IsNumeric(Mid(Cells(X, 1), Y, 1)) Then SAYI = SAYI & Mid(Cells(X, 1), Y, 1)
    Next
    SAYI = Val(SAYI)
    If SAYI > 0 Then
    For Z = 2 To [B1].End(2).Column
    If InStr(Cells(1, Z), SAYI) Then Cells(X, Z) = 1
    Next
    SAYI = ""
    End If
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub