Help needed

[dennis1989]

Do While Not .EOF
If Not IsNull(.Fields( 0).Value) Then
Sheet1.Cells(i, j) = (.Fields(1).Val ue) & " (" & _
(.Fields(0).Val ue) & ")"
If j = 1 Then i = i + 1
Else
If j = 2 Then i = i
End If
.MoveNext

[debasisdas]

why you have posted this code ?

do you have a question ?

are you getting any error ?

[dennis1989]

hmm is not error but i jus want to edit this code to make the value move from left to right in the range of cells. Do you have any code which can help me with this ? thanks in advance