KAYIT MAKROSU

[aydın]

İ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.

 

[veyselemre]

[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]

 

[veyselemre]

son2 = s2.[A65536].End(3).Row

şeklinde düzeltin

 

[aydın]

olmadı ? s2.Cells(son2 + x - 3,1)=sl.[G1] sarı rente hata çıkıyor.

 

[veyselemre]

olmadı ? s2.Cells(son2 + x - 3,1)=sl.[G1] sarı rente hata çıkıyor.

sl değil
s1
makroyu aynen kopyala yapıştır