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

Katılım
17 Şubat 2008
Mesajlar
10
Excel Vers. ve Dili
excel 2003 türkçe
merhaba ekteki dosyada derdimi tam olarak anlatmaya çalıştım yardımcı olursanız sevinirim... Şimdiden teşekkürler..
 

Ekli dosyalar

Son düzenleme:

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,374
Excel Vers. ve Dili
Ofis 365 Türkçe
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 :)


Kod:
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
 

Ekli dosyalar

Katılım
17 Şubat 2008
Mesajlar
10
Excel Vers. ve Dili
excel 2003 türkçe
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,374
Excel Vers. ve Dili
Ofis 365 Türkçe
İ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.
 
Üst