2003'te çalışan dosyam 2010 da hataveriyor

[kelti_2000]

Merhaba

Daha önce 2003 versiyonda hazırlamış olduğum ve sorunsuz çalışan senelik izin dosyam 2010 da hata verdi. çift tıklamada açık olan userform gizleniyordu başka birtanesi Unload ile açılıyordu. şimdi Unload 'ta hata veriyor.

Kod aşağıdadır.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Long, j As Integer, sh As Worksheet
Dim lw As ListView, ad As String, x As Long
bul = Range("A:A").Find(ListBox1.Value).Row
'bul.EntireRow.Delete
Rows(bul).Select

'q = ListBox1.ListIndex
'ActiveSheet.Rows(q + 5).Select
ActiveCell.Select
persec.Hide
Unload merkez
ActiveCell.Select
Set sh = Sheets("DOKUM")
Set lw = merkez.ListView1
lw.View = lvwReport
For j = 1 To 15
lw.ColumnHeaders.Add , , sh.Cells(1, j).Value, sh.Cells(1, j).ColumnWidth * 6
Next
ad = ListBox1.Column(1) & " " & ListBox1.Column(2)
lw.ColumnHeaders.Item(2).Width = 0
lw.ColumnHeaders.Item(3).Width = 0

For i = 2 To sh.Cells(65536, "D").End(xlUp).Row
If UCase(Replace(Replace(ad, "ı", "I"), "i", "İ")) = _
UCase(Replace(Replace(sh.Cells(i, 4).Value, "ı", "I"), "i", "İ")) Then
lw.ListItems.Add , , sh.Cells(i, 1).Value
x = x + 1
For j = 2 To 15
lw.ListItems(x).SubItems(j - 1) = sh.Cells(i, j).Value
Next
End If
Next i
merkez.Show
End Sub

 

[Trilenium]

Referanslara gidip bakarmısınız MISSING diye yazar ne eksikmiş diye

 

[levo26]

Sayın Kelti 2000;

2003'de denedim. Çalışmadı. "Could not load an object because it is not available on this machine." olarak hata verdi. Tamam dedim bu kezde modülünde derleme hatası "Referanslarda gerekli dosya yok" uyarısı verdi. Sn. Trilenium'un önerisi ile referanslara baktım. "MISSING" diye birşey yok. Bilginize..

 

[kelti_2000]

kontrol ettim yazmıyor

 

[cengizank]

http://www.excel.web.tr/f48/icinde-listview-olan-dosyalary-acamama-t118540.html

link e bakarmısın

listview ile ilgili