احمد زعل قام بنشر أكتوبر 19, 2013 مشاركة قام بنشر أكتوبر 19, 2013 السلام عليكم أخواني لدي ملف اكسل يحتوي على جدول و اريد أن أدخل المعلومات من خلال شاشة VBA وأستطع أن أضيف سطر جديد و لكن لا اعرف كيف أضيف البيانات بداخله المثال في المرفقات هل لدى أحدم فكرة الملف في المرفقات qw.zip رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أكتوبر 19, 2013 مشاركة قام بنشر أكتوبر 19, 2013 استعمل هذا الكود Private Sub CommandButton1_Click() Dim Lr As Long Sheet1.Cells(Cells(Rows.Count, "C").End(xlUp).Row + 1, 3) = TextBox1 End Sub رابط هذا التعليق شارك More sharing options...
احمد زعل قام بنشر أكتوبر 20, 2013 الكاتب مشاركة قام بنشر أكتوبر 20, 2013 شكرا لك أخي أبو حنين ولكن أصبح يدرج البيانات ليس ضمن الجدول أي أن السطر الاول من الجدول يتركه فارغ و يدرج الارقام ضمن الحقول التي تليه وشكرا لك على الرد رابط هذا التعليق شارك More sharing options...
احمد زعل قام بنشر أكتوبر 20, 2013 الكاتب مشاركة قام بنشر أكتوبر 20, 2013 على كل حال أجريت بعض التعديلات عليه و لقد عمل و لكن أن كان هنالك طريقة أخرى فأرجوا الافادة Dim x As Long Dim Lr As Long If Cells(2, "C").Value = "" Then x = Cells(Rows.Count, "C").End(xlUp).Row - 1 Else x = Cells(Rows.Count, "C").End(xlUp).Row End If Sheet1.Cells(x + 1, 3) = TextBox1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.