sayfada hücreye tıklayarak değerini artırma

[uzmanamele]

merhaba

bunu deneseniz olur mu?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1:e10")) Is Nothing Then Exit Sub
Target.Interior.ColorIndex = 3
End Sub

veya

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1:e10")) Is Nothing Then Exit Sub
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 3
End Sub

Worksheet_SelectionChange yerine Worksheet_Change sizin için daha uydun olmalı

 

[cems]

Sayın Uzmanamele

Hemen deniyorum

 

[cems]

Sayın Uzmanamele ,

İlk kodlar Target.Interior.ColorIndex = 3 satırında hata verdi
İkinci kodlar Cells.Interior.ColorIndex = xlNone satırında hata verdi ve bulduğum kodlar da aynı hataları verdi .

İçeriği temizleyip dosyayı ekliyorum . Belki benim hatam olan başka bir sorun vardır , farklı bir gözle belki yakalanabilir.

 

[cems]

Hatayı sanırım yaklaşık buldum ama tedavisini nasıl yapacağız ..

Sayın Uzmanamele ,
Sorun iki tane , örnek hazırlamak isterken karşılaştığım şu...
Sayfa normalde renklere bölünmüş durumda ve örnekte E sütunu sarı renkteydi. Sayfa da koruma'daydı ...Korumayı kaldırıp çalıştırınca

a) Sayfada mevcut bütün renkleri sildi
b) İstendiği gibi tıklanan hücreyi sayı artırdı + kırmızı yaptı ve başka ( E Sütunu ) hücresini tıklayınca yeni hücreyi renklendirip bir öncekini sildi .

--a) Mevcut renkleri bozmadan nasıl yaptırabilirim ?
--b) Kodlardan önce korumayı kaldırtıp kodun işi bitince tekrar korumayı koydurmak çözüm olabilir mi

 

[cems]

Tedaviyi galiba şu şekilde buldum :

Private Sub Worksheet_Change(ByVal Target As Range)
Call koruma
If Intersect(Target, Range("e5:e40")) Is Nothing Then Exit Sub
Range("e5:e40").Interior.ColorIndex = 6
Target.Interior.ColorIndex = 3
Call koru
End Sub

Sub koruma()
Sheets("YIGILIM").Unprotect password:"filanca"
End Sub

Sub koru()
Sheets("YIGILIM").Protect password:"filanca"
End Sub

 

[maliozi]

bu kodu şu şekilde yapabilirmiyiz, yeni sayfa açtığımızda otomatik olarak istediğimiz hücreyi bir artırabiliyormuyuz birde yeni sayfa açtığımızda sayfa ismi x(+1) değilde x+1 olarak otomatik değiştirebiliyormuyuz? yardımcı olursanız çok sevinirim