G
Guest
I have code that Die_Another_Day helped me with, but it only copies the Data
in Column A to the worksheet.
I need to have the data in the row, but Columns A to I in each row copied.
I'm SO tired...I just can't figure out what the problem is.
Can someone let me go to sleep by helping me with this?
Here is the code:
Sub CopyData()
Dim LRow As Long 'Last Row
Dim nRow As Long 'Next Row to copy to
Dim cnt As Long
'Dim sourceRange As Range
LRow = Sheets("All_Jobs").Range("A" & Sheets("All_Jobs").Rows.Count).End(xlUp)
With Sheets("All_Jobs")
For cnt = 7 To LRow
If .Range("A" & cnt) >= Range("FilterCriteria").Cells(1) And .Range("A" _
& cnt) <= Range("FilterCriteria").Cells(2) Then
nRow = Sheets("sheet1").Range("A" & _
Sheets("sheet1").Rows.Count).End(xlUp).Offset(1, 0).Row
'Set sourceRange = ActiveCell.EntireRow
'.Range("sourceRange").Copy Sheets("sheet1").Range("A" & nRow)
.Range("A" & cnt).Copy Sheets("sheet1").Range("A" & nRow) '<< I
suspect this is the line where the problem is!
End If
Next
End With
End Sub
in Column A to the worksheet.
I need to have the data in the row, but Columns A to I in each row copied.
I'm SO tired...I just can't figure out what the problem is.
Can someone let me go to sleep by helping me with this?
Here is the code:
Sub CopyData()
Dim LRow As Long 'Last Row
Dim nRow As Long 'Next Row to copy to
Dim cnt As Long
'Dim sourceRange As Range
LRow = Sheets("All_Jobs").Range("A" & Sheets("All_Jobs").Rows.Count).End(xlUp)
With Sheets("All_Jobs")
For cnt = 7 To LRow
If .Range("A" & cnt) >= Range("FilterCriteria").Cells(1) And .Range("A" _
& cnt) <= Range("FilterCriteria").Cells(2) Then
nRow = Sheets("sheet1").Range("A" & _
Sheets("sheet1").Rows.Count).End(xlUp).Offset(1, 0).Row
'Set sourceRange = ActiveCell.EntireRow
'.Range("sourceRange").Copy Sheets("sheet1").Range("A" & nRow)
.Range("A" & cnt).Copy Sheets("sheet1").Range("A" & nRow) '<< I
suspect this is the line where the problem is!
End If
Next
End With
End Sub