التعديل على التموذج المرفق

[skyblue]

الاساتذة المشرقين  والاعضاء الافاضل     : 

السلام عليكم ورحمة الله وبركاته     وبعد : 

 

في المرفق نموذج  وارغب التعديل عليه على النحو التالي : 

1-   القائمة المنسدلة  لاتعمل  معي على الرغم من ادخال الكود الصحيح . 

2-  اظهار المجاميع  اليا 

3-  ظهر القيد المالي في  النموذج  بمجرد ترحيلي للبيانات . 

( سحب بيانات القيد المالي من ورقة 1)   . 

 

تحياتي 

برنامج المصروفات.rar

تم تعديل سبتمبر 22, 2013 بواسطه دغيدى

[أبو حنــــين]

السلام عليكم

حتى يعمل الكمبوبكس اكتب الكود التالي

Private Sub UserForm_Initialize()

 ComboBox1.Clear
 Dim i As Long
 With Sheets("ورقة2")
 For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
 If .Range("A" & i) <> "" Then
 ComboBox1.AddItem .Range("A" & i)
 End If
 Next i
 End With

End Sub

[skyblue]

استاذي ابو حنين  اشكرك على الرد ولكالما تمنيت ان ترد على موضوعي انت والحمد لله  تم ذلك بفضل الله ورديت انت على موضوعي .

 

ومحتاج لو تكرمت يابو حنين  ان ترد على النطة الثانية  الخاصة  بالمجاميع  .  والنقطة الخيرة  وهي الاهم  وهي بمجرد  ماارحل البيانات  يظهر لقيد المالي في النموذج ( ربط الخلايا  من ورقة 1  الى النموذج )

 

تحياتي لك