Macro Excel para copiar celdas

Estimados,

Quiero saber si me me pueden ayudar con esto: necesito realizar un Macro en excel, que copie la celda que le quede a su izquierda y las otras 7 celdas que estarían debajo de esta; luego de realizar la copia, el macro debe pegar y transponer lo copiado

Cuento con ustedes...

1 respuesta

Respuesta
1

Esta es la macro

Sub Macro1()
'Por.DAM
    If Selection.Count = 1 And Selection.Column > 1 Then
        Set a = ActiveCell
        Range(Cells(a.Row, a.Column - 1), Cells(a.Row + 6, a.Column - 1)).Copy
        a.PasteSpecial Paste:=xlPasteAll, Transpose:=True
        Application.CutCopyMode = False
        a.Select
    End If
End Sub

Saludos. Dante Amor
No olvides finalizar la pregunta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas