none
VBA - Copiar informacion de otros archivos en una misma carpeta. (pegado especial, solo valores) RRS feed

  • Pregunta

  • Estimados,
    me gustaria acercarles la siguiente consulta,
    el dia de hoy he estado trabajando con diferentes archivos que se encuentra en un mismo directorio y quiero que los mismos se vean reflejados en una hoja particular de un archivo distinto, que se encuentra en otro directorio, he utilizado la siguiente solucion, lo unico que no hace este procedimiento, es pegar únicamente los valores de las celdas copiadas, este pega las formulas que cada celda contiene, si bien veo los resultados que necesito, cuando selecciono las celdas pegadas estas demuestran las formulas, estoy buscando pegar unicamente los valores de cada celda.

    Sub libros()
    'Lee archivos del directorio y Copia la hoja 1
    'Por.Dam
    Application.ScreenUpdating = False
    ruta = ThisWorkbook.Path
    ChDir ruta
    archi = Dir("*.xlsx*")
    Set h1 = ThisWorkbook.Sheets("gasto")
        h1.Cells.Clear
        On Error Resume Next
        ffin = h1.UsedRange.Find(what:="*").Row
        ActiveCell.SpecialCells(xlLastCell).Select
    On Error Resume Next
    Do While archi <> ""
        If InStr(1, archi, "nuevo") = 0 Then
            Workbooks.Open archi
            If Err.Number = 0 Then
                Sheets(1).Select
                Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Copy _
                h1.Range("A" & h1.Range("A1").SpecialCells(xlLastCell).Row + 1)
            End If
            Err.Number = 0
            Application.DisplayAlerts = False
            Workbooks(archi).Close
            Application.DisplayAlerts = True
        End If
        archi = Dir()
    Loop
    End Sub

    desde ya muchas gracias!

    jueves, 10 de septiembre de 2015 13:34