ابوصلاح قام بنشر فبراير 22, 2014 مشاركة قام بنشر فبراير 22, 2014 بعد اذنكم طلب بسيط اريد تعديل الفورم لكي يكتب بيانات للاسفل وجزاكم الله خيرا حسين.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة أبو حنــــين قام بنشر فبراير 22, 2014 أفضل إجابة مشاركة قام بنشر فبراير 22, 2014 السلام عليكم زر الاضافة يصبح بهذا الكود Private Sub CommandButton1_Click() Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1 Cells(Lr, 2) = TextBox1.Value Cells(Lr, 3) = TextBox2.Value TextBox1 = "" TextBox2 = "" End Sub رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 22, 2014 مشاركة قام بنشر فبراير 22, 2014 أخى الحبيب / أبو حنين سلمت يداك جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر فبراير 22, 2014 مشاركة قام بنشر فبراير 22, 2014 أخي الحبيب : رجب جاويش جزاكم الله خيرا على المرور رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر فبراير 22, 2014 مشاركة قام بنشر فبراير 22, 2014 كود أخر يصلح لذلك lr = Cells(Rows.Count, "a").End(xlUp).Row ActiveSheet.Cells(1, 1).Value = Me.TextBox1.Value ActiveSheet.Cells(1, 2).Value = Me.TextBox2.Value رابط هذا التعليق شارك More sharing options...
ابوصلاح قام بنشر فبراير 23, 2014 الكاتب مشاركة قام بنشر فبراير 23, 2014 السلام عليكم زر الاضافة يصبح بهذا الكود Private Sub CommandButton1_Click() Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1 Cells(Lr, 2) = TextBox1.Value Cells(Lr, 3) = TextBox2.Value TextBox1 = "" TextBox2 = "" End Sub شكرا استاذنا ومعلمنا الكبير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها