مساء الخير ياسر شكرا جزيلا لك على جهودك والفديو الذي ارسلته لي. حاولت ان ارد على ايميلك بس لم يصلك الرد انا تصورت انك بعتلي فديو ادخال معلومات مليون بوكس او اكثر من ايميلك. انا شايفة حضرتك عندك خبرات كثيرة. في مشكلة ارجوا ان يكون لديك حل لها. انا عايشة في امريكا وهنا اليوتوب يوجد عليه فديوات اعلانات امريكية كثيرة جدا عند تشغيل اي فديو ويجب ان تنتظر 5 ثوان حتى تستطيع الغاءه وصوته اعلى من الفديو الذي تتابعه هل لديك حل لهذه المشكلة. تمنياتي القلبية لك بالتوفيق .
كود نموذج ادخال بيانات في جدول وليس في شيت !!!!! المشكلة: لا يتم ادخال بيانات في row التالي، الداتا الجديدة تحل مكان الداتا القديمة اين الخطأ؟؟؟ شكرا لكم Private Sub cmdSave_Click() Application.ScreenUpdating = False
مشكور على هذا الدرس المميز
BRAVO Msj pour bou
نشتي. شيت. معمولة. بال VBA لو مسحت خلية ما تحتذف المعادلة
ممكن توضيح لكتابة المعادلة بالتثبيت بتاعها من فضلك ؟
ممكن رقمك واتس اب للاستفسار اكثر حول اكسيل
ممكن لينك نحمل منه الشيت دا
مساء الخير ياسر شكرا جزيلا لك على جهودك والفديو الذي ارسلته لي. حاولت ان ارد على ايميلك بس لم يصلك الرد انا تصورت انك بعتلي فديو ادخال معلومات مليون بوكس او اكثر من ايميلك.
انا شايفة حضرتك عندك خبرات كثيرة.
في مشكلة ارجوا ان يكون لديك حل لها.
انا عايشة في امريكا وهنا اليوتوب يوجد عليه فديوات اعلانات امريكية كثيرة جدا عند تشغيل اي فديو ويجب ان تنتظر 5 ثوان حتى تستطيع الغاءه وصوته اعلى من الفديو الذي تتابعه هل لديك حل لهذه المشكلة.
تمنياتي القلبية لك بالتوفيق .
كود نموذج ادخال بيانات في جدول وليس في شيت !!!!!
المشكلة: لا يتم ادخال بيانات في row التالي، الداتا الجديدة تحل مكان الداتا القديمة
اين الخطأ؟؟؟ شكرا لكم
Private Sub cmdSave_Click()
Application.ScreenUpdating = False
Dim iRow As Long
iRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 2
With ThisWorkbook.Sheets("Sheet_A")
.Range("A" & iRow).Value = iRow - 2
.Range("B" & iRow).Value = TxtName.Value
.Range("I" & iRow).Value = IIf(OptMale.Value = True, "male", "female")
.Range("K" & iRow).Value = CoQualifikation.Text
.Range("C" & iRow).Value = TxtFamily.Text
End With
Call Reset
Application.ScreenUpdating = True
End Sub
اين المرفق
تقريبا اتشال