Satırlarda kayıtlı verileri sütunlara dizmek

[1Al2Ver]

Değerli uzmanlarım, soldan sağa doğru satırlara yazılmış verileri ( Örn; A1;K1) bir defada, bir düğme ile veya komut ile sütunlara ( Örn; A2;A100) dizebilirmiyiz, mümkün mü ?Teşekkür ederim

 

[Recep İpek]

Merhaba,

Aşağıdaki kodları deneyiniz.

Sub Macro2()
    Range("A1:K1").Select
    Selection.Copy
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Range("A1").Select
    Application.CutCopyMode = False
End Sub

 

[Halit TÜRK]

Merhabalar... Formülle isterseniz...
1) A1:K1 seçin Ctrl+C ile kopyaladıktan sonra A2 üzerine sağ tıkla ve özel yapıştır, işlemi ters çevir ve tamamı tıklayınız..
2) A2:A12 arasını seçtikten sonra =DEVRİK_DÖNÜŞÜM(A1:K1) formülünü yazdıktan sonra Ctrl+Shift+enter tuşlarına basın.. (A1:K1 aralığı 11 hücredir)

 

[Orion1]

Aşağıdaki koduda kullanabilirsiniz.

Sub cevir()
Dim i, j As Byte, k As Long
Dim myarr(11)
Range("A2:A100").ClearContents
For i = 1 To 11
    myarr(i) = Cells(1, i).Value
Next i
j = 1
For k = 2 To 100
    Cells(k, "A").Value = myarr(j)
    j = j + 1
    If j = 12 Then j = 1
Next k
MsgBox "İşlem Tamam"
End Sub

 

[1Al2Ver]

Sn.Ripek elinize sağlık,çalışıyor, bu komutların tüm excel dosyalarında çalışması için sanırım "Araçlar-Eklentiler" e (Addıns)kaydedilmesi gerekiyor,yolu nedir ?

 

[Recep İpek]

Eklenti dosyası hazırlamak ile ilgili aşağıdaki linki inceleyiniz.

http://www.excel.web.tr/showthread.php?t=7756