(تمت الاجابة) الاخوة بحاجة لتعديل هذا الكود بالفورم المرفق

[abouelhassan]

الاخوة الافاضل الاساتذة جميعا

هذا الفورم من تصميم وتنفيذ العبقرى اخى الاستاذ ابو نصار المحترم

يقوم بكتابة كلمة الاجمالى والتاريخ فى العمودAوB

وفى حالة وجود كلمة الاجمالى لا نفذ الكود فى هذا الشيت

المشكلة ان الكود اذا وجد كلمة الاجمالى فى اى مكان بالصفحةلايتم التنفيذ

والمطلوب انه اذا وجد كلمة الاجمالى والسطر الذى يليها به بيانات ينفذ الامر

اما اذا وجد بأخر سطر كلمة الاجمالى لاينفذ

اى اخر سطر بالصفحة لو به كلمة الاجمالى لاينفذ

اما لو به بيانات يتم التنفيذ

بمعنى ان يقوم بالعمل على اخر سطر بالصفحة لكل صفحات العمل

لو اخر سطر به كلمة الاجمالى لايعمل

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

مرفق الملف

كتابة كلمة من الفورم فى سطر وفى حالة وجودها لا تكتب.rar

[الـعيدروس]

السلام عليكم

الاخ الفاضل ابو الحسن حفظك الله

====================

بمعنى ان يقوم بالعمل على اخر سطر بالصفحة لكل صفحات العمل

لو اخر سطر به كلمة الاجمالى لايعمل "

إقتباس

"

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

================

هذا هو عمل الكود

فما الاضافة التي تريدها ؟؟

[abouelhassan]

استاذنا بارك الله فيك

اريد استاذنا

لو فى صفحة مثلا اخر سطر به كلمة الاجمالى لا يعمل الكود ولو اضافت فى السطر الذى يليه بيان يعمل الكود

حضرتك جرب شغل الكود وبعد انتهاء عمله

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

توضيح

اريد اخر سطر لو به كلمة الاجمالى لا يعمل ولو اضافنا سطر يليه به اى بيان بخلاف الاجمالى يعمل

احترام من كل قلبى

[abouelhassan]

اما الان استاذنا

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

ااريده ان يعمل على اخر سطر لو ليس به الاجمالى يعمل

احترامى

[abouelhassan]

استاذنا هو الكود فعلا بيعمل تمام

ولكن عندما نقلته لعملى بيعمل على صفحة واحدة فقط

مع العلم ان غيرت المدى االى 25000 سطربدلا من 1500

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

اين المشكلة استاذنا ليعمل على كل اوراق العمل بملفى

تم تعديل ديسمبر 31, 2011 بواسطه abouelhssan

[الـعيدروس]

السلام عليكم

جرب هكذا

ان شاء الله يزبط معاك

Public Sub ali()

Application.ScreenUpdating = False

Dim SH As Worksheet

For T = 2 To Sheets.Count

Set SH = Sheets(T)

Q = SH.Range("B1500").End(xlUp).Row

If SH.Range("B" & Q).Value = "الاجمالى" Then

GoTo 1

Exit Sub

Else

SH.Activate

Range("B" & Q).Select

With SH

.Range("A" & Q + 1).Value = TextBox1

.Range("B" & Q + 1).Value = TextBox2

End With

End If

Sheet1.Activate

1

Next T

End Sub

تحياتي

تم تعديل ديسمبر 31, 2011 بواسطه alidroos

[abouelhassan]

سلمت يمينك استاذنا

تم العمل

الله يبارك لك أمين

كل الاحترام والتقدير من اخيك

[الـعيدروس]

الحمد لله

[abouelhassan]

استاذنا الله يعزك

عدلت الكود من B1500

الى B20000

فلم يعد يعمل الكود وانا بحاجة الى ان يكون الكود 20000 سطر

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

احترامى الشديد

[الـعيدروس]

جرب هكذا

Public Sub ali()

Application.ScreenUpdating = False

Dim SH As Worksheet

For T = 2 To Sheets.Count

Set SH = Sheets(T)

Q = SH.Cells(Rows.Count, 2).End(xlUp).Row

If SH.Range("B" & Q).Value = "الاجمالى" Then

GoTo 1

Exit Sub

Else

SH.Activate

Range("B" & Q).Select

With SH

.Range("A" & Q + 1).Value = TextBox1

.Range("B" & Q + 1).Value = TextBox2

End With

End If

Sheet1.Activate

1

Next T

End Sub

[abouelhassan]

استاذنا الله يعزك

لم يعمل استاذنا ويقف ولا يعمل

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

[الـعيدروس]

انا جربته على اكثر من 20000 صف

وعمل بكفائة

ارجو منك ارفاق نسخة من الملف

اذا كان الملف به اسرار عمل بإمكانك إرساله على ايميلي

او اعمل نسخه من الملف وضيف بيانات وهميه

وارفقه الله لايهينك

كي نعرف مالمشكلة

[abouelhassan]

استاذنا الملف فى هذا الموضوع

من تنفيذ حضرتك

المشاركة 53

شاكر جدا اهتمامك وجهدك والله

http://www.officena.net/ib/index.php?showtopic=39191&st=40

[الـعيدروس]

السلام عليكم

المرفق وعليه الكود

الملف من المشاركة التي اشرت عليها

جرب وابلغنى بالنتائج

والسلام عليكم

ALIDROOS_CP.rar

[abouelhassan]

كل الاحترام من القلب استاذنا ابو نصار

الله يرضى عليك

كل وفائق التقدير من اخيك

[abouelhassan]

سامحنى استاذنا

التنفيذ اقتصر معى على صفحة واحدة

مش عارف المشكلة فين

وجربت كل شئ

ممكن التنفيذ على اول فورم بأول مشاركة

لو امكن بعد اذن حضرتك

احترامى

[abouelhassan]

استاذنا والله انا عا رف انى اثقلت عليك

بس سامحنى

هل من الممكن كود لو كتبنا التاريخ 29 واى كان الشهر فى الخلية Aحتى A20000

تكتب كلمة الاجمالى حتى اتدارج مشكلة الفورم او اى حل لكتابة كلمة الاجمالى بشرط عدم التكرار فى الصف الذى يسبقها من الشيت 2 حتى 39

لانى يأست والله وتعبتك وانا فى شدة الخجل منك والله

احترامى

[الـعيدروس]

السلام عليكم

الاخ الفاضل ابو الحسن

لاعليك

انما انا بحاول من اول احمل المرفق الذي في المشاركة الاولى

ولم استطيع لااعلم اين المشكلة

ارجو منك رفعه عن طريق سرفر خارجي على اي موقع مثلا 4SHARE

وارفق الرابط اذا تكرمت

وبالنسبة للطلب الاخير لم افهم ارجو التوضيح اكثر

والسلام عليكم

[abouelhassan]

تفضل استاذنا فضلك الله على العباد

http://www.4shared.com/rar/zP3GBkAx/__________.html

احترامى

[الـعيدروس]

السلام عليكم

تفضل جرب المرفق

للعلم لم اضف شيء حطيت الكود عليه

وجربت يعمل ولاتوجد ايتها مشاكل

وانما خير التجربه عندك جرب واطلعنى بالنتائج

ترحيل_ali_1.rar

[abouelhassan]

والله رائع يعمل يعمل يعمل

بارك الله لك وبك

استاذنا تقبل احترامى وشكرى لك من كل قلبى

مجهودك وتعبك بميزان حسناتك وعلى راسى والله جمايلك

[الـعيدروس]

الحمد لله