Macro

25/11/2006 - 15:07 por Favio | Informe spam
Hola amigos, quisiera saber si me pueden ayudar y pasar el código para una
macro que haga lo siguiente: que copie las columnas y filas que yo elija de
una hoja
y las pegue en otra hoja. Desde ya Muchas Gracias.
 

Leer las respuestas

#1 Héctor Miguel
25/11/2006 - 22:25 | Informe spam
hola, Favio !

... codigo... que copie las columnas y filas que yo elija de una hoja y las pegue en otra hoja...



en tanto comentas detalles mas... 'concretos' :)) -> prueba con alguna macro +/- como la situiente
[en un modulo de codigo 'general']

Sub Seleccionar_Copiar()
Dim Origen As Range, Destino As Range
On Error Resume Next ' por si las dudas '
Application.ScreenUpdating = True ' el 'refresco' de la pantalla debe estar 'activo' '
Set Origen = Application.InputBox( _
Prompt:="Selecciona la/s celda/s | fila/s de origen...", _
Title:="En espera de la seleccion...", _
Default:=ActiveCell.Address, _
Type:=8) ' Type:=8 'significa' que 'se espera' un objeto rango seleccionado ->por el usuario<- '
If Origen Is Nothing Then GoTo Salida ' u otras instrucciones '
Set Destino = Application.InputBox( _
Prompt:="Selecciona UNA celda de destino...", _
Title:="En espera de la seleccion...", _
Default:=ActiveCell.Address, _
Type:=8) ' Type:=8 'significa' que 'se espera' un objeto rango seleccionado ->por el usuario<- '
On Error GoTo 0 ' liberamos la omision de errores '
If Destino Is Nothing Then GoTo Salida ' u otras instrucciones '
Origen.EntireRow.Copy Destination:=Destino.EntireRow.Resize(1, 1)
Salida:
Set Origen = Nothing
Set Destino = Nothing
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares