- Katılım
- 16 Temmuz 2005
- Mesajlar
- 151
- Excel Vers. ve Dili
- 2000 türkçe
- Altın Üyelik Bitiş Tarihi
- 3.6.2022
merhaba ustalarım.....
aşağıdaki kodu EÃER fonksiyonu ile çalıştırmak istiyorum:
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
Eğer sayfa1!C1>sayfa2!C2 ise yukarıdaki kod çalışsın. (Sayfa1!C1 yanıp sönsün)
şekline nasıl getirebilirim?
aşağıdaki kodu EÃER fonksiyonu ile çalıştırmak istiyorum:
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
Eğer sayfa1!C1>sayfa2!C2 ise yukarıdaki kod çalışsın. (Sayfa1!C1 yanıp sönsün)
şekline nasıl getirebilirim?