Soru BOŞ HÜCRE İÇİN VBA DA İŞLEM YAPMA

[ultraslan38080]

Arkadaşlar yapmak istediğim şeyi örnekteki dosyada anlattım. Yardımcı olur musunuz?

https://dosya.co/mh13xkkxyou6/deneme.xlsm.html

 

[hmtstc]

belki daha profesyonel yolu vardır bilmiyorum, ama ben böyle kontrol ederdim.


Sub PUANLAR()
'
' PUANLAR Makro
For i = 2 To 301
If Sayfa4.Cells(i, 7) < 0.5 And Sayfa4.Cells(i, 15) < 0.5 Then
Sayfa4.Cells(i, 40) = 0
Else
deg1 = Sayfa4.Cells(i, 7)
deg2 = Sayfa4.Cells(i, 11)
deg3 = Sayfa4.Cells(i, 15)
deg4 = Sayfa4.Cells(i, 19)

If deg1 = Empty Then deg1 = 0
If deg2 = Empty Then deg2 = 0
If deg3 = Empty Then deg3 = 0
If deg4 = Empty Then deg4 = 0


Sayfa4.Cells(i, 40) = deg1 * 3.333 + deg2 * 3.333 + deg3 * 3.334 + deg4 * 3.334 + 100
End If
Next i
End Sub

 

[ultraslan38080]

belki daha profesyonel yolu vardır bilmiyorum, ama ben böyle kontrol ederdim.


Sub PUANLAR()
'
' PUANLAR Makro
For i = 2 To 301
If Sayfa4.Cells(i, 7) < 0.5 And Sayfa4.Cells(i, 15) < 0.5 Then
Sayfa4.Cells(i, 40) = 0
Else
deg1 = Sayfa4.Cells(i, 7)
deg2 = Sayfa4.Cells(i, 11)
deg3 = Sayfa4.Cells(i, 15)
deg4 = Sayfa4.Cells(i, 19)

If deg1 = Empty Then deg1 = 0
If deg2 = Empty Then deg2 = 0
If deg3 = Empty Then deg3 = 0
If deg4 = Empty Then deg4 = 0


Sayfa4.Cells(i, 40) = deg1 * 3.333 + deg2 * 3.333 + deg3 * 3.334 + deg4 * 3.334 + 100
End If
Next i
End Sub

çok teşekkür ederim