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
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