برجاء المساعدة

[ganko]

السلام عليكم

اريد عمل ربط بين ورقتنين بيحيث العمود B فى الورقة الاولى يساوى الصف 5 فى الورقة الثانية

New Folder.rar

تم تعديل أكتوبر 27, 2009 بواسطه ganko

[ابو اسامة العينبوسي]

السلام عليكم

x = 7

For i = 1 To 128 Step 2

    If Sheets(1).Cells(7, i) = "" Then Exit Sub

    Sheets(2).Cells(x, "a") = Sheets(1).Cells(7, i)

x = x + 1

Next

اكتوبر 20092.rar

[anur.mertah85]

السلام عليكم ورحمة الله أخي الطيب أبو أسامة العينبوسي جزاك الله خيرا على متابعة الموضوع وبارك الله فيك

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

[ganko]

جزاك الله خيرا

ممكن شرح الطريقة

وجزاك الله خيرا