Macro Çalıştırmak.

[Bysansar825]

Arkadaşlar Excel sayfamda siteden bulduğum Büyükten Küçüğe sıralatmakla İlgili Bir Macro Ekledim ve Güzelde çalışıyor Lakin benim Asıl istediğim Bu Macroya zaman nasıl ekleyebiliriz Yani Macro her 3 veya 5 Saniyede Bir çalışıp Sayıları Auto olarak Büyükten Küçüğe sıralaması gerekiyor.

Eklediğim macro zaten sıralama işini yapıyor tek sorun bunu Auto ya bağlayıp 3 saniyede bir yapmak.

İlgilenen arkadaşlara şimdiden Teşekkür ederim.
Kolaygele.

 

[İhsan Tank]

Arkadaşlar Excel sayfamda siteden bulduğum Büyükten Küçüğe sıralatmakla İlgili Bir Macro Ekledim ve Güzelde çalışıyor Lakin benim Asıl istediğim Bu Macroya zaman nasıl ekleyebiliriz Yani Macro her 3 veya 5 Saniyede Bir çalışıp Sayıları Auto olarak Büyükten Küçüğe sıralaması gerekiyor.

Eklediğim macro zaten sıralama işini yapıyor tek sorun bunu Auto ya bağlayıp 3 saniyede bir yapmak.

İlgilenen arkadaşlara şimdiden Teşekkür ederim.
Kolaygele.

merhaba
boş bir module kopyalarak deneyiniz.
sıralama kodunu görmediğim için
1 saniyede mesaj çıkmasını sağladım

Option Explicit
Sub auto_open()
Application.OnTime Now + TimeValue("00:00:01"), "msg"
End Sub
Sub msg()
Dim ts
ts = MsgBox("İhsan", vbYesNo, "Devam")
If ts = vbYes Then
auto_open
End If
End Sub

 

[Bysansar825]

İhsan bey ben Büyükten Küçüğe Sıralatmak için Aşağıdaki kodu kullanıyorum,

Sub Commandbutton1_Click()
Application.ScreenUpdating = False
Range("B4:U65536").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B4").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
Application.ScreenUpdating = True
End Sub

[/QUOTE]

Bu Kod Çalıştırdığım zaman işe yarıyor fakat ben bu kodun Auto çalışmasını her 3 saniyede bir çalışmasını istiyorum bu mumunmüdür.

Birde verdiğiniz kodda bir uyari Mesajı çıkıyorya o şekilde ekrana bir mesaj çıkması iyi olur o şekilde bir Kod verebilirseniz sevinirim.

İhsan bey Macrolar konusunda çok tecrübem olmadığı için Soyluyorum acaba Macronun her 3 Saniyede bir Arka planda çalışması Pc de bir kasma yaparmı bilemiyorum eğer öyle bir durum olur dereniz şoyle yapabilirmiyiz.

F8 basınca Macro Çalışsın,
F9 Basınca Macro Dursun gibi,

Aslında bu koduda bir siteden buldum size zahmet birde bu kodun açılımı yaparsanız belki biraz bişey anlmış olurum,
örneğin Range("B4:U65536").Select Bu kod içerisindeki B4 ler neyi gösteriyor Büyükten küçüğe sıralanacak Hücreyi yoksa başka bir anlamımı var ,Çünkü bu kodu çalıştırmaktada zorluk çekiyorum )

İlginiz için şimdiden Teşekkürler.

Kolaygele

 

[İhsan Tank]

İhsan bey ben Büyükten Küçüğe Sıralatmak için Aşağıdaki kodu kullanıyorum,

Sub Commandbutton1_Click()
Application.ScreenUpdating = False
Range("B4:U65536").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B4").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
Application.ScreenUpdating = True
End Sub

Bu Kod Çalıştırdığım zaman işe yarıyor fakat ben bu kodun Auto çalışmasını her 3 saniyede bir çalışmasını istiyorum bu mumunmüdür.

Birde verdiğiniz kodda bir uyari Mesajı çıkıyorya o şekilde ekrana bir mesaj çıkması iyi olur o şekilde bir Kod verebilirseniz sevinirim.

İhsan bey Macrolar konusunda çok tecrübem olmadığı için Soyluyorum acaba Macronun her 3 Saniyede bir Arka planda çalışması Pc de bir kasma yaparmı bilemiyorum eğer öyle bir durum olur dereniz şoyle yapabilirmiyiz.

F8 basınca Macro Çalışsın,
F9 Basınca Macro Dursun gibi,

Aslında bu koduda bir siteden buldum size zahmet birde bu kodun açılımı yaparsanız belki biraz bişey anlmış olurum,
örneğin Range("B4:U65536").Select Bu kod içerisindeki B4 ler neyi gösteriyor Büyükten küçüğe sıralanacak Hücreyi yoksa başka bir anlamımı var ,Çünkü bu kodu çalıştırmaktada zorluk çekiyorum )

İlginiz için şimdiden Teşekkürler.

Kolaygele[/QUOTE]

merhaba
kod'u çok uzun tutmuşsunuz buna gerek yok

Option Explicit
Sub auto_open()
Application.OnTime Now + TimeValue("00:00:03"), "sıralama"
End Sub
Sub sıralama()
Dim ts
ts = MsgBox("İhsan", vbYesNo, "Devam")
If ts = vbYes Then
Sheets("Hazal Spariş Alma").Range("D8:U65536").Sort key1:= _
Range("D8"), ORDER1:=xlDescending
auto_open
End If
End Sub

bu kod işinizi görür

bir de başka bir soru sormuşsunuz kasar mı diye kasmaz. ama çalışma olanağınızda kalmaz sebebi ise devamlı kod çalışacağı için.
dilerseniz bir tuşa atama yaparak çalıştırabilirsiniz.

mesela sıralama makrosunu çalıştırmak için
excel'i açın ve F8 tuşuna tıklayın makrolar görünecek sıralama ( yada sizin istediğiniz bir makroyu ) seçin. seçeneklere tıklayın ve kısayol atayın ve tamam deyin. deneyin.