Yvelines788
Yeni Üye
- Katılım
- 18 Haz 2022
- Mesajlar
- 28
- Aldığı beğeni
- 3
- Excel V
- Office 2016 TR
Konu Sahibi
Sub auto_open1()
Application.OnTime Now + TimeValue("00:00:15"), "besyuksel"
End Sub
bu makromun her exceli actigimda otomatik calismasini istiyorum hangi kodu eklemeliyim tskler
Sub besyuksel()
'
' besyuksel Makro
'
'
ActiveWorkbook.Worksheets("5 dk").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("5 dk").AutoFilter.Sort.SortFields.Add2 Key:=Range( _
"B3"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("5 dk").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Call auto_open1
End Sub
Application.OnTime Now + TimeValue("00:00:15"), "besyuksel"
End Sub
bu makromun her exceli actigimda otomatik calismasini istiyorum hangi kodu eklemeliyim tskler
Sub besyuksel()
'
' besyuksel Makro
'
'
ActiveWorkbook.Worksheets("5 dk").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("5 dk").AutoFilter.Sort.SortFields.Add2 Key:=Range( _
"B3"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("5 dk").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Call auto_open1
End Sub
