كود لحذف الخلايا الفارغة فى مدى معين

[ghobashi]

اريد الحصول على كود لحذف الخلايا الفارغة فى مدى معين وليكن (a200:a1) وعمل ازاحة للخلايا الفارغة

كتبت هذا الكود ولكنه يحدث مشكلة فى نقل القيم من العمود b للعمود a

Private Sub CommandButton2_Click()

Range("a1:a100").Select

Selection.SpecialCells(xlCellTypeBlanks).Delete

End Sub

[عبدالله المجرب]

تم فصل المشاركة

ونرجو وضع مرفق به شرح للمطلوب

[ghobashi]

شكراً استاذ عبد الله على هذا التنبية واليك المرفق وصورة توضيح

الفواتير المؤجلة.rar

تم تعديل أكتوبر 10, 2012 بواسطه دغيدى

[عبدالله المجرب]

جرب هذا الكود

Private Sub CommandButton1_Click()

Dim cl As Range, cel As Range

For Each cl In Range("C2:C" & [C10000].End(xlUp).Row)

For Each cel In Range("B2:B65535")

If cl = cel Then

cel.Delete Shift:=xlUp: GoTo 1

End If

Next

1 Next

End Sub

[ghobashi]

بارك الله فيك وزادك علماًً ,,,,

اولاً: لاحظت اخى عبد الله من تجربة الكود انه اذا كان العمود B يحتوى على اكثر من فاتورة بنفس الرقم وهذه الفاتورة منفذه فى العمود C فانه لحذف هذه الفواتير لابد من الضغط على COMMAND BUTTON اكثر من مرة حيث انه يحذف رقم مع كل ضغطه؟؟؟؟؟

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

ثانياً : هل يمكن ان تضيف كود لحذف ارقام الفواتير المكرره فى العمود B نفسه بمعنى ان العمود B يحتوى على فاتورتين بيع اواكثر برقم واحد ؟؟؟

الفواتير المؤجلة1 .rar

تم تعديل أكتوبر 11, 2012 بواسطه دغيدى

[ghobashi]

تم تعديل أكتوبر 10, 2012 بواسطه ghobashi