Excel hata

[erkanacet]

Arkadaşlar excel'i her kapattığımda hata veriyor. Ekteki dosyaya hata ekran görüntüsünü koydum. Yardımcı olabilir misiniz? Şimdiden teşekkürler

 

[PATRON]

Benim excelim türkçe sen ona göre uyarla yardım menüsünde algıla ve onar seçeneği var, oradan çözmeye çalış

 

[emrexcel123]

arkadaşım auto_close modulünde uygulama gizleme kodu konmuş olabilir boş bir excel sayfası açıp Alt+F11 basınca karşınıza çıkan module sayfanızdaki kodları yazabilir misiniz ?

 

[erkanacet]

Module 1 deki kodlar:

Function CountByColor(InRange As Range, _
WhatColorIndex As Integer, _
Optional OfText As Boolean = False) As Long
'
' This function return the number of cells in InRange with
' a background color, or if OfText is True a font color,
' equal to WhatColorIndex.
'
Dim Rng As Range
Application.Volatile True

For Each Rng In InRange.Cells
If OfText = True Then
CountByColor = CountByColor - _
(Rng.Font.ColorIndex = WhatColorIndex)
Else
CountByColor = CountByColor - _
(Rng.Interior.ColorIndex = WhatColorIndex)
End If
Next Rng

End Function

Module 2'deki kodlar

Sub VALUESSUBTRACT()
'
' VALUESSUBTRACT Macro
' Macro recorded 03.02.2006 by erkan.acet
'

'
Selection.PasteSpecial Paste:=xlValues, Operation:=xlSubtract, SkipBlanks _
:=False, Transpose:=False
End Sub