fonksiyon tuşlarıyla altta yinelenen satır oluşturma

[kucukdunyam]

merhaba, ben sürekli satır satır veri giriyorum. bazı veriler yinelenenlerden oluşuyor. fonksiyon tuşuna veya başka kısa tuşlara atayabileceğim makro yapabilirmiyiz. örneğin, sıra no, kayıt no, adı soyadı, ve tutar dan oluşan satırda, kısayol tuşuna bastığımda veri girilen en son satırdan, bir sonraki satıra çoğaltacak, ancak, sıra no ve , kayıt no'yu birer artıracak. şimdiden çok teşekkür ederim.

 

[hamitcan]

Bir Module içine;

Sub Calis()
i = [a65536].End(3).Row
Cells(i + 1, 1) = Cells(i, 1) + 1
Cells(i + 1, 2) = Cells(i, 2) + 1
Cells(i + 1, 3) = Cells(i, 3)
Cells(i + 1, 4) = Cells(i, 4)
End Sub

ThisWorkBook kısmına;

Private Sub Workbook_Activate()
Application.OnKey "{F12}", "Calis"
End Sub
Private Sub Workbook_deActivate()
Application.OnKey "{F12}", ""
End Sub

Ekleyin.

 

[kucukdunyam]

f12 ye basınca farklı kaydet çıkıyor ama,

 

[kucukdunyam]

evet yaptım çokkkk teşekkür ederim.