Range Yardım

[alerk]

merhaba arkadaşlar. ben personel kartı çıkartıyorum.. bu kartı yaparkene önce çıkarttığım kart bilgisini silip yenisini yazıyorum. sonra yazıcıya gönderiyorum., bu hep böyle devam ediyor. ama ben şunu istiyorum ben kart çıkarttığım kişilerin bilgilerini buton sayesinde tıkladığım zaman sheet2 sayfasana alt alta yazacak., yani eski kayıtlar silinmeyecek başka bir depoda saklanacak olurmu acaba.. =?? şimdiden teşekkürler. hepinize kolay gelsin.,

 

[Necdet]

Sorunuzu örnek dosya ile desteklerseniz daha çabuk yanıt alırsınız.

 

[alerk]

ornek

basit bir sey hazirladim. kimlik bilgisini girinci aktar dedigim zaman veriyi dataya kaydedecek. hepsi bu.

 

[Ayhan Ercan]

Merhaba

Ek dosyayı inceleyiniz...

Sub KAY()
Dim son As Long, i As Byte
son = Sheets("data").[a65536].End(3).Row + 1
For i = 1 To 5
Sheets("data").Cells(son, i) = Sheets("Sayfa1").Cells(i + 5, "d")
Next i
Sheets("Sayfa1").Range("d6:d10").Clear
End Sub

 

[alerk]

TeŞekkÜrler Ayhan Bey. İstedİĞİm Bu İdİ. Elİnİze SaĞlik.

 

[Ayhan Ercan]

TeŞekkÜrler Ayhan Bey. İstedİĞİm Bu İdİ. Elİnİze SaĞlik.

Rica ederim.
İyi Çalışmalar.. k::