أبو جديد قام بنشر مايو 20, 2008 قام بنشر مايو 20, 2008 الإخوة الأفاضل السلام عليكم ورحمة الله وبركاته طريقة الترحيل هذه دوختني ولم أجد لها حل في المنتدى أي لم أجد أحد سال عنها وهي كتالي : طلب مني أحد الأخوان عمل ملف صغير ! يتم من خلاله إدخال المسافة التي قطعها سائق الأُجرة والمبلغ الذي حصل عليه في ذلك اليوم يعني محل لوموزين تمام! والسؤال هو كيف أستطيع إدخال كل معلومة لكل سيارة في نفس الخلية المقابلة لها في الصفحة التي تخصها ؟ أنا عملت طريقة ترحيل بس إما أن تكون خطأ أو ناقصة وكلي آمل في الله ثم فيكم أن تساعدوني و شكراً لكم أرجوا أن يكون سؤالي واضح.....! المثال في المرفقات...., Testing_Testing_Testing444444444.rar
ابو اسامة العينبوسي قام بنشر مايو 20, 2008 قام بنشر مايو 20, 2008 السلام عليكم اخى مزلزل هنا طبقت على Mazda ان كان صحيح اكمل الحل باذن الله Testing_Mazda.rar
أبو جديد قام بنشر مايو 20, 2008 الكاتب قام بنشر مايو 20, 2008 أخي/ أبو أسامة ما شاء الله تبارك الله والله لا يضرك. جزأك الله ألف ألف خير وجعله الله في ميزان حسناتك وأشكرك على اهتمامك وسرعة ردك. هذا الذي أُريده ولا عليك أمر تكمل الباقي. و لك كل تقدير واحترام.............!
أبو جديد قام بنشر مايو 21, 2008 الكاتب قام بنشر مايو 21, 2008 أخي/ أبو أسامة المعذرة وطول بالك علي شوي والله يحفظك فيه مشكلة وهي : 1- عندما أُريد الترحيل إلى OUT من قائمة الأيام المنسدلة يظهر لي خطأ ! 2- والملاحظ خانة الترحيل ما تمسح بعد الترحيل منها! و لك كل تقدير واحترام.............! Testing_Mazda.rar
ابو اسامة العينبوسي قام بنشر مايو 23, 2008 قام بنشر مايو 23, 2008 (معدل) السلام عليكم اسف لانشغالى استخدم هذا الكود Sub omar() Dim myrow As Integer Dim mycol As Integer Worksheets(Range("b12").Value).Select Select Case Worksheets(1).Range("b14").Value Case Is = "MMM111" myrow = 9 Case Is = "MMM222" myrow = 12 Case Is = "MMM333" myrow = 15 Case Is = "MMM444" myrow = 18 Case Is = "MMM555" myrow = 21 Case Is = "MMM666" myrow = 24 Case Is = "MMM777" myrow = 27 Case Is = "MMM888" myrow = 30 Case Is = "MMM999" myrow = 33 Case Is = "MMM100" myrow = 36 End Select If Worksheets(1).Range("d13").Value = "OUT" Then mycol = 34 Else mycol = Worksheets(1).Range("d13").Value + 2 End If Cells(myrow, mycol).Value = Worksheets(1).Range("d14").Value Cells(myrow + 1, mycol).Value = Worksheets(1).Range("d15").Value Sheets(1).Select Range("d14:d15").ClearContents End Sub تم تعديل مايو 23, 2008 بواسطه ابو اسامة العينبوسي
أبو جديد قام بنشر مايو 23, 2008 الكاتب قام بنشر مايو 23, 2008 أخي/ أبو أسامة صراحة يعجز اللسان عن شكرك والكن ما أقول إلا جزاك الله ألف ألف خير وجعله الله في ميزان حسناتك وأشكرك لحسن اهتمامك . وغفر الله لك ولوالديك وجعل الله مثواكم الجنة.
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.