RANGE Hatası

[cocoa35]

Merhaba userformdaki textbox değerini değiştirdiğimde hücre değerinin'de değiştiren ek'teki kod'ları hazırladım ancak bir hata veriyor! kod'lardaki sorun ne olabilir acaba
Userform'daki kod'lar;
Private Sub TextBox396_Change()
If Sayfa18.Range("I124") = 1 Then
Range("PROSES HESAP KOD!I171").Value = TextBox396.Value
ElseIf Sayfa18.Range("I124") = 2 Then
Range("PROSES HESAP KOD!I174").Value = TextBox396.Value
End If
End Sub

Private Sub TextBox399_Change()
If Sayfa18.Range("I124") = 1 Then
Range("PROSES HESAP KOD!I177").Value = TextBox399.Value
ElseIf Sayfa18.Range("I124") = 2 Then
Range("PROSES HESAP KOD!I178").Value = TextBox399.Value
End If
End Sub

ilgili sayfadaki kod'lar;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:ı180]) Is Nothing Then Exit Sub
If Sayfa18.Range("I124") = 1 Then
UserForm249.TextBox396.Value = Sheets("PROSES HESAP KOD").Range("I171").Value
UserForm249.TextBox399.Value = Sheets("PROSES HESAP KOD").Range("I177").Value
ElseIf Sayfa18.Range("I124") = 2 Then
UserForm249.TextBox396.Value = Sheets("PROSES HESAP KOD").Range("I174").Value
UserForm249.TextBox399.Value = Sheets("PROSES HESAP KOD").Range("I178").Value
End If

End Sub

 

[Trilenium]

If Intersect(Target, [a1:ı180]) Is Nothing Then Exit Sub

If Intersect(Target, [a1:i180]) Is Nothing Then Exit Sub


değiştirip dener misiniz.

 

[cocoa35]

merhaba trilenium denedim ancak olmadı aynı hata mesajını verdi maalesef

 

[Trilenium]

Dosya çok büyük ve özel değilse ekleyebilir misiniz.

 

[cocoa35]

Sn Trilenium şimdi fark ettim UserForm'da bir commandbutton ile sayfadaki hücre değerelerini userformdaki textbox'lara yazdırıyorum. onun kod'ları aşağıdaki gibi
Private Sub CommandButton2_Click()
TextBox396.Text = Sayfa74.Range("I179").Text
TextBox399.Text = Sayfa74.Range("I180").Text
End Sub

şimdi bu kod'ları kaldırınca userform hata vermiyor. ekleyince yukarıdaki hatayı veriyor.

 

[Trilenium]

Sayfa74.Range("I179").Text

TextBox396.Text = Sheets("Sayfa74").Range("I179").value
TextBox399.Text = Sheets("Sayfa74").Range("I180").value

değiştirir misiniz (sayfa74 diye bir sayfa var di mi?)

 

[Korhan Ayhan]

Yazım hatası var.

Range("PROSES HESAP KOD!I178").Value = TextBox399.Value

Aşağıdaki gibi olmalıdır.

Range("'PROSES HESAP KOD'!I178").Value = TextBox399.Value

Benzer satırların hepsini aynı şekilde değiştirmelisiniz.

 

[cocoa35]

Tamam oldu çok teşekkürler excel web tr