مساعده فى تعديل هذا الكود

[أحمـــــد]

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

 

اريد مساعده  فى تصحيح هذا الكود 

 

1- ان يتم الترحيل فى الصف الاول ثم التانى ثم التالت .......... .

2-  بعد الترحيل  تظهر رساله  فيها ( تم ترحيل البيانات )

 

Book11111111.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / ACCOUNTANT_AHMED

بارك الله فيك

واهلا وسهلا بك بين اخوانك في هذا المنتدي العملاق

وان شاء الله ستسعد بالانضمام الي اسره هذا الصرح العملاق

 

استبدل الكود الخاص بزر الترحيل بالكود التالي

Private Sub CommandButton2_Click()
Dim iR As Long
Dim sh As Worksheet

Set sh = Worksheets("ترحيل بيانات")
iR = sh.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

sh.Cells(iR, 1).Value = Me.TextBox1.Value
sh.Cells(iR, 2).Value = Me.TextBox2.Value
sh.Cells(iR, 3).Value = Me.TextBox3.Value
sh.Cells(iR, 4).Value = Me.ComboBox1.Value

If OptionButton1 = True Then sh.Cells(iR, 5).Value = Me.OptionButton1.Caption
If OptionButton2 = True Then sh.Cells(iR, 5).Value = Me.OptionButton2.Caption

TextBox1.Value = "": TextBox2.Value = ""
 TextBox3.Value = "": ComboBox1.Value = ""
OptionButton1.Value = False: OptionButton2.Value = False

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

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

تقبل خالص تحياتي

 

Book11111111.rar

[حمادة عمر]

وبرجاء الاطلاع علي الرابط التالي

لتغيير الاسم الي العربية ( طبقا لسياسة وشروط المنتدي ) ولزيادة التواصل .... برجاء الاطلاع علي الموضوع

http://www.officena....showtopic=41520

[أحمـــــد]

الف شكر على مجهودك الرائع يا اخى الكريم 

[حمادة عمر]

بارك الله فيك

اخي العزيز /  احمد 2014

واسمك منور بالعربي ... ايوه كدة ياعم ...

تقبل خالص تحياتي

[أحمـــــد]

Dim iR As Long
Dim sh As Worksheet

Set sh = Worksheets("ترحيل بيانات")
iR = sh.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

   

 

ممكن بعد اذن حضرتك توضح الجزء دااا 

 

 

 وعند حفظ الملف ما الفرق بين excel macro-enabled worksheet  و excel 97-2003 

تم تعديل أبريل 21, 2014 بواسطه احمد 2014

[حمادة عمر]

السلام عليكم

الاخ الكريم /  احمد 2014

بارك الله فيك

 

 

Dim iR As Long
Dim sh As Worksheet

Set sh = Worksheets("ترحيل بيانات")
iR = sh.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

   

 

بالنسبة للجزئية السابقة ... شاهد الرابط التالي .. به شرح كامل وبالتفصيل الممل لكل جزئية في الكود المستخدم

 

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل وحذف !! خطوة خطوة

 

 

 وعند حفظ الملف ما الفرق بين excel macro-enabled worksheet  و excel 97-2003 

 

وبالنسبة لهذه الجزئية .. شاهد الرابط التالي

http://www.officena.net/ib/index.php?showtopic=50458&hl=

 

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

وبخصوص سؤالك تحديدا

فان excel macro-enabled worksheet  ... هو حفظ الملف علي اكسيل 2007 - 2010 .. بامتداد xlsm  ليمكن حفظ الاكواد واليوزفورم بها

و excel 97-2003  ........ هو حفظ الملف علي الاصدار 2003  بامتداد  XLS

 

تقبل خالص تحياتي

[أحمـــــد]

شكرا استاذنا الفاضل حماده عمر وربنا يكرمك على المساعده والمجهود الرائع 

[حمادة عمر]

بارك الله فيك

اخي الكريم / احمد

تقبل خالص تحياتي