- Katılım
- 18 Temmuz 2008
- Mesajlar
- 51
- Excel Vers. ve Dili
- Excel 2010 Tr
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
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
Ekli dosyalar
-
400.5 KB Görüntüleme: 9