قائمة منسدلة بها معادلة تظهر تسلسل الارقام

[الدهشوري]

احتاج من سعادتكم قائمة منسدلة بها معادلة تظهر تسلسل الارقام 

بمعنى عندى ارقام من100:1 احتاج معدلة بالقائمة المنسدلة عند إختيار رقم1 يظهر التسلسل 2و3 وهكذا إلى آخر 100

[سليم حاصبيا]

جرب هذا الملف

تضع في الخلية E1  اي رقم تريد وتطهر لك قائمة منسدلة من 1 حتى هذا الرقم
في جال الجطأ الحلية  E1 تساوي 1

 

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
 If Target.Address(0, 0) = "E1" _
    And Target.Count = 1 _
    And Val(Target) > 0 Then
     If Target < 1 Then Target = 1
     Target = Int(Target)
     Me.Range("E1") = Target
     Tajriba
 End If
Application.EnableEvents = True
End Sub
'++++++++++++++++++++
Sub Tajriba()
Dim Mon_Array, s
Dim y%: y = Range("E1")
s = "Row(" & 1 & ":" & y & ")"

 Mon_Array = Application.Transpose(Evaluate(s))
 With Range("A1").Validation
 .Delete
 .Add 3, Formula1:=Join(Mon_Array, ",")
 End With
Range("A1") = 1
End Sub

 

Var_dat_val.xlsm

[أحمد يوسف]

   الدهشوري

أين انت من  هذه الإجابة الممتازة؟!!! لم أرى اى ضغط على الإعجاب من طرفك , وهل جزاء الإحسان الا الإحسان ؟!!!!

أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!! 💙