Çift tıkla ile kopyala

[ADER_34]

Merhabalar hayırlı akşamlar arkadaşlar,benim şöyle bir isteğim olacak makro ile çalışma sayfamda "B" sütununda herhangi bir hücrede iken ,çift tıkladığım hücredeki veriyi sırasıyla "C" "G" "H" sütunlarına kopyalamak ve tekrar "B" sütundaki kaldığım hücreye geri dönmek istiyorum örrnek dosyam ekte yardımcı olurmusunuz? kolay gelsin teşekkürler..
http://www.dosya.tc/server7/faidgl/CIFT_TIKLA.rar.html

 

[Orion1]

Buyurun.
Dosya linktedir.

DOSYAYI İNDİR

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Range("C" & Target.Row & ",G" & Target.Row & ":H" & Target.Row).Value = Target.Value
Cancel = True
End Sub

 

[ADER_34]

Çok teşekkür ederim Evren Bey tam istediğim gibi olmuş kolay gelsin..

 

[Orion1]

Çok teşekkür ederim Evren Bey tam istediğim gibi olmuş kolay gelsin..

Rica ederim.
İyi çalışmalar.