Bir hücre değerine göre başka hücrenin değerinin değiştirilmesi

[attillaa]

B1 hücresindeki değer örnek olarak XX ise A1 hücresindeki değer kalacak, Eğer B1 hücresindeki değer XX ten farklı ise A1 hücresindeki değer silinecek. Bunun için ne tür bir işlem yapmalıyım?

 

[AS3434]

Çalışma Sayfanızın Kod Sayfasına



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [b1] = "xxx" Then [A1].ClearContents
End Sub

 

[attillaa]

Yalnız B1 ve A1 birleştirilmiş hücreler ve "birleştirilmiş bir hücrenin bir parçası değiştirilemez" Run-time error '1004' hatası veriyor.

 

[attillaa]

B3 ve D3 hücreleri demek daha doğru olur. B3-C3, D3-E3 birleştirilmiş.

 

[AS3434]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [d3] = "xxx" Then [b3:c3].ClearContents
End Sub

 

[attillaa]

Teşekkür ederim AS3434