İyi Ramazanlar ! kayıt sayfasındaki verileri bir makro ile veri sayfasındaki sütünlara göre kaydetmek istiyorum.Her defasında boş olan satırlara yazmasını tabii ,iyi iftarlar.
[vb:1:6119ef0774]Sub aktar()
Set s1 = Sheets("KAYIT")
Set s2 = Sheets("VERİ")
son1 = s1.[A16].End(3).Row
If son1 = 3 Then Exit Sub
son2 = s2.[A16].End(3).Row
For x = 4 To son1
s2.Cells(son2 + x - 3, 1) = s1.[G1]
s2.Cells(son2 + x - 3, 2) = s1.Cells(x, 1)
For y = 3 To 7
s2.Cells(son2 + x - 3, y) = s1.Cells(x, y + 1)
Next y
Next x
End Sub[/vb:1:6119ef0774]
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.