Sub değerleriyaz()
If Cells(1, 2) <> "" Then GoTo 10
If Cells(1, 2) = "" Then GoTo 20
20 If Cells(1, 1) >= 1 And Cells(1, 1) <= 5 Then
Cells(1, 1).Offset(0, 2) = "10 YTL"
End If
If Cells(1, 1) > 5 And Cells(1, 1) <= 10 Then
Cells(1, 1).Offset(0, 2) = "20 YTL"
End If
10 If Cells(1, 2) >= 1000 And Cells(1, 2) <= 3000 Then
Cells(1, 2).Offset(0, 1) = "25 YTL"
End If
If Cells(1, 2) > 3000 And Cells(1, 2) <= 6000 Then
Cells(1, 2).Offset(0, 1) = "30 YTL"
End If
If Cells(1, 2) > 6000 And Cells(1, 2) <= 9000 Then
Cells(1, 2).Offset(0, 1) = "35 YTL"
End If
End Sub
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.