Döngüde Çalışan Makronun Sürekli Çalışması

[meslek5]

Merhaba değerli üstatlar..
Ekte yer alan örnek dosyamda "rastgele hücre seçimi" yapan bir makro var ve bu makro henüz daha işim bitmeden kısa sürede duruyor. Dosya içeriği karışık olduğu için ben sadece hücre seçimi ile ilgili kısmı örnek olarak hazırladım. İstediğim şu; bu makro ben müdahale etmediğim sürece durmasın en azından 5 dakika bile devam etse o zamana kadar koşullar sağlanmış olur. Yardımcı olabilecek hocalarımdan rica ediyorum. sağlıcakla kalın..

İndir ÖRNEK DOSYA

Dosyayı indir ÖRNEK DOSYA

dosya.co

 

[YUSUF44]

Şartların ne olduğunu bilmediğimiz için yorum yapamam ancak belirli bir şart oluncaya kadar makronun çalışmasını istiyorsanız do loop veya do until loop döngülerini incelemenizi tavsiye ederim.

 

[meslek5]

Şartların ne olduğunu bilmediğimiz için yorum yapamam ancak belirli bir şart oluncaya kadar makronun çalışmasını istiyorsanız do loop veya do until loop döngülerini incelemenizi tavsiye ederim.

Hocam aslında rastgele hücre seçim aralığı daha uzun ve seçilen hücrede belirli koşullar sağlandığı takdirde o hücrelere bir değer yazdırıyorum. Fakat koşullarda çelişki olmadığı halde kod işini bitirmeden duruyor. Bu bahsettiğiniz do loop veya do until loop döngüyü aşağıdaki koda nasıl uyarlayabilirim. Ya da belirtilen aralıktaki sadece boş hücreleri seçebileceğim bir kod olursa belki işimi görebilir.

Sub çalıştır()
On Error Resume Next

Dim RNG As Range
Set RNG = Range("A11")
Dim randomCell As Long
randomCell = Int(Rnd * RNG.Cells.Count) + 1
With RNG.Cells(randomCell)
.Select
çalıştır
End With
End Sub

 

[YUSUF44]

Makro ne zaman duracağını nasıl bilecek?

 

[meslek5]

Makro ne zaman duracağını nasıl bilecek?

hocam haklısınız zaten sonsuza kadar döngüde kalmayacak belirtilen koşulları sağlayan hücrelere değeri atayıncaya kadar sadece ama en azından örnek dosyadaki makroyu çalıştırınca mevcut sürenin 10 katı kadar çalışsa yeterli olur

 

[YUSUF44]

Şartlar devlet sırrı galiba

 

[meslek5]

Şartlar devlet sırrı galiba

Rica ederim öyle demek istemedim sadece kafam çok karışık geceden beri uğraşıyorum. Yapmak istediğimi sağlıklı aktaramam ve iş uzar gider diye örnek bir dosya hazırladım.

 

[YUSUF44]

Do until kullanımı ş

Sub çalıştır()
On Error Resume Next

Dim RNG As Range
Set RNG = Range("A1:P1")
Dim randomCell As Long
Do until şu şart gerçeklecince
    randomCell = Int(Rnd * RNG.Cells.Count) + 1
    With RNG.Cells(randomCell)
        .Select
    End With
Loop
End Sub

Kod çalıştığında kırmızı olan şart gerçekleşinceye kadar mavi olan işlemleri yapar. Örneğin

Sub çalıştır()
On Error Resume Next

Dim RNG As Range
Set RNG = Range("A1:P1")
Dim randomCell As Long
Do until [A1] = 100
    randomCell = Int(Rnd * RNG.Cells.Count) + 1
    With RNG.Cells(randomCell)
        .Select
    End With
Loop
End Sub

Bu kodda A1 hücresi 100 oluncaya kadar Do ve Loop arasındaki işlemler tekrar edilir.

 

[meslek5]

Do until kullanımı ş

Sub çalıştır()
On Error Resume Next

Dim RNG As Range
Set RNG = Range("A1:P1")
Dim randomCell As Long
Do until şu şart gerçeklecince
    randomCell = Int(Rnd * RNG.Cells.Count) + 1
    With RNG.Cells(randomCell)
        .Select
    End With
Loop
End Sub

Kod çalıştığında kırmızı olan şart gerçekleşinceye kadar mavi olan işlemleri yapar. Örneğin

Sub çalıştır()
On Error Resume Next

Dim RNG As Range
Set RNG = Range("A1:P1")
Dim randomCell As Long
Do until [A1] = 100
    randomCell = Int(Rnd * RNG.Cells.Count) + 1
    With RNG.Cells(randomCell)
        .Select
    End With
Loop
End Sub

Bu kodda A1 hücresi 100 oluncaya kadar Do ve Loop arasındaki işlemler tekrar edilir.

Hocam ilgilendiniz alaka gösterdiniz çok çok teşekkür ederim bu yoldan yapmaya çalışayım.

 

[meslek5]

teşekkür ederim