It's a little hard to explain what i'm trying to do, but i'll try.
I have a sheet that has this data. f.e.:
A b C D E
1 Y Date 434
2 K Date 456
3 J Date 56
4 K Date 89

What i want is to extract the "letter" K, to sheet K, ad other letters to
sheets with their letter. I can do this with the formula i present next:
Sub Ferias()
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "B").Value = "K" Then
iRow = iRow + 1
Cells(i, "C").Resize(, 10).Copy Worksheets("Folha2").Range("A" &
iRow)
End If
Next i
End Sub

The problem is that i want the sheet K(f.e.) starts in "A7"(f.e) instead of
A1.
Can someone help me?

Thanks

I just bot my new computer and have a need to keep Excel 2002 on it AND my
backup DESKtop computer.
I do NOT have a laptop. How does MS know if the backup computer is a laptop
or a desktop?

Failing that, how do I know that when I remove from my xp machine and
install on my Vista machine that I have done it properly?

Or, where can I get another copy?

Sorry about this in the wrong place. I re-posted with it's own subject line

--
Don Guillett
SalesAid Software

"Don Guillett" wrote in message
...
I just bot my new computer and have a need to keep Excel 2002 on it AND my
backup DESKtop computer.
I do NOT have a laptop. How does MS know if the backup computer is a
laptop or a desktop?

Failing that, how do I know that when I remove from my xp machine and
install on my Vista machine that I have done it properly?

Or, where can I get another copy?

irow+6 ???

--
Don Guillett
SalesAid Software

"Micos3" wrote in message
...
It's a little hard to explain what i'm trying to do, but i'll try.
I have a sheet that has this data. f.e.:
A b C D E
1 Y Date 434
2 K Date 456
3 J Date 56
4 K Date 89

What i want is to extract the "letter" K, to sheet K, ad other letters to
sheets with their letter. I can do this with the formula i present next:
Sub Ferias()
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "B").Value = "K" Then
iRow = iRow + 1
Cells(i, "C").Resize(, 10).Copy Worksheets("Folha2").Range("A"
&
iRow)
End If
Next i
End Sub

The problem is that i want the sheet K(f.e.) starts in "A7"(f.e) instead
of
A1.
Can someone help me?

Thanks

irow + 6 can't be, because it will pass the data to sheet K, not in sequence
but with space of 6 rows betwee them.
I have tryed the basic things in formula, but i guess the solution is simple
but i can't reach it

"Don Guillett" escreveu:

irow+6 ???

--
Don Guillett
SalesAid Software

"Micos3" wrote in message
...
It's a little hard to explain what i'm trying to do, but i'll try.
I have a sheet that has this data. f.e.:
A b C D E
1 Y Date 434
2 K Date 456
3 J Date 56
4 K Date 89

What i want is to extract the "letter" K, to sheet K, ad other letters to
sheets with their letter. I can do this with the formula i present next:
Sub Ferias()
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "B").Value = "K" Then
iRow = iRow + 1
Cells(i, "C").Resize(, 10).Copy Worksheets("Folha2").Range("A"
&
iRow)
End If
Next i
End Sub

The problem is that i want the sheet K(f.e.) starts in "A7"(f.e) instead
of
A1.
Can someone help me?

Thanks