Excel Sütün Satır Dönüşümü Formül ile?

[rkinaci]

Merhaba arkadaşlar,
Excel de farklı 2 sayfadan formüller ile bilgi almaya çalışıyorum ama yapamadım. Şöyleki :



veri sayfasında günlük girilen bilgiler var. Buraya gerekli bilgiler her bir sütunu alan gibi düşünürsek günlük olarak giriliyor.



Aylar sayfasında ise veri sayfasındaki alt alta girilen hücrelerdeki verileri (her bir satır bir sütüna denk gelecek şekilde) formül ile gösterip almak istiyorum. Sorun is şu. Veri sayfasında bilgiler aşağı doğru gidiyor ve ben aylar sayfasında ilk formüllü hücreyi sağa doğru çekince o formül veri sayfasında da sağa doğru artarak gidiyor. Yani ben ilk formülümde =veri!B3 yazıp sağa doğru çektiğimde =veri!B4, =veri!B5 ... şeklinde ilerlemesini istiyorum. Oysa =veri!B3, =veri!C3, =veri!D3 ... şeklinde formülleri ekliyor. İnternette arattım ama sonuçlar satır sütun dönüşümü için hep kopyala->özel yapıştır->işlemi tersine çevirdeki satır sütun dönüşümüne örnekler verilmiş. Nasıl olacağını bilen var mı acaba?

[ilhan_mkp]

hocam bu makro işinizi görecektir.
aslında yöntem çok basit makro kaydetten kayıt olayını başlatın.
devamında üşenmeden bütün hücreleri tek tek ikinci sayfada taşımanız gereken hücrelere taşıyın.
maklro kaydını durdurun.
ikinci sayfadaki hücreleri silip makroyu çalıştırın excel kendisi hücrelerde ne veri varsa ikinci sayfaya taşısın sizin kopyaladığınız hücrelere.
alttaki kodlar örnek olsun diye kaydettiklerim.

Sub Makro1()
'
' Makro1 Makro
'

'
    Range("A2").Select                 
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("B1").Select
    ActiveSheet.Paste
    Sheets("Sayfa1").Select
    Range("A3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("C1").Select
    ActiveSheet.Paste
    Sheets("Sayfa1").Select
    Range("A4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("D1").Select
    ActiveSheet.Paste
    Sheets("Sayfa1").Select
    Range("A5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("E1").Select
    ActiveSheet.Paste
    Sheets("Sayfa1").Select
    Range("A6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("F1").Select
    ActiveSheet.Paste
    Sheets("Sayfa1").Select
    Range("B2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("B2").Select
    ActiveSheet.Paste
    Sheets("Sayfa1").Select
    Range("B3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("C2").Select
    ActiveSheet.Paste
    Sheets("Sayfa1").Select
    Range("B4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("D2").Select
    ActiveSheet.Paste
    Sheets("Sayfa1").Select
    Range("B5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("E2").Select
    ActiveSheet.Paste
    Sheets("Sayfa1").Select
    Range("B6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("F2").Select
    ActiveSheet.Paste
    Sheets("Sayfa1").Select
    Range("C2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("B3").Select
    ActiveSheet.Paste
    Sheets("Sayfa1").Select
    Range("C3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("C3").Select
    ActiveSheet.Paste
    Sheets("Sayfa1").Select
    Range("D3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C3").Select
    Sheets("Sayfa1").Select
    Range("C4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("D3").Select
    ActiveSheet.Paste
    Sheets("Sayfa1").Select
    Range("C5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("E3").Select
    ActiveSheet.Paste
    Sheets("Sayfa1").Select
    Range("C6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("F3").Select
    ActiveSheet.Paste
    Sheets("Sayfa1").Select
    Range("D2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("B4").Select
    ActiveSheet.Paste
    Sheets("Sayfa1").Select
    Range("D3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("C4").Select
    ActiveSheet.Paste
    Sheets("Sayfa1").Select
    Range("D4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("D4").Select
    ActiveSheet.Paste
    Sheets("Sayfa1").Select
    Range("D5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("E4").Select
    ActiveSheet.Paste
    Sheets("Sayfa1").Select
    Range("D6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("F4").Select
    ActiveSheet.Paste
End Sub

[rkinaci]

Hocam cevabınız için çok teşekkürler. Sanırım makrosuz veya kodsuz olmayacak. Baktım da birçok yerde hep vb kodlarla örnek verilmiş. Deneyip göreceğim. Kolay gelsin.

[ilhan_mkp]

hocam macroyu yazmak için uğraşmıyorsunuz siz kopyalarken excel kaydediyor.
araştırmayı macro kaydet üzerine yaparsanız ne kadar kolay olduğunu göreceksiniz.
aynı macroyu daha sonra kullanacaksınız her hücreye formul yazmaktan daha basit.