Looking for some assistance...please
Here's my sheet
employee# Name Dept Hour1 Hour2...Hour3
12356 Jeff 123 8 4 6
333 Tammy 453 8 0 2
...
What I want this to look like is:
employee# Name Dept Hour1 Hour2...Hour10
12356 Jeff 123 8
12356 Jeff 123 4
12356 Jeff 123 6
333 Tammy 453 8
333 Tammy 453 2
Basically I am inserting a blank row every time Hours2...Hours10 has a value, I then want to copy employee#,Name, Dept into the blank row with each occurence of hours2...hours10
Here is what I have, I am having trouble witht range, copy, paste
Sheets("totals").Select
counter = 2
Do While Not EndofFile
Set curcell = Worksheets("totals").Cells(counter, 10)
If curcell<> "" Then
counter = counter + 1
Set curcell = Worksheets("totals").Cells(counter, 10)
curcell.EntireRow.Insert
strRange = "A" + counter + ":" + "F" + counter
Range("strRange").Select
Selection.Copy
Range(curcell).Select
ActiveSheet.Paste
End If
counter = counter + 1
Loop
thanks
This message was edited by beeedit on 2002-03-30 10:29
Here's my sheet
employee# Name Dept Hour1 Hour2...Hour3
12356 Jeff 123 8 4 6
333 Tammy 453 8 0 2
...
What I want this to look like is:
employee# Name Dept Hour1 Hour2...Hour10
12356 Jeff 123 8
12356 Jeff 123 4
12356 Jeff 123 6
333 Tammy 453 8
333 Tammy 453 2
Basically I am inserting a blank row every time Hours2...Hours10 has a value, I then want to copy employee#,Name, Dept into the blank row with each occurence of hours2...hours10
Here is what I have, I am having trouble witht range, copy, paste
Sheets("totals").Select
counter = 2
Do While Not EndofFile
Set curcell = Worksheets("totals").Cells(counter, 10)
If curcell<> "" Then
counter = counter + 1
Set curcell = Worksheets("totals").Cells(counter, 10)
curcell.EntireRow.Insert
strRange = "A" + counter + ":" + "F" + counter
Range("strRange").Select
Selection.Copy
Range(curcell).Select
ActiveSheet.Paste
End If
counter = counter + 1
Loop
thanks
This message was edited by beeedit on 2002-03-30 10:29