hi
i have a sheet having 52 columns and around 2000 rows
actually the data is imported from access table
therefore first row is occupied by the fields name
my question is how do i use these field names while coding in vba?
--
hemu

I had this data stating in A1
name account owing
smith a12 10
jones a22 20
liengme a33 30
macdonald a45 25



Here is a very simple subrountine to play with
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 07/08/2007 by Bernard V Liengme
'

'
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.CreateNames Top:=True, Left:=False, Bottom:=False, Right:= _
False
Range("A1").Select
MsgBox Application.Sum(Range("owing"))
End Sub


--
Bernard V Liengme
Microsoft Excel MVP
www.stfx.ca/people/bliengme
remove caps from email

"Hemant_india" <(E-Mail Removed)> wrote in message
news:C65250E4-562F-4BCA-BB01-(E-Mail Removed)...
> hi
> i have a sheet having 52 columns and around 2000 rows
> actually the data is imported from access table
> therefore first row is occupied by the fields name
> my question is how do i use these field names while coding in vba?
> --
> hemu

hi bernard
suppose the data is like this
amt1 amt2
5000 10000
and i have to write code as msgbox(row(n).amt1+row(n).am2)
--
hemu


"Bernard Liengme" wrote:

> I had this data stating in A1
> name account owing
> smith a12 10
> jones a22 20
> liengme a33 30
> macdonald a45 25
>
>
>
> Here is a very simple subrountine to play with
> Sub Macro2()
> '
> ' Macro2 Macro
> ' Macro recorded 07/08/2007 by Bernard V Liengme
> '
>
> '
> Range("A1").Select
> Range(Selection, Selection.End(xlToRight)).Select
> Range(Selection, Selection.End(xlDown)).Select
> Selection.CreateNames Top:=True, Left:=False, Bottom:=False, Right:= _
> False
> Range("A1").Select
> MsgBox Application.Sum(Range("owing"))
> End Sub
>
>
> --
> Bernard V Liengme
> Microsoft Excel MVP
> www.stfx.ca/people/bliengme
> remove caps from email
>
> "Hemant_india" <(E-Mail Removed)> wrote in message
> news:C65250E4-562F-4BCA-BB01-(E-Mail Removed)...
> > hi
> > i have a sheet having 52 columns and around 2000 rows
> > actually the data is imported from access table
> > therefore first row is occupied by the fields name
> > my question is how do i use these field names while coding in vba?
> > --
> > hemu
>
>
>

Try this
'
' Macro1 Macro
' Macro recorded 07/08/2007 by Bernard V Liengme
'

'
Range("A1:C4").Select
Application.CutCopyMode = False
Selection.CreateNames Top:=True, Left:=False, Bottom:=False, Right:= _
False
Set amt1 = Range("amt1")
Set amt2 = Range("amt2")

MsgBox amt1(2) + amt2(2)


End Sub

--
Bernard V Liengme
Microsoft Excel MVP
www.stfx.ca/people/bliengme
remove caps from email

"Hemant_india" <(E-Mail Removed)> wrote in message
news:25E109BA-5EEC-425F-96A0-(E-Mail Removed)...
> hi bernard
> suppose the data is like this
> amt1 amt2
> 5000 10000
> and i have to write code as msgbox(row(n).amt1+row(n).am2)
> --
> hemu
>
>
> "Bernard Liengme" wrote:
>
>> I had this data stating in A1
>> name account owing
>> smith a12 10
>> jones a22 20
>> liengme a33 30
>> macdonald a45 25
>>
>>
>>
>> Here is a very simple subrountine to play with
>> Sub Macro2()
>> '
>> ' Macro2 Macro
>> ' Macro recorded 07/08/2007 by Bernard V Liengme
>> '
>>
>> '
>> Range("A1").Select
>> Range(Selection, Selection.End(xlToRight)).Select
>> Range(Selection, Selection.End(xlDown)).Select
>> Selection.CreateNames Top:=True, Left:=False, Bottom:=False, Right:=
>> _
>> False
>> Range("A1").Select
>> MsgBox Application.Sum(Range("owing"))
>> End Sub
>>
>>
>> --
>> Bernard V Liengme
>> Microsoft Excel MVP
>> www.stfx.ca/people/bliengme
>> remove caps from email
>>
>> "Hemant_india" <(E-Mail Removed)> wrote in message
>> news:C65250E4-562F-4BCA-BB01-(E-Mail Removed)...
>> > hi
>> > i have a sheet having 52 columns and around 2000 rows
>> > actually the data is imported from access table
>> > therefore first row is occupied by the fields name
>> > my question is how do i use these field names while coding in vba?
>> > --
>> > hemu
>>
>>
>>