Kod ; Listbox satırında hata veriyor

[Orion1]

Merhabalar.

ListBox1.Column(1) = TextBox1.Value

Yukarıdaki satırda Aşağıdaki hatayı veriyor.
Run-time error '70'
Could not set the Column property.Permission denied.
Yardımlarınız için teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Konuyla ilgili küçük bir örnek dosya eklermisiniz.

 

[Orion1]

Merhaba Dosyayı aşağıda yolluyorum.

 

[Korhan Ayhan]

Selamlar,

Dosyanızı inceledim siz Listbox1 e verilerinizi RoxSource ile alıyorsunuz değişiklik yapmak istediğinizde ise excel bunu kabul etmez neden derseniz sebebini net olarak bende bilmiyorum. Listbox bu şekilde çalışıyor tabi bu problemi aşmanın yolları var nasıl derseniz değişiklik yapmadan önce ilgili satırı seçtirip RowSource="" şeklinde tanımlayarak excelin hata vermesini önleyerek. Aşağıdaki kodları kendi kullandığınız kodların yerine uygulayarak deneyip sonuçları görebilirsiniz.

Private Sub ListBox1_Click()
If OptionButton2.Value = True Then
    TextBox1.Value = Format(ListBox1.Column(1), "#,##0.00")
    TextBox2.Value = Format(ListBox1.Column(2), "#,##0.00")
    Label1.Caption = "X" & ListBox1.ListIndex + 1
    Label2.Caption = "Y" & ListBox1.ListIndex + 1
    Cells(ListBox1.ListIndex + 5, 1).Select
End If
End Sub

CommandButton1 deki kodun son bölümünüde aşağıdaki gibi değiştirip deneyiniz.

'Koordinatlarda değişiklik yapılıyor-------------
If OptionButton2.Value = True Then
    If ListBox1.ListCount < 1 Then Exit Sub
    mesaj = "Koordinat değişikliğini yapmak istiyormusunuz..!!"
    If MsgBox(mesaj, vbYesNo, "E V R E N") = vbYes Then
        ListBox1.RowSource = ""
        ActiveCell.Offset(0, 1) = TextBox1.Value * 1
        ActiveCell.Offset(0, 2) = TextBox2.Value * 1
        ActiveCell.Offset(0, 1).NumberFormat = "#,##0.00"
        ActiveCell.Offset(0, 2).NumberFormat = "#,##0.00"
        Label5.Caption = Range("D2").Value
        Label5.Caption = Format(Label5.Caption, "#,##0.00")
        ListBox1.RowSource = "A5:C" & [A65536].End(3).Row
        ListBox1.ColumnHeads = True
    End If

 

[Orion1]

Merhabalar.
teşekkür ederim.
Cevabınızdan anlaşıldığı kadarı ile Add item yolu ile listbox'a verileri almış olsaydım problem olmıyacaktı.
Tekrar teşekkür ederim.İyi çalışmalar.