This very short macro below creates a userform which can be searched
to find the required contract number.

However when it is "run" an error message appears that "Excel cannot
determine which row contains column labels then it gives you
options:-

if headings are 1st row press OK - "this is the case"
or if you selected a subset of cells in error, select a single cell
and try again
or create column text labels (already done)
or for info on labels select help

Any help on removing this error message - there are just four columns
and all are labelled in the first row with text labels



Sub create searchuserform()

' Macro
' Macro recorded 19/05/2010 by Brian


Sheets("ProjectList").Select
Columns("A:D").Select
ActiveSheet.ShowDataForm
End Sub


Any help would be appreciated

Thanks

Brian
Scotland

It is a strange animal. Name the range you are working on "Database"...

Sub createsearchuserform()
Sheets("ProjectList").Columns("A:D").Name = "Database"
Sheets("ProjectList").Select
Sheets("ProjectList").ShowDataForm
End Sub
'Note: no spaces in the sub name.
'And you don't have to select the sheet - depends on how strange you want to make it..
--
Jim Cone
Portland, Oregon USA
( http://tinyurl.com/ExtrasForXL )





"BJ&theBear"
wrote in message ...
This very short macro below creates a userform which can be searched
to find the required contract number.
However when it is "run" an error message appears that "Excel cannot
determine which row contains column labels then it gives you
options:-
if headings are 1st row press OK - "this is the case"
or if you selected a subset of cells in error, select a single cell
and try again
or create column text labels (already done)
or for info on labels select help

Any help on removing this error message - there are just four columns
and all are labelled in the first row with text labels

Sub create searchuserform()
' Macro
' Macro recorded 19/05/2010 by Brian
Sheets("ProjectList").Select
Columns("A:D").Select
ActiveSheet.ShowDataForm
End Sub

Any help would be appreciated
Thanks
Brian
Scotland

On May 25, 1:01*pm, "Jim Cone" wrote:
It is a strange animal. *Name the range you are working on "Database"....

Sub createsearchuserform()
* * Sheets("ProjectList").Columns("A:D").Name = "Database"
* * Sheets("ProjectList").Select
* * Sheets("ProjectList").ShowDataForm
End Sub
'Note: no spaces in the sub name.
'And you don't have to select the sheet - depends on how strange you want to make it..
--
Jim Cone
Portland, Oregon *USA
(http://tinyurl.com/ExtrasForXL)

"BJ&theBear"
wrote in ...
This very short macro below creates a userform which can be searched
to find the required contract number.
However when it is "run" an error message appears that "Excel cannot
determine which row contains column labels *then it gives you
options:-
*if headings are 1st row press OK - "this is the case"
or if you selected a subset of cells in error, select a single cell
and try again
or create column text labels (already done)
or for info on labels select help

Any help on removing this error message - there are just four columns
and all are labelled in *the first row with text labels

Sub create searchuserform()
' Macro
' Macro recorded 19/05/2010 by Brian
* * Sheets("ProjectList").Select
* * Columns("A:D").Select
* * ActiveSheet.ShowDataForm
End Sub

Any help would be appreciated
Thanks
Brian
Scotland

Thanks Jim - worked a treat

BJ