Results 1 to 5 of 5
  1. #1
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Recopy total from many sheet (2000 sr 1)

    The sheet TOTALI_CE contain the total for each sheet in wbook...

    How to with a macro:
    scan in all sheets of workbook(refred column A of TOTALI_CE), and based the name of sheet copy the range P1:AS1 and recopy into refered line of sheet TATALI_CE...

    note: all sheet have the same range P1:AS1
    i have make in TOTALI_CE the result...

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Recopy total from many sheet (2000 sr 1)

    Try this:

    Sub FillTotali()
    Dim wshSource As Worksheet
    Dim wshTarget As Worksheet
    Dim rngTarget As Range
    Set wshTarget = Worksheets("TOTALI_CE")
    For Each wshSource In Worksheets
    If Not wshSource.Name = "TOTALI_CE" Then
    Set rngTarget = wshTarget.Range("A:A").Find( _
    What:=wshSource.Name, LookIn:=xlValues, LookAt:=xlWhole)
    If Not rngTarget Is Nothing Then
    wshSource.Range("P1:AS1").Copy
    rngTarget.Offset(0, 1).PasteSpecial Paste:=xlPasteValues
    End If
    End If
    Next wshSource
    Application.CutCopyMode = False
    End Sub

  3. #3
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Recopy total from many sheet (2000 sr 1)

    As usual....WORK fine!
    Now after many years wath is the level of my english for you?

  4. #4
    Platinum Lounger
    Join Date
    Feb 2002
    Location
    A Magic Forest in Deepest, Darkest Kent
    Posts
    5,681
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Recopy total from many sheet (2000 sr 1)

    Sta ottenendo pi
    Jerry

  5. #5
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Recopy total from many sheet (2000 sr 1)

    Hi Jerry...very good italian <img src=/S/artist.gif border=0 alt=artist width=34 height=29>

Posting Permissions

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