Excel'de Dikey sutunları yatay sıralama.

[SerdarEngin]

Ekte verdiğim excel deki sayıları sağa dogru 10 ar lı bişekilde sıralayıp aşağıya doğru ilerlemesini sağlamam gerek.

Örn;

..........
..........
..........


:yardim:

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfa1 de bir butona bağlayarak çalışın.

Sub sirala()
Application.ScreenUpdating = False
For a = 1 To [a65536].End(3).Row Step 10
Range("a" & a & ":a" & a + 9).Copy
Cells(c + 1, "b").PasteSpecial , Transpose:=True
c = c + 1
Next
Application.CutCopyMode = False
End Sub

 

[SerdarEngin]

Gerçekten çok teşekkür ederiz.Hallettik işimizi.

Kolay geLsin.