I need a VB expression so I can test for cells with a "general" format as
opposed to "number" format. Is there a property statement which will do this?

Thanks

Sub Test()
Dim vGen As Variant
Dim cel As Range
Dim rng As Range

Set rng = Range("A1:A10")

vGen = rng.NumberFormat = "General"

If IsNull(vGen) Then
MsgBox "at least one cell is General but not all"
For Each cel In rng
Debug.Print cel.Address, cel.NumberFormat
Next
ElseIf vGen = True Then
MsgBox "all cells are General"
Else
MsgBox "no cells are General"
End If

End Sub

Regards,
Peter T

"PBcorn" <(E-Mail Removed)> wrote in message
news:24E2263C-E2FD-49EB-9D22-(E-Mail Removed)...
>I need a VB expression so I can test for cells with a "general" format as
> opposed to "number" format. Is there a property statement which will do
> this?
>
> Thanks

If Range("A1").NumberFormat = "General" Then
'do something
End If

If this post helps click Yes
---------------
Jacob Skaria


"PBcorn" wrote:

> I need a VB expression so I can test for cells with a "general" format as
> opposed to "number" format. Is there a property statement which will do this?
>
> Thanks

On Aug 6, 11:21*am, "Peter T" <peter_t@discussions> wrote:
> Sub Test()
> Dim vGen As Variant
> Dim cel As Range
> Dim rng As Range
>
> * * Set rng = Range("A1:A10")
>
> * * vGen = rng.NumberFormat = "General"
>
> * * If IsNull(vGen) Then
> * * * * MsgBox "at least one cell is General but not all"
> * * * * For Each cel In rng
> * * * * * * Debug.Print cel.Address, cel.NumberFormat
> * * * * Next
> * * ElseIf vGen = True Then
> * * * * MsgBox "all cells are General"
> * * Else
> * * * * MsgBox "no cells are General"
> * * End If
>
> End Sub
>
> Regards,
> Peter T
>
> "PBcorn" <PBc...@discussions.microsoft.com> wrote in message
>
> news:24E2263C-E2FD-49EB-9D22-(E-Mail Removed)...
>
>
>
> >I need a VB expression so I can test for cells with a "general" format as
> > opposed to "number" format. Is there a property statement which will do
> > this?
>
> > Thanks- Hide quoted text -
>
> - Show quoted text -

Hi,
I am able to test on the General format.
My problem is that the value property is always null in case of the
general format.
Value contains the right value for numeric and text format.
Where do I find the cell value in case of 'General'?
Who can help me?
Thanks,
Gijs

I don't follow what you are saying, there is no direct connection between
cell's Value and Numberformat properties

When testing a particular format in a multi-cell range, if they are not all
the same the returned value will be Null (which can only be assigned to a
Variant)

What are you trying to do

Regards,
Peter T

"Gijs" <(E-Mail Removed)> wrote in message
news:d522f15d-b161-4a6c-93a4-(E-Mail Removed)...
On Aug 6, 11:21 am, "Peter T" <peter_t@discussions> wrote:

> Hi,
> I am able to test on the General format.
> My problem is that the value property is always null in case of the
> general format.
> Value contains the right value for numeric and text format.
> Where do I find the cell value in case of 'General'?
> Who can help me?
> Thanks,
> Gijs

Do you mean you want to find cells that have a General format and that
cells's value is a number or a text to be considered as number?

Keiji

Gijs wrote:
> On Aug 6, 11:21 am, "Peter T" <peter_t@discussions> wrote:
>> Sub Test()
>> Dim vGen As Variant
>> Dim cel As Range
>> Dim rng As Range
>>
>> Set rng = Range("A1:A10")
>>
>> vGen = rng.NumberFormat = "General"
>>
>> If IsNull(vGen) Then
>> MsgBox "at least one cell is General but not all"
>> For Each cel In rng
>> Debug.Print cel.Address, cel.NumberFormat
>> Next
>> ElseIf vGen = True Then
>> MsgBox "all cells are General"
>> Else
>> MsgBox "no cells are General"
>> End If
>>
>> End Sub
>>
>> Regards,
>> Peter T
>>
>> "PBcorn" <PBc...@discussions.microsoft.com> wrote in message
>>
>> news:24E2263C-E2FD-49EB-9D22-(E-Mail Removed)...
>>
>>
>>
>>> I need a VB expression so I can test for cells with a "general" format as
>>> opposed to "number" format. Is there a property statement which will do
>>> this?
>>> Thanks- Hide quoted text -
>> - Show quoted text -
>
> Hi,
> I am able to test on the General format.
> My problem is that the value property is always null in case of the
> general format.
> Value contains the right value for numeric and text format.
> Where do I find the cell value in case of 'General'?
> Who can help me?
> Thanks,
> Gijs