celdas arriba y abajo
Como le digo al codigo que me copie lo que hay arriba mio y lo pegue debajo. Teniendo en cuenta que quiero hacer una macro y cada vez estaré (cuando ésta se ejecute) en un lugar distinto de la hoja de cálculo.
Gráciac.
Gráciac.
Hola,
Sub seleccionaCeldas()
Dim columna As Integer
Dim fila As Integer
fila = ActiveCell.Row
columna = ActiveCell.Column
' Me posiciono en la celda superior a la seleccionada
Cells(fila - 1, columna).Select
'aquí haces lo que quieras
' Me posiciono en la celda inferior a la seleccionada
Cells(fila + 1, columna).Select
'aquí haces lo que quieras
End Sub
Saludos
sdemingo
Sub seleccionaCeldas()
Dim columna As Integer
Dim fila As Integer
fila = ActiveCell.Row
columna = ActiveCell.Column
' Me posiciono en la celda superior a la seleccionada
Cells(fila - 1, columna).Select
'aquí haces lo que quieras
' Me posiciono en la celda inferior a la seleccionada
Cells(fila + 1, columna).Select
'aquí haces lo que quieras
End Sub
Saludos
sdemingo
