اذهب الي المحتوي
أوفيسنا

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


ghobashi

الردود الموصى بها

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

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

Private Sub CommandButton2_Click()

Range("a1:a100").Select

Selection.SpecialCells(xlCellTypeBlanks).Delete

End Sub

رابط هذا التعليق
شارك

جرب هذا الكود


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

رابط هذا التعليق
شارك

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

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

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

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

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

تم تعديل بواسطه دغيدى
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information