Loop row selection copy with blank spaces
- From: "Dave" <dad717@xxxxxxxxx>
- Date: 9 Feb 2006 21:11:50 -0800
The code I have loops through a column of dates that have blank spaces
between different dates. For each date the rows between the blanks are
copied and saved as a seperate .csv file. This works fine if there a
two or more of the same date between the blanks. If there is only one
row for one date between the blanks it will copy that row, yet, not
continue to the next date, and the macro stops?
I have a modest clue of what I'm doing?
Any Help would be appreciated.
TIA
''///cell A1 is blank and selected to start
Do While IsEmpty(ActiveCell.Offset(1, 0)) = False
Dim i As Integer
i = ActiveCell.Row + 1
Do Until IsEmpty(Cells(i, 1).Value)
i = i + 1
Loop
Range(Cells(ActiveCell.Row + 1, 1), Cells(i - 1, 25)).Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
x = Cells(1, 1).Value
ActiveWorkbook.SaveAs Filename:= _
"C:\" & x & ".csv", FileFormat _
:=xlCSV, CreateBackup:=False
ActiveWindow.Close
ActiveCell.End(xlDown).Offset(1, 0).Select
Loop
End Sub
.
- Follow-Ups:
- Re: Loop row selection copy with blank spaces
- From: Jim Cone
- Re: Loop row selection copy with blank spaces
- Prev by Date: Re: Generic n in For n To xxxxx
- Next by Date: Re: IF statements
- Previous by thread: Select Method of Range class failed
- Next by thread: Re: Loop row selection copy with blank spaces
- Index(es):
Relevant Pages
|
