مساعدة في ترحيل مع شرح الكود

[مصطفى حسين]

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

 

 

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

 

وإذا كان بالامكان شرح كود البحث الموجود بالفورم لاني لم استطع ان اجد كود بحث يظهر لي نفس النتيجة الدقيقة  غير هذا الكود مثلا عند ادخال اي 5 ارقام من كود المطالبة تظهر لي النتيجة الصحيحة 100% فأردت أن اصمم فورم بحث لكن لم اوفق في نتيجة البحث الجيدة المتلقاة من هذا الفورم الجيد 

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

 

ومتأسف على الاطالة 

فأرجوا من لديه الاستطاعة ان لايبخل علينا واكون له من الشاكرين فورم ادخال مرن.zip 

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

السلام عليكم

 

اضف زر جديد

وضع هذا الكود في الفورم

Private Sub CommandButton1_Click()
Dim Lr As Long
With Sheets("ارشيف")
    Lr = .Cells(Rows.Count, "A").End(xlUp).Row + 1
    .Cells(Lr, "A").Value = Lr - 7
    .Cells(Lr, "B").Value = Me.Controls("Textdt1")
    .Cells(Lr, "C").Value = Me.Controls("Textdt3")
    .Cells(Lr, "D").Value = Me.Controls("Textdt4")
End With
End Sub

تحياتي

[مصطفى حسين]

الأستاذ الفاضل /  عبدالله باقشير .. المحترم 

 

 

بوركت وجزيت خيرا ...كعادتك مبدع كما عهدناك وملبي استفساراتنا وطلباتنا اللتي لاغنى لنا عنكم وعن مشورتكم ..

 

 

وشاكرا لك ولجميع الاساتذة الكرام لما تقدموه لنا من خدمات ...

 

ووفقنا الله واياكم أجمعين .