İki İşlemde Bir Arttırma

[Recep İpek]

Aşağıdaki KTF ile seçtiğim verileri kontrol ederek hücreye açıklama yazdırıyorum.

Burada dizi olarak tanımladığım başlık bilgilerini iki kolonda bir başlık olarak kullanmak istiyorum.
Yani s=s+1 satırını iki işlemde bir arttırmamız gerek.Veya başka bir öneride olabilir.

Function ACIKLAMAYAZ(Hücre As Range) As Variant
Baslik = Array("Yıllık İzin", "Doğum İzni", "Ölüm İzni", "Evlilik İzni")
s = -1
For Each alan In Hücre
[b]s = s + 1[/b]  [color=red]'Burası her iki işlemde bir artacak.[/color]
If alan.Value < 0 Then
Son = Son & "#" & " " & "PKDS " & Baslik(s) & " " & alan.Value & " Saat Fazla "
End If
Next
ACIKLAMAYAZ = Son
End Function

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Function ACIKLAMAYAZ(Hücre As Range) As Variant
Baslik = Array("Yıllık İzin", "Doğum İzni", "Ölüm İzni", "Evlilik İzni")
s = -1
For Each alan In Hücre
c = c + 1
If c Mod 2 Then s = s + 1  'Burası her iki işlemde bir artacak.
If alan.Value < 0 Then
Son = Son & "#" & " " & "PKDS " & Baslik(s) & " " & alan.Value & " Saat Fazla "
End If
Next
ACIKLAMAYAZ = Son
End Function

 

[Recep İpek]

c = c + 1 satırını düşünememişim.Bilginize sağlık.

Teşekkürler.