Ebildirge için işyeri şifresi kopyalamak

[KuTuKa]

Merhaba Arkadaşlar
ekteki excel makrosu nun şişfresi 123 dür B2 den başlayıp B100 e kadar işyerleri bulunmaktadır.E bildirge alırken b2 ye tıkladığımda ebildirge syafasına girebiliyorum.Bu makroya ek B2 hücresine tıkladığımda F2 hücresinin de kopyalanması nı istiyorum.Sayfaya girdiğimde direkt işyeri şifresini yyapıştırmak için
teşekkürler
Kutuka

 

[KuTuKa]

Merhaba Arkadaşlar
sadece istediğim
B2 hücresine tıkladığımda f2 hücresinin
B3 hücresine tıkladığımda f3 hücresinin
B4 hücresine tıkladığımda f4 hücresinin
................................................... kopyalaması ilgilenen herkese teşekkürler

 

[Mustafa MUTLU]

Şu nu denermisiniz
Çift tıklama :..

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("b2:b4")) Is Nothing Then Exit Sub
Target = Cells(Target.Row, "f")
End Sub

 

[KuTuKa]

mustafa bey
workbook a yapıştırınca hata verdi satır renklendirme ile çatıştı

 

[KuTuKa]

yardımcı olabilecek arkadaşımız var mı ?

 

[XADAM]

Saygıdeğer arkadaşım paylaşımınızın vba şifresinide yazabilirmisiniz

 

[KuTuKa]

123 şifresi