Pulling only values from multiple sheets onto new sheet

  • Hello all,

    I found this macro and it works great and just how I want, but it copy all data (with formulas, and give it me some errors in the new sheet. That's why I need only values.
    I also tried to add
    Destination:=Sheets(1).Range("A65536").End(xlUp).Offset(1).PasteSpecial (xlValues)

    but doesn't work. Could somebody please help me :S

    Thanks in advance.
    Krasimir

  • Re: Pulling only values from multiple sheets onto new sheet


    Hi suraround,
    Nice to meet you.

    Code
    Dim varData As Variant
        For J = 2 To Sheets.Count    ' from sheet 2 to last sheet
            varData = Sheets(J).Range("A1").CurrentRegion.Offset(1, 0).Resize(Selection.Rows.Count - 1)
            Sheets(1).Range("A65536").End(xlUp)(2).Resize(UBound(varData, 1), UBound(varData, 2)) = varData
        Next


    Regards, junho

  • Re: Pulling only values from multiple sheets onto new sheet


    I dont know where to place this code. I try some variants, but ... huh I am newbie on macros, please don't kill me :)
    Could you please explain? :)

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!