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 de Dante Amor
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.
