sayfalar arası kodlara göre veri aktarma

[myerer38]

ekin içindeki örnekte detaylıca açıkladım
sayfa1 den sayfa2 ye bilgi aktarmak istiyorum yardımlarını bekliyorum

 

[Orion1]

makro kaydet ile aldım.
Deneyiniz.

Sub Makro1()
    Application.ScreenUpdating = False
    Range("A1:L11").Copy
    Sheets("Sayfa2").Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Sheets("Sayfa2").Select
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

 

[myerer38]

verdiğiniz formül yatay olanı dikeye değiştirmiş ben sadece 3 sutunu istiyorum
birde yeni örneğimde birazdaha detaylı anlattım

 

[myerer38]

renklerden yola çıkmamız gerekiyor çünke sayfa çok büyük 3. satırda var ikinci sıra örnegin 29. satırda 3. sıra 65. sıra da uzuyıp gidiyor tüm sayfadaki mavi renkli olan hücrelerden değer aratacağız (kodlar) bu kodun altındaki hücreden isim alacak ve 25 satır altındaki başka hücreden de fiyatları bulacak 3 farklı renkten değer çekmemiz gerekiyor