Hücre değerini 1 arttırma

[recepkull]

Arkadaşlar ben bu kod ile yazdırma işleminden sonra U10 hücresinin değeri 1 artsın istedim. Bunun için bu satırı kodun en altına yazdım ama U10 hücresinin değeri yazdırmadan önce arttırılıyor. Nerde hata yapıyorum bakabilir misiniz ?

Sub Yeni()

    Dim cevap As Integer
    Dim MüşteriBul As Worksheet
    Dim LastRow As Long
    Dim toplam As Double
    Dim response As VbMsgBoxResult
    Fişno
    cevap = MsgBox("Tarih ve müşteri adını doğru girdiğinize emin misiniz?", vbYesNo + vbQuestion, "Dikkat!")
    
    If cevap = vbYes Then




On Error GoTo sON
        Set MüşteriBul = Sheets(Sheets("Sipariş Fişi").Range("AU10").Value)
        LastRow = MüşteriBul.Cells(MüşteriBul.Rows.Count, "Q").End(xlUp).Row
        toplam = WorksheetFunction.Sum(MüşteriBul.Range("Q14:Q" & LastRow))
sON:
        Sheets("Sipariş Fişi").Range("AY61").Value = ""
        response = MsgBox("Kayıtlarda bu isimde bir müşteri yok. Devam edilmesi halinde cari kaydı tutulmayacak. Devam edilsin mi ?", vbQuestion + vbYesNo, "Müşteri bulunamadı")
        If response = vbNo Then
            Exit Sub
        Else
        
        Application.EnableEvents = False
        Sheets("Sipariş Fişi").Range("AY61").Value = Format(toplam + Sheets("Sipariş Fişi").Range("BO61").Value, "#,##0.00") & " TL"
        Application.EnableEvents = True






' Yazırma alanı başlangıcı
    If Sheets("Sipariş").Range("Y35").Value = "" Then
    Set printArea = Sheets("Sipariş Fişi").Range("J8:AL33")
    Else
    Set printArea = Sheets("Sipariş Fişi").Range("AP8:BR61")
    End If
    With Sheets("Sipariş Fişi").PageSetup
        .printArea = printArea.Address
    End With
    Sheets("Sipariş Fişi").PrintPreview
' Yazırma alanı bitiş


Sheets("Sipariş").Range("U10").Value = Range("U10").Value + 1


SonDoluSatiriSec


End If
End If
End Sub

 

[alicimri]

Sheets("Sipariş").Range("U10").Value = Range("U10").Value + 1

satırını

Sheets("Sipariş").Range("U10").Value = Sheets("Sipariş").Range("U10").Value + 1

olarak End Sub ın hemen üzerine yapıştırın

 

[recepkull]

yeni deneme fırsatım oldu teşekkür ederim sorun çözüldü