Comments on: VBA: Loop Through a Range

By: rahul

rahul — Wed, 14 Jul 2010 20:55:20 +0000

can anyone tell me what is wrong in this code. after inserting columns it is going back to insert statement and throwing “insert method range error”. Please giv any suggestions.

Private Sub ComboBox1_Change()
Sheet1.Unprotect

Dim LastRowColA As Range
Dim abc As Range
If ComboBox1.Text = “Food” Then
Worksheets(“Sheet3″).Activate
Sheet1.Unprotect
Set LastRowColA = Sheet2.Range(“J3″)

Set abc = Sheet2.Range(“J2″).End(xlDown)

Set Rng = Sheet2.Range(LastRowColA, abc)
Sheet1.Activate
For Each d In Rng.Cells
ActiveCell = CStr(d.Value)
Sheet1.Cells(17, 22).EntireColumn.Insert shift:=xlLeft

Next d

ElseIf ComboBox1.Text = “Drink” Then
Worksheets(“Sheet3″).Activate
Sheet1.Unprotect
Set LastRowColA = Sheet2.Range(“M3″)

Set abc = Sheet2.Range(“M2″).End(xlDown)

Set Rng = Sheet2.Range(LastRowColA, abc)
Sheet1.Activate
For Each d In Rng.Cells
ActiveCell = CStr(d.Value)

Sheet1.Cells(17, 22).EntireColumn.Insert shift:=xlLeft

Next d

End If

End Sub

By: Bhanu

Bhanu — Mon, 19 Oct 2009 13:12:52 +0000

Please give me the code to populate the recordset data into the excel file,where record set is having the data of 80,000 rows and having 500 columns.

Please help me.

Thanks

By: rishi doshi

rishi doshi — Wed, 29 Apr 2009 11:04:15 +0000

Hi,
How to manually increment while using FOR EACH?
e.g.
for each cell in range(abc)
if cell.value = “YES” then
–>{increment cell = cell + 5}
end if
next

we do it in normal FOR loops
like.. if {something} then i = i+5

I would like to achieve the same while using the FOR EACH loop
thanks in advance!

Rishi

By: Kent

Kent — Tue, 21 Oct 2008 04:55:08 +0000

dear sir,

in the first example, you forget to put the End Sub at the end of the program.

I learn something from this program. Thanks