Listbox'daki veriler siliniyor

[seddur]

Arkadaşlar Merhaba.listboxdan Lİstboxa veri kaydetiyorum ancak veri kaydettiğim listboxdaki bilgiler dosyayı açıp kapadığımda silinmiş oluyor.Bunu engellemenin bir yolu varmı yoksa normal olması gereken bu mu.Yardımcı olursanız sevinirim.Kaydetme kodlarını aşağıda paylaşıyorum.

If ListBox34.ListIndex = -1 Then Exit Sub
For A = ListBox34.ListCount - 1 To 0 Step -1
If ListBox34.Selected(A) = True Then
listbox2.AddItem
listbox2.List(listbox2.ListCount - 1, 0) = ListBox34.List(A, 0)
listbox2.List(listbox2.ListCount - 1, 1) = TextBox1
End If
Next A:

 

[Korhan Ayhan]

Merhaba,

Bunu anlamak için şöyle yapabilirsiniz.

Boş bir dosya açın.
İlk sayfasına bazı veriler yazın.
Sonra bir UserForm ekleyin. Bu formun üzerine bir ListBox ekleyin.
Sonra bir komutla formu ekrana çağırın.

Form ekrana boş mu geliyor yoksa dolumu geliyor.

 

[fehdur]

Boş Excel sayfasına bir şeyler yazdım , userforma listbox oluşturup çağırdım listbox boş geldi ama sonuçta listboxa bir şeyler yazmadık

 

[Korhan Ayhan]

Evet doğru...

Burada kullanılan UserForm ve üzerindeki nesneler siz komut vermedikçe bir işlem yapmaz.

Bir formun üzerindeki nesnelere çalışma anında veri yüklemek demek bu veri bu nesne üzerinde kalıcı olarak ekleniyor anlamına gelmez.

Çünkü UserForm sizin komutlarınıza göre işlem yapmaktadır. Dosyanız kapanırken formda kapandığı için üzerindeki bilgilerde kaybolacaktır.

Siz dosyayı yeniden açtığınızda formunuzu açarak verileri tekrar yüklemediğiniz sürece üstündeki nesneler ekrana boş gelecektir.

 

[fehdur]

Teşekkür ederim.Anlaşılan 2 günlük çalışmam boşa gitti.Nasıl zamanında fark etmedim.

 

[Orion1]

Boşa gitmedi.
Siz userformun initialize olayına listboxa verileri alma kodunu yazarsanız olacaktır.

 

[Korhan Ayhan]

Yanlış anlamayın ama bizler bunu her zaman dile getiriyoruz.

UserForm ile tanışan üyelerimiz hemen proje işlerine koyuluyorlar. En temel yanlış burada yapılıyor.

Önce nesnelerin özellikleri öğrenilse ve adım adım ilerlense sorunların çoğu ortadan kalkacak.

 

[fehdur]

Hocam deneme yanılma veya sorma şeklinde öğreniyorum hata burada.İnternetden online eğitim verilmiş olsa katılırdım.Tavsiye edeceğiniz bir kitap varsa onu da alabilirim.Biraz teori öğrenmiş olurum.

 

[Korhan Ayhan]

Altın üyeliğiniz var.

Forumda bolca örnekler var. Bunları inceleyerek kendinizi geliştirebilirsiniz.

 

[fehdur]

Türkiyenin en iyi form sitesi daha da gelişeceğine inanıyorum.Saygılar.

 

[Orion1]

#6 numaralı yazımı okudunuzmu?

 

[fehdur]

Hayır,nasıl ulaşabilirim acaba?

 

[Orion1]

 

[Zeki Gürsoy]

Tasarım zamanında listenin dolu olması gereksizdir... Form ekranda çalışır durumdayken yüklenir.
Eğer mutlaka tasarım zamanında da görünmesi isteniyorsa ListBox'ın RowSource özelliğine hücre referansı yazarsanız tasarım zamanında da görünecektir.

Ekli resimdeki örnek, A1:A10 aralığına sayılar yazıldıktan sonra hücre referansı olarak eklenmiştir.

 

[fehdur]

Ekli dosyayı görüntüle 225003Ekli dosyayı görüntüle 225003

Sn: Orion1 Yazınızı yeni okudum üzerinde çalışmaya başlayacağım.Yalnız listboxlar excel sayfasında, userform üzerinde değil bir şey farkeder mi?

 

[Orion1]

O zaman sayfanın thisworkbook open olayına yazabilirsiniz.

 

[seddur]

Sn.orion1 örnek dosya yaptım onun üzerinde uygulamayı yapabilirmisiniz.Ben beceremedim.

 

[Orion1]

Litboxta verilerin kayıtlı olsun diyorsunuz.
Listbox ta kayıt tutulamaz.
Ancak geçici olarak veri tabanından listelenir.
sayfadaki listboxta listelemek için listboxın listfillrange komutunu kullanabilirsiniz.