Hücreyi Tek Tuş İle Kopyalama.

[0oMURATo0]

Arkadaşlar merhaba.. Bir hücreyi tek tuş ile nasıl kopyalayabilirim? Yardımcı olursanız çok sevinirim..

Saygılar,

 

[bedri41]

Arkadaşlar merhaba.. Bir hücreyi tek tuş ile nasıl kopyalayabilirim? Yardımcı olursanız çok sevinirim..

Saygılar,

Eğer sabit bir hücreyi kopyalayacaksanız örneğin A1 hücresi

Sub copy()
Range("A1").copy
End Sub

O an seçili hücreyi kopyalamak istiyorsanız

Sub copy()
ActiveCell.copy
End Sub

kodlarından birini bir modüle ekleyip tek tusla kopyalama yapabilirsiniz.
(iki tuş ama ben Ctrl C önreririm)
Kolay Gelsin

 

[0oMURATo0]

Bedri Bey teşekkürler.. o an seçili hücreyi kopyalamak istiyorum fakat bu yazılan kodda atamak istedğim tuşu nasıl belirticem acaba?

 

[Seyit Tiken]

Bu şekilde deneyiniz.

 Selection.Copy

 

[bedri41]

Bedri Bey teşekkürler.. o an seçili hücreyi kopyalamak istiyorum fakat bu yazılan kodda atamak istedğim tuşu nasıl belirticem acaba?

Bunu sayfaya bir buton ekleyerek yapabilirsiniz. Yok bu benim excelimin bir fonksiyonu gibi olsun, nasıl ki excelkin menüsündeki bir tuşa bastığımda görevi neyse yapıyorsa bu işlem içinde bir tuş oluşturayım her tıkladığımda seçili hücreyi kopyalasın diyorsanız, kodu PERSONEL MAKRO olarak kaydedin daha sonra Excel Seçenekleri / Özelleştir menüsünden Komutları Seçin / Makrolar seçip bu kodu seçeceğiniz bir ikonla excelinize taşıyabilirsiniz.

Kolay Gelsin

 

[0oMURATo0]

Arkadaşlar ilginiz için teşekkürler fakat excel i çok iyi bilmediğim için tam olarak çözemedim..
Sub copy()
ActiveCell.copy
End Sub

Örneğin q tuşuna basınca seçtiğim hücreyi kopyalasın istiyorum. Bunu kodun içerisinde nasıl belirtmem gerekiyor acaba?

 

[Korhan Ayhan]

Merhaba,

Boş bir çalışma kitabı açın.
ALT+F11 tuşlarına basıp kod editörünü açın.
Boş bir modül ekleyip aşağıdaki kodları bu modüle aktarın.
Dosyanızı kayıt edip kapatıp açın.
Alan seçip "Q" tuşuna basın.

Sub AUTO_OPEN()
    Application.OnKey "q", "Kopyala"
End Sub

Sub AUTO_CLOSE()
    Application.OnKey "q"
End Sub

Sub Kopyala()
    Selection.Copy
End Sub

 

[0oMURATo0]

İlginiz için teşekkür ederim..

İyi çalışmalar,