Loop thru excel columns

[shantanu]

Hi All

I want to loop thru the excel columns and insert multiple data
horizontally along the columns. Kindly help me with some logic or C#
code

Thanks
Shantanu

 

[OssieMac]

--
Regards,

OssieMac

 

[Mike H]

Hi,

Loop through columns and do what? Try this

Sub sonic()
lastcolumn = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column

For x = 1 To lastcolumn

'insert lots of data


Next
End Sub

Mike

 

[OssieMac]

Hi Shantanu,

When I got the notification of a reply on this thread I see that my answer
was empty except for the auto sign off so here it is again.

The following loops through columns until it comes to a cell in row 1 that
is blank.

You could use a specific column number in lieu of Columns.Count.

I am not really sure what it is you want to do but hope the example helps to
point you in the right direction.

Sub loopThroughColumns()

Dim c As Long

For c = 1 To Columns.Count
If Cells(1, c) <> "" Then
MsgBox "Cell " & Cells(1, c).Address
Else
MsgBox "No more data"
Exit For
End If
Next c
End Sub