Alttear قام بنشر يناير 15, 2013 مشاركة قام بنشر يناير 15, 2013 السلام عليكم : اخواني الاعزاء .. اريد ترتيب احد الأعمدة في ملف اكسل بحيث عندما تظهر كلمة معينة في احدى الاسطر .. تنقل و ما تحتها الى عامود جديد .. هل هذا ممكن ؟؟ رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 15, 2013 مشاركة قام بنشر يناير 15, 2013 السلام عليكم ارفاق مثال وبه شرح مبسط اكيد ممكن رابط هذا التعليق شارك More sharing options...
رامي الخبيري قام بنشر يناير 15, 2013 مشاركة قام بنشر يناير 15, 2013 السلام عليكم أخي الكريم الصراحة . . دي أول مرة في حياتي أكتب كود . . لذلك هتلاقيه قمة البدائية لكن حبيت أساعد و أكيد أحد العباقرة هنا سيفيد أكثر تقبل تحياتي 1-ST.zip رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر يناير 15, 2013 مشاركة قام بنشر يناير 15, 2013 (معدل) السلام عليكم هل تقصد بهذه الطريقة تعديل.rar تم تعديل يناير 15, 2013 بواسطه أبو حنين رابط هذا التعليق شارك More sharing options...
Alttear قام بنشر يناير 15, 2013 الكاتب مشاركة قام بنشر يناير 15, 2013 شكرا لكم اخواني الاعزاء الملف المرفق يوضح ما أريد .. مع الشكر الخاص رابط هذا التعليق شارك More sharing options...
Alttear قام بنشر يناير 18, 2013 الكاتب مشاركة قام بنشر يناير 18, 2013 UP رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يناير 18, 2013 مشاركة قام بنشر يناير 18, 2013 تفضل أخى Sub ragab() Dim cl As Range Dim arr() As Variant LR = [A1000].End(xlUp).Row T = 2: x = 2 '==================================== On Error Resume Next For Each cl In Range("A1:A" & LR) If IsDate(cl) Then Cells(1, T) = cl: T = T + 1 End If Next '==================================== For Each cl In Range("A2:A" & LR) If Not IsDate(cl) Then i = i + 1 ReDim Preserve arr(i) arr(i - 1) = cl Else Cells(2, x).Resize(i) = Application.WorksheetFunction.Transpose(arr) x = x + 1: Erase arr: i = 0 End If Next Cells(2, x).Resize(i) = Application.WorksheetFunction.Transpose(arr) End Sub نسخ متعدد.rar 1 رابط هذا التعليق شارك More sharing options...
رامي الخبيري قام بنشر يناير 18, 2013 مشاركة قام بنشر يناير 18, 2013 بسم الله ما شاء الله عليك أخي رجب الواحد كل ما يشوف الأكواد الرائعة دي . . . بفكر أني مكملش في موضوع vb ده سلمت يداك تحياتي أخوك رامي رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يناير 18, 2013 مشاركة قام بنشر يناير 18, 2013 أخى الفاضل / رامى جزاك الله كل خير أخى الفاضل على هذه الكلمات الطيبة واعلم أخى الفاضل أنه قبل دخولى هذا المنتدى لم أكن أعلم أى شئ عن الأكواد ولكن بمتابعة اساتذة هذا المنتدى بدأت أتعلم منهم وما زلت أتعلم منهم الكثير والأمر يحتاج الصبر منى ومنك حتى نصل الى مستوى متقدم ان شاء الله كل الشكر والتحية لجميع الأساتذة الذين نتعلم منهم كل يوم رابط هذا التعليق شارك More sharing options...
Alttear قام بنشر يناير 19, 2013 الكاتب مشاركة قام بنشر يناير 19, 2013 تفضل أخى Sub ragab() Dim cl As Range Dim arr() As Variant LR = [A1000].End(xlUp).Row T = 2: x = 2 '==================================== On Error Resume Next For Each cl In Range("A1:A" & LR) If IsDate(cl) Then Cells(1, T) = cl: T = T + 1 End If Next '==================================== For Each cl In Range("A2:A" & LR) If Not IsDate(cl) Then i = i + 1 ReDim Preserve arr(i) arr(i - 1) = cl Else Cells(2, x).Resize(i) = Application.WorksheetFunction.Transpose(arr) x = x + 1: Erase arr: i = 0 End If Next Cells(2, x).Resize(i) = Application.WorksheetFunction.Transpose(arr) End Sub شكرا لك استاذي الكريم الملف يعمل بشكل جيد ,, بارك الله بك التاريخ المكتوب لدي بهذه الصيغة 1.1.2013 لو سمحت جعل التاريخ الذي ينقل بهذه الصيغة 1.1.2013 بدلا من 1/1/2013 و لك جزيل الشكر رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يناير 19, 2013 مشاركة قام بنشر يناير 19, 2013 تفضل أخى نسخ متعدد.rar رابط هذا التعليق شارك More sharing options...
Alttear قام بنشر يناير 19, 2013 الكاتب مشاركة قام بنشر يناير 19, 2013 تفضل أخى شكرا أخي الكريم لكن لا اعلم لما لا يعمل معي مرفق الملف نسخ متعدد.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يناير 19, 2013 مشاركة قام بنشر يناير 19, 2013 تفضل أخى نسخ متعدد.rar رابط هذا التعليق شارك More sharing options...
رامي الخبيري قام بنشر يناير 19, 2013 مشاركة قام بنشر يناير 19, 2013 تحياتي لك أخي الكريم رجب و جزاك الله خيرا على كلماتك المشجعة . . . رابط هذا التعليق شارك More sharing options...
Alttear قام بنشر يناير 20, 2013 الكاتب مشاركة قام بنشر يناير 20, 2013 تفضل أخى بارك الله بك أخي الكريم و لكن المشكلة مازالت قائمة عندما انسخ البيانات الى الملف يتوقف عن العمل بيانات النسخ.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يناير 20, 2013 مشاركة قام بنشر يناير 20, 2013 أخى الفاضل سبب حدوث هذه المشكلة هو ادخال التاريخ بصورة غير صحيحة جرب ادخال التاريخ بصورة صحيحة مثل 17/9/2009 مثلا سوف يعمل الكود بطريقة صحيحة ان شاء الله رابط هذا التعليق شارك More sharing options...
Alttear قام بنشر يناير 21, 2013 الكاتب مشاركة قام بنشر يناير 21, 2013 أخى الفاضل سبب حدوث هذه المشكلة هو ادخال التاريخ بصورة غير صحيحة جرب ادخال التاريخ بصورة صحيحة مثل 17/9/2009 مثلا سوف يعمل الكود بطريقة صحيحة ان شاء الله بارك الله بك أخي الكريم بالفعل المشكلة كانت بادخالي الخاطئ للتاريخ شكرا جزيلا على الملف الرائع بارك الله بك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.