Hücreye Çift Tıklanınca içeriğinin başka hücrede yazması

[ismail-34]

Çok Değerli Excel web Hocalarıma selamlar Saygılar.

Benim sorum a2-a30 arası herhangi bir hücreye çift tıklandığında içeriğinin c2 hücresine yazması ile ilgili.

bunun haricinde tıklanan hücrede sarı dolgu rengi alır ve tıklanan hücre haricinde a2-a30 arası başka sarı hücre varsa onlarda dolgusuz hale gelirse harika olur.

örnek aşağıdaki linktedir.

İndir çift tıklanan hücre başka yere yazması

Dosyayı indir çift tıklanan hücre başka yere yazması

dosya.co

Herkese iyi günler dilerim..

 

[hamitcan]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [a2:a30]) Is Nothing Then Exit Sub
    Columns(1).Interior.ColorIndex = xlNone
    [c2] = Target.Text
    [c2].Select
    Target.Interior.Color = vbYellow
End Sub

 

[ismail-34]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [a2:a30]) Is Nothing Then Exit Sub
    Columns(1).Interior.ColorIndex = xlNone
    [c2] = Target.Text
    [c2].Select
    Target.Interior.Color = vbYellow
End Sub

Sanat Eseri diye British Museum a alsınlar bunu hocam Çok Teşekkür ederim, Herşey Gönlünüzce olsun Hamit hocam.

 

[hamitcan]

Teşekkür ederim ama bu kadar övgüye değecek bir şey değil. Güle güle kullanın.