Sayın hocalarım enter ile ilgili

[mustafayılmaz]

Sayın hocalarım bütün excel arşivini aradım bulamadım
şu konuda yardımcıolabilirmisiniz
sayfada ok tuşlarıyla istediğim bir hücreye gidip
o hücrede enter lediğimde hücrenin bulunduğu
satırı diğer sayfaya nasılaktarabiliriz
lütfen yardım edermisiniz

 

[Zeki Gürsoy]

Merhaba,

Sayfa üzerinde "tuş" olayları yoktur. "OnKey" metodunu kullanabilirsiniz.

Sub auto_open()
[COLOR=DarkGreen]'Büyük Enter için : ~
'Numpad Enter için: {ENTER}[/COLOR]

    Application.OnKey "{ENTER}", "aktar"
End Sub

Sub auto_close()
    Application.OnKey "{ENTER}"
End Sub

Sub aktar()
    MsgBox "mesaj"
End Sub

 

[fhrkrcll]

Merhaba;

Bunun için makroyu bir butona kaydedip aktarmak istediğiniz her hücre için, hüçreyi seçip butona basabilirsiniz. burda kullanacağınız makro aşağıdaki gibi olabilir:

Sub örnek()
'
' örnek Makro
'

'
ActiveCell.Select
Selection.Copy
Sheets("Sayfa2").Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End Sub

her butona bastığınızda seçili hücredeki değeri kopyalayıp, sayfa2 sheetinde seçili hücrenin bir altındaki hücreyi seçip oraya yapıştıracaktır.