nicola قام بنشر يناير 13, 2013 مشاركة قام بنشر يناير 13, 2013 (معدل) السادة اعضاء المنتدى الاكارم السلام عليكم ورحمة الله تعالى وبركاته والتحية والاجلال لاساتذة المنتدى حفظهم الله ------------------------------------------------------------------- ارجوا المساعدة في ترحيل بيانات بشكل افقي واستدعاء البيانات المرحلة بشكل افقي عن طريق رقم التسلسل وان تظهر البيانات المستدعاة في لست بوكس والمرفق يوضح الفكرة بشكل مفصل وشكرا جزيلا لكم ترحيل واستدعاء بشكل افقي.rar تم تعديل يناير 13, 2013 بواسطه nicola رابط هذا التعليق شارك More sharing options...
nicola قام بنشر يناير 13, 2013 الكاتب مشاركة قام بنشر يناير 13, 2013 للرفع رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 13, 2013 مشاركة قام بنشر يناير 13, 2013 (معدل) السلام عليكم تفضل nicola_A.rar تم تعديل يناير 13, 2013 بواسطه عباد رابط هذا التعليق شارك More sharing options...
أبو شرف قام بنشر يناير 13, 2013 مشاركة قام بنشر يناير 13, 2013 اخي العزيز الفكرة حلوة وعاشت ايدك والمجهود جدا جميل وبه افكار كبيرة ولكن لدي مداخلة بعد اذنكم هل بأمكان استدعاء البيانات وتفتح بعدد الخلايا المستعملة اي عندما نستدعي من رقم تفتح كمبوكسات حسب المدخلات وقتها تكون الفائدة اكثر من وجهت نظري واكرر شكري لجميع الأعظاء اخوكم ابو شرف رابط هذا التعليق شارك More sharing options...
nicola قام بنشر يناير 15, 2013 الكاتب مشاركة قام بنشر يناير 15, 2013 (معدل) اخي ابو نصار الغالي زادك الله فضلا وغناك من غناه وشكرا جزيلا لك تم تعديل يناير 15, 2013 بواسطه nicola رابط هذا التعليق شارك More sharing options...
nicola قام بنشر يناير 19, 2013 الكاتب مشاركة قام بنشر يناير 19, 2013 (معدل) السلام عليكم اخي ابو نصار ارجوا مساعدتك في حل هذه المشكلة الصغيرة حيث اريد ان اجعل هذا الكود يستدعي البيانات من صفحة احددها ضمن الكود اي اريد تحدد اسم الصفحة ضمن الكود Dim r As Range, rc As Range, Rn As Range Dim Rw On Error Resume Next Set r = Range("A2:AF1000") For Each rc In r If Cells(rc.Row, 1) = Val(TextBox1) Then Set Rn = Range(Cells(rc.Row, 3), Cells(rc.Row, rc.Column)) End If Next For c = 1 To Rn.Columns.Count If Rn.Cells(1, c).Value <> "" Then With Me.ComboBox1 .AddItem Rn.Cells(1, c).Value End With End If Next Set r = Nothing: rc = Nothing: Rn = Nothing تم تعديل يناير 19, 2013 بواسطه nicola رابط هذا التعليق شارك More sharing options...
nicola قام بنشر يناير 19, 2013 الكاتب مشاركة قام بنشر يناير 19, 2013 للرفع رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 19, 2013 مشاركة قام بنشر يناير 19, 2013 السلام عليكم Dim r As Range, rc As Range, Rn As Range Dim Sn As Worksheet Dim Rw On Error Resume Next Set Sn = Sheets("إسم الورقة هنا") Set r = Sn.Range("A2:AF1000") For Each rc In r If Sn.Cells(rc.Row, 1) = Val(TextBox1) Then Set Rn = Sn.Range(Sn.Cells(rc.Row, 3), Sn.Cells(rc.Row, rc.Column)) End If Next For c = 1 To Rn.Columns.Count If Rn.Cells(1, c).Value <> "" Then With Me.ComboBox1 .AddItem Rn.Cells(1, c).Value End With End If Next Set r = Nothing: rc = Nothing: Rn = Nothing رابط هذا التعليق شارك More sharing options...
nicola قام بنشر يناير 19, 2013 الكاتب مشاركة قام بنشر يناير 19, 2013 بارك الله فيك اخي ابو نصار وشكرا جزيلا لك رابط هذا التعليق شارك More sharing options...
nicola قام بنشر فبراير 25, 2013 الكاتب مشاركة قام بنشر فبراير 25, 2013 السلام عليكم اخواتي الاكارم بارك الله فيكم ارجوا المساعدة في تكملة عمل الملف وذلك باضافة خاصية وهي التعديل على البيانات بعد اضافتها وهذه الاضافة هي تكملة لعمل الملف في المرفق توجد التفاصيل ولكم جزيل الشكر استدعاء بيانات بشكل افقي التعديل عليها.rar رابط هذا التعليق شارك More sharing options...
nicola قام بنشر فبراير 26, 2013 الكاتب مشاركة قام بنشر فبراير 26, 2013 للرفع رابط هذا التعليق شارك More sharing options...
nicola قام بنشر فبراير 26, 2013 الكاتب مشاركة قام بنشر فبراير 26, 2013 للرفع رابط هذا التعليق شارك More sharing options...
nicola قام بنشر فبراير 26, 2013 الكاتب مشاركة قام بنشر فبراير 26, 2013 للرفع رابط هذا التعليق شارك More sharing options...
nicola قام بنشر فبراير 27, 2013 الكاتب مشاركة قام بنشر فبراير 27, 2013 للرفع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.