Kod içinde kod

[ormann]

arkadaşlar aşağıdaki iki adet makroyu Thısworkbook sayfasında çalıştıramıyorum.Yardımcı olurmusuuz.
Kod:1
Private Sub Workbook_Open()
For k = 1 To 10 '**** 10 kere yanıp sönecektir arttırıp azaltabilirsiniz.
Range("B2:M2").Interior.ColorIndex = 6
basla = Timer
bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
While Timer < basla + bekle
DoEvents '1 saniye bekle
Wend
Range("B2:M2").Interior.ColorIndex = xlNone
basla = Timer
bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
While Timer < basla + bekle
DoEvents '1 saniye bekle
Wend
Next k
End Sub
Kod:2
Private Sub Workbook_Open()
Application.CommandBars("Cell").Reset
With Application.CommandBars("Cell").Controls.Add(Type:=msoControlButton)
.Caption = "TAKVİM"
.FaceId = 8
.BeginGroup = True
.OnAction = "TAKVİM_AÇ"
End With

Application.CommandBars("Row").Reset
With Application.CommandBars("Row").Controls.Add(Type:=msoControlButton)
.Caption = "TAKVİM"
.FaceId = 8
.BeginGroup = True
.OnAction = "TAKVİM_AÇ"
End With

Application.CommandBars("Column").Reset
With Application.CommandBars("Column").Controls.Add(Type:=msoControlButton)
.Caption = "TAKVİM"
.FaceId = 8
.BeginGroup = True
.OnAction = "TAKVİM_AÇ"
End With
End Sub

 

[mbldn]

Private Sub Workbook_Open()
For k = 1 To 10 '**** 10 kere yanıp sönecektir arttırıp azaltabilirsiniz.
Range("B2:M2").Interior.ColorIndex = 6
basla = Timer
bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
While Timer < basla + bekle
DoEvents '1 saniye bekle
Wend
Range("B2:M2").Interior.ColorIndex = xlNone
basla = Timer
bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
While Timer < basla + bekle
DoEvents '1 saniye bekle
Wend
Next k

Application.CommandBars("Cell").Reset
With Application.CommandBars("Cell").Controls.Add(Type:=msoControlButton)
.Caption = "TAKVİM"
.FaceId = 8
.BeginGroup = True
.OnAction = "TAKVİM_AÇ"
End With

Application.CommandBars("Row").Reset
With Application.CommandBars("Row").Controls.Add(Type:=msoControlButton)
.Caption = "TAKVİM"
.FaceId = 8
.BeginGroup = True
.OnAction = "TAKVİM_AÇ"
End With

Application.CommandBars("Column").Reset
With Application.CommandBars("Column").Controls.Add(Type:=msoControlButton)
.Caption = "TAKVİM"
.FaceId = 8
.BeginGroup = True
.OnAction = "TAKVİM_AÇ"
End With
End Sub


kodu bu şekilde deneyiniz

 

[Korhan Ayhan]

Selamlar,

Arkadaşlar mesajlarınıza eklediğiniz kodların başına "[ code ]" ve en sonuna "[ /code ]" eklerseniz forumda düzgün bir şekilde görüntülenir. Bu şekilde düz yazı halinde çok hoş olmuyor.

 

[mbldn]

Selamlar,

Arkadaşlar mesajlarınıza eklediğiniz kodların başına "[ code ]" ve en sonuna "[ /code ]" eklerseniz forumda düzgün bir şekilde görüntülenir. Bu şekilde düz yazı halinde çok hoş olmuyor.

öğretiniz için teşekkürler sayın Ayhan; k::

 

[ormann]

Private Sub Workbook_Open()
For k = 1 To 10 '**** 10 kere yanıp sönecektir arttırıp azaltabilirsiniz.
Range("B2:M2").Interior.ColorIndex = 6
basla = Timer
bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
While Timer < basla + bekle
DoEvents '1 saniye bekle
Wend
Range("B2:M2").Interior.ColorIndex = xlNone
basla = Timer
bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
While Timer < basla + bekle
DoEvents '1 saniye bekle
Wend
Next k

Application.CommandBars("Cell").Reset
With Application.CommandBars("Cell").Controls.Add(Type:=msoControlButton)
.Caption = "TAKVİM"
.FaceId = 8
.BeginGroup = True
.OnAction = "TAKVİM_AÇ"
End With

Application.CommandBars("Row").Reset
With Application.CommandBars("Row").Controls.Add(Type:=msoControlButton)
.Caption = "TAKVİM"
.FaceId = 8
.BeginGroup = True
.OnAction = "TAKVİM_AÇ"
End With

Application.CommandBars("Column").Reset
With Application.CommandBars("Column").Controls.Add(Type:=msoControlButton)
.Caption = "TAKVİM"
.FaceId = 8
.BeginGroup = True
.OnAction = "TAKVİM_AÇ"
End With
End Sub


kodu bu şekilde deneyiniz

Kodu Uyguladım.Fakat hata mesajı aldım

 

[mbldn]

"

"
With Application.CommandBars("Column").Controls.Add(Type:=msoControlButton)
"

"
bu satırı kontrol edin "type" e ayrı duruyor. aradaki boşluğu kaldırırsanız sanırım sorun düzelecektir.
not: denedim.

 

[ormann]

Sayın mbldn kodda gene hata oluştu

 

[mbldn]

Sayın mbldn kodda gene hata oluştu

Örnek dosyayı inceler misiniz?

 

[ormann]

Sayın mbldn acaba yanıp sönen sayfalarda sayfa koruması var ondan hata verebilirmi

 

[mbldn]

Sayın mbldn acaba yanıp sönen sayfalarda sayfa koruması var ondan hata verebilirmi

dosyanızı görmeden birşey diyemem ama gayet tabi doğaldır. kodlarınızın başına sheet("sayfa_ismi").unprotect password:="şifreniz" kodlarınızın sonuna da sheet("sayfa_ismi").protect password:="şifreniz" yazarak dener misiniz?

 

[ormann]

Sayın mbldn benim dosyamda farlıklı sayfalar var.Acaba 1.Kod bölümünde sayfa sınırlaması yapılabilirmi. ?.Yani hücrenin yanıp sönmesi sadece sayfa birde olacak .Diğer sayfalarda yanıp sönme olayı olmayacak