Vardiya değişikliği

[teo_64]

Merhaba,

Ekteki dosyada vardiyalar bulunmakta off yazan günler personelin tatil olduğu günceler ancak C ile I sutun arasındaki off günlerine İlk off yerine "OFF1" ikinci off yazan günlere ise OFF2 yazılmadını istiyorum elimde aşağıdaki gibi macro var ancak çalışmıyor yardımlarınızı rica ederim

https://www.dosyaupload.com/lSkZ

Function OFFSAY()


ara = "Off"
For sat = 2 To Range("A750").End(3).Row
For süt = 4 To Range("A" & sat).End(2).Column
If Cells(sat, süt) = ara Then
say = say + 1
If say > 2 Then
say = 2
End If
Cells(sat, süt) = "OFF" & say
End If
Next
say = 0
Next




End Function

 

[PLİNT]

Merhaba
Ek dosyadaki gibi olabilir
https://www.dosyaupload.com/lSm0

 

[teo_64]

Çok teşşekürler

 

[PLİNT]

Çok teşşekürler

Rica ederim
Sonradan yazılan "off" lar olacaktır.
Kodları şöyle değişelim

Sub OFFSAY()
ara = "Off"
For a = 2 To Cells(Rows.Count, "C").End(3).Row
say = 0
For b = 3 To Cells(a, Columns.Count).End(2).Column
Set c = Cells(a, b).Find(ara, , , xlPart[COLOR="Red"], , , False[/COLOR])
 If Not c Is Nothing Then
 say = say + 1
 c.Value = "OFF" & say
 End If
Next
Next
End Sub