Method "Value" of object "Range" failed hatası

[ozuberk]

Merhaba,

Aşağıdaki kodu çalıştırdığımda Method "Value" of object "Range" failed hatası alıyorum. Hata " Sayfa5.Range("U21").Value = "0"" kodundan kaynaklanıyor. Bu konuda nasıl yol izlemem gerekiyor.

_________________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
Call Sayfa05_Odeme
End Sub
_________________________________________________________________
Sub Sayfa05_Odeme()
Sayfa5.Unprotect "1"

If Sayfa5.Range("R21").Value = "Hayır" Then
Sayfa5.Range("U21").Locked = True
Sayfa5.Range("U21").FormulaHidden = False
Sayfa5.Range("U21").Value = "0"

ElseIf Sayfa5.Range("R21").Value = "Evet" Then
Sayfa5.Range("U21").Locked = False
Sayfa5.Range("U21").FormulaHidden = False
Sayfa5.Range("U21").Select
End If

Sayfa5.Protect "1"
End Sub

 

[FERAZ]

Merhaba,

Aşağıdaki kodu çalıştırdığımda Method "Value" of object "Range" failed hatası alıyorum. Hata " Sayfa5.Range("U21").Value = "0"" kodundan kaynaklanıyor. Bu konuda nasıl yol izlemem gerekiyor.

_________________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
Call Sayfa05_Odeme
End Sub
_________________________________________________________________
Sub Sayfa05_Odeme()
Sayfa5.Unprotect "1"

If Sayfa5.Range("R21").Value = "Hayır" Then
Sayfa5.Range("U21").Locked = True
Sayfa5.Range("U21").FormulaHidden = False
Sayfa5.Range("U21").Value = "0"

ElseIf Sayfa5.Range("R21").Value = "Evet" Then
Sayfa5.Range("U21").Locked = False
Sayfa5.Range("U21").FormulaHidden = False
Sayfa5.Range("U21").Select
End If

Sayfa5.Protect "1"
End Sub

Merhaba.
Önce o hücreyi locked=false yaptırıp alt satırınada hatalı satırı ekleyin ve onun altınada locked=true satırını ekleyin.

 

[ozuberk]

Merhaba, dediğiniz gibi denedim aynı hatayı aldım.

 

[FERAZ]

Alttaki gibi yaptım bende hata vermedi.

Application.EnableEvents kodlarını ekledim çünkü changeden dolayı sonzuz olaya giriyordu ve hata olayınıda ekledim.

Sub Sayfa05_Odeme()
On Error GoTo sonSub
Sayfa5.Unprotect "1"
Application.EnableEvents = False
If Sayfa5.Range("R21").Value = "Hayir" Then
Sayfa5.Range("U21").Locked = True
Sayfa5.Range("U21").FormulaHidden = False
Sayfa5.Range("U21").Value = "0"

ElseIf Sayfa5.Range("R21").Value = "Evet" Then
Sayfa5.Range("U21").Locked = False
Sayfa5.Range("U21").FormulaHidden = False
Sayfa5.Range("U21").Select
End If

sonSub:
Sayfa5.Protect "1"
Application.EnableEvents = True
End Sub

 

[ozuberk]

Feraz hocam kod bendede sorunsuz çalıştı. Emeğinize sağlık.

 

[FERAZ]

Feraz hocam kod bendede sorunsuz çalıştı. Emeğinize sağlık.

Rica ederim,kolay gelsin.