DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=EĞERHATA(İNDİS($E$2:$E$8;KÜÇÜK(EĞER(($C$2:$C$8=8)*($D$2:$D$8="5/10");
SATIR($E$2:$E$8)-SATIR($F$2)+1);SATIRSAY($F$2:F2)));"")
[COLOR="Blue"]Formül dizi formülüdür.CTRL + SHİFT + ENTER ile tamamlayınız.[/COLOR]
=eğerhata(indis($e$1:$e$8;küçük(eğer($c$2:$c$8=8;eğer($d$2:$d$8="5/10";satır($e$2:$e$8)));satır()-1));"")
[FONT="Trebuchet MS"]Sub Emre()
Dim i%
Columns([COLOR="red"]6[/COLOR]).ClearContents
For i = [COLOR="red"]2[/COLOR] To Range("[COLOR="red"]A[/COLOR]65536").End(3).Row
If Cells(i, [COLOR="red"]3[/COLOR]) = [COLOR="Red"]8 [/COLOR]And Cells(i, [COLOR="red"]4[/COLOR]) = "[COLOR="red"]5/10[/COLOR]" Then
Range("[COLOR="red"]F[/COLOR]65536").End(3)(2, 1) = Cells(i, [COLOR="red"]5[/COLOR]).Value
End If
Next i
i = Empty
End Sub[/FONT]