Results 1 to 5 of 5

Thread: [RESOLVED] Stranger Problem with copy data from sheet to another

Threaded View

  1. #1

    Thread Starter
    Fanatic Member
    Join Date
    Feb 2004
    Location
    syria
    Posts
    854

    Resolved [RESOLVED] Stranger Problem with copy data from sheet to another

    I tried this code to copy the data from the sheet1 to "bills" sheet
    it must starts copy in the third row in the "bills" sheet. but it starts form another row and every time I delet the data in "bills" sheet it starts from the new row. Take a look to the example I uploaded. How to fix this problem?

    Code:
    Dim myRange1 As Range, myRange2 As Range, myRange3 As Range, myRange4 As Range
    Dim myRange5 As Range, myRange6 As Range, myRange7 As Range, myRange8 As Range
    Dim myRange9 As Range, myRange10 As Range, myRange11 As Range, myRange12 As Range
    Dim j As Integer
       
        Set myRange1 = Sheets(1).Range("A24:A1000")
        Set myRange2 = Sheets(1).Range("B24:B100")
        Set myRange3 = Sheets(1).Range("C24:A1000")
        Set myRange4 = Sheets(1).Range("D24:B100")
        Set myRange5 = Sheets(1).Range("E24:A1000")
        Set myRange6 = Sheets(1).Range("F24:B100")
        Set myRange7 = Sheets(1).Range("G24:A1000")
        Set myRange8 = Sheets(1).Range("H24:B100")
        Set myRange9 = Sheets(1).Range("I24:A1000")
        Set myRange10 = Sheets(1).Range("J24:B100")
        Set myRange11 = Sheets(1).Range("K24:A1000")
        Set myRange12 = Sheets(1).Range("L24:B100")
        
        j = Sheets("Bills").UsedRange.Rows.Count + 1 + Sheets("Bills").UsedRange.Row
       
        myRange1.Copy Sheets("Bills").Range("a" & j)
        myRange2.Copy Sheets("Bills").Range("b" & j)
        myRange3.Copy Sheets("Bills").Range("c" & j)
        myRange4.Copy Sheets("Bills").Range("d" & j)
        myRange5.Copy Sheets("Bills").Range("e" & j)
        myRange6.Copy Sheets("Bills").Range("f" & j)
        myRange7.Copy Sheets("Bills").Range("g" & j)
        myRange8.Copy Sheets("Bills").Range("h" & j)
        myRange9.Copy Sheets("Bills").Range("i" & j)
        myRange10.Copy Sheets("Bills").Range("j" & j)
        myRange11.Copy Sheets("Bills").Range("k" & j)
        myRange12.Copy Sheets("Bills").Range("l" & j)
    Attached Files Attached Files
    Last edited by nader; Feb 5th, 2008 at 09:54 AM.

Posting Permissions

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



Click Here to Expand Forum to Full Width