Xn kadar Satırlarıı sutun haline getirme....

[c_235]

Arkadaşlar mrb ...a1:ı10 hücreleri olan verileri tek sutun haline getirmeye çalışıyorum..örnek verecek olursam a1 hücresinden başlayıp ı10 hücresindeki değerleri sutuna dönüştürcek ama devamını a2 den başlayıp bu şekilde son satıra kadar devam edecek... kısacası her satırı sutuna dönüştürüyorum..ben makro yazdım ama hep tek satıra kadar gelebiliyorum 2 satırı bağlayamıyorum sutunun devamına ..yardım edersenin çok iyi olur arkadaşlar...

 

[Orion1]

Sub z()
Dim list As Collection, hcr As Range
Set list = New Collection
For Each hcr In Range("A1:I10")
list.Add hcr.Value
Next
Range("A1:I10").ClearContents
For i = 1 To list.Count
Cells(i, "A").Value = list(i)
Next
End Sub

 

[c_235]

teşk arkadaşım ama

arkadaşım teşkkür ederim ilgilendiğin için ama kod formunda değil de şöle yapamazmıyız!!!

Sub z()
Dim s(1000) As Integer
For i = 1 To 12
s(i) = Cells(1, i)
Cells(i, 15) = s(i)
Next i
End Sub

gördüün gibi burada sadece 1.satırı sutuna çeviriyor buraya bi tane daha for j=satırsayısı gibi döngü açıp yapılabilir mi ?..

 

[Orion1]

Böylemi?

Sub m()
Dim i As Byte, k As Byte, sat As Long
Dim liste() As Variant
liste = Range("A1:I10").Value
Range("A1:I10").ClearContents
sat = 1
For i = 1 To 9
    For k = 1 To 10
        Cells(sat, "A").Value = liste(k, i)
        sat = sat + 1
    Next k
Next i
MsgBox "İşem tamadır.", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[c_235]

teşekkür ederim evren kardeş...

 

[Orion1]

teşekkür ederim evren kardeş...

Rica ederim.
İyi çalışmalar.