Bir kez çalışacak kod

[dahayeni]

Arkadaşlar ben if döngüsü içerisine girildiğinde bir kez çalıştıktan sonra durmasını istediğim bir koda ihtiyaç duyuyorum. Yardımcı olabilir misiniz?
Örneğin if döngüsüne girecek a=1 değerini sağlayacak sonra da her döngü de a=1 işlemini tekrar etmeyecek yalnızca bir kez a değerini bire atayacak ve çalışmayı durduracak bu mümkün müdür?

 

[veyselemre]

Soru yanlış anlaşılmış,

 

[dahayeni]

Hatta yapmak istediğimi yazayım daha anlamlı olur. Ben sipariş formu oluşturmaya çalışıyorum. Her çıktı aldığımda dokuman numarasının artmasını ve sonra ki aya geçtiğinde ise dokuman numarasını 1 den başlatarak çıktı alınmasını istiyorum. Umarım açıklayıcı olmuştur.
Teşekkürler

 

[dahayeni]

dosya yükleme yapamıyorum sanırım

 

[dahayeni]

Aslında belirli bir yere kadar geldim sonraki aya geçildiğinde dokuman numarasını da 1 yapabiliyorum fakat problem şimdi aşağıya ekliyorum kodu üzerinden anlatacağım. Sorun benim algoritmamda sanırım ayın 1 i haricinde çok düzgün çalışıyor ama 1 inde sürekli dokuman numarasını 1 e çekiyor. benim sorunun bu.
Teşekkürler.

cells(3,18)="1" ise ocak ayını temsil ediyor.
Burada f21,f24 hücreleri döküman numaraları, s3 değeri ise ayın o anki günü 1. gün gibi.

If Cells(3, 18) = "1" Then
If (Range("f21,f24").Value >= 1 And Range("S3").Value <> 1) Then
Set ara = Range("F21,F24")
On Error Resume Next
a = InputBox("Kaç kopya yazdırılacak ?", "Y A Z D I R", 1)
On Error GoTo 0
If a = 0 Then Exit Sub
For b = 1 To a
ara = ara + 1
ActiveSheet.PrintOut 1, 1, 1
Next b
Else
Range("f21,f24").Value = 1
Set ara = Range("F21,F24")
On Error Resume Next
a = InputBox("Kaç kopya yazdırılacak ?", "Y A Z D I R", 1)
On Error GoTo 0
If a = 0 Then Exit Sub
For b = 1 To a
ara = ara + 1
ActiveSheet.PrintOut 1, 1, 1
Next b
End If