EĞER, VE FORMÜLÜ KODLA YAZMA

[muallim]

EÐER, VE FORMÜLÜ KODLA YAZMA

EÐER, VE, İNDİS fonksiyonlarının birlikte kullanıldığı bir formül yazdım. Bunu çalışma sayfasının (örneğin F sütununa) tamamında kullanabileceğim kodla uygulayabilir miyim? Bir de EÐER formülünü yedi defadan fazla kullanamıyorum. Çözümü var mıdır?
Ã?rnek dosya ektedir. Selamlar... :hey:

 

[Levent Menteşoğlu]

Aşağıdaki kodun uygulandığı ekteki dosyayı inceleyin.

[vb:1:341d4d604b]Sub formudoldur()
On Error Resume Next
Set s1 = Sheets("Ders")
Set s2 = Sheets("sayfa1")
For a = 3 To s2.[a65536].End(xlUp).Row
adr = "LİSE-" & s2.Cells(a, 2) - 8 & " " & s2.Cells(a, 3)
If s2.Cells(a, 3) = 0 Then adr = "LİSE-" & s2.Cells(a, 2) - 8
kolon = s1.[a3:u3].Find(adr).Column
For b = 5 To 20
Cells(a, b - 1) = s1.Cells(b, kolon).Value
Next: Next
End Sub[/vb:1:341d4d604b]