كود للمليء التلقائي للفراغات

[محمد طاهر عرفه]

هذا الكود يقوم بملء الخلايا الخالية فى العمود المختار ، بنفس القيمة الموجودة فى اول خلية ، الي أن يصل الي خلية بها قيمة ، فيقوم باستخدام القيمة الجديدة

وهو مفيد فى الحالة التالية

مثلا ان العمود الاول مكتوب به البلد مرة واحدة ، و امامها عدة اسطر للموظفين

ثم البلد التالية بعد عدة أسطر و هكذا

و تريد فى قائمة طويلة مليء البلد امام كل موظف ، فما عليك الا التعليم علي اخلايا فى العمود المطلوب ملؤه ثم تشغل الماكرو التالي :

( راجع المثال لتكون الصورة أوضح ) :)

Sub FillEmptyAsAbove()

'

' deleteemptyRow Macro

' Macro recorded 19/07/2000 by taher to delete empty rows in aselection

Application.ScreenUpdating = False


 Dim MyRow As Long, origraw As Long  ' Z As String

  MyRow = Selection.Rows.Count

  origraw = MyRow

  

ActiveCell.Select

'MsgBox MyRow

For i = 1 To MyRow - 1

 'If ActiveCell.Value <> "" Then ActiveCell.Offset(1, 0).Activate


 If ActiveCell.Offset(i, 0).Value = "" Then

 'ActiveCell.EntireRow.Delete

 'MyRow = MyRow - 1

 ActiveCell.Offset(i, 0).Value = ActiveCell.Offset(i - 1, 0).Value

 End If



   Application.StatusBar = "Parsing / deleting ...." & _

   Format(i / origraw, "0.0%") & "       Please Wait......."

   

Next i


    Application.ScreenUpdating = True

    Application.StatusBar = False

End Sub

Fill_all_empty.zip

[yafayafa]

محتاج لنفس الفكرة هذه ...لم استطيع تنزيل هذا الملف أرجو المساعده

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته

كود رائع ما شاء الله بارك الله

جزاكم الله خيرا وأحسن إليكم آمين

أنا متأكد أنني قد رأيت الحاسوب في تلك الفترة إلا أنه لم يكن لي شرف استخدامه 😊