sütünları sıralı bir şekilde satıra çevirmek ...

[bybaron]

merhaba ekteki dosyada derdimi tam olarak anlatmaya çalıştım yardımcı olursanız sevinirim... Şimdiden teşekkürler..

 

[Necdet]

Merhaba,

İlk mesajınız
İlk mesajınız "acele yardım" diye başlıyor
İlk mesajınız "acele yardım ve Saat 21:45" bu saatte hayırdır ne acelesi?
Acele işe şeytan bulaşır

Option Explicit
Sub Diz()
Dim i As Long
Dim SonSatır As Long
Dim SonSütun As Integer
Dim s1 As Worksheet
Dim s2 As Worksheet
Application.ScreenUpdating = False
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s1.Select
Columns("B").ClearContents
[B1] = "Sayılar"
SonSütun = s2.[IV1].End(1).Column
For i = 1 To s2.[A65536].End(3).Row
    s2.Range(s2.Cells(i, "A"), s2.Cells(i, SonSütun)).Copy
    SonSatır = s1.[B65536].End(3).Row + 1
    s1.Range("B" & SonSatır).PasteSpecial Transpose:=True
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamam....", vbInformation, "[URL="http://www.excel.web.tr"]www.excel.web.tr[/URL]"
End Sub

 

[bybaron]

değerli kardeşim Necdet Yeşertener sen süpersin yaaa

ne desem boş vallahi bu işi pirinden öğrenmek lazım yarın müdürüme hava atacam senin sayende yoksa sabah oturup bu 10.000 satırı tek tek düzenleyecektim.... Ellerine sağlık ....

 

[Necdet]

İyi hava atmalar deyim bende.

Yalnız siz sıralı şekilde demişsiniz ben sıralatmadım, sıralı da isterseniz bilahere kodları ekleriz.

Güle güle kullanınız.