السلام عليكم و رحمة الله و بركاته
اولا اشكرك على الرد و انا التي اعتذر بشدة لعدم تطبيق القواعد , الا انني لم انتبه فارجو المعذرة .
اما عن الاسئلة فاعتذر لكثرتها و تشتت مواضيعها و ساكتفي بسؤال واحد هذه المرة
-- هل يوجد دالة اعرف منها اول صف فارغ في شيت الاكسل ؟
و شكرا
أخي العزيز
لا أعرف دالة جاهزة
و ساكتب دالة و أضعها غدا باذن الله تعالي
و شكرا لك
السلام عليكم و رحمة الله و بركاته
شكرا للرد
و في الانتظار
الكود
Sub FindFirstEmpty() ' ' Application.ScreenUpdating = False Cells.Select myrows = Selection.Rows.Count mycols = Selection.Columns.Count myrows = 20 mycols = 5 origraw = myrows ActiveCell.Select For i = 0 To myrows - 1 For j = 0 To mycols - 1 If ActiveCell.Offset(i, j).FormulaR1C1 <> "" Then GoTo newrow End If Next MsgBox "Founf the Fist Empty Row " ActiveCell.Offset(i, j).Activate ActiveCell.EntireRow.Select Exit Sub ' ActiveCell.Offset(1, 0).Activate ' myrows = myrows - 1 newrow: Application.StatusBar = " checking ...." & _ Format(i / origraw, "0.0%") & " Please Wait......." Next i Application.ScreenUpdating = True Application.StatusBar = False End Sub
السلام عليكم و رحمة الله و بركاته
شكرا على الكود ساجربه و اخبرك النتيجة
و بارك الله فيك
نسيت أن أزيل هذين السطرين
myrows = 20
mycols = 5
و ضعتهما أثناء التجربة
و هما لتحديد المجال ب 20 صف و 5 اعمدة
و ان أزلتهما سيبحث فى ال sheet بأكمله
و جزاك الله كل خير
و السلام عليكم و رحمة الله و بركاته
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
