Arkadaşlar Merhaba,
Aşağıdaki kodum ile Ayarlar sayfasında A1 de yazan sayfa isimlerine göre verdiğim süre doğrultusunda sırayla sayfa seçtiriyorum. Exceli ilk açtığımda problem yok gayet güzel çalışıyor. Fakat belirli süre sonra 5 dk lık vermiş olduğum süre dolmadan sayfa değiştiriyor. Biraz daha süre geçtiğinde ise sayfa sırası atlamaya kadar gidiyor. Yaptığım araştırmaya göre bellek problemi yaşıyorum gibi geliyor. 130 mb larda seyreden bellek boyutu zaman geçtikçe 160 ları buluyor bu andan sonra ise uygulama sapıtmaya başlıyor. Sorunun bundan kaynaklı olduğuna emin olmamakla beraber hatamın ne olduğunu bulamadım. Yardımcı olanlara şimdiden tşkler. Sayg.
Sub Autpen()
Dim sure As Date
sure = Sheets("Ayarlar").Range("E1")
Application.OnTime Now + TimeValue("00:05:00"), "sayfasay"
End Sub
Sub sayfasay()
Dim yetkisay As Long
Dim Ayarlar As Long
If Sheets("Ayarlar").Range("B1") = 1 Then
Ayarlar = Sheets("Ayarlar").Range("A1")
Page = Sheets("Ayarlar").Range("A" & Ayarlar)
Sheets(Page).Select
Range("P20").Select
Sheets("Ayarlar").Range("A1") = Sheets("Ayarlar").Range("A1") + 1
If Sheets("Ayarlar").Range("A1") = 19 Then
Sheets("Ayarlar").Range("A1") = 2
Else
End If
Call Autpen
Else
End If
End Sub
Aşağıdaki kodum ile Ayarlar sayfasında A1 de yazan sayfa isimlerine göre verdiğim süre doğrultusunda sırayla sayfa seçtiriyorum. Exceli ilk açtığımda problem yok gayet güzel çalışıyor. Fakat belirli süre sonra 5 dk lık vermiş olduğum süre dolmadan sayfa değiştiriyor. Biraz daha süre geçtiğinde ise sayfa sırası atlamaya kadar gidiyor. Yaptığım araştırmaya göre bellek problemi yaşıyorum gibi geliyor. 130 mb larda seyreden bellek boyutu zaman geçtikçe 160 ları buluyor bu andan sonra ise uygulama sapıtmaya başlıyor. Sorunun bundan kaynaklı olduğuna emin olmamakla beraber hatamın ne olduğunu bulamadım. Yardımcı olanlara şimdiden tşkler. Sayg.
Sub Autpen()
Dim sure As Date
sure = Sheets("Ayarlar").Range("E1")
Application.OnTime Now + TimeValue("00:05:00"), "sayfasay"
End Sub
Sub sayfasay()
Dim yetkisay As Long
Dim Ayarlar As Long
If Sheets("Ayarlar").Range("B1") = 1 Then
Ayarlar = Sheets("Ayarlar").Range("A1")
Page = Sheets("Ayarlar").Range("A" & Ayarlar)
Sheets(Page).Select
Range("P20").Select
Sheets("Ayarlar").Range("A1") = Sheets("Ayarlar").Range("A1") + 1
If Sheets("Ayarlar").Range("A1") = 19 Then
Sheets("Ayarlar").Range("A1") = 2
Else
End If
Call Autpen
Else
End If
End Sub