DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
..Merhaba,
Özet tablo halinde olan bir veriyi, detaylı bir listeye çevirmek istiyorum. Örnek dosya ekte. Sum.product denemelerim oldu. başarılı olamadım. Yardımlarınızı rica ederim.
Teşekkürler.
Sub formatdegistir()
c = 2
s = [a65536].End(3).Row
For i = 2 To 5
Range("l" & c & ":" & "l" & c + s - 2) = Cells(1, i)
Range("m" & c & ":" & "m" & c + s - 2) = Range("a2:a" & s).Value
Range("n" & c & ":" & "n" & c + s - 2) = Range(Cells(2, i), Cells(s, i)).Value
c = c + s - 1
Next
End Sub