Una macro que copie solo celdas con valor
Hola,
Necesito ayuda ya que llevo mucho tiempo intentando algo y no me sale.
El lío que tengo es que necesito crear una macro que me copie solo las celdas donde se ve un valor numérico, de un rango determinado. Ejem.
El rango puede ser de A1 a D6 pero en todas estas celdas pone una fórmula de copiar resultados de otras celdas, algo así como "=+AL18".
Cuando creo una macro que selecciona todo solo las que tienen valor, me copia las que están vacías ya que tienen fórmula y necesito copiar sólo la que tienen un valor numérico, para pegar consecutivamente en otro libro excel
¿Cómo se puede hacer una copia de valor? O quizás eliminar las formilas que no dan valor...
ayuda por favor...
Gracias.
Necesito ayuda ya que llevo mucho tiempo intentando algo y no me sale.
El lío que tengo es que necesito crear una macro que me copie solo las celdas donde se ve un valor numérico, de un rango determinado. Ejem.
El rango puede ser de A1 a D6 pero en todas estas celdas pone una fórmula de copiar resultados de otras celdas, algo así como "=+AL18".
Cuando creo una macro que selecciona todo solo las que tienen valor, me copia las que están vacías ya que tienen fórmula y necesito copiar sólo la que tienen un valor numérico, para pegar consecutivamente en otro libro excel
¿Cómo se puede hacer una copia de valor? O quizás eliminar las formilas que no dan valor...
ayuda por favor...
Gracias.
1 respuesta
Respuesta de leandropaul
1
B uen dia Raul!
Esta macro la ejecutas en al hoja donde tengaslos datos que deseas copiar
y la ruta la cambias y pones la hoja ala cual vas a pasar los datos
Sub Pasar()
fin = Sheets("Hoja1").Range("a65500").End(xlUp).Row
Range("a1", "a" & (fin)).Copy
Workbooks.Open Filename:="C:\Documents and Settings\Leandro\Escritorio\Libro2.xlsm"
Workbooks("Libro2.xlsm").Activate
Sheets("hoja2").Select
[a1].Select
[a1].PasteSpecial
Application.CutCopyMode = False
For x = 1 To fin
If IsNumeric(Cells(x, 1)) Then
Cells(x, 1).Copy Sheets("Hoja2").Range("b65500").End(xlUp)(2)
End If
Next
End Sub
Esta macro la ejecutas en al hoja donde tengaslos datos que deseas copiar
y la ruta la cambias y pones la hoja ala cual vas a pasar los datos
Sub Pasar()
fin = Sheets("Hoja1").Range("a65500").End(xlUp).Row
Range("a1", "a" & (fin)).Copy
Workbooks.Open Filename:="C:\Documents and Settings\Leandro\Escritorio\Libro2.xlsm"
Workbooks("Libro2.xlsm").Activate
Sheets("hoja2").Select
[a1].Select
[a1].PasteSpecial
Application.CutCopyMode = False
For x = 1 To fin
If IsNumeric(Cells(x, 1)) Then
Cells(x, 1).Copy Sheets("Hoja2").Range("b65500").End(xlUp)(2)
End If
Next
End Sub
Ya an pasado varios días si no tienes una consulta más
Te pediría que cierres la pregunta y califiques.
Te pediría que cierres la pregunta y califiques.
