الحمد لله
اتغيير المدي في الكود الخاص بزر الطباعة وكوده هو
Private Sub CommandButton1_Click() '
r = Sheets("الاكواد").Range("A3").Address
s = Sheets("الاكواد").Range("A2").End(xlDown).Address
For i = 4 To 14
If Cells(i, 7) <> "" Then
o = Cells(i, 7).Address
g = Application.WorksheetFunction.CountIf(Sheets("الاكواد").Range(r, s), Range(o))
If g = 1 Then
Range("A2") = Cells(i, 7)
' If Range("f5") <> "" Then
m = Range("A1").Address
n = Range("F4").End(xlDown).Address
ActiveSheet.PageSetup.PrintArea = m & ":" & n
ActiveSheet.PrintOut Copies:=1
' End If
End If
End If
Next
End Sub
قم بتغيير ال14 في السطر التالي بالزيادة او النقصان
For i = 4 To 14
تحياتي