Hücre İçinde sinyalli yazı

[1Al2Ver]

Sub YANIPSON()
Dim durum As Boolean, i As Single
Do While (True)
If durum=True Then
Range("C1").Select
With Selection.Interior
.ColorIndex=3
.Pattern=xlSolid
End With
For i =0 To 2500
DoEvents
Next
durum=False
Else
Range("C1").Select
Selection.Interior.ColorIndex=xlNone
For i=0 To 2500
DoEvents
Next
durum=True
End If
Loop
End Sub

1) Bu kod ile C1 hücresine yazılan yazı commandbutton ile çalıştırılmaya çalışılıyor, ancak commandbutton ile olmadı,

2) VBA 'da iken F5 ile çalıştırılıyor,

3) Çalışan macro durdurulamıyor, bir komuta ihtiyacı var ( yada ESC ile ) ilgilenen arkadaşlara teşekkür ederim.

 

[Skorpiyon]

Sayın 1Al2Ver,

Cevap 1: Sayfaya koymuş olduğunuz butona herhangi bir kod yazılmamış. (Veya şöyle ifade edeyim, yazılan kod herhangi bir butona atanmamı&#351 Bu yüzden buton, ilgili makroyu çalıştırmaz.

Cevap 2: Bu soru üstteki cevaba göre otomatik cevaplanmış oluyor. Yani bir buton ekleyip ilgili makroyu o butona atarsanız, VBA kısmına geçmeniz gerekmez.

Cevap 3: Fazla zaman ayırmadan (kısacası tuşların key numaralarını hatırlamadığım için) aklıma gelen ilk yöntem aşağıdaki şekildedir. Herhangi bir hücreye çift tıklamada veya klavyeden herhangi bir harfe basıldığında işlem duruyor.

Sub YANIPSON()
On Error GoTo hata
Dim durum As Boolean, i As Single
Do While (True)
If durum = True Then
Range("C1").Interior.ColorIndex = 3
For i = 0 To 5000
DoEvents
Next
durum = False
Else
Range("C1").Interior.ColorIndex = xlNone
For i = 0 To 5000
DoEvents
Next
durum = True
End If
Loop
hata:
End Sub

 

[1Al2Ver]

Sayın Sertkaya, teşekkür ederim, saygılar.

 

[aydogankemal]

nasıl

peki bu makroyu F sütunundaki tarih bugünden küçükse yanıp sönecek şekilde nasıl yaparız