DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Interior.ColorIndex = xlNone
Target.Interior.Color = vbYellow
End Sub
buyurun.Ç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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Interior.ColorIndex = xlNone
Target.Interior.Color = vbYellow
End Sub
siz tek tıklama ilede olsun istemiştiniz.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
Ya hücre seçince olur yada çift tıklayınca olur.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
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?Çalışma sayfasının kod modülüne.
Kod:Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Target.Interior.ColorIndex = xlNone Target.Interior.Color = vbYellow End Sub
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.Bu şekilde deneyiniz.
Kod: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
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ıkBu kodu deneyiniz.
Kod: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