Listviewde işlem

[zfr10]

Selam arkadaşlar ekte gönderdiğim sayfada listviewde kaydet bul sil değiştir işlemleriyle sorun yaşıyorum kayıt kodunu buldum yapıştırdım ama sil ile ilgili veya diğerleriyle ilgili sorun çıkıyor ve en sonunda hepsini sildim.Bu konuda yardımcı olabilir misiniz? Birde formda sarı renkli comboboxa takvim nasıl ekleyebilirim.Biraz fazla oluyorum galiba ama size de sıkıntı vermezsem sizlerin yardımlarıınızı talep ediyorum.
Saygılar...

 

[Korhan Ayhan]

Merhaba,

Dosyanızda bazı düzenlemeler yaptım. Bundan sonrasını kendiniz araştırarak geliştirirsiniz.

Eğer ListView sizde hata verirse silip yeniden oluşturun. Büyük ihtimalle düzelecektir.

 

[zfr10]

Korhan Bey alakanız için çok teşekkür ederim fakat butonu
tıkladığımda For X = 1 To 9 buarada bir hata veriyor listviewi de değiştirdim ama yine hata verdi.Sebebi ne olabilir?

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False

For X = 1 To 9
Controls("TextBox" & X) = ""
Next

For X = 1 To 4
Controls("ComboBox" & X) = ""
Next

With ListView1
.ColumnHeaders.Clear
.ListItems.Clear
.View = lvwReport
.FullRowSelect = True
.Gridlines = True
.LabelEdit = lvwManual

With .ColumnHeaders
.Add , , [A1], 0
.Add , , [B1], 50, lvwColumnCenter
.Add , , [C1], 50, lvwColumnCenter
.Add , , [D1], 100, lvwColumnCenter
.Add , , [E1], 50, lvwColumnCenter
.Add , , [F1], 50, lvwColumnCenter
.Add , , [G1], 50, lvwColumnCenter
.Add , , [H1], 75, lvwColumnCenter
.Add , , [I1], 50, lvwColumnCenter
.Add , , [J1], 50, lvwColumnCenter
.Add , , [K1], 100, lvwColumnCenter
.Add , , [L1], 75, lvwColumnCenter
.Add , , [M1], 50, lvwColumnCenter
.Add , , [N1], 50, lvwColumnCenter
End With
End With

With ListView1
For X = 1 To Cells(Rows.Count, "A").End(3).Row - 1
.ListItems.Add , , Cells(X + 1, 1)
.ListItems(X).SubItems(1) = Cells(X + 1, 2)
.ListItems(X).SubItems(2) = Cells(X + 1, 3)
.ListItems(X).SubItems(3) = Cells(X + 1, 4)
.ListItems(X).SubItems(4) = Cells(X + 1, 5)
.ListItems(X).SubItems(5) = Cells(X + 1, 6)
.ListItems(X).SubItems(6) = Cells(X + 1, 7)
.ListItems(X).SubItems(7) = Cells(X + 1, 8)
.ListItems(X).SubItems(8) = Cells(X + 1, 9)
.ListItems(X).SubItems(9) = Cells(X + 1, 10)
.ListItems(X).SubItems(10) = Cells(X + 1, 11)
.ListItems(X).SubItems(11) = Cells(X + 1, 12)
.ListItems(X).SubItems(12) = Cells(X + 1, 13)
.ListItems(X).SubItems(13) = Cells(X + 1, 14)
Next
End With
kayit.Enabled = True
sil.Enabled = False
degistir.Enabled = False
formutemizle.Enabled = True

Application.ScreenUpdating = True
End Sub

 

[Korhan Ayhan]

Merhaba,

ALT+F11 tuşlarına basarak kod editörünü açın.
TOOLS menüsünden REFERENCES seçeneğini seçin.
Karşınıza gelen pencerede MISSING ifadesi ile başlayan seçenekleri pasif yapıp tekrar deneyin.

 

[zfr10]

Selam Korhan Bey gönderdiğiniz örnekte kaydet butonunda bir hata var galiba tüm bilgileri giriyorum fakat sayfaya veri göndermiyor.Bir de A sütunundaki verileri kodla mı birleştiriyorsunuz.

 

[zfr10]

Arkadaşlar listviewde kaydet,sil,değiştir,temizle ve bul ile ilgili yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Merhaba,

Listview nesnesi versiyon farklılıklarından dolayı hata verir. Önerdiğim yöntemi deneyerek sorunu aşabilirsiniz. Kaydet işlemindeki hatayı düzelttim. Tekrar üstteki mesajımdaki dosyayı deneyin.

 

[zfr10]

Korhan Bey foruma yeni girebildim yardımlarınız için teşekkür ederim emeğinize sağlık tam istediğim gibi olmuş.Saygılarımı sunuyorum.

 

[vardar07]

Merhaba,

Listview nesnesi versiyon farklılıklarından dolayı hata verir. Önerdiğim yöntemi deneyerek sorunu aşabilirsiniz.

Selam. 2007 excellde Listview kaldırıp tekrar yerine koymak isteyince belirtilmemiş hata(unspecified error.) veriyor.
nasıl çözebiliriz.