ترحيل اسم عميل

[أبوحازم]

السلام عليكم اريد ترحيل اسم عميل في الورقة 5 من خلال فرم موجود ومصمم داخل المصنف في عمود c وشكر المرفق يوصح نفسه

ترحيل اسم عميل.rar

[سليم حاصبيا]

الى اين تريد الترحيل

اقصد الى اي ورقة

[أبوحازم]

الورقه 5 نفسها

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

استعمل هذا الكود

Private Sub CommandButton1_Click()

x = Sheets("ورقة5").Cells(Rows.Count, "C").End(xlUp).Row + 1
Sheets("ورقة5").Range("C" & x) = TextBox1.Value

End Sub

 

[أبوحازم]

حلو ياريت يكون عند الترحيل مره واحد يترحيل الاسم دون أن يبقى في التكست لانه يحصل تكرار 

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

ان كنت تقصد مسح الاسم من مربع النص بعد الترحيل فيكون الكود كالتالي

Private Sub CommandButton1_Click()

x = Sheets("ورقة5").Cells(Rows.Count, "C").End(xlUp).Row + 1
Sheets("ورقة5").Range("C" & x) = TextBox1.Value
TextBox1=""
End Sub

 

[أبوحازم]

ياسلام شكرا جزيلا هذا الذي اريدة 

[أبوحازم]

عفوا ياريت تعمل حذف للعميل وتعديل والمرفق يوضح نفسه وشكرا جزيلا جدا

حذف وتعديل اسم عميل.rar

[أبوحازم]

للرفع

 

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

السلام عليكم

جرب الرفق

 

حذف وتعديل اسم عميل.rar

6 ساعات مضت, أبوحازم said:

للرفع

 

هل بهذه الطريقة

[أبوحازم]

ماشاء الله ماشاء الله إبداع صراحة حلوا جد نعم نعم  هذا الذي اردته شكرا جزيلا 

بس عند حماية الورقة يطلع خطأ