Excel VBA Formula Help
On Sunday, March 25, 2012 4:59:46 PM UTC-5, Aaron wrote:
Hi Experts,
With Range("d10,d11,k10,n10,p10,t11,e12,v10")
If .NumberFormat = "0" Or .NumberFormat = "General" Then Exit Sub
.NumberFormat = "0.0"
Else
.NumberFormat = .NumberFormat & "0"
.NumberFormat = Replace(.NumberFormat, "0000", "000 0")
End If
End With
This is part of a button driven macro.
The problem is the exit sub part is causing the rest of the macro to not be run (not shown)
I have tried to place another macro call after "Then" but I cant get it to work.
It just moans about the ".NumberFormat = "0.0"" part.
I just need it to protect the worksheet if it is going to exit sub because at the end of this macros code I protect the sheet. When it exits, It doesnt ever get to run the code part that protects the sheet at the end.
TIA,
Aaron.
You have
On Sunday, March 25, 2012 4:59:46 PM UTC-5, Aaron wrote:
Hi Experts,
With Range("d10,d11,k10,n10,p10,t11,e12,v10")
If .NumberFormat = "0" Or .NumberFormat = "General" Then Exit Sub
.NumberFormat = "0.0"
Else
.NumberFormat = .NumberFormat & "0"
.NumberFormat = Replace(.NumberFormat, "0000", "000 0")
End If
End With
This is part of a button driven macro.
The problem is the exit sub part is causing the rest of the macro to not be run (not shown)
I have tried to place another macro call after "Then" but I cant get it to work.
It just moans about the ".NumberFormat = "0.0"" part.
I just need it to protect the worksheet if it is going to exit sub because at the end of this macros code I protect the sheet. When it exits, It doesnt ever get to run the code part that protects the sheet at the end.
TIA,
Aaron.
On Sunday, March 25, 2012 4:59:46 PM UTC-5, Aaron wrote:
Hi Experts,
With Range("d10,d11,k10,n10,p10,t11,e12,v10")
If .NumberFormat = "0" Or .NumberFormat = "General" Then Exit Sub
.NumberFormat = "0.0"
Else
.NumberFormat = .NumberFormat & "0"
.NumberFormat = Replace(.NumberFormat, "0000", "000 0")
End If
End With
This is part of a button driven macro.
The problem is the exit sub part is causing the rest of the macro to not be run (not shown)
I have tried to place another macro call after "Then" but I cant get it to work.
It just moans about the ".NumberFormat = "0.0"" part.
I just need it to protect the worksheet if it is going to exit sub because at the end of this macros code I protect the sheet. When it exits, It doesnt ever get to run the code part that protects the sheet at the end.
TIA,
Aaron.
On Sunday, March 25, 2012 4:59:46 PM UTC-5, Aaron wrote:
Hi Experts,
With Range("d10,d11,k10,n10,p10,t11,e12,v10")
If .NumberFormat = "0" Or .NumberFormat = "General" Then Exit Sub
.NumberFormat = "0.0"
Else
.NumberFormat = .NumberFormat & "0"
.NumberFormat = Replace(.NumberFormat, "0000", "000 0")
End If
End With
This is part of a button driven macro.
The problem is the exit sub part is causing the rest of the macro to not be run (not shown)
I have tried to place another macro call after "Then" but I cant get it to work.
It just moans about the ".NumberFormat = "0.0"" part.
I just need it to protect the worksheet if it is going to exit sub because at the end of this macros code I protect the sheet. When it exits, It doesnt ever get to run the code part that protects the sheet at the end.
TIA,
Aaron.
On Sunday, March 25, 2012 4:59:46 PM UTC-5, Aaron wrote:
Hi Experts,
With Range("d10,d11,k10,n10,p10,t11,e12,v10")
If .NumberFormat = "0" Or .NumberFormat = "General" Then Exit Sub
.NumberFormat = "0.0"
Else
.NumberFormat = .NumberFormat & "0"
.NumberFormat = Replace(.NumberFormat, "0000", "000 0")
End If
End With
This is part of a button driven macro.
The problem is the exit sub part is causing the rest of the macro to not be run (not shown)
I have tried to place another macro call after "Then" but I cant get it to work.
It just moans about the ".NumberFormat = "0.0"" part.
I just need it to protect the worksheet if it is going to exit sub because at the end of this macros code I protect the sheet. When it exits, It doesnt ever get to run the code part that protects the sheet at the end.
TIA,
Aaron.
You are asking excel to leave
If you want the rest you need an additional IF
Tell us what you want?
With Range("d10,d11,k10,n10,p10,€‹t11,e12,v10")
If .NumberFormat = "0" Or .NumberFormat = "General" Then Exit Sub
.NumberFormat = "0.0"
Else
.NumberFormat = .NumberFormat & "0"
.NumberFormat = Replace(.NumberFormat, "0000", "000 0")
End If
End With
|