Toplam 3 sonutan 1 ile 3 arasndakiler gsteriliyor.

Konu: Yatay verileri forml yada makro ile belirli dzende baka sayfaya aktarmak

  1. #1
    ye
    yelik tarihi
    Oct 2004
    Mesajlar
    96

    Yatay verileri forml yada makro ile belirli dzende baka sayfaya aktarmak

    Gnaydn arkadalar;
    rnek dosyada Sayfa2 deki bilgileri Sayfa1 deki ekilde aktarmak istiyorum. (Sadece rnek olmas asndan rnek olarak yaptm) mantn kavradm zaman dosyama uygulayabilmek maksadm.
    Yardmc olacak arkadalara imdiden teekkrler.



    http://s3.dosya.tc/server16/v0vf7y/ORNEK__1_.xlsx.html

  2. #2
    Kdemli ye
    yelik tarihi
    Dec 2009
    Nereden
    stanbul
    Versiyon
    Excel 2003 - 2007 TR
    Mesajlar
    415
    Merhaba,

    Bu ekilde kodu deneyiniz.

    Kod:
    Sub tbl()
    Set sh1 = Sheets("Sayfa1")
    Set sh2 = Sheets("Sayfa2")
        a = sh2.Range("B4:Q" & sh2.Cells(Rows.Count, 2).End(3).Row).Value
        ReDim b(1 To UBound(a) * 5, 1 To 3)
            For i = 1 To UBound(a)
                say = say + 1
                For j = 1 To 3
                    If j = 1 Then: s1 = 1: s2 = 16: s3 = 2: s4 = 15: s5 = 3
                    If j = 2 Then: s1 = 4: s2 = 14: s3 = 5: s4 = 13: s5 = 7
                    If j = 3 Then: s1 = 8: s2 = 12: s3 = 9: s4 = 11: s5 = 10
                    b(say, j) = a(i, s1)
                    b(say + 1, j) = a(i, s2)
                    b(say + 2, j) = a(i, s3)
                    b(say + 3, j) = a(i, s4)
                    b(say + 4, j) = a(i, s5)
                Next j
                say = say + 4
            Next i
        sh1.[F6].Resize(say, 3) = b
    MsgBox "lem bitti.", vbInformation
    End Sub

  3. #3
    ye
    yelik tarihi
    Oct 2004
    Mesajlar
    96
    Teekkrler ziynettin bey;
    Elinize salk.Tam istediim gibi olmu. Kodlar kendi dosyama uyarlayabilirim dncesindeydim ancak hangi kodlar ne ie yaradn tespit edemedim biraz uraacam sanrm.Zaman bulabilirseniz hangi satr ne ie yaryor yazabilirseniz rahat zeceim Teekkrler.

Konu Bilgisi

Users Browsing this Thread

u anda 1 yemiz bu konuya gz atyor. (0 kaytl ye ve 1 misafir.)

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Ykleme Yetkiniz Yok
  • Mesajnz Deitirme Yetkiniz Yok
  •