bu kodu nasıl çalıştırırım

[azure26]

arkadaşlar merhaba aşağıdaki sarı renkli bölge hata veriyor hata nedir yardımcı olurmusunuz


Private Sub TextBox1_AfterUpdate()
If TextBox1 <> "" Then

sonsatır = WorksheetFunction.CountA(Worksheets(ComboBox2.Value).Range(ListBox7.Value)) + 1

Worksheets(ComboBox2.Value).Cells(sonsatır, ListBox9.Value) = TextBox1.Value
Worksheets(ComboBox2.Value).Cells(sonsatır, ListBox8.Value) = ComboBox1.Value


TextBox1.Value = ""

Else

End If
End Sub

 

[EmrExcel16]

Bu şekilde anlamak zor ama sonsatır değişkeninin aldığı değer nedir kontrol ettiniz mi ?

 

[YUSUF44]

Listbox9 değeri de sayı yerine metin olabilir mesela.

 

[azure26]

Son satır doğru hücreyi gösteriyor fakat çalışmıyor sonsatırları sildiğimde çalışıyor bu seferde rasgele alt taraftaki hücrelere yazıyor

 

[EmrExcel16]

Hata veren satirin üstüne bu kodu ekleyip sonucu bildirirmisiniz.
Msgbox sonsatır & "," & ListBox9.Value

 

[azure26]

3,33 yazıyor

 

[EmrExcel16]

Eğer sayfada sayfa korumasi yok ise çalismamasi için bir sorun gözükmüyor , olmadi dosyanizi ekleyin birde öyle bakalim.

 

[azure26]

bazen 172,33 çıkıyor