Hücreye Tıkladığımda Farklı Hücreye Tıklanan Hücreyi Yazması

[mkrdg1]

Merhaba,

Bir hücreye tıkladığımda, farklı yani boş bir hücreye, tıklanan bu hücredeki içeriği yazma işlemini nasıl yapabiliriz ?

Yani A1 hücresine tıkladığımda örnek olarak boş olan f1 hücresine, bu a1 hücresindeki içeriği yazılmasını istiyorum.

Teşekkürler.

 

[Orion1]

Sayfanın modülüne aşağıdaki kodu girin.
A sütunundaki dolu bir hücreye çift tıklarsanız çalışır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Cancel = True
Cells(Target.Row, "F").Value = Target.Value
End Sub

 

[mkrdg1]

Hocam çok teşekkürler. google driveda bu kodu kullanabilir miyim ?

 

[Orion1]

Hocam çok teşekkürler. google driveda bu kodu kullanabilir miyim ?

O konuda bir fikrim yok.Deneyin bir.

 

[mkrdg1]

denedim ama kodun ilk satırına hata verdi kendileri . teşekkürler

 

[mkrdg1]

hocam merhaba, attığınız makroyu çalıştırdım ama olmadı. makrolarıma tıkladığımda da bu makroyu göremiyorum. vb ekranında kaydetmeme rağmen. sebebi hakkında bilginiz var mıdır ?

 

[Orion1]

Dposya linkteddir.

DOSYAYI INDIR

 

[mkrdg1]

çok iyi olmş teşekkürler google driveda "Missing ; before statement. (satır: 1, dosya: "makrolar")" hatası alıyorum bu kodu kaydederken, yardım etme şansınız var mı ?