Silme Ve Değiştirme Sorunu

1 2
27/06/2020, 14:31

m_demir

Merhaba Arkadaşlar 

Eklediğim uygulamada Excel sayfasında bir sütun sildim.

UserFom1 de aktif sayfaya giriş yaptığım veriyi listbox da seçip silmek veya değiştirmek istediğim zaman aşağıdaki kod hata veriyor.

Kod:
CommandButton12_Click()

Me.Controls("TextBox" & k) = Empt

''''''''''''''''''''''''''

CommandButton15_Click()

Me.Controls("TextBox" & k) = Empty
27/06/2020, 14:59

feraz

(27/06/2020, 14:31)m_demir yazdı: Me.Controls("TextBox" & k) = Empt
En sona y ekleyin yani empty olacak.Denemedim mobilden kodu öyle gördüm.
27/06/2020, 15:03

m_demir

Hocam kodun sonunda y harfı var  konuyu açarken y harfini eksik yazmışım.
27/06/2020, 15:05

berduş

k değerini nereden alıyor? Eğer kya değer atanmamışsa olmayan textbox'a atıf yapıldığından hata verebilir
27/06/2020, 15:11

m_demir

Hocam k değerini nereden aldığını bilmiyorum. Excelde F sütununu sildim UserFormda TextBox4u sildim.
27/06/2020, 15:21

berduş

Yani silmek veya değiştirmek için bu 2 butonu kullanıyorsunuz ama kodda kullandığınız textbox yok mu? Kod metin kutusuna değer atamaya çalışıyor ve bunun için k değerini kullanıyor eğer k=5 ise textbox5 metin kutusu boşaltılıyor eğer k değeri yok ise hata verir Msgbox kullanarak k değerini öğrenir misiniz? Atama kodunu pasif yapıp kodun en başına
Msgbox "k : " & k
Exit sub
Kodlarını ekler misiniz?
1 2