• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

sütunları alt alta satırlara çevirme

Katılım
17 Haziran 2010
Mesajlar
4
Excel Vers. ve Dili
2003 türkçe
İyi günler arkadaşlar,
sorunum örnekte de göreceğiniz üzere 61 sütun ve belirsiz satır var. Ben bu sutün ve satırları düzenleyerek alt alta eklemek istiyorum.
a b c d e
kod beden adet beden adet

a b c
kod beden adet
kod beden adet

şekline çevirmek istiyorum. Yardımlarınız için şimdiden teşekkürler
 

Ekli dosyalar

Aşağıdaki şekilde dener misiniz ?
Kod:
Sub Aktar()
x = Sayfa1.[a65536].End(3).Row
y = Sayfa1.Range("a1").End(xlToRight).Column
k = 1
For i = 2 To x
For j = 2 To y Step 2
 k = k + 1
 Sayfa2.Cells(k, 1) = Sayfa1.Cells(i, 1)
 Sayfa2.Cells(k, 2) = Sayfa1.Cells(i, j)
 Sayfa2.Cells(k, 3) = Sayfa1.Cells(i, j + 1)
Next
Next
MsgBox "Bitti."
End Sub
 
tersi nasıl olur?
A2 ki değer B1 gelsin
Örnek
Ali
Aslan

Ali Aslan

olsun
 
Geri
Üst