Excel de Numara arttırma

[Morphe]

Merhaba Arkadaşlar,

Ekte görüldüğü gibi bir faturam var. Ama bu faturadan Seri numarası 1 olacak fakat 3 nüsha olacak.

Şimdi ben aşağıdaki gibi bir makro yazdığımda N13 hanesini 1 arttırarak Çıktı alabiliyorum. Ama N51 hanesine Nüsha 1 Nüsha 2 Nüsha 3 deyip nasıl arttırırım?

Sub ARTTIR()
On Error GoTo son
Dim i, yon As Integer
yon = InputBox("yazdırılacak sayıyı giriniz", "Yazdır")
If Not IsNumeric(yon) Then
GoTo son
End If
ActiveSheet.Unprotect "1"
For i = 1 To yon
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
[N13].Value = [N13].Value + 1
Application.Wait Now + TimeValue("00:00:01")
Next i
ActiveSheet.Protect "1"
son:
End Sub

 

[askm]

Yazdırma alanlarını bildirebilir misiniz?

 

[YUSUF44]

Application satırından önce

For k =1 to 3
[N51] = "Nüsha " & k

Satırlarını ekleyin.

Application satırından sonra ise

Next

Satırını ekleyip deneyin.

 

[askm]

Aşağıdaki şekilde deneyin.

Sub CIKTI()
On Error GoTo son
Dim i, yon As Integer
yon = InputBox("yazdırılacak sayıyı giriniz", "Yazdır")
If Not IsNumeric(yon) Then
GoTo son
End If
ActiveSheet.Unprotect "1"
For i = 1 To yon
 For k = 1 To 3
    [N51] = "Nüsha " & k
    'ActiveWindow.SelectedSheets.PrintPreview
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
    :=True
    Next
[N13].Value = [N13].Value + 1
   
        Application.Wait Now + TimeValue("00:00:01")

Next i
ActiveSheet.Protect "1"
son:
End Sub