I have this formula that was given to me here 1 year ago (wich i only have to
thanks), and it works just fine, but now i have a new aplicattion for it and
need just an adjustement but i don't to do it. I've tryed to change the
simple things in formula, but didn't worked, so i ask the experts! Which i
Thank in advanced.

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, to make the many sheet's that i will have ready to print, with the
formatt that i want. And some little details, that i have in sheet. I know i
could copy the sheet where i have the data to sheet K, but who will work with
the sheet's can confuse.
Can someone help me?

Thanks

Hi

Try adding 6 to the destination cell number, to change the starting
position from A1 to A7.
This can be achieved by setting irow to 6 before entering the loop, then
the first time K is found, irow=irow +1 will set irow to 7 and the cell
to which the data is being written will become A7.

Sub Ferias()
Dim i as long, irow as long
irow = 6
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


--
Regards

Roger Govier


"Micos3" wrote in message
...
I have this formula that was given to me here 1 year ago (wich i only
have to
thanks), and it works just fine, but now i have a new aplicattion for
it and
need just an adjustement but i don't to do it. I've tryed to change
the
simple things in formula, but didn't worked, so i ask the experts!
Which i
Thank in advanced.

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, to make the many sheet's that i will have ready to print, with the
formatt that i want. And some little details, that i have in sheet. I
know i
could copy the sheet where i have the data to sheet K, but who will
work with
the sheet's can confuse.
Can someone help me?

Thanks

Hi

Many Thanks, now i can do exactly what i want.
Once again,
Thank You

My best regards

"Roger Govier" escreveu:

Hi

Try adding 6 to the destination cell number, to change the starting
position from A1 to A7.
This can be achieved by setting irow to 6 before entering the loop, then
the first time K is found, irow=irow +1 will set irow to 7 and the cell
to which the data is being written will become A7.

Sub Ferias()
Dim i as long, irow as long
irow = 6
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


--
Regards

Roger Govier


"Micos3" wrote in message
...
I have this formula that was given to me here 1 year ago (wich i only
have to
thanks), and it works just fine, but now i have a new aplicattion for
it and
need just an adjustement but i don't to do it. I've tryed to change
the
simple things in formula, but didn't worked, so i ask the experts!
Which i
Thank in advanced.

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, to make the many sheet's that i will have ready to print, with the
formatt that i want. And some little details, that i have in sheet. I
know i
could copy the sheet where i have the data to sheet K, but who will
work with
the sheet's can confuse.
Can someone help me?

Thanks

Hi

You are very welcome, and thanks for the feedback to let us know it
worked for you.

--
Regards

Roger Govier


"Micos3" wrote in message
...
Hi

Many Thanks, now i can do exactly what i want.
Once again,
Thank You

My best regards

"Roger Govier" escreveu:

Hi

Try adding 6 to the destination cell number, to change the starting
position from A1 to A7.
This can be achieved by setting irow to 6 before entering the loop,
then
the first time K is found, irow=irow +1 will set irow to 7 and the
cell
to which the data is being written will become A7.

Sub Ferias()
Dim i as long, irow as long
irow = 6
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


--
Regards

Roger Govier


"Micos3" wrote in message
...
I have this formula that was given to me here 1 year ago (wich i
only
have to
thanks), and it works just fine, but now i have a new aplicattion
for
it and
need just an adjustement but i don't to do it. I've tryed to change
the
simple things in formula, but didn't worked, so i ask the experts!
Which i
Thank in advanced.

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, to make the many sheet's that i will have ready to print, with
the
formatt that i want. And some little details, that i have in sheet.
I
know i
could copy the sheet where i have the data to sheet K, but who will
work with
the sheet's can confuse.
Can someone help me?

Thanks