Macro copiar celda a misma fila de otra columna
Hola de nueva cuenta...La inquietud que traigo ahora es la siguiente: con la ayuda de sus muchas sugerencia he podido armar la siguiente macro
Sub Macro2()
Sheets("Hoja1").Select
Selection.Select
Selection.Copy
Sheets("Hoja1").Select
libre = ActiveSheet.Range("A65536").End(xlToRigth).Row + 1
ActiveSheet.Cells(libre, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Select
End Sub
La intensión es copiar la selección que tenga en ese momento (por ejemplo, la celda A1) y pegarla en la misma fila pero de otra columna (por ejemplo, F1) -aclaro, la selección es variable, puede ser A1, C1. Sin embargo, lo que obtengo es que me pegue la selección en la misma columna pero muchas filas abajo. Alguien podría auxiliarme en decir en qué estoy fallando y por qué no logro obtener el resultado deseado??? Como siempre, gracias...
1 Respuesta
La rutina que mostrás, busca cuál es la primer fila libre hacia abajo y allí pega lo copiado, con la instrucción libre = ActiveSheet...
No necesitás esa línea.
En su lugar usá esta:
libre = selection.Row
Luego te pega en la primer col que es la nro 1 con esta instrucción: ActiveSheet. Cells(libre, 1)
Si querés que te pegue en col F debiera ser:
ActiveSheet. Cells(libre, 6)
Ajustá la rutina y luego comentame si todavía falta algún arreglo, sino finalizá la consulta
