استدعااء اسماء روس الاعمده

[ابو حمادة]

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

الاخوه الافاضل اساتذتي الكرام

ارجوا  مساعدتى محتاج كود مختصر يقوم بعمل الاتى

عند فتح يوزر فورم يتم استدعاء البيانات الموجوده في الصف (6) من الرنج  (B6:Z6) الى (Label) داخل اليوزر فورم كما واضح في االصورة المرفقه

علما ان الملف الاساسي به رئوس الاعمدة كثيرة ورئوس الاعمدة متغيره حسب الطلب

ولكم منى جزيل لشكر والتقدير

مرفق ملف   

Book1.rar

 

 

[محمد الورفلي1]

انظر الملف

 

Book1.rar

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

ريما يكون هذا الكود هو المطلوب

Private Sub UserForm_Initialize()
 Dim K%: K = Sheets("ورقة1").Cells(6, Columns.Count).End(1).Column
    Dim i%
    On Error Resume Next
    For i = 1 To K
        Me.Controls("Lb" & i).Caption = Cells(6, i).Value
       
    Next i
End Sub

 

[ابو حمادة]

شكرا لكك على الردود

محمد الخازمي الكود يعمل جيدا ولكن صعب تنفيذه لان عدد الاعمده كثيره ا تقريبا 220 عمود  يعني احتاج 

الاستاذ الفاصل

سليم حاصبيا

لكود جميل ومختصر ولكن لا يعمل 

///////// رد

لا أعلم ما السبب لكن عندي يعمل بشكل حيد

 

سليم حاصبيا

تم اضافة الكود ودى النتيجة نظر للصورة بعد الكود

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

قم بتغيير كافة اسماء  Lebel    من خلال Properties  الى LB2  LB1  ,وهكذا  اذ ربما يكون Lebel1 او Lebe2 غير موجود حقيقة( تم ادراجه ثم مسحه)

الملف مرفق

 

Book1 salim.rar

[ابو حمادة]

تسلم ايدك استاذي الفاضل 

عمل متميز جزاك الله عنا كل خير

وجعل هذا العمل في ميزان حسناتك

ولو تكرمت وعند حضرتك وقت عندي ملف محتاج مساعده من حضرتك لو عند حضرتك وقت 

هو عباره عن شيت به بعض البيانات وبه صفحتان صفحه رئيسيه واخرى فرعيه الرئيسيه بها بيانات اساسيه محتاج كود جمع عدة اعمدة ونقلها الى الملف الفرعي فى مكانها المخصص ويكون الجمع لعدة شروط الشرط الاول الاسم  الشرط الثاني الكود الشرط  الثلث الرقم القومي

اذا تطابق الشروط يتم جمع البيانات الخاصه للاسماء المختاره

عن طريق لست بوكس

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

ولك مني كل الشكر والاحترام

///////   رد

ليس من الضروري تحميل النلف بكاملة 

فقط انشأ ملفاً بسيطا (قم بنسخ حوالي 20 صف من الملف الاصلي الى مصنف اخر) و ارفعه