Hi,

If Sheet1 contains "Technology" in Column H, I would like it to copy
the entire row to Sheet 2. I have looked at other posts but still
cannot get it.

Any help would be appreciated.

Thanks!

Hi Dan,

Do you want rows from Sheet1 to be copied to same row num in sheet2, or next
available row ?

Cheers,
--
AP

"dan" a écrit dans le message de news:
...
Hi,

If Sheet1 contains "Technology" in Column H, I would like it to copy
the entire row to Sheet 2. I have looked at other posts but still
cannot get it.

Any help would be appreciated.

Thanks!

If same row, try:

Sub tester()
Dim rCell As Range
For Each rCell In Worksheets("Sheet1").UsedRange.Columns("H").Cells
If rCell.Value = "Technology" Then
rCell.EntireRow.Copy Worksheets("Sheet2").Cells(rCell.Row, "A")
End If
Next rCell
End Sub

HTH
--
AP

"Ardus Petus" a écrit dans le message de news:
...
Hi Dan,

Do you want rows from Sheet1 to be copied to same row num in sheet2, or
next available row ?

Cheers,
--
AP

"dan" a écrit dans le message de news:
...
Hi,

If Sheet1 contains "Technology" in Column H, I would like it to copy
the entire row to Sheet 2. I have looked at other posts but still
cannot get it.

Any help would be appreciated.

Thanks!

Thank you so much for your response. I would like it to just dump rows
with Technology in the next available row. If you could help me modify
this that would be great.

Thanks!!

Sub tester()
Dim rCell As Range
For Each rCell In Worksheets("Sheet1").UsedRange.Columns("H").Cells
If rCell.Value = "Technology" Then
rCell.EntireRow.Copy Worksheets("Sheet2") _
.Cells(Rows.Count, "A").End(xlUp).Item(2)
End If
Next rCell
End Sub

HTH
--
AP

"dan" a écrit dans le message de news:
...
Thank you so much for your response. I would like it to just dump rows
with Technology in the next available row. If you could help me modify
this that would be great.

Thanks!!