Loop through row and copy corresponding column

i want to loop through the A row but i want to skip the cell if there is no value, but when there is a value i want to copy
the values in the corresponding column and save them to another worksheet to the range stated in the active cells value.

this is kind of what I want to do:


Dim lCol As Long

For lCol = 1 To 100

if active cell is empty
do nothing

else

select range of active cell and copy contents of column of cell and paste in sheet 2 in the range of active cells value.

next 1coll.


I know what I want to do, I just cant work out how ):
any help with be grateful

This makes the following assumptions 1) Column A is your copy criteria, 2) you want too copy the entirerow.

Please Login or Register  to view this content.

bulina2k
Ok I think ive uploaded an attachment with a dummy file

Hey, ive attached a dummy excel file

Hi HushHoney,
maybe so

Please Login or Register  to view this content.

Hi Guys I figured it out.. here is my code

Please Login or Register  to view this content.