Aynı Makroda Düşeyara ve Eğer Fonksiyonu

[ugur.ay]

Merhabalar,

Koşullu biçimlendirme ile F sütununda aşağıdaki formül doğru olduğunda dolgu rengini kırmızı yaptım fakat bu renkli alanları buton yardımı ile sıralayamadım. Makro konusunda da yetersizim.

=EĞER(F20/(DÜŞEYARA(B20;$E$5:$F$14;2;YANLIŞ))>=0,3;DOĞRU;YANLIŞ)

Bu formülü nasıl makroya çevirebilirim ve tüm sütuna uygulayabilirim. Şimdiden yardımlarınız için teşekkür ederim.

 

[ugur.ay]

Tekrardan merhaba,

Kimseden cevap gelmedi ama biraz araştırarak aşağıdaki formülü yazdım.Fakat çalışmıyor.Hatalı yerleri nerelerdir?

Sub Oval_Tıklat()

For i = 1 To 10000
If Cells(i, "f").Value / Application.WorksheetFunction.VLookup(Cells(i, "b").Text, Sayfa1.Range("e5,f14"), 2, False) < 1 Then
Range("a" & i & ":g" & i).Interior.ColorIndex = 6
Else
Range("a" & i & ":g" & i).Interior.ColorIndex = xlNone
End If
Next i

End Sub

 

[parametre]

Slm dosyanı ekle ne istedigini sorununu tam anlat çozum kolay bulunur burada cozumler kısa surede bulunur