DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub test()
sat = 2
For ii = 2 To Cells(1, 1).End(2).Column
For i = 2 To Cells(Rows.Count, 1).End(3).Row
Cells(sat, 11) = Cells(i, 1)
Cells(sat, 12) = Cells(i, ii)
Cells(sat, 13) = Cells(1, ii)
sat = sat + 1
Next i
Next ii
End Subhocam tşkler cevabınız için, makro fazla bilmiyorum ama kendi verilerime uyarlayabildim, tek sorum örnek datada A sütunun soluna başka bir data gelirse sağ taraftaki istediğim dataya 4. sütun olarak nasıl eklerim.
Sub test()
ySat = 1
basSut = 25
For sut = 3 To 17
For sat = 2 To Cells(Rows.Count, 1).End(3).Row
ySat = ySat + 1
Cells(ySat, basSut) = Cells(sat, 1)
Cells(ySat, basSut + 1) = Cells(sat, 2)
Cells(ySat, basSut + 2) = Cells(1, sut)
Cells(ySat, basSut + 3) = Cells(sat, sut)
Next sat
Next sut
Range(Cells(2, basSut), Cells(ySat, basSut)).NumberFormat = "mmm.yyyy"
End Sub