Listbox da aktif sayfayı listeleme

[sqoist]

Private Sub UserForm_Activate()
Dim i As Integer
listonay.ColumnHeads = True
listonay.MultiSelect = 1
listonay.ColumnCount = 11
listonay.ColumnWidths = "27;50;60;60;240;60;60;120;120;220;60"
listonay.RowSource = "TUTARSIZLIK!A2:K240" '
If listonay.ListCount = 0 Then Exit Sub
For i = 0 To listonay.ListCount = -1
If i Mod 2 = 0 Then
listonay.Selected(i) = True
End If
Next
listonay.Enabled = False
End Sub

Merhaba arkadaşlar yukarıda ki kod ile tutarsızlık sayfasını gösteriyorum listboxda fakat ben başka sayfaya gectiğimde ordaki userforma tıkladığımda userform tek çözformum ama her sayfada farklı tutarsızlık var rol ile sayfaları ayırdım o rol ile giren o roldeki tutarsazlığı ekranda görsün istiyorum yani aktif sayfayı listelemek . Şimdiden teşekkür ederim kolay gelsin.

 

[necati]

Merhaba,
Sayfa ismini silin sadece aralık kalsın. Böylece aktif sayfa listelenir.
listonay.RowSource = "A2:K240"

 

[sqoist]

Merhaba,
Sayfa ismini silin sadece aralık kalsın. Böylece aktif sayfa listelenir.
listonay.RowSource = "A2:K240"

Çok mantıklı deniyorum . teşekkür ederim