Activex commandbutton1 Label Hatası

[kadir78]

İyi günler. Aşağıdaki kodda kırmızı ile yazdığım buton isminde shift + enter kodlamasını uygulayamadım. Kırmızı ile yazdığım satır kod çalışmıyor. Mavi yazı ile yazdığım kod çalışıyor. Eklediğim dosyada 1. buton renk ve yazı değişmiyor. 2. butonda sorun yok. Yardım edebilir misiniz.

http://dosya.pro/download.php?file=29fd7794c50564ab6c0c70aca67b251e

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

    With Me.CommandButton1
        Select Case .Caption
        Case "[COLOR="Red"]1. İŞLEM" & Chr(11) & "AKTARMA[/COLOR]"
            .Caption = "[COLOR="Blue"]İŞLEM" & Chr(11) & "TAMAMLANDI[/COLOR]"
            .BackColor = vbGreen
        End Select
    End With

Set wb = ThisWorkbook
wb.Sheets.Add Type:=ThisWorkbook.Path & "\Kaynak.xlsx"
ActiveSheet.Move After:=wb.Sheets(1)
wb.Sheets(1).Rows("1:8").Delete Shift:=xlUp
wb.Sheets(1).Name = "Kaynak"
ActiveSheet.Cells(1).Select

Sheets("Kaynak").Activate
ActiveWindow.FreezePanes = False

Sheets("Bilgiler").Activate
Application.ScreenUpdating = False
Application.DisplayAlerts = False
MsgBox "İŞLEM TAMAMLANDI.", vbInformation
End Sub"İŞLEM TAMAMLANDI.", vbInformation
End Sub

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

    With Me.CommandButton2
        Select Case .Caption
        Case "2. İŞLEM"
            .Caption = "İŞLEM" & Chr(11) & "TAMAMLANDI"
            .BackColor = vbGreen
        End Select
    End With

Set wb = ThisWorkbook
wb.Sheets.Add Type:=ThisWorkbook.Path & "\Kaynak.xlsx"
ActiveSheet.Move After:=wb.Sheets(1)
wb.Sheets(1).Rows("1:8").Delete Shift:=xlUp
wb.Sheets(1).Name = "Kaynak"
ActiveSheet.Cells(1).Select

Sheets("Kaynak").Activate
ActiveWindow.FreezePanes = False

Sheets("Bilgiler").Activate
Application.ScreenUpdating = False
Application.DisplayAlerts = False
MsgBox "İŞLEM TAMAMLANDI.", vbInformation
End Sub

 

[antonio]

Merhaba,
Belirttiğiniz kod satırını aşağıdaki şekilde değiştirerek deneyiniz.

 [COLOR="Red"][B]Case Is = "1. İŞLEM" & Chr(11) & "AKTARMA"[/B][/COLOR]

 

[kadir78]

Teşekkür ederim.

 

[antonio]

Rica ederim.

 

[kadir78]

Sayın Antonio. Verdiğiniz cevap için Teşekkür ettim fakat kodu denememiştim. Kusura bakmayın. Özür dilerim. Kod çalışmadı.

 

[antonio]

Sayın Antonio. Verdiğiniz cevap için Teşekkür ettim fakat kodu denememiştim. Kusura bakmayın. Özür dilerim. Kod çalışmadı.

Dosyalarınızı inceledim. Yüklediğiniz hali ile her iki dosyayı aynı klasörün içine kaydettim ve kodlarınızı çalıştırdım. Hiç sorunsuz çalışıyor. Benim önerdiğim kod satırı değişikliği de herhangi bir hata vermiyor. Sorunsuz çalışıyor.

 

[kadir78]

Hocam sanırım ben bir yerde hata yapıyorum. Kusura bakmayın iyi akşamlar.