Çözüldü Puantaj Hesaplama Değişikliği

Private Sub CommandButton1_Click() ' PUANTAJ

Yordamındaki,
If b = 0 Or b = 3 Then
syf.Cells(d, a + 4) = 8
Else
syf.Cells(d, a + 4) = 4
End If
kodu söylediğiniz işi gerçekleştiriyor.
If b = 0 Or b = 3 Then
syf.Cells(d, a + 4) = 8
Else
syf.Cells(d, a + 4) = 8
End If
olarak kodları değiştirip dener misiniz?

Sayın Caylak maalesef olmadı bu kez hepsine 8 yazıyor. Yapmak istediğim Personel sayfasındaki C: D ve F:G sütunlarını 8 diğerlerini 4 olarak aktarmak.

Sayın Sahin01
Sadece E ve H sütununa 4 diğerlerine 8 yazılacaksa kodlarınızdaki ilgili kısmı alttaki şekilde değiştirerek dener misiniz?

Sayın userx ilginiz için çok teşekkür ederim, ancak bu kodda istenileni yapmadı. Mevcut kodu vermiş olduğunuz kod ile değiştirip denemeler yaptım ancak karışık bir hata verdi; örnek bir çalışma hazırlayıp puantaj oluştur dediğimde, E sütununa bazen 8 bazen 4 yazdı aynı durum H sütunu içinde geçerli.

Bu program sağolsun sayın Patron tarafından hazırlanmıştı, 2 tane puantaj sayfasının olmasındaki maksat, Puantaj sayfasında görev yeri aynı olanları Puantaj2 de ise görev yeri farklı olanları hesaplamak için yapılmıştı not olarak belirtmek istedim.

Çok teşekkür ederim sayın userx sorun çözüldü