Çözüldü excel acildiginda makrolar otomatik calissin

[Yvelines788]

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

 

[Refaz]

Sub auto_open1()

Merhaba.Önce 1 bunu silin.
Sonra
ActiveWorkbook.Worksheets("5 dk").select
Ekleyin besyuksel kodun ilk satırına.

 

[Yvelines788]

Merhaba.Önce 1 bunu silin.
Sonra
ActiveWorkbook.Worksheets("5 dk").select
Ekleyin besyuksel kodun ilk satırına.

bunu bana bu kodun icine nasil yazacagimi yazabilirmisiniz lutfen ben beceremedim ustadim

============================================================================

Sub auto_open200()
Application.OnTime Now + TimeValue("00:00:5"), "refresh"

End Sub
Sub refresh()
'
' refresh Makro
'


ActiveWorkbook.Connections("Sorgu - 1 dklik(1)").refresh

Call auto_open200

End Sub

=================================================================================

 

[Refaz]

Sub auto_open200()

Böyle yazılmaz.En alttaki gibi yazılır her zaman.Ayrıca workbooks_open kodunada yazabilirsiniz.Call auto_open200 burdaki 200 üzüde silin.Daha olmadı dosya ekleyin.

Sub auto_open()

 

[Yvelines788]

Böyle yazılmaz.En alttaki gibi yazılır her zaman.Ayrıca workbooks_open kodunada yazabilirsiniz.Call auto_open200 burdaki 200 üzüde silin.Daha olmadı dosya ekleyin.

Sub auto_open()

bende yaklasik 25 adet auto_open kodu var birbirine karismamasi icin numara verdim ve calismisti dediginiz gibi workbooksopen yazdigimda bunun yerine excel acildiginda otomatik makrom calisirmi tskler cevap icin

 

[Refaz]

Autopen bir kere yazılır
Amacı zaten excel açılışında çalıştırmak.

 

[Refaz]

Bir modüle alttakini ekleyip exceli kaydedin kapatıp aöın exceli ne olacak.O zaman mantığı anlarsınız.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.