hücre dolu ise label yanıp sönmesi formül düzeltme

[zulfuernek]

If Sheets("KTMH").Range("A1").Value = "" Then
Label26.Visible = False
Else
For x = 1 To 5000: DoEvents: Next x
Label26.ForeColor = vbRed
For x = 1 To 5000: DoEvents: Next x
Label26.ForeColor = vbBlue
For x = 1 To 5000: DoEvents: Next x
Label26.ForeColor = vbGreen
For x = 1 To 5000: DoEvents: Next x
Label26.ForeColor = vbRed
End If


yukarıdaki kod labele tıklayınca yanıp sönmeyi sağlıyor. ancak ben ilgili sayfada ilgili hücre dolu yanıp sönsün değilse label visible false olsun istiyorum. hücre doluda olsa boşta olsa tıkladıkça label yanıp sönüyor. ancak benim istediğim hızlı bir şekilde değilde saniyede bir ve sürekli olarak yanıp sönmesidir. bir defa tekrarlayıp durması değil. ayrıca hücre dolu ise bıu işlevi yapsın boş ise yanıp sönmesin ve visible false olsun.kodda nasıl bir değişiklik yapabiliriz.

Saygılarımla

 

[yanginci34]

Aşağıdaki gibi denermisiniz.

If Sheets("KTMH").Range("A1").Value = "" Then
[COLOR="DarkRed"]Exit Sub[/COLOR]
Else
For x = 1 To 5000: DoEvents: Next x
Label26.ForeColor = vbRed
For x = 1 To 5000: DoEvents: Next x
Label26.ForeColor = vbBlue
For x = 1 To 5000: DoEvents: Next x
Label26.ForeColor = vbGreen
For x = 1 To 5000: DoEvents: Next x
Label26.ForeColor = vbRed
End If

 

[zulfuernek]

yanginci hocam kısmen oldu ufak bir ekleme yapınca telafi ttik fakat bir eksiğimiz var.

If Sheets("KTMH").Range("A1").Value = "" Then
Label26.Visible = False
Exit Sub
Else
For x = 1 To 5000: DoEvents: Next x
Label26.ForeColor = vbRed
For x = 1 To 5000: DoEvents: Next x
Label26.ForeColor = vbBlue
For x = 1 To 5000: DoEvents: Next x
Label26.ForeColor = vbGreen
For x = 1 To 5000: DoEvents: Next x
Label26.ForeColor = vbRed

bu eklemeyle hücre boş ise false oluyor. buraya aadar tamam.

şimdi esas problem bu döngü ok hızlı çalışıyor ve bir defa yapıyor. bunu hücre boşlana kadar sürekli bir döngü haline getirebilirmiyiz. yani hücre dolu olduğu sürece sonsuz döngü ile devam etsin. ve saniyede bir renk değiştirsin

 

[yanginci34]

Kodun sonuna bu kodun ismini tekrar ekleyin yani örnek verelim kodun ismi kırmızı_mavi Call kırmızı_mavi gibi böylece kod sürekli çalışır hız konusuna da yarın zaman kodu eklemeye çalışacağım

 

[yanginci34]

Her label renk değişimi satırının altına aşağıdaki kodu ekleyip denermisiniz.

Application.Wait Now + TimeValue("00:00:01")