Hücre içini tek tıkla seçme

[cemaln]

Aşağıdaki gibi deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If Cells(1, Columns.Count) <> "" Then Range(Cells(1, Columns.Count).Text).Interior.ColorIndex = xlNone
    Cancel = True
    Target.Interior.ColorIndex = 6
    Cells(1, Columns.Count) = Target.Address
    CopyText Selection.Text
End Sub

yok olmamış. ) bu seferde seçtiğim hücreyi önce sarı sonra beyaza döndürüyor. mesela kırmızı dolgulu bir hücreyi tıkladığımda sarı yapıyor tamam. sonra başka bir hücreye geçtiğimde, bir önceki kırmızı olan hücreyi beyaza döndürüyor. oysa ben kırmızı kalsın istiyorum. yani geçici olarak sarı olsun sonra eski rengine dönsün.

Korhan bey birde sarı yerine başka bir renk yapabilirmisiniz. açık mavi veya turuncu gibi.

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Kod içindeki ColorIndex = 8 ifadesinde geçen sayısal değeri değiştirip istediğiniz rengi kullanabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If Cells(1, Columns.Count) <> "" Then
        Range(Cells(1, Columns.Count).Text).Interior.Color = Cells(1, Columns.Count).Interior.Color
    End If
    Cancel = True
    Cells(1, Columns.Count) = Target.Address
    Cells(1, Columns.Count).Interior.Color = Target.Interior.Color
    Target.Interior.ColorIndex = 8
    CopyText Selection.Text
End Sub

 

[cemaln]

Aşağıdaki gibi deneyiniz.

Kod içindeki ColorIndex = 8 ifadesinde geçen sayısal değeri değiştirip istediğiniz rengi kullanabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If Cells(1, Columns.Count) <> "" Then
        Range(Cells(1, Columns.Count).Text).Interior.Color = Cells(1, Columns.Count).Interior.Color
    End If
    Cancel = True
    Cells(1, Columns.Count) = Target.Address
    Cells(1, Columns.Count).Interior.Color = Target.Interior.Color
    Target.Interior.ColorIndex = 8
    CopyText Selection.Text
End Sub

Korhan bey tam istediğim gibi mükemmel olmuş. Çok çok teşekkür ederim, elinize emeğinize sağlık, çok sağolun.