ملئ الفراغ

[عبد الغني1]

السلام عليكم أردت عندما يكون رقم غير موجود يستخلف نكانه الرقم الذي تحته مباشرة

Book1111.rar

[طارق محمود]

السلام عليكم

أخي العزيز

ضع الكود التالي في حدث الورقة

 

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Application.ScreenUpdating = False
st = 1
If IsEmpty([B1]) Then st = [B1].End(xlDown).Row
LR = [B9999].End(xlUp).Row
Range("B" & st & ":B" & LR).Select
Selection.Sort Key1:=Range("B" & st), Order1:=xlAscending, Header:=xlNo
Range("B" & st).Select
Application.ScreenUpdating = True
End Sub 

 

أو تفضل الملف وبه الكود

جرب أن تلغي أو تضيف أي شيء في العمود B

Book1_2.rar

[دغيدى]

السلام عليكم

مهندس / طارق محمود

بارك الله فيكم

[مجدى يونس]

الاخ طارق

مهندس فعلا

بارك الله فيك

[عمر أبو صهيب]

بارك الله فيك أخي الكريم طارق محمود على الكود الذي أحتاجه

و لكن لا أدري لماذا لم يشتغل معي - مع العلم أنني مبتدئ  في هذا المجال -

و إذ أرفق الملف مع مشاركتي و لكن طمعي أكثر في شرح سبب عدم اشتغاله أكثر من طمعي في إصلاح الخطأ

و تقبل تحياتي الحارة

Classeur1.rar

[طارق محمود]

السلام عليكم

أخي الكريم

كان الأولي أن ترفق هذا الملف من الأول

علي كل حال

استبدل الكود بالتالي

 

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Application.ScreenUpdating = False
[A11:M40].Sort Key1:=[B11], Order1:=xlAscending, Header:=xlNo
    For r = 11 To 40
        If Cells(r, 2).Value = "" Then
            Cells(r, 14) = 99
        Else
            Cells(r, 14) = r
        End If
    Next
[B11:N40].Sort Key1:=[N11], Order1:=xlAscending, Header:=xlNo
[N11:N40].ClearContents
Application.ScreenUpdating = True
End Sub

أو تفضل المرفق

 

Classeur1_2.rar

[طارق محمود]

إخواني وأحبائي 

المهندس / جمال دغيدي

الأستاذ / مجدي يونس

الأستاذ / عمر أبوصهيب

 

جزاكم الله خير الجزاء علي المرور العطر والكلمات الطيبة