تخصيص رقم الحجز

[moh250]

السلام عليكم و رحمه الله اخواتى فى الله ارجو المساعدة

برجاء مرفق لكم شيت به ثلاث اعمدة العمود الاول به ارقام الcontainer و العمود الثانى فاضى و العمود الثالث به ارقام الحجوزات انا اريد ان اضع كل رقم حجز بجانب ارقام الcontainer فى العمود رقم b الفاضى برجاء الملاحظه انا حاولت عمل كود فى vba و لكن ناقص به شئ برجاء تكميل الكود و لكم جزيل الشكر

sort-2.rar

[عبد الفتاح كيرة]

أخى الفاضل

أعطنا مثالا محلولا

كى نفهم المطلوب

لأن الكود فيه بحث عن حرف u

و لا أفهم الغرض من ذلك

مع الشكر

[moh250]

اخى الكريم حرف الu هو الحرف الرابع للcontainer فى العمود رقم A انا اريد نتيجة الكود النهائية ان العمود ارقام الbooking رقم c تنقل العمود رقم B مع ارقام موازى مع الcontainer اليك الشيت المرفق

sort-2.rar

[عبد الفتاح كيرة]

لعل هذا ما تريده

Sub insertB()

Dim myr As Range

Dim myc As Range

With Sheets(1)

    Set myr = Range("b3:b100")

    End With

    For Each myc In myr

        If myc.Offset(0, 1) = "" And myc.Offset(0, -1) <> "" Then

        myc = myc.Offset(0, 1).End(xlUp)

    End If

    Next myc

End Sub

SORT-2kemas.rar

تم تعديل يناير 24, 2011 بواسطه kemas