Ekranda Hareketler Görünsün

[mrs303]

Selam,

Uzun bir formülü hesaplarken yavaş yavaş gelen veriler ekranda 1. sayfada görünüyor fakat sayfanın altlarına doğru gittiğinde sayfa kaymıyor. Nasıl bir komut kullanmalıyımki, bu hesaplamaları ekranda izleyebileyim. Yani hesaplama yapılırken sayfa da aşağı doğru kaysın.

 

[Korhan Ayhan]

Selamlar,

Eğer bu işlemi kod ile yapıyorsanız;

Döngü içinde hesaplama işleminin geldiği satırı seçtirirseniz işlemleri görebilirsiniz.

Eğer normal hesaplama işlemi yapıyorsanız;

Alt satırlardaki işlemleri göremezsiniz. Sadece durum çubuğunda hesaplama yüzdesini görebilirsiniz.

 

[mrs303]

Kod ile yapılıyor, fakat döngünün nasıl seçtireceğimi anlayamadım.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kod yapısını kullanabilirsiniz. Kırmızı renkli satır her işlemde hücreyi seçecektir. Bu şekilde her hücre için işlemleri ekranda görebileceksiniz. Kırmızı satır silip makroyu denerseniz bu sefer ekranda haraketleri görmeden işlemin tamamlandığını görebilirsiniz.

Eğer kodu kendi kodlarıma uyarlayamam derseniz lütfen kendi kullandığınız kodları foruma ekleyin.

Option Explicit
 
Sub TEST()
    Dim X As Long, Y As Byte
    
    Cells.Delete
    
    For X = 1 To 1000
        For Y = 1 To 10
[COLOR=red]            Cells(X, Y).Select
[/COLOR]            Cells(X, Y) = "DENEME"
        Next
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[mrs303]

Teşekkürler Korhan bey, çok faydalı bir bilgi oldu. Ellerinize , emeğinize sağlık.