كود طباعة كل أربعة أسماء بصفحة

[محمد ابومروان]

مرفق ملف تم اضافة ازرار للتنقل محتاج الدوال اللازمة عند الضغط على الزر يظهر أول أربع بيانات بالمسلسل وبالضغط مرة أخرى يظهر البيانات الأربعة التالية بتسلسل الأرقام ولك فى نفس الصفحة 

بمعنى كل ضغطة زر تظهر بيانات أربعة من الاسماء بتسلسلهم فى ورقة البيانات ليتم طباعة ورقة واحدة فى كل مرة تحتوى على البيانات الاربعة

وشكرا لكم .... عنوان مخالف تم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك

Book1.xlsx

[ابراهيم الحداد]

السلام عليكم ورحمة الله

اربط هذا الكود بالزر الموجود بالورقة الشهادة

Sub PrintCall()
Dim ws As Worksheet, Sh As Worksheet, Rng As Range
Dim LR As Long, i As Long, p As Long
Dim x As Integer, WF As Variant
Dim Nam, Sm
Set ws = Sheets("بيان")
Set Sh = Sheets("شهادة")
Set WF = WorksheetFunction
LR = ws.Range("B" & Rows.Count).End(3).Row
Set Rng = ws.Range("A2:C" & LR)
p = 2
x = Sheet6.Shapes("Spinner 3").ControlFormat.Value
i = (x - 1) * 4 + 1
Do While p <= 32
Sh.Range("H" & p) = i
Nam = WF.VLookup(i, Rng, 2, 0)
Sh.Range("C" & p + 2) = Nam
Sm = WF.VLookup(i, Rng, 3, 0)
Sh.Range("H" & p + 2) = Sm
p = p + 10
i = i + 1
Loop
ActiveSheet.PrintOut From:=1, To:=1, Copies:=1
End Sub

 

[بن علية حاجي]

السلام عليكم

وهذا حل باستعمال المعادلات...

Book2.xlsx

[محمد ابومروان]

شكرا لكم وقد تم حل المشكلة من خلالكم 

جزيل الشكر والعرفان