mhrrd

اخي الفاضل

الاكواد عند نسخها ولصقها بالمنتدى

تظهر الحروف العربيه بشكل غريب

نرجو حلا لهذه المشكله

كيف تتم اضافة الاكواد في المكتبة

جزاك الله خيرا

كيف تتم اضافة الاكواد في المكتية

اخي الاسناذ الخالدي

شكرا لك

تظهر رساله مفادها ( هذا الاسم موجود فاذا تم التغيير في البيانات

واردنا نفس الشهر لانستطيع

نريد المسح اولا ثم الترحيل

*** ماهو التغيير اذا اردنا نقل عدد اكثر من الاعمدة ؟

***ماذا نفعل اذا اردنا ترحيل اعمدة معينه الى اعمدة معينة اخرى؟

بارك الله لك

السلام عليكم

أخي العزيز

هذا من أكواد العلامة أستاذنا جميعا / خبور خير عبدالله باقشير ، حفظه الله

لابد انك فقدت شيئا في التعريفات اإبتدائية أثناء نقل الكود

وحيث أنني لست متمكن من هذا الجانب ، فسأحلها لك بإستخدام إحدي خلايا الورقة (إخترت الخلية AL1)

المهم

إستبدل الكود بالتالي

'Dim Mytest As Boolean

M = ActiveCell.Column

N = 2				  'اول عمود للفرز

NN = 26			'آخر عمود للفرز

If M < N Or M > NN Then GoTo 1

With ActiveSheet

   Set KH_1 = .Range("B6:Z1000")

	  If [AL1] = 0 Then

		 KH_1.Sort Key1:=Cells(5, M), Order1:=xlAscending

		 [AL1] = 1

		 GoTo 1

	 Else

		 KH_1.Sort Key1:=Cells(5, M), Order1:=xlDescending

		 [AL1] = 0

		 GoTo 1

	 End If

End With

On Error GoTo 0

1 End Sub

السلام عليكم

انت عايز الفرز تصاعدي وتنازلي لاي عمود ممن تحدده

نعم اخي القاضل عايز الفرز تصاعدي وتنازلي لاي عمود ممن احدده

اخي القاضل استاذ طارق

المفروض ان الملف بعمل فرزتصاعدي بالضغطة الاولى

وفرزتنازلي بالضغطة التانية

لك شكري

إخواني الكرام

لدي ملف بسيط لكود للفرز نقلته من أحد الملفات الأخرى

لكن دون جدوى الكود لا يعمل أين الخطأ ؟

الكود في المرفقات وشكرا لكم

فرز.rar

زادك الله من فضله وعلمه ورزقك وبارك لك في وقتك وجهدك وأهلك ومن تحب جميعا

السلام عليكم

أسعد الله أيامكم بالخير آمين يارب العالمين

قابلتني مشكلة عند طباعة أكثر من ملف وورد مع أكثر من نوع طابعة

عند وجود خلفية مائية وجدول فوقها أجد أن بعض حدود الجدول تختفي ولا تظهر في الطباعة

فما هو الحل بارك الله لكم وشكراً

أثـــــابكم الله على جهدكم المتواصل

وجزاكم الله كل خير

الف الف شكر يابطل

جزئية اخيره

اذا اخترت 3 صفوف يظهر 4

هل ممكن عدد الصفوف يتساوى مع الخلية

I2

هذا هو الملف

جزاك الله كل خير

نقل بيانات.rar

جزاك الله خيرا

اريد مسح صفحات معينة ومن صفوف معينة

جزاك الله كل خيروبارك لك

لو الصف المطاوب نسخه مكون من 115 عمود

اين التغيير

اختر العدد 10 لاضافة 10 صفوف ثم بعدها اختر العدد 3 لاضافة 3 صفوف

تجد الصفوف ال 10 موجودة ولا نريد ذلك

نريد المسح ثم اضافة عدد الصفوف الجديدة

السلام عليكم ورحمة الله

هذا كود ممتاز ولكن اريد اضافة المسح قبل نسخ الصفوف

======

السلام عليكم

ماذا لو أردنا أن يضيف الكود عدد من الصفوف محدد بقيمة في خلية ما في صفحة أخرى غير التي نعمل عليها؟؟؟؟

استخدم مثلا الكود التالي:

Sub KH_Copy()

On Error Resume Next

Dim Last As Long

Dim Count As Integer

Count = 1

Count = Sheets("KHBOOR").Range("F9").Value

With ActiveSheet

	Last = .Range("A" & .Rows.Count).End(xlUp).Row

	.Rows(Last).Copy .Rows(Last + 1).Resize(Count)

	.Rows(Last + 1).Resize(Count).SpecialCells(xlConstants).ClearContents

End With

On Error GoTo 0

End Sub

السلام عليكم

اخي الفاضل

هذا الشرح كما وعدتك

نتضرع الى الله بأن يتغمد الفقيدة بواسع رحمته وان يسكنها فسيح جناته وان يلهمكم الصبر والسلوان .

ان شاء الله ساشرح لك الكود كله صوتا وصورة

جزاك الله الف خير واعانك لفعل الخير

اخي الفاضل

عند مسح بيانات من صقحة بيانات اساسية لاينم مسحها او التحديث

هل من الممكن ان يتم النقل بمجرد الانتقال من صفحة بيانات اساسية

جزاك الله خيرا

جزاك الله كل خير

هذا هو المطلوب

وارجو ان تشرح لي هذه الجزئيه

For r = 4 To 11

Cells(j, r + 4) = MySh.Cells(i, r)

Next

j = j + 1