How MerketCelle worked in VBA Formatting Cell
 

I have found a file in XLS Format.
It has code in VBA to format the cells based on the value of the
cells.
However, I couldn't find how the term MerketCelle worked in the cell.
So, I couldn't format the cells in some different ways then that was
done.
There are no references to the term in the file.
Also, in my notice, there is no such term in VB Library.
Help me.
Thanks in Advance.

Following is the code in the module of the file.

Option Explicit

Sub Auto_Open()
ThisWorkbook.Worksheets(1).OnEntry = "formatrange"
End Sub

Sub Auto_Close()
ThisWorkbook.Worksheets(1).OnEntry = ""
End Sub

Sub formatrange()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("myrange")
If IsNumeric(c.Value) Then
If c.Value < 10 Then
' c.Style = "Bold"
' format cell
c.Style = "Normal"
ElseIf c.Value 0 Then
' normal formatting
' c.Style = "Merket"
c.Style = "MerketCelle"
Else
c.Style = "Normal"
End If
End If
Next c
End Sub

How MerketCelle worked in VBA Formatting Cell
 

whoever created the workbook added a new Style - look in FORMAT / STYLES
- with this name.


"Subodh" wrote:

I have found a file in XLS Format.
It has code in VBA to format the cells based on the value of the
cells.
However, I couldn't find how the term MerketCelle worked in the cell.
So, I couldn't format the cells in some different ways then that was
done.
There are no references to the term in the file.
Also, in my notice, there is no such term in VB Library.
Help me.
Thanks in Advance.

Following is the code in the module of the file.

Option Explicit

Sub Auto_Open()
ThisWorkbook.Worksheets(1).OnEntry = "formatrange"
End Sub

Sub Auto_Close()
ThisWorkbook.Worksheets(1).OnEntry = ""
End Sub

Sub formatrange()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("myrange")
If IsNumeric(c.Value) Then
If c.Value < 10 Then
' c.Style = "Bold"
' format cell
c.Style = "Normal"
ElseIf c.Value 0 Then
' normal formatting
' c.Style = "Merket"
c.Style = "MerketCelle"
Else
c.Style = "Normal"
End If
End If
Next c
End Sub