Hücreye Sınırlı Sayıda Giriş

[baydeniro]

Merhaba arkadaşlar. Dosyanın oluşturulmasından itibaren tüm yaşamı boyunca bir excel hücresine giriş yapabilme kısıtlaması söz konusu olur mu ?

Örnek dosya ektedir.

 

[uzmanamele]

merhaba

bunun kesin bir yolunun olduğunu sanmıyorum.

registere kayıt yapılabilir ama bu seferde başka makinede işe yaramaz, değiştirilebilir.

dosyanın kendi içersine kaydedilebilir mesela IV1 hücreye. bu seferde IV sütunu silinirse işe yaramaz.

bir fikir vermesi açısından bu kodu deneyiniz.

Private Sub Worksheet_Activate()
[ıv1] = [b2]
End Sub

not:
sayfa aktif olunca değilde kitap aktif olunca ilgili hücrelere eski değerleri yaz demek daha doğru olabilir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b2]) Is Nothing Then Exit Sub
If [ıv2].Value = 3 Then
[b2] = [ıv1].Value
Else
say = say + 1
[ıv2] = say
End If
End Sub

not:
sayfa aktif olunca değilde kitap aktif olunca eski değerleri ilgili hücrelere yaz demek daha uygun olabilir.

 

[baydeniro]

Sayın uzmanamele aslında çok yardımcı oldunuz. Benim değişik bir fikir geldi. Aşağıdaki kodun şu işlevi yapması nasıl sağlanır :

B2 ve C2 eşit değilse D2 yi 1 artır

Private Sub Worksheet_Change(ByVal Target As Range)
If [C2].Value <> [B2].Value Then
say = say + 1
[D2] = say
End If
End Sub