Hücreye Çift Tıklayınca Sarı Renge Boyama

[skaan]

Merhaba;
Excel sayfasında hücreye çift tıklayınca sarı renge boyamak istiyorum .Bunu nasıl yapabilirim yardımcı olabilirmisiniz ?

Tşk
SKaan

 

[Orion1]

Çalışma sayfasının kod modülüne.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Interior.ColorIndex = xlNone
Target.Interior.Color = vbYellow
End Sub

 

[skaan]

Çok teşekkürler.. Son bir soru Hücreleri seçtiğimde tıklayınca da sarı olması için kodda ne gıbı degısıklık yapmak gerekir acaba ?

Saygılar
SKaan

 

[Orion1]

Çok teşekkürler.. Son bir soru Hücreleri seçtiğimde tıklayınca da sarı olması için kodda ne gıbı degısıklık yapmak gerekir acaba ?

Saygılar
SKaan

buyurun.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Interior.ColorIndex = xlNone
Target.Interior.Color = vbYellow
End Sub

 

[skaan]

Sayın Orion1
Yalnız hücrede çit tıklama bozuldu seçili hücre çıft tıklamadan renk değiştirmeye başladı.. çift tıklama ile birlikte yapılamazmı acaba?

Saygılarımla
Skaan

 

[Orion1]

Sayın Orion1
Yalnız hücrede çit tıklama bozuldu seçili hücre çıft tıklamadan renk değiştirmeye başladı.. çift tıklama ile birlikte yapılamazmı acaba?

Saygılarımla
Skaan

siz tek tıklama ilede olsun istemiştiniz.

 

[skaan]

Yanlıs ifade ettim herhalde size .. Çift tıklama ok buna ilaveten hücre sectıgımde de tıklayınca seçili hücrelerin yine sarı renk olmasını istedim kusura bakmayın.
Eğer mümkünse tabiki.. yardımlarınız için teşekkür ederim.

Skaan

 

[Orion1]

Yanlıs ifade ettim herhalde size .. Çift tıklama ok buna ilaveten hücre sectıgımde de tıklayınca seçili hücrelerin yine sarı renk olmasını istedim kusura bakmayın.
Eğer mümkünse tabiki.. yardımlarınız için teşekkür ederim.

Skaan

Ya hücre seçince olur yada çift tıklayınca olur.

 

[skaan]

Yardımlarınız için teşekkürler..

Saygılar
Skaan

 

[forumcem]

iyi günler,

ben excelde her satıra tik işareti koymak istiyorum.tikleyince o satırın tamamını sarıya boyamak istiyorum.yardımcı olursanız sevinirim.Teşekkürler.

 

[sosorry]

Çalışma sayfasının kod modülüne.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Interior.ColorIndex = xlNone
Target.Interior.Color = vbYellow
End Sub

Ben bu kodu kullanarak bir tablo oluşturuyorum ancak çift tıkladığımda hücre rengi değişsin ancak imleç çıkmasın sadece renk değiştirmesi gibi bir durum olabilir mi? tablo da A5:A40-D5: D40 arasında olacak sadece bu aralıkta çift tıklamada hücre rengi değişebilir mi? Aynı zamanda ilk çift tıklayınca hücreyi boyama, ikinci kez çift tıklayınca da eski haline getirmek mümkün müdür?
teşekkürler

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A5:D40]) Is Nothing Then Exit Sub
Cancel = True
sil = ActiveCell.Row
Range("a5:d40").Interior.ColorIndex = xlNone
Range("a" & sil & ":" & "d" & sil).Interior.Color = vbYellow
End Sub

 

[sosorry]

Bu şekilde deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A5:D40]) Is Nothing Then Exit Sub
Cancel = True
sil = ActiveCell.Row
Range("a5:d40").Interior.ColorIndex = xlNone
Range("a" & sil & ":" & "d" & sil).Interior.Color = vbYellow
End Sub

Şimdi şöyle örnek dosya ekledim sanırım daha açıklayıcı olur.

 

[sosorry]

hadi bi yardım

 

[Korhan Ayhan]

Bu kodu deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("C3:DR" & Rows.Count)) Is Nothing Then Exit Sub
    Cancel = True
    If Target.Interior.ColorIndex = 6 Then
        Target.Interior.ColorIndex = xlNone
    Else
        Target.Interior.ColorIndex = 6
    End If
End Sub

 

[sosorry]

Bu kodu deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("C3:DR" & Rows.Count)) Is Nothing Then Exit Sub
    Cancel = True
    If Target.Interior.ColorIndex = 6 Then
        Target.Interior.ColorIndex = xlNone
    Else
        Target.Interior.ColorIndex = 6
    End If
End Sub

teşekkürler süper oldu bu elinize sağlık