Sub Ara(S_Adı As String, T_Adı As String)
'
' Ara Makro
'
'
Aralık("A5").Seçin
Application.CutCopyMode = Yanlış
Application.CutCopyMode = Yanlış
Range(T_Adı + "[#All]").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange _
:=Range(S_Adı + "!Criteria"), Unique:=False ARKADAŞ BU BÖLÜM HATALI DİYOR NE YAZACAĞIMI BİLEMEDİM
Alt Bitiş
'
' Ara Makro
'
'
Aralık("A5").Seçin
Application.CutCopyMode = Yanlış
Application.CutCopyMode = Yanlış
Range(T_Adı + "[#All]").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange _
:=Range(S_Adı + "!Criteria"), Unique:=False ARKADAŞ BU BÖLÜM HATALI DİYOR NE YAZACAĞIMI BİLEMEDİM
Alt Bitiş
