ترحيل ما فى التيكست بوكس الى ورقة ما

[Mohammad Shawkey]

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

تحياتى للاساتذة الافاضل

انا بفضل ربنا ومساعده حضراتكم قدرت افهم هذا الكود

Private Sub CommandButton4_Click()

Range("C3") = TextBox1.Value

End Sub

فهذا الكود يعنى انه عند الضغط على الزر يتم نقل ما فى التيكست بوكس1 الى الورقة رقم 1 فى الخلية C3

ولكن الاضافة التى اتمناها هنا من حضراتكم هى تتمثل فى الاتى

1- كيف للبرنامج ان يفهم من تلقاء نفسة انى اريد نقل ما فى التيكست بوكس الى ورقة رقم 1 وليست ورقة رقم 2 او 4 على سبيل المثال

2- اذا اردت نقل البيانات الموجودة فى التيكست بوكس الى ورقة اخرى غير ورقة رقم 1 هذه ماذا اضيف على هذا الكود

3- هل يمكن اذا كان لدى اكثر من تيكست بوكس ولو يكن

تيكست بوكس 1

تيكست بوكس 2

تيكست بوكس 3

ان يتم نقل البيانات الى ورقة رقم واحد فى العمود A ولكن الصفوف تأخذ نفس ترتيب التيكست بوكس ... بحيث ان التيكست بوكس 1 يتم نقل ما فية الا صف رقم 1 فى العمود A

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

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

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

تم تعديل أغسطس 19, 2012 بواسطه mosha14

[أبو حنــــين]

جرب هذا المثال

مثال.rar

[Mohammad Shawkey]

جرب هذا المثال

الله يكرمك استاذ ابو حنين ... جزاك الله كل خير هذا هو المطلوب ..