Kod Düzenlenmesinde Yardım

[CENGİZHANTAHA]

Kolay gelsin üstadlarım. Tablo üzerinde değişiklik yaparak diğer sayfaya aktarma konusunda yardımlarınızı bekliyorum. Şimdiden teşekkür ederim.

[erseldemirel]

Örnek transpoze kodu. Geliştirmeniz lazım

Kod: Tümünü seç

Sub Transpose()
sourceRanges = Array("C4:N4", "C2:N2", "A4:A4")
destinationRanges = Array("S2", "R2", "Q2")
For i = LBound(sourceRanges) To UBound(sourceRanges)
Set sourceRange = ThisWorkbook.Sheets("Sayfa1").Range(sourceRanges(i))
Set destinationRange = ThisWorkbook.Sheets("Sayfa1").Range(destinationRanges(i))
destinationRange.Resize(sourceRange.Columns.Count, sourceRange.Rows.Count).Value = WorksheetFunction.Transpose(sourceRange.Value)
Next i
Range("A1").Select
End Sub

[veyselemre]

Kod: Tümünü seç

Sub test()
    Dim values, i, ii, say, liste, son
    son = 18 ' Cells(Rows.Count, 1).End(3).Row
    values = Range("A2:N" & son).Value
    ReDim liste(1 To (son - 3) * 12, 1 To 3)
    For i = 3 To UBound(values)
        For ii = 3 To 14
            say = say + 1
            liste(say, 1) = values(i, 1)
            liste(say, 2) = values(1, ii)
            liste(say, 3) = values(i, ii)
        Next ii
    Next i
    Range("P3").Resize(UBound(liste), 3).Value = liste
End Sub