hata kodu 400 uyarılı mesajla karşılaşıyorum. neden kaynaklı olabilir.
Sub Temizlik()
If MsgBox("Bütün Beyaz Renkli Hücreler Silinecek", vbYesNo) = vbYes Then
basadon:
MsgBox Format(Now, "mmddyyyy")
If InputBox("Şifreyi Giriniz") = Format(Now, "mmddyyyy") Then
Set btn = ActiveSheet.Buttons.Add(150, 150, 400, 80)
btn.Characters.Text = "Temizleniyor. Lütfen Bekleyiniz."
With btn.Characters().Font
.Name = "Arial Tur"
.FontStyle = "Normal"
.Size = 20
End With
ActiveWorkbook.PrecisionAsDisplayed = False
Application.Calculation = xlCalculationManual
For i = 1 To Worksheets.Count
Set rng = Sheets(i).Range("A1:CA400").Cells
For Each hucre In rng
With hucre
If Not .HasFormula Then
If .Interior.ColorIndex = 2 Then .ClearContents
End If
End With
Next
Set rng = Nothing
DoEvents
Application.ScreenUpdating = True
btn.Characters.Text = "Temizleniyor. Lütfen Bekleyiniz." & Chr(10) & Sheets(i).Name
Next i
Application.Calculation = xlCalculationAutomatic
ActiveWorkbook.PrecisionAsDisplayed = True
btn.Delete
Set btn = Nothing
MsgBox "Temizleme İşlemi Tamamlandı", vbInformation
Else
If MsgBox("Şifre Doğru Değil, Tekrar Denemek İster Misiniz?", vbYesNo) = vbYes Then GoTo basadon
End If
Else
MsgBox "Herhangi bir işlem yapılmadı", vbInformation
End If
Module1.HucreReset
End Sub
Sub Temizlik()
If MsgBox("Bütün Beyaz Renkli Hücreler Silinecek", vbYesNo) = vbYes Then
basadon:
MsgBox Format(Now, "mmddyyyy")
If InputBox("Şifreyi Giriniz") = Format(Now, "mmddyyyy") Then
Set btn = ActiveSheet.Buttons.Add(150, 150, 400, 80)
btn.Characters.Text = "Temizleniyor. Lütfen Bekleyiniz."
With btn.Characters().Font
.Name = "Arial Tur"
.FontStyle = "Normal"
.Size = 20
End With
ActiveWorkbook.PrecisionAsDisplayed = False
Application.Calculation = xlCalculationManual
For i = 1 To Worksheets.Count
Set rng = Sheets(i).Range("A1:CA400").Cells
For Each hucre In rng
With hucre
If Not .HasFormula Then
If .Interior.ColorIndex = 2 Then .ClearContents
End If
End With
Next
Set rng = Nothing
DoEvents
Application.ScreenUpdating = True
btn.Characters.Text = "Temizleniyor. Lütfen Bekleyiniz." & Chr(10) & Sheets(i).Name
Next i
Application.Calculation = xlCalculationAutomatic
ActiveWorkbook.PrecisionAsDisplayed = True
btn.Delete
Set btn = Nothing
MsgBox "Temizleme İşlemi Tamamlandı", vbInformation
Else
If MsgBox("Şifre Doğru Değil, Tekrar Denemek İster Misiniz?", vbYesNo) = vbYes Then GoTo basadon
End If
Else
MsgBox "Herhangi bir işlem yapılmadı", vbInformation
End If
Module1.HucreReset
End Sub