مساعدة في جعل اخر صف في اللست بوكس فعال باللون الازرق

[hbar]

السلام عليكم ورحمة الله

الاخوة اصحاب الخبر مطلوب كود يجعل اخر صف في اللست بوكس محدد اي فعال

انا عندي لست بوكس وعند الترحيل اليها اريد ان يكون اخر صف هو المحدد باللون الازرق اي فعال وهذا الكود يكون في ( بوتن الترحيل ) في كود الترحيل وضعت فراغ مكتوب في هنا اريد الكود

ممكن كود برمجي وجزاكم الله خير الجزاء

تم حذف المشاركة الأخرى .. فمن فضلك لا تقوم برفع وتكرار نفس المشاركة مرة أخرى والا ستحذف جميع المشاركات

تفعيل اخر صف في اللست بوكس.xls

[عبدالفتاح في بي اكسيل]

تفضل  اعتقد  هذا  ما  تريده  على  حسب  ما فهمت 

Private Sub ListFind_Change()
Dim i As Long
 With ListFind
 For i = .ListCount - 1 To 0 Step -1
 Debug.Print i, ListFind.List(i, 0)
 If ListFind.List(i, 0) <> "" Then
 .ListIndex = i
 Exit For
 End If
 Next i
 End With
End Sub

 

تفعيل اخر صف في اللست بوكس.xls

[أحمد يوسف]

hbar

فين انت من هذه الإجابة الممتازة ؟!!!

أين الضغط على الإعــجـــــــاب ؟!!💙

[hbar]

شكراً استاذ عبدالفتاح على هذا العمل الجميل