Jump to content

Haplox

Members
  • Posts

    2,996
  • Joined

  • Last visited

  • Days Won

    99
  • Country

    Spain

Haplox last won the day on June 1

Haplox had the most liked content!

About Haplox

  • Birthday September 16

Profile information

  • Gender
    Hombre
  • Localización:
    Madrid
  • Interests
    Sr. Shrödinger, su gato ha sufrido un accidente. Tengo buenas y malas noticias…

Converted

  • Campos
    ;
  • Mi versión de Excel:
    2

Recent Profile Visitors

8,087 profile views

Haplox's Achievements

Single Status Update

See all updates by Haplox

  1. 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