Sub test()
With Range("AE2:AE2000")
.Formula = "=IFERROR(IF(P2=""Adet"",I2,I2/AD2),"""")"
.Copy
.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
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.