Okunan değere göre kilit?

[savsava]

Çok işime yarar varsa eğer böyle bir özellik. Kastettğim şu. İki hücreyi birbirine bağlayacağım. (mesela A1'i B1'e bağlayacam). Bunun için başka yol var mı bilmiyorum ama kısaca A1 in içine "=B1" yazarak bağlıyorum. Benim sorunum şu. A1 in içine nasıl birşey yazmalıyım ki eğer B1'den herhangi bir değer okuyorsa(yani B1 boş değilse) olduğu gibi b1 i alsın ve --değiştirilemesin!--
Sadece B1 den herhangi bir değer okumuyorsa (yani b1 boş ise) elle yazı yazılabilsin.

Yani bir hücre bağlandığı başka bir hücreden bir değer okuyorsa öyle kalsın, silinemesin, değiştirilemesin. Yok eğer boş ise (doğal olarak bağlı olduğu hücre boş demektir) o formülü falan silip elle değer girilebilsin. Mümkün müdür acaba?...

 

[Necdet]

Merhaba,

Tam olarak anladım mı bilemiyorum ama aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
If Target <> "" Then [A1] = Target
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If [B1] <> "" Then
    Target = [B1]
    Target.Offset(0, 1).Select
End If
End Sub