kopyalama...

[karakayalı]

hücre içerisine değer girdiğimde...girilen değerin otomatik kopyalanmasını istiyorum...(değer girdikten sonra enter yapılması ile de girilen değerin kopyalanması olabilir)yardımlarınız için şimdiden teşk.ler...

 

[Ömer BARAN]

Merhaba.

İşlemi kullanmak istediğiniz sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
açılan VBA ekranında sağ taraftaki boş alana aşağıdaki kod' yapıştırın.
Bu işlem için hedef hücre olarak ben A1 hücresini tercih ettim.

A1'e bir veri yazdıktan sonra verinin yazılacağı hücreyi seçip ENTER'a basmanız yeterli olur.
ENTER ile sadece 1 hücreye yapıştırma yapabilirsiniz, farenin sağ tuşunu kullanarak yapıştırma
yaparsanız işlem iptal edilinceye (ESC veya herhangi bir hücreye elle veri yazarak olabilir) kadar
yapıştırmaya devam edebilirsiniz.

.

[FONT="Arial Narrow"]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [[B][COLOR="blue"]A1[/COLOR][/B]]) Is Nothing Then Exit Sub
    If Target <> "" Then Target.Copy
End Sub[/FONT]

 

[karakayalı]

ömer kardeşim...teşekkür ederim...