اريد ماكرو يفصل بين كل خلية وخلية في عمود ما بخلية فارغة

[اوفيس 2003]

مرفق المثال مع الأخذ في الإعتبار ممكن يكثر عدد الخلايا في العمود الى 10000 مدخل

فبدلا من ان تكون الخلايا متتالية اريدها يكون خليه محتوية وخلية فارغة وهكذا

Q.rar

[دغيدى]

تفضل اخى الكريم

جرب واعرف واكتشف ونحن معا

========

ملحوظة : الكود لأحد رواد المنتدى

Q2.rar

[اوفيس 2003]

مشكور على الرد ياغالي وعلى الكود الرائع

ولكن عند التجربة الله يبارك فيك وادخال القيمة 1 حيث اريد خلية فيها قيمة وخلية فارغة لا يبدأ من اول العمود على الرغم اني متوقف على اول خليه A1 انظر الصورة

[الـعيدروس]

السلام عليكم

هذا التعديل على الكود ليبدء من أول سطر

Sub صف_فارغ()

Dim i, j, k, z, h As Long

j = Int(InputBox("enter the interval"))

z = 1

k = ActiveSheet.UsedRange.Rows.Count

For i = 1 To k + z Step 1

If (i Mod j = 0) Then

ActiveSheet.Cells(i + z, 1).Select

Selection.EntireRow.Insert

z = z + 1

End If

Next i

Range("a1").Select

End Sub

[اوفيس 2003]

اشكرك اخي على الله يبارك فيك

ولو اريد عمل العكس يعني ارجع مرة اخرى الأعمدة الى طبيعتها ياغالي ؟؟

[الـعيدروس]

السلام عليكم

جرب هكذا

Sub A_D()

Dim i, j, k, z, h As Long

j = 1

z = 1

k = ActiveSheet.UsedRange.Rows.Count

For i = 1 To k

If (i Mod j = 0) Then

Cells(i, 1).Offset(1, 0).EntireRow.Delete

End If

Next i

Range("a1").Select

End Sub

[اوفيس 2003]

لا يعمــل جيدا استاذ علي ، حيث عند اختياره لا يرجع العمود لطبيعته بل يحذف بعض الأرقام

[أبو حنــــين]

جرب المرفق أخي اعتقد انه يعمل

حذف صفوف.rar

[دغيدى]

أبو خديجة وحنين

كل الشكر لمتابعتكم الردود

[أبو حنــــين]

ما أروع هذه الطلة من أخي الحبيب : دغــيدي

أرجو أن تكون في تمام الصحة

جزاك الله خيرا على المرور

[يوسف السيد]

بارك الله فيكم جميعا لما تقدموه من علم ومعرفة

تم تعديل نوفمبر 30, 2012 بواسطه yousef_kaf