تسجيل وترحيل وقتي

[خالد القدس]

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

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

فحاولت تقليده ولكن شنجاب الغراب مع صقر السماء

فوجب طلب العون قبل ان يطلع نافوخي من راسي

المطلوب بالمرفق رفق الله بنا وبكم

M10.rar

[بن علية حاجي]

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

أخي الكريم، أعتقد أن بالملف خلل، بعد تحميله أظهر الخلل مباشرة وعند محاولة فتحه تظهر أيضا نافذة الخلل ولا يفتح... لست أدري إن حدث الشيء نفسه مع الأعضاء الآخرين... رجاء إن كان به خلل أعد ضغطه وإرساله مرة أخرى...

أخوك بن علية

[خالد القدس]

السلام عليكم

استاذ بن علية

إليك الملف من جديد

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

M10.rar

[احمد فضيله]

اخي خالد القدس

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

لكن اعتقد ان الملف لا يعمل

[خالد القدس]

السلام عليكم

أخي الكريم

هذا الملف ضغطه مرة أخرى أرجو أن يفتح معك

M10.rar

[عبدالله باقشير]

السلام عليكم

لقد قمت باختصار تكرار الاكواد في الفورم رقم 6

واضافة ما طلبت

شاهد المرفق

M12.rar

[خالد القدس]

السلام عليكم هذا الاحسان بعينه وزيادة أحسنت أخي أستاذ خبور خير أحسن الله إليك وزادك إحسانا (( ربي أوزعني أن أشكر نعمتك التي أنعمت عليّ وعلى والديّ وأن أعمل صالحاً ترضاه ))

[عبدالله باقشير]

السلام عليكم

الله يزيدك احسانا ورونقا

بارك الله فيك

هناك خطا في الكود المماثل للكود التالي بعد التصحيح:

Private Sub CommandButton3_Click()

Dim M As Integer

With Sheets("farest (2)")

    M = .Range("b" & .Rows.Count).End(xlUp).Row + 1

    .Range("b" & M).Resize(1, 5) = Array(ComboBox18, TextBox2.Value, TextBox3.Value, TextBox1.Value, TextBox4.Value)

End With

MsgBox "تم الترحيل بنجاح"

TextBox1 = ""

End Sub

الخطأ كان هنا:

M = .Range("b" & .Rows.Count).End(xlUp).Row + 2

بدلا من 2 غيره 1

M = .Range("b" & .Rows.Count).End(xlUp).Row + 1

[خالد القدس]

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

[عبدالله باقشير]

السلام عليكم

اخي خالد ساعطيك طريقة لسرعة تعلم الاكواد

اذا رايت كودا وتريد تعلمه

اعبث بالكود بتغيير الارقام وانظر ماذا يحدث

احذف سطر معين وشاهد ايه اللي حصل

طبعا في ملف اخر للتجربة

من خلال النتائج الحاصلة ستتكون عندك معرفة سريعة

طبعا انا اتكلم عن الاكواد البسيطة للترحيلات وغيره والتي ليس لها علاقة بملفات النظام

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

ولا تنسانا من الدعاء

ودمتم في حفظ الله

[خالد القدس]

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