ادراج فاصل صفحات بناء على كلمة

[محسن33]

السلام عليكم

لدي ملف به 1000 سطر او اكثر  اريد عمل قاصل صقحات للطباعة

بعد كلمة  الشهود

علما بان الكلمة موجودة في خلايا مختلفة بمعنى موجودة في الخليةA19 و A25 و A27   الخ

في الانتظار بارك الله لكم

 

الشهود.rar

تم تعديل يونيو 8, 2019 بواسطه محسن33

[أحمد يوسف]

وعليكم السلام -كيف تكون فى انتظار المساعدة بدون ملف اكسيل للتطبيق ؟!!!

عليك برفع ملف الإكسيل كى تتم المساعدة من قبل الأساتذة

[Ali Mohamed Ali]

تفضل يمكنك استخدام هذا الكود

Option Explicit
Sub page_endings()
Dim i As Long
Dim searchvalue_for_break_after
searchvalue_for_break_after = "الشهود"
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Range("A" & i).Value = searchvalue_for_break_after Then
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=Range("A" & i).Offset(1)
End If
Next i
End Sub

 

الشهود - 1.xlsm

[محسن33]

السلام عليكم

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

هو المطلوب