- Katılım
- 14 Kasım 2017
- Mesajlar
- 618
- Excel Vers. ve Dili
- 2010 Türkçe
- Altın Üyelik Bitiş Tarihi
- 07-01-2024
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 ?
Kod:
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