ترحيل واستدعاء بيانات بشكل افقي

[nicola]

السادة اعضاء المنتدى الاكارم

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

والتحية والاجلال لاساتذة المنتدى حفظهم الله

-------------------------------------------------------------------

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

واستدعاء البيانات المرحلة بشكل افقي عن طريق رقم التسلسل

وان تظهر البيانات المستدعاة في لست بوكس

والمرفق يوضح الفكرة بشكل مفصل

وشكرا جزيلا لكم

ترحيل واستدعاء بشكل افقي.rar

تم تعديل يناير 13, 2013 بواسطه nicola

[nicola]

للرفع

[الـعيدروس]

السلام عليكم

تفضل

nicola_A.rar

تم تعديل يناير 13, 2013 بواسطه عباد

[أبو شرف]

اخي العزيز الفكرة حلوة وعاشت ايدك والمجهود جدا جميل وبه افكار كبيرة ولكن لدي مداخلة بعد اذنكم

هل بأمكان استدعاء البيانات وتفتح بعدد الخلايا المستعملة اي عندما نستدعي من رقم تفتح كمبوكسات حسب المدخلات وقتها تكون الفائدة اكثر من وجهت نظري واكرر شكري لجميع الأعظاء

اخوكم

ابو شرف

[nicola]

اخي ابو نصار الغالي

زادك الله فضلا

وغناك من غناه

وشكرا جزيلا لك

تم تعديل يناير 15, 2013 بواسطه nicola

[nicola]

السلام عليكم

اخي ابو نصار

ارجوا مساعدتك في حل هذه المشكلة الصغيرة

حيث اريد ان اجعل هذا الكود يستدعي البيانات من صفحة احددها ضمن الكود

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

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

[nicola]

للرفع

[الـعيدروس]

السلام عليكم

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

[nicola]

بارك الله فيك اخي ابو نصار

وشكرا جزيلا لك

[nicola]

السلام عليكم 

اخواتي الاكارم بارك الله فيكم 

 

ارجوا المساعدة في تكملة عمل الملف وذلك باضافة خاصية وهي التعديل على البيانات بعد اضافتها 

وهذه الاضافة هي تكملة لعمل الملف 

في المرفق توجد التفاصيل 

ولكم جزيل الشكر

استدعاء بيانات بشكل افقي التعديل عليها.rar

[nicola]

للرفع

[nicola]

للرفع

[nicola]

للرفع

[nicola]

للرفع