Matrix Tablosundan veri çekme

[waytooraider]

Merhaba
Ekteki excelde matrix tablosunu liste haline getirmek istiyorum.Matrix sayfasında dolu olan hücrelerin b stunundaki ve 3. satırdaki değerleri alarak liste sayfasında alt alta yazmasını istiyorum.
Formülle yapmaya çalıştım,ama olmadı..

 

[Erdem Akdemir]

Merhaba,

Düşeyara ve Yatayara fonksiyonlarını inceleyiniz.

 

[waytooraider]

Size zahmet sadece 1 tanesini formülleyebilir misiniz?Denedim olmadı.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod'u kullanabilirsiniz.
Matrix sayfasındaki;
-- B sütunundaki verileri getirmek için kırmızı renklendirdiğim kısmı kullanın, mavi olan satırı silin.
-- C sütunundaki verileri getirmek için mavi renklendirdiğim kısmı kullanın, kırmızı olan satırları silin.
.

[B]Sub MATRIX_DOLU_LISTELE()[/B]
Set m = Sheets("Matrix"): Set l = Sheets("Liste")
l.Range("A:C").ClearContents
For sut = 4 To 16
    For sat = 4 To 11
        If m.Cells(sat, sut) <> "" Then
        lsat = l.[A65536].End(3).Row + 1
[B][COLOR="Red"]            If m.Cells(sat, 2) = "" Then
                l.Cells(lsat, 1) = l.Cells(lsat - 1, 1)
            Else
                l.Cells(lsat, 1) = m.Cells(sat, 2)
            End If[/COLOR][/B]
[COLOR="Blue"][B]            l.Cells(lsat, 1) = m.Cells(sat, 3)[/B][/COLOR]
            l.Cells(lsat, 2) = m.Cells(sat, sut)
            l.Cells(lsat, 3) = m.Cells(3, sut)
        End If
    Next
Next
MsgBox "İşlem tamamlandı.", vbInformation, "..:: O.BARAN ::.."
[B]End Sub[/B]

 

[waytooraider]

Çok teşekkür ederim.Taksit taksit oldu ama Matrix in içindeki hücredeki sayının rengi neyse liste sayfasındaki satırın rengi olabilir mi?

 

[systran]

şu ilaveyi yapınız.

l.Cells(lsat, 1) = m.Cells(sat, 3)
l.Cells(lsat, 2) = m.Cells(sat, sut)
[COLOR="Red"]l.Cells(lsat, 2).Interior.Color = m.Cells(sat, sut).Interior.Color[/COLOR]
l.Cells(lsat, 3) = m.Cells(3, sut)

 

[waytooraider]

Çok teşekkür ediyorum