Benim ekteki gibi bir sorum var. Elimde bir sutündan ve satırlardan oluşan değerlerim var. Satırdaki değerleri sırasıyla, açtığım yeni 3 sütuna (sarı ile boyalı) yazdırmak istiyorum. Yardımcı olursanız çok sevinirim. Örneği linkteki gibidir.
B2 den başlayan değerleri istediğiniz şekilde E,F,G kolonlarına yazar.
Kod:
Sub degistir()
son = [B65000].End(3).Row
k = 2
For t = 2 To son Step 3
Cells(k, "E") = Cells(t, "B")
Cells(k, "F") = Cells(t + 1, "B")
Cells(k, "G") = Cells(t + 2, "B")
k = k + 1
Next
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.