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" wrote in message
...
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" wrote in message
...
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" wrote in message
...
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" wrote in message
...
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