kadir78
Altın Üye
- Katılım
- 6 Nisan 2016
- Mesajlar
- 227
- Excel Vers. ve Dili
- office 2019
- Altın Üyelik Bitiş Tarihi
- 30-12-2026
İ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
http://dosya.pro/download.php?file=29fd7794c50564ab6c0c70aca67b251e
Kod:
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
Kod:
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
Son düzenleme: