koşullu işlem yaptırma

[desk]

satırı yazdırırken if döngüsüne devam edemezmiyim satır 9 a 7 nolu sütündaki veri 1 ve 2 rakamlarına eşit ise 8 nolu sütünü 10 nolu sutünla ve 0.01 ile çarptırmak değilse 8 nolu sutunla 10 nolu sütunu yine çarp ve 0.02 ile çarp yaptırmak istiyorum neden yanlış veriyor.

Veri_Dosyası.Sheets("Sayfa1").Cells(Satır, 9) = End If Cells(Bul.Row, 7) = "1" and "2" Then Cells(Bul.Row, 8) * Cells(Bul.Row, 10) * 0.01 else Cells(Bul.Row, 8) * Cells(Bul.Row, 10) * 0.02

 

[ozgretmen]

Örnek dosyanı ekleyemez misin ?Bu şekilde anlamak çok zor oluyor ya...

 

[desk]

Teknik olarak bu yazdığım kodda hata varmı ?

 

[ozgretmen]

Çalışmanızın nasıl olduğunu bilmeden bir şey diyemem ama...Vermiş olduğunuz kodlar tam değil...Ya kodların tamamını yazın ya da dosya ekleyin.İyi çalışmalar..