Thanks Thanks:  0
Likes Likes:  0
Results 1 to 3 of 3

Thread: insert and copy cells

  1. #1
    New Member
    Join Date
    Mar 2002
    Location
    Toronto, Canada
    Posts
    3
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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 ]

  2. #2
    New Member
    Join Date
    Mar 2002
    Location
    Toronto, Canada
    Posts
    3
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default



    [ This Message was edited by: beeedit on 2002-03-30 10:30 ]

  3. #3
    New Member
    Join Date
    Mar 2002
    Location
    Toronto, Canada
    Posts
    3
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Any suggestions????

    Thanks,

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •