İstenilen makroyu istenilen sayfada çalıştırmak.

[efeboral]

Merhaba öncelikle yardımlarınız için şimdiden teşekkürler...
Makronun bir tanesine timer ekledim 5 saniyede 1 çalışıyor ancak bu makroyu sürekli olarak istediğim sayfada nasıl çalıştırabilirim?İlave olarak ben macro ile değeri bu şekilde değiştiriyorum.
Range("c13").Select
ActiveCell.FormulaR1C1 = getParameterValue(926) Burada hücreyi seçtirmeden değeri yazdırabilirmiyim?

İyi Çalışmalar,

 

[Emir Hüseyin Çoban]

Merhaba, çalışmanızın küçük bir örneğini eklerseniz. Daha net çözümler üretilebilir.

Kodlarınızın başına, çalışmasını istediğiniz sayfayı seçmesi için kodlar eklerseniz. Kodlar o sayfada çalışacaktır.

Sheets("sayfa1").Select

Diğer sorunuz için, kodu aşağıdaki gibi değiştirin.

Range("c13").FormulaR1C1 = getParameterValue(926)

 

[Ömer]

Merhaba,

Sheets("Sayfa1").Range("c13").FormulaR1C1 = getParameterValue(926)

İstediğiniz bu mu?

Sayfa1 adını çalıştırmak istediğiniz sayfa adı ile değiştirirsiniz.

.

 

[efeboral]

Hüseyin Bey çalışmayı buraya ekleyemeyeceğim ama istediğim bilgiyi şöyle anlatmayı deneyeyim birde, useformda çalışırken örneğin bir saat varsa formda sürekli canlı olması için kodunu UserForm_Activate yazıyoruz ben bir makroyu sürekli bir sayfada timerda belirlediğim zaman göre çalıştırmak istiyorum.Umarım sorumu anlatabilmişimdir.

Selamlar,

 

[efeboral]

Merhaba,

Sheets("Sayfa1").Range("c13").FormulaR1C1 = getParameterValue(926)

İstediğiniz bu mu?

Sayfa1 adını çalıştırmak istediğiniz sayfa adı ile değiştirirsiniz.

.

Çok teşekkürler dediğiniz gibi çalıştı.

 

[efeboral]

Bu sorumu şöyle düzeltme yapsam sanıyorum daha anlamlı olacak.Sayfa1 de x makrosunun 5 saniye aralıkla çalışmasını istiyorum ne yapmam gerekir?Kodu sayfaya yazıyorum olmuyor.

Sub auto_open()
Dim duraksama, başla, dur
duraksama = 5
başla = Timer
Do While Timer < başla + duraksama
DoEvents
Loop
dur = Timer
Call refresh1
End Sub

 

[Ömer]

x makrosu demişsiniz, refresh1 olarak yazmışsınız.

Call refresh1

Konuyu dosyanıza uyarlayamıyorsanız, sorunuzu örnek dosya ile desteklemenizi rica ederim.

.

 

[efeboral]

x makrosu demişsiniz, refresh1 olarak yazmışsınız.

Call refresh1

Konuyu dosyanıza uyarlayamıyorsanız, sorunuzu örnek dosya ile desteklemenizi rica ederim.

.

Ömer Bey dosyayı ekledim.

Selamlar,

 

[Ömer]

"refresh1" kodundaki amaçınız nedir?

.

 

[efeboral]

Bu kod bir sql tablosuna bağlanıp veri getiriyor ben bu verilerin 5 saniyede bir yenilenmesini istiyorum.Bunun içinde bu kodu 5 saniyede bir otomatik çalıştırmak istiyorum.

 

[Ömer]

Bu kod bir sql tablosuna bağlanıp veri getiriyor ben bu verilerin 5 saniyede bir yenilenmesini istiyorum.Bunun içinde bu kodu 5 saniyede bir otomatik çalıştırmak istiyorum.

"refresh1" kodu normalde sizde hatasız çalışıyorsa sorun yok. Deneyemediğim için sordum.

Aşağıdaki uygulamayı denermisiniz.

"refresh1" koduna end sub satırından önce aşağıdaki Call Autpen ilavesini yapın.

Sub[COLOR=blue] refresh1[/COLOR]()
 
.
.
.
 
[COLOR=red]Call Auto_Open[/COLOR]
 
End Sub

"Autpen" makrosunu aşağıdaki kod ile değiştirin.

Sub Auto_Open()
    Application.OnTime Now + TimeValue("00:00:05"), "[COLOR=blue]refresh1[/COLOR]"
End Sub

.

 

[efeboral]

Ömer Bey çok teşekkür ederim.İyi Çalışmalar...