degişken alanı formüllerim
VERİ=KAYDIR(VERI!$A$14;0;0;BAĞ_DEĞ_DOLU_SAY(VERI!$ A:$A);BAĞ_DEĞ_DOLU_SAY(VERI!$14:$14))
SIRALAMA=KAYDIR(VERI!$A$15;0;0;BAĞ_DEĞ_DOLU_SAY(VE RI!$A:$A);15)
FİLTRE İÇİN MAKRO KOD.
Sub CommandButton1_Click()
Range("SIRALAMA").Select
Selection.Sort Key1:=Range("D15"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("D2").Select
End Sub
yapmak istedigim d2 hücresinde yazdıgım bilgiyi tüm aralıkta araması bulamadıgında herhangi bir işlem yapmaması buldugunda sadece ilgili satırı filtre yapması.
VERİ=KAYDIR(VERI!$A$14;0;0;BAĞ_DEĞ_DOLU_SAY(VERI!$ A:$A);BAĞ_DEĞ_DOLU_SAY(VERI!$14:$14))
SIRALAMA=KAYDIR(VERI!$A$15;0;0;BAĞ_DEĞ_DOLU_SAY(VE RI!$A:$A);15)
FİLTRE İÇİN MAKRO KOD.
Sub CommandButton1_Click()
Range("SIRALAMA").Select
Selection.Sort Key1:=Range("D15"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("D2").Select
End Sub
yapmak istedigim d2 hücresinde yazdıgım bilgiyi tüm aralıkta araması bulamadıgında herhangi bir işlem yapmaması buldugunda sadece ilgili satırı filtre yapması.
