Select and Save as

[DaveM]

Hi all

Can anyone help me with some code please

My data is in A1 to J1100
in column B there are random sequences of number

1
2
3
4
1
2
3
4
5
1
2
3
1
2
3
4
5
6

How can I select in column B the sequence 1 to 4 , then highlight B1 to J4
and save as a html file to c:\
With the file name always to the left of the 1, A1. A5, A10 etc, and when
the code finishes goto B5 and start the code again.

Thanks in advance

Dave

 

[Vasant Nanavati]

Something like (totally untested, just to start you off):

Dim i As Long
For i = 1 To 1097 Step 4
Set wb = Workbooks.Add
Set ws = wb.ActiveSheet
ThisWorkbook.ActiveSheet.Cells(i, 2).Resize(, 9).Copy ws.Cells(1, 1)
wb.SaveAs Cells(i, 1), xlHtml
wb.Close False
Next

__________________________________________________________________________

 

[DaveM]

Thanks for your help

run-time error 1004

in debug below was highlighted yellow

wb.SaveAs Cells(i, 1), xlHtml

a new workbook was created with data from another location than selected.

 

[Vasant Nanavati]

Does column A contain the fully-qualified filename that you want to save the
file as? With the full path?
________________________________________________________________________

 

[DaveM]

All OK Thanks Vasant

Does column A contain the fully-qualified filename that you want to save
the file as? With the full path?
________________________________________________________________________