ARKADASLAR HAZIRLMIS OLDUGUM ÇALIŞMAMDA
EKTE YER ALAN MAKRO MEVCUT FAKAT SÜREKLİ İSTEDİĞİM SAYFAYI SEÇİP
ÇALIŞTIR YERİNE SEÇMİŞ OLDUĞUM SAYFALARA UYGULAMANIN KOLAY BİR YOLU VARMI ACABA
UMARIM ANLASILIR OLMUŞTUR
Range("B3:B1000").Select
Range("A3:G1000").Sort Key1:=Range("B3"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B2").Select
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(5), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
ActiveWindow.SmallScroll Down:=-3
End Sub
YARDIMCI OLURSANIZ SEVİNİRİM
EKTE YER ALAN MAKRO MEVCUT FAKAT SÜREKLİ İSTEDİĞİM SAYFAYI SEÇİP
ÇALIŞTIR YERİNE SEÇMİŞ OLDUĞUM SAYFALARA UYGULAMANIN KOLAY BİR YOLU VARMI ACABA
UMARIM ANLASILIR OLMUŞTUR
Range("B3:B1000").Select
Range("A3:G1000").Sort Key1:=Range("B3"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B2").Select
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(5), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
ActiveWindow.SmallScroll Down:=-3
End Sub
YARDIMCI OLURSANIZ SEVİNİRİM