اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

بعد اذنكم :

 

    1-  ما هوا الخطاء فى الكود عند الضغط على عرض البيانات فى اليوزرفورم .

    2- اريد كود تسلسل تلقائى عند ترحيل البيانات فيظهر المسلسل تلقائى فى خانة المسلسل فى اليوزرفورم .

 

وشكرا للمساعدة

كود ترحيل من يوزر فورم دفعة واحدة الى جدول 3.rar

قام بنشر

السلام عليكم

الاخ الكريم / انسان27

بارك الله فيك

استبدل الكود الخاص بالعرض بهذا الكود

Private Sub CommandButton2_Click()
Set sh12 = Sheets("1")

lr = sh12.[A65000].End(xlUp).Row
For Each cl In sh12.Range("A5:B" & lr)

If (Val(Me.TextBox1)) = cl Then

Me.TextBox2 = cl.Offset(0, 1)
Me.TextBox3 = cl.Offset(0, 2)
Me.TextBox4 = cl.Offset(0, 3)
Me.TextBox5 = cl.Offset(0, 4)
Me.TextBox6 = cl.Offset(0, 5)
Me.TextBox7 = cl.Offset(0, 6)
Me.TextBox8 = cl.Offset(0, 7)
Me.TextBox9 = cl.Offset(0, 8)
Me.TextBox10 = cl.Offset(0, 9)

End If
Next

End Sub

والكود المطلوب لعمل تسلسل تلقائي

استخدم الكود التالي في حدث الفورم

Private Sub UserForm_Activate()
Sheets("1").Select
SS = Cells(Rows.Count, 1).End(xlUp).Row
TextBox1 = Val(Cells(SS, 1)) + 1
End Sub

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

ارجو ان يفي بطلبك

 

 

كود ترحيل من يوزر فورم دفعة واحدة الى جدول -SAMA.rar

قام بنشر

الله يجزاك كل خير .. اخى الكريم  على  المساعدة السريعــــــــــــة 

اعانك الله دائما على فعل الخيرات وتقبل منك .. امين

قام بنشر

السلام عليكم

الاخ الكريم / انسان27

بارك الله فيك

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

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

قام بنشر

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

كالاتى

Private Sub TextBox1_Change()
Set sh12 = Sheets("1")

lr = sh12.[A65000].End(xlUp).Row
For Each cl In sh12.Range("A5:B" & lr)
Exit Sub
If (Val(Me.TextBox1)) = cl Then
Me.TextBox2 = cl.Offset(0, 1)
Me.TextBox3 = cl.Offset(0, 2)
Me.TextBox4 = cl.Offset(0, 3)
Me.TextBox5 = cl.Offset(0, 4)
Me.TextBox6 = cl.Offset(0, 5)
Me.TextBox7 = cl.Offset(0, 6)
Me.TextBox8 = cl.Offset(0, 7)
Me.TextBox9 = cl.Offset(0, 8)
Me.TextBox10 = cl.Offset(0, 9)

End If
End If
Next

End Sub

 وواجهتنى مشكله حاولت حلها ولم استطع
وهى ان لوقيمه التيكست بوكس لاتساوى
قيمة المتغيرc1
يتم تفريغ جميع التيكست بوكس من البيانات
فكيف يتم عمل ذلك

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information