aşağı giden listeyi sağa doğru linkleme

[sescizi]

Arkadaşlar aşağı doğru giden bir listeyi başka sayfada sağa doğru linklemenin yolu var mı acaba. Yani exceldeki paste special daki Transpose olayından bahsediyorum bilenler için. ama transpose yaparken aynı anda paste link yapamıyoruz bu konuda bilgisi olan var mı?

 

[N.Ziya Hiçdurmaz]

Bu kodu bir deneyiniz.
Sub test()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
For i = 1 To 20
s2.Cells(1, i) = Range("a" & i).Value
Next
End Sub

 

[Necdet]

Arkadaşlar aşağı doğru giden bir listeyi başka sayfada sağa doğru linklemenin yolu var mı acaba. Yani exceldeki paste special daki Transpose olayından bahsediyorum bilenler için. ama transpose yaparken aynı anda paste link yapamıyoruz bu konuda bilgisi olan var mı?

Excel izin vermemiş nedense.

Örnek dosyayı inceleyiniz, umarım yardımcı olur.

Kodlar daha kısa olabilir ama ben beceremedim

Public Sub Kopyala()
Application.ScreenUpdating = False
Sheets(2).Cells.ClearContents
son = Sheets(1).[a65536].End(3).Row
For i = 1 To son
    Sheets(1).Select
    Range("A" & i).Select
    Selection.Copy
    Sheets(2).Select
    Range(Cells(1, i), Cells(1, i)).Select
    ActiveSheet.Paste Link:=True
Next i
Application.CutCopyMode = False
End Sub

 

[Merhum İdris SERDAR]

Arkadaşlar aşağı doğru giden bir listeyi başka sayfada sağa doğru linklemenin yolu var mı acaba. Yani exceldeki paste special daki Transpose olayından bahsediyorum bilenler için. ama transpose yaparken aynı anda paste link yapamıyoruz bu konuda bilgisi olan var mı?

DEVRİK_DÖNÜŞÜM fonksiyonu ile yapabilirsiniz.

Örnek dosya ekte.

..

 

[sescizi]

Yurttas a çok teşekkürler

Kardeş ellerine kalvyene aklına sağlık. Bu formulden haberim bile yoktu çok çok teşekkürler