اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

sort-2.rar

قام بنشر

اخى الكريم حرف ال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

تم تعديل بواسطه kemas

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

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

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information