soldaki hücrenin içeriğini kopyalamak için makro

[nihattt]

aktif hücredeyken bir makroyla hemen solundaki hücrenin içeriğini aktif hücreye kopyalamak istiyorum. soldaki hücrenin içeriğide kopyalama bitince silinse iyi olur. buna benzer bir örnek bulamadım arama yaptım ama.

 

[Necdet]

Merhaba,

Aşağıdaki kodu ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?

Herhangi bir hücreye çift tıkladığınızda solundaki hücreyi keser ilgili hücreye yapıştırır.

İstendiği takdirde belli sütunlarda çalışması sağlanabilir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
If Selection.Count > 1 Then Exit Sub
Target = Target.Offset(0, -1)
Target.Offset(0, -1) = ""
Son:
End Sub

 

[nihattt]

hocam ben mi beceremedim bilmiyorum ama olmadı. yapmak istediğim diyelimki b2 hücresindeyim ctrl+w a basınca a2 hücresindeki değeri b2'ye kopyalamak sonra a2 hücresi içeriğini silmek.

 

[Necdet]

Merhaba,

Üstteki mesajımı yeniledim, çift tıklamaya bağladım kodları.
Dosyada ekledim.

 

[nihattt]

gayet güzel olmuş elinize sağlık hocam. çok tşk ederim.