Tıkladıgım Hücredeki Degeri Otomatik Kopyalamak

[Samet Saglam]

Excellde üzerini tıkladıgım bir hücredeki telefon numarasını otomatik olarak kopyalamak istiyorum. Yani hücrenin içine girmeden sadece üzerini bir kere tıklayınca 10 haneli sayılar direk kopyalayabilirmiyim.

 

[Korhan Ayhan]

Selamlar,

Forumumuza hoşgeldiniz.

Aşağıdaki kodu denermisiniz. Sayfanızın kod bölümüne uygulayınız.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode = xlCopy Then
        Target.PasteSpecial
        Application.CutCopyMode = False
    Else
        Target.Copy
    End If
End Sub

 

[Ergün Güler]

Excellde üzerini tıkladıgım bir hücredeki telefon numarasını otomatik olarak kopyalamak istiyorum. Yani hücrenin içine girmeden sadece üzerini bir kere tıklayınca 10 haneli sayılar direk kopyalayabilirmiyim.

Selam,

Aşağıdaki kodları ilgili sayfanın kod sayfasına yapıştırınız.
Kopyalamak için 1 kez tıklayınız. Yapıştırmak için sağa 1 kez tıklayınız.
kırmızı alandaki A1:A10 kopyalanacak aralık B1:B10 yapıştıralacak aralıktır.
Siz kendiniz istediğiniz gibi düzenleyiniz.
İyi çalışmalar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("[COLOR="Red"]A1:A10[/COLOR]")) Is Nothing Then Exit Sub

Target.Copy

End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

If Intersect(Target, Range("[COLOR="red"]B2:B10[/COLOR]")) Is Nothing Then Exit Sub

ActiveSheet.Paste

End Sub

 

[Samet Saglam]

Herkeze yardımları için teşekkürler. Korhanın verdigi baya işime yaradı ama şöyle küçük bir değişiklik lazım.
Korhan senin verdiginde tıklayınca kopyalıyor bir daha tıklayınca yapıştırıyor. onu kapatamazmıyız. Çünkü kopyaladıgım veriyi bir programa yazıyorum. Sadece kopyalama işlemi benim için yeterli olacak. Excelde yanlışlıkla boş bir hücre tıklanırsa aynı dosyada bu sefer kopyalamak için tıkladıgım hücreyi siliyor.

 

[Ergün Güler]

Herkeze yardımları için teşekkürler. Korhanın verdigi baya işime yaradı ama şöyle küçük bir değişiklik lazım.
Korhan senin verdiginde tıklayınca kopyalıyor bir daha tıklayınca yapıştırıyor. onu kapatamazmıyız. Çünkü kopyaladıgım veriyi bir programa yazıyorum. Sadece kopyalama işlemi benim için yeterli olacak. Excelde yanlışlıkla boş bir hücre tıklanırsa aynı dosyada bu sefer kopyalamak için tıkladıgım hücreyi siliyor.

Selam,
Benim verdiğim kodlar zaten 2 tane idi. Üsteki kopyalama, alttaki ise yapıştırma yapıyordu. sadece kopyalama yeterli ise aşağıdak gibi yapınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Target.Copy

End Sub

 

[Samet Saglam]

Herkeze yardımları için teşekkürler. Sorunum halloldu.

 

[Ergün Güler]

Herkeze yardımları için teşekkürler. Sorunum halloldu.

Biz teşekkür ederiz .
iYi çalışmalar.