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
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