اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

سؤال فى كود


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

الكود التالى للأستاذ الكبير الخبير عميد قسم الإيكسيل الذى ننتظر بفارغ الصبر أن يعود سريعاً ليمتعنا بأعماله الرائعة

طبعاً تعرفونه دون ذكر إسمه إنه أستاذنا المبدع خبور خير

الرجاء شرح ميسر للكود مع توضيح ما الذى ينبغى على تغييره فى الكود لاستطيع تطبيقه فى أعمال متنوعة

خاصة كيف أحدد العمود فى الشيت الرئيسى الذى سيحتوى على الكلمات التى بناء عليها سيقوم الكود بالترحيل إلى الشيتات الأخرى


Sub Khboor_Tarheel()

'=============================================

' الية الكود بعد الترحيل يقوم بمسح البيانات التي تم ترحيلها

On Error Resume Next

Application.ScreenUpdating = False

For a = 2 To [a200].End(xlUp).Row

	If Cells(a, 1) <> "" Then

		MySheets = Cells(a, 1)

		With Sheets(MySheets).[a200].End(xlUp)

		.Offset(1, 0) = Cells(a, 1)

		 .Offset(1, 1) = Cells(a, 2)

		   .Offset(1, 2) = Cells(a, 3)

		 .Offset(1, 3) = Cells(a, 4)

		End With

	End If

' If Sheets("ورقة1").Cells(a, "a") > "" Then Cells(a, 3).Resize(1, 4).Value = "" ' اذا اردت مسح البيانات بعد الترحيل حفز هذا السطر

Next a

Application.ScreenUpdating = True

MsgBox "!تم الترحيل   بنجاح", vbInformation + vbMsgBoxRight, "تم الترحيل"

Range("a2").Select

On Error Resume Next

On Error GoTo 0

End Sub

رابط هذا التعليق
شارك

أخي الكريم يوسف عطا

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

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

مبدئياً

العمود الذي يحتوي على اسماء الشيتات المراد ترحيل البيانات اليها هو العمود A ويبداء من الصف الثاني

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information