Jump to content

Jorge12321

Members
  • Posts

    2
  • Joined

  • Last visited

  • Country

    Chile

Jorge12321's Achievements

  1. Hola!! Necesito unir tablas de distintas hojas de calculo y crear una nueva hoja, para esto he estado utilizando la siguiente macro (Adjunta) pero me entrega los valores que estan en la celda con formula y los necesito solo como valores. ¿Que puedo hacer en este caso? ¿Qué me recomiendan? Sub Extraer_Datos() Dim shDestino As Worksheet Dim ufo As Integer, ufd As Integer Set shDestino = Worksheets.Add(After:=Sheets(Sheets.Count)) shDestino.Name = "d" For I = 1 To Sheets.Count - 1 If Sheets(I).Name = "ESCUELAS" Then Else ufo = Sheets(I).Range("A" & Cells.Rows.CountLarge).End(xlUp).Row ufd = shDestino.Range("A" & Cells.Rows.Values).End(xlUp).Row Sheets(I).Range("AA2:AJ" & ufo).Copy shDestino.Range("A" & ufd) End If Next I End Sub
  2. Hola! Te puedo hcer una consulta respecto a este codigo, al ejecutarlo me entrega el valor que está en la celda incluida la formula, como podría hacer para que solo me entregué el valor?

    Sub Extraer_Datos()
    Dim shDestino As Worksheet
    Dim ufo As Integer, ufd As Integer
    Set shDestino = Worksheets.Add(After:=Sheets(Sheets.Count))
    shDestino.Name = "d"

    For I = 1 To Sheets.Count - 1
        If Sheets(I).Name = "ESCUELAS" Then
        Else
            ufo = Sheets(I).Range("A" & Cells.Rows.CountLarge).End(xlUp).Row
            ufd = shDestino.Range("A" & Cells.Rows.Values).End(xlUp).Row
            Sheets(I).Range("AA2:AJ" & ufo).Copy shDestino.Range("A" & ufd)
            
        End If
    Next I
    End Sub
     

    1. Haplox

      Haplox

      Cambia esra línea:

      Sheets(I).Range("AA2:AJ" & ufo).Copy shDestino.Range("A" & ufd)

      por:
       

      Sheets(I).Range("AA2:AJ" & ufo).Copy
      shDestino.Range("A" & ufd).PasteSpecial xlPasteValues

      Saludos

×
×
  • Create New...

Important Information

Privacy Policy