Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
For Each hcr In Range("L4:L" & [L65536].End(3).Row)
Select Case hcr.Value
Case Is = "ALİ"
If hcr.Offset(0, -8) > 0 Then
x = x + hcr.Offset(0, -8).Value
End If
ÖZellikle (0,-8) kafamı karıştırdı. Kodun anlamı nedir.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.