koda yardım lütfen

[hakpin]

Değerli hocalarım sizin için çok basit olan ekteki dosyamda açıklaması mevcut koda yardım ederseniz çok sevinirim.Şimdiden teşekkürler.

 

[Orion1]

Merhaba.
Aşağıdaki kodları denermisiniz.

Dim dolusutun As Byte
dolusutun = Sheets("Sayfa2").Cells(4, 256).End(xlToLeft).Column
If dolusutun >= 9 Then
    MsgBox "Sütun Doldu.Kayıt yapamazsınız..!!", vbCritical, Application.UserName
    Exit Sub
End If
Sheets("Sayfa2").Cells(4, dolusutun + 1) = [b7]
Sheets("Sayfa2").Cells(5, dolusutun + 1) = [c7]
MsgBox "Veriler aktarıldı.", vbOKOnly, Application.UserName