Matrisin İlk Sütunundaki Değerelere göre yeni matris oluşturma

[hopeful]

Merhaba arkadaşlar

[3,3] matrisi halinde verimiz olduğunu düşünelim. Matrisin 1. sütunundaki değerler baz alınarak yeni bir matris oluşturacağım. Şöyleki ;

Matrisin (1,1) elamanının sağında yer alan değerlere yani (1,2) ve (1,3) değerleri bir yere yazacağım.Eğer bu değer veya değerler matrisin ilk sütununda da yer alıyorsa, yer alan hücreyi bulup yine sağındaki değerlere bakıp az önce yazırdğım değerlerin yanına yazdıracağım..Bu işlemleri matrisin ilk sütunundaki değerler bitinceye kadar yapacağım...

Karmaşık gelebilir. Yazımla anlatımı zor..Çok basit şekilli anlatım ektedir. Yardımlarınıza ihtiyacım var arkadaşlar..
Şimdiden çok teşekkürler

 

[dost]

Merhaba,

Sub matris_coz()
sutun = 5:   satir = 1
For i = 1 To 3
Cells(satir, sutun) = Cells(i, 1)
ysat = i
GoSub yaz
    
    For z = i + 1 To 3
        For j = 6 To Cells(satir, 5).End(xlToRight).Column
            If Cells(z, 1) = Cells(satir, j) Then
                ysat = z
                GoSub yaz
                Exit For
            End If
        Next j
    Next z

satir = satir + 2:   sutun = 5
Next i

Exit Sub
yaz:
For y = 2 To 3
    If Cells(ysat, y) <> "" Then sutun = sutun + 1:  Cells(satir, sutun) = Cells(ysat, y)
Next y
Return

End Sub

 

[hopeful]

Çok çok teşekkür ediyorum. Emeğinize ellerinize sağlık sayın dost..
Matrisin boyutu değiştiğinde ya da yeri değiştiğinde kod üzerinde hangi ibareleri değiştirmeliyim? Kurcalayarak ve mantık kullanrak bulmaya çalışacağım ama buna da cevap verebilirseniz çok sevinirim..tekrardan çok saolunuz

 

[hopeful]

Merhaba
Aynı matriste birinci satır ile ikinci satırın yerini değiştirdim. Aynı sonuç vermesi gerekirken farklı bir sonuç verdi.

Ayrıntılı bir şekilde açıklama ektedir. İnceler misiniz lütfen?

 

[Levent Menteşoğlu]

1 ve 2.sayfadaki nasıl aynı sonucu verecek anlayamadım. Sizin açıklamalarınıza göre verilen kod doğru çalışıyor.

 

[hopeful]

aynı sonucu vermesi gerekir.
2. sayfada durum şöyle;
Birinci sütunda yer alan 2 için sonuç doğru : 2, 3, 5 , 6
Birinci sütunda yer alan 1 için sonuç şöyle olmalı. 1 in sağında 2 var. Şimdi birinci sütundaki 2 değerini arayacak ve bulacak (2 değeri ilk satırda var). Bu 2 değerininin yanındaki sayıları yazacak. 3 ve 5. Şİmdi 3 ve 5 için tekrar birinci sütuna bakacak. birinci sütundaki 3 ün yanında 6 var. O halde sonuç 1, 2, 3, 5, 6 olmalı.

Birinci sayfa ile ikinci sayfada yer alan soru aynı soru. Sadece 1. satır ile 2. satır yer değiştirmiş. Aynı sonucu vermelidir..

 

[excellium]

sayfaya bir çekbaks koyun, kepşınını da "2. il 3. yer değişti yapın.
şimdi dost beyin verdiği kodları 2 ile 3 ün yer değiştirdiği zaman olması gereken halini yazın. bir if döngüsüyle çekbaksın 2 haline ayrı ayrı bu hazırladığınız 2 ayrı çalışmayı (dost beyin hazırladığı ve sizin değiştirdiğiniz) yönledirin.
2 ile 3 ü yerdeğiştirip çekbaksı işaretleyin. böyle yaparsanız çalışır.
ingilizce ile aram pek iyi değil
ayemsori

 

[dost]

Merhaba,

İlk sorunuzda bu şekilde anlaşılmıyordu.
İstediğiniz şekilde düzelttim. Ayrıca, matrisin boyu istediğiniz ölçüde olabilir, kodları ona göre düzelttim.

Sub matris_coz()
tmpsutun = Range("A1").CurrentRegion.Columns.Count + 2
sutun = tmpsutun
satir = 1
sonsat = Range("A1").End(xlDown).Row
For i = 1 To sonsat
Cells(satir, sutun) = Cells(i, 1)
ysat = i
GoSub yaz
    
    For z = 1 To sonsat
        If z <> i Then
            For j = tmpsutun + 1 To Cells(satir, tmpsutun).End(xlToRight).Column
                If Cells(z, 1) = Cells(satir, j) Then
                    ysat = z
                    GoSub yaz
                    Exit For
                End If
            Next j
        End If
    Next z

satir = satir + 2:   sutun = tmpsutun
Next i

Exit Sub
yaz:
For y = 2 To (tmpsutun - 2)
    If Cells(ysat, y) <> "" Then sutun = sutun + 1:  Cells(satir, sutun) = Cells(ysat, y)
Next y
Return

End Sub

 

[mesudiye_052]

Sayın dost sayın moderatör arkadaşlar öncelikle teşekkür ederim
bu sorunu formüllerle yapabilirmiyiz

 

[hopeful]

Sayın dost harikasınız. Çok teşekkür ederim..
Son bişey daha rica edebilir miyim affınıza sığınarak.. Sonuçlar doğru. Ancak şöyle bi şeyi yaptırabilir miyiz? tüm cevap alanı için, aynı satırda aynı değerden yalnızca bir tane olsun.. Şöyle bir sonuç çıktı mesela 1 değeri için ;

1 , 2 , 3 , 5 , 4 , 8 , 6 , 7 , 8 , 9 , 9 , 10

8 ve 9 değerlerinden birden fazla var.

o halde çözüm şu şekilde olsun : 1, 2 , 3 , 5, 4, 8 , 6 , 7 , 9 , 10

Nasıl teşekkür edeceğimi bilemiyorum arkadaşlar. Allah razı olsun. Ellerinize emeklerinize sağlık..