DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=KAYDIR(Standart!$C$1;TOPLA.ÇARPIM((KAÇINCI(A2&B2;Standart!$A$1:$A$2000&Standart!$B$1:$B$2000;0)))-1;;TOPLA.ÇARPIM(--(A2&B2=Standart!$A$1:$A$2000&Standart!$B$1:$B$2000)))
Veri doğrulama formülüne aşağıdaki formülü uygulayıp deneyiniz.
Kod:=KAYDIR(Standart!$C$1;TOPLA.ÇARPIM((KAÇINCI(A2&B2;Standart!$A$1:$A$2000&Standart!$B$1:$B$2000;0)))-1;;TOPLA.ÇARPIM(--(A2&B2=Standart!$A$1:$A$2000&Standart!$B$1:$B$2000)))
Merhaba,
Ek olarak belirtmek isterim. STANDART isimli sayfanızda veri doğrulamaya ait kaynak verilerinizin sıralı olması gerekiyor. Yoksa formül hatalı sonuçlar üretecektir.
Formül özetle seçimini yaptığınız 2 kriteri STANDART sayfasında arıyor. TOPLA.ÇARPIM fonksiyonu ile sıra numarasını tespit ediyor ve ek olarak kaç adet uyuşan kayıt var onu sayıyor.
KAYDIR fonksiyonu ile de ver doğrulama listesinin adresini oluşturuyor.
Option Explicit
Sub Sirala()
Dim S1 As Worksheet
Set S1 = Sheets("Standart")
S1.Range("A2:H" & Rows.Count).Sort S1.Range("A2"), xlAscending, S1.Range("B2"), , xlAscending, S1.Range("C2"), xlAscending
End Sub
Option Explicit
Private Sub Worksheet_Activate()
Sirala
End Sub
Private Sub Worksheet_Deactivate()
Sirala
End Sub