I need Help Please

  • Thread starter Thread starter sahm
  • Start date Start date
S

sahm

Hi every one
This error is aper in my program It's use it work ok

Here is the code

////////////////////////////////
Public Sub ClearSheet()
Dim Ws As Worksheet
Set Ws = ThisWorkbook.Worksheets("GLedger")
With Ws
With .Range("A3:G65536")
.Clear
With .Font
.Name = "Arial"
.FontStyle = "º¸Åë"
.Size = 9
End With
End With
.Range("A3:D65536").NumberFormatLocal = "@"
(the error in theis line-->>) .Range("E3:G65536").NumberFormatLocal
= "#,##0.00_ ;[»¡°­]-#,##0.00 "
.Range("J1").Activate
.Range("J23").Activate
End With

Set Ws = Nothing
End Sub
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
 
Hi every one
This error is aper in my program It's use it work ok

Here is the code

////////////////////////////////
Public Sub ClearSheet()
Dim Ws As Worksheet
Set Ws = ThisWorkbook.Worksheets("GLedger")
With Ws
With .Range("A3:G65536")
.Clear
With .Font
.Name = "Arial"
.FontStyle = "º¸Åë"
.Size = 9
End With
End With
.Range("A3:D65536").NumberFormatLocal = "@"
(the error in theis line-->>) .Range("E3:G65536").NumberFormatLocal
= "#,##0.00_ ;[»¡°­]-#,##0.00 "
.Range("J1").Activate
.Range("J23").Activate
End With

Set Ws = Nothing
End Sub
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Click to expand...



Hi it's me agen
the error NO is 1004 Unable to set the NumberFromatLocal Property of
the Range Class
 
Hi every one
This error is aper in my program It's use it work ok

Here is the code

////////////////////////////////
Public Sub ClearSheet()
Dim Ws As Worksheet
Set Ws = ThisWorkbook.Worksheets("GLedger")
With Ws
With .Range("A3:G65536")
.Clear
With .Font
.Name = "Arial"
.FontStyle = "º¸Åë"
.Size = 9
End With
End With
.Range("A3:D65536").NumberFormatLocal = "@"
(the error in theis line-->>) .Range("E3:G65536").NumberFormatLocal
= "#,##0.00_ ;[»¡°­]-#,##0.00 "
.Range("J1").Activate
.Range("J23").Activate
End With

Set Ws = Nothing
End Sub
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Click to expand...

Hi Sahm

There appears to be some garbage characters in the second
NumberFormatLocal statement between the bracket characters [].
Removing them made it work ok on my system. I couldn't work out what
the characters represent, but usually it's a color word like [Red] or
a conditional expression such as [>100]

Cheers
David
 
Hi every one
This error is aper in my program It's use it work ok
Click to expand...
Here is the code
Click to expand...
////////////////////////////////
Public Sub ClearSheet()
Dim Ws As Worksheet
Set Ws = ThisWorkbook.Worksheets("GLedger")
With Ws
With .Range("A3:G65536")
.Clear
With .Font
.Name = "Arial"
.FontStyle = "º¸Åë"
.Size = 9
End With
End With
.Range("A3:D65536").NumberFormatLocal = "@"
(the error in theis line-->>) .Range("E3:G65536").NumberFormatLocal
= "#,##0.00_ ;[»¡°­]-#,##0.00 "
.Range("J1").Activate
.Range("J23").Activate
End With
Click to expand...
Set Ws = Nothing
End Sub
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Click to expand...

Hi Sahm

There appears to be some garbage characters in the second
NumberFormatLocal statement between the bracket characters [].
Removing them made it work ok on my system. I couldn't work out what
the characters represent, but usually it's a color word like [Red] or
a conditional expression such as [>100]

Cheers
David
Click to expand...

Dear Mr. David
Thank you for your Replay
It's Work with me
Best
Sahm
 
Back
Top