Soru 3 farklı değişkene göre veri seçimi yardım.

[latifk]

Merhaba;

Excelde förmül ile çözemediğim bir konu için kod yazmanızla ilgili yardımınıza ihtiyacım var.
Ekteki resimlerde data sayfasındaki renklerle tablo1 sayfasındaki renkler eşit ise data sayfasındaki y, x, z değerlerinin tablo1 sayfasındaki y, x, z sutunlarına gelmesini istiyorum.

Konu ile ilgil sitenizde araştırma yaptım yakın şeyler buldum fakat sorunumu çözmüyor. Konu ile ilgili yardımlarınızı rica ederim.

Fotolar
https://ibb.co/QPsw0cs tablo1 sayfası linki

https://ibb.co/3Nrm07d data sayfası linki

 

[veyselemre]

Sub aktar()
    Set sD = Sheets("Data")
    Set sT = Sheets("Tablo1")
    sonT = sT.Cells(Rows.Count, 2).End(3).Row
    veri = sD.Range("A3:J" & sD.Cells(Rows.Count, 1).End(3).Row).Value

    ky = sT.Range("B1")
    For i = 1 To UBound(veri)
        If veri(i, 6) = ky Then
            trh = veri(i, 1)
            sira = veri(i, 7)
            For ii = 4 To sonT
                If sT.Cells(ii, 2) = trh Then
                    bas = sira * 3
                    For iii = 0 To 2
                        sT.Cells(ii, bas + iii) = veri(i, 8 + iii)
                    Next iii
                End If
            Next ii
        End If
    Next i
    Set sD = Nothing
    Set sT = Nothing
End Sub

 

[latifk]

Veysel Bey ,

Cevap için teşekkürler fakat kodu çalıştırdığımda hiçbir veriyi aktarmıyor, neyi eksik yapıyor olabilirim.

 

[Merhum İdris SERDAR]

.

Dün yazdığım mesajda dosya eklenirse daha uygun olur diye ancak, cevap verildiği için bu mesajımı silmiştim.

Dosya eklenirse daha çabuk çözüm bulunabilir.

.

 

[latifk]

http://s7.dosya.tc/server12/zguwj2/latifk.xlsx.html

Merhaba İdris Bey,
Dosya linkini yukarıda paylaştım.
Tablo1 ve Data sayfasında renkler aynı olduğunda , Tablo1 sayfasındaki noktaya denk gelen(1,2,3,4,5,yeşilrenk) hangisiyse o noktanın altına Data sayfasındaki y,x,z değerlerinin gelmesini istiyorum.

 

[veyselemre]

Veysel Bey ,

Cevap için teşekkürler fakat kodu çalıştırdığımda hiçbir veriyi aktarmıyor, neyi eksik yapıyor olabilirim.

Dosyanızda üç kriteri sağlayan hiç veri var mı ki aktarılsın.

 

[latifk]

Tabiki var, olmasaydı yazıyor olmazdım.

 

[veyselemre]

Burda eşleşen tarih yalnızca 15 ocak oda kırmızı alan tutmuyor.

 

[latifk]

tablo1 sayfasındaki kırmızı hücreyi, data sayfasındaki 15.Ocak karşılığı olan kırmızı hücreyle (0+006,50 değiştirip 0+006,80) aynı yaptığımda bunlara denk gelen nokta 1 deki değerleri tablo1 deki 1 numaralı y,x,z hücrelerine getirmiyor.