التنقل بين الأوراق أعتمادا على كود مادة

[نايف - م]

لماذا لا ينجح هذا الكود بالعمل

يرجى المساعدة

 

المصنف1.rar

[عبدالله باقشير]

السلام عليكم

 

صحح الكود بهذا

Private Sub CommandButton1_Click()
Dim RdNG As Range
Set RdNG = Sheets("PA1").Range("A1:A8000")
For Each cell In RdNG
    If cell.Value = ActiveCell Then
        Sheets("PA1").Activate
        cell.Select
        Exit For
    End If
Next
End Sub

تحياتي

[نايف - م]

شكرا شكرا شكرا -بارك الله فيك و زادك علما فوق علمك