اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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

20121129121222.jpg

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

السلام عليكم

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


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

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

السلام عليكم

جرب هكذا


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

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

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

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



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

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

Important Information