............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Cortar y pegar en misma columna

Ver el tema anterior Ver el tema siguiente Ir abajo

Cortar y pegar en misma columna

Mensaje por pueta el Lun Sep 12, 2011 3:41 pm

Hola, estoy atrancado en la siguiente duda , quiero hacer una macro que si selecciono unas celdas, por ejemplo de la b5 a la h5 ,esta me la corte y solo me deje pegaría en la misma latitud o sea en la columna b .otro ejemplo si seleccionase de la celda h7 a la k7 esta me lo cortase y lo pegase solo en la columna h en la misma latitud , que lo seleccionado y cortado solo lo pueda poner en esas columnas. Muchas gracias por adelantado

pueta

Masculino Cantidad de envíos : 33
Edad : 54
Ciudad - Pais : barcelona
Version de Excel : 2003 y 2007
Fecha de inscripción : 09/03/2011

Volver arriba Ir abajo

Re: Cortar y pegar en misma columna

Mensaje por moises melgar el Lun Sep 12, 2011 6:45 pm

Que rara consulta,
Desconosco para que deseas algo asi, puedes dar tu idea general para darte otras opciones.
De mientras un ejemplo:
Primero Seleccionas tu rango a copiar y luego ejecuta la macro Acceso directo Ctrl + c
modulo1:
Código:
Sub Copy_paste_misma_column()
Dim columnas As Long
columna = ActiveCell.Column 'columna donde se encuentra la celda antes de ejecutar macro
Selection.Copy ' la seleccion usada es copiada
ActiveSheet.ScrollArea = Columns(columna).Address ' ScrollArealimita el area de la hoja activa a solo la columna Activa
End Sub

y para completar en ThisWorkbook:
Código:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.ScrollArea = "" ' Al darle pegar se ejecuta esta instruccion que elimina el Scrolarea antes definido
End Sub
Archivos
simular Copy_paste_misma_column.xlsm No tienes los permisos para descargar los archivos.(16 KB) Descargado 11 veces
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 563
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Cortar y pegar en misma columna

Mensaje por pueta el Miér Sep 14, 2011 7:15 am

Gracias por tu atención , es lo que buscaba , pero queria que la función no fuera la de copiar y pegar , si no que fuera cortar y pegar , he reemplazado copy por cut y me sale eso si dando un aviso de advertencia , ¿ Como podria quitarle tal aviso , Mil gracias por adelantado

pueta

Masculino Cantidad de envíos : 33
Edad : 54
Ciudad - Pais : barcelona
Version de Excel : 2003 y 2007
Fecha de inscripción : 09/03/2011

Volver arriba Ir abajo

Re: Cortar y pegar en misma columna

Mensaje por moises melgar el Jue Sep 15, 2011 1:16 pm

upss Disculpa ayer no pude contestar, problemas con el suministro de la energia electrica en la oficina
pero aqui te lo dejo:


Código:
Public rango 'declaro a rango como publica
Sub cut_column()
Dim columnas As Long
columna = ActiveCell.Column
Selection.Cut ' corto los datos (aunque la verdad no se necesitaria)
rango = Selection.Address 'rango sera el rango que acabamos de cortar
ActiveSheet.ScrollArea = Columns(columna).Address
End Sub

Código:
Sub paste_column()
Application.ScreenUpdating = False ' para que no se vea el movimiento que hago
ActiveSheet.ScrollArea = "" ' deshabilito el Scroll (como se pagaba antes de deshabilitar el Scroll mostraba el mensaje)
Range(rango).Cut ' ahora si corto de verdad el area usando como referencia a la variable rango
ActiveSheet.Paste ' lo pego en el lugar donde me encuentre
End Sub
Archivos
simular Cut_paste_misma_column.xlsm No tienes los permisos para descargar los archivos.(15 KB) Descargado 10 veces
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 563
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Cortar y pegar en misma columna

Mensaje por pueta el Vie Sep 16, 2011 4:23 am

Gracias por tu interes , es lo que iba buscando ,
Y como puedo proteger las celdas para que un rango seleccionado al pegarlo no lo pueda pegar encima de una celdas que ya tienen escritura y que asi no me desaparecieran los datos . he probado con el sheet .protect y no me ha salido.Mil gracias

pueta

Masculino Cantidad de envíos : 33
Edad : 54
Ciudad - Pais : barcelona
Version de Excel : 2003 y 2007
Fecha de inscripción : 09/03/2011

Volver arriba Ir abajo

Re: Cortar y pegar en misma columna

Mensaje por moises melgar el Lun Sep 19, 2011 12:46 pm

tuve que usar extrae para determinar el rango de la nueva columna a copiar usando como referencia el "el tamaño del rango original y apartir de Esto contar cuantas celda tenian datos

en el libro puse dos ejemplo

cortarr el rango de color azul al amarrillo mostrara mensaje de Error y regresa desde el principio

cortar el rango azul al otro azul y si permitira pegar los datos
Archivos
simular Cut_paste_misma_column.xlsm No tienes los permisos para descargar los archivos.(16 KB) Descargado 12 veces
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 563
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Cortar y pegar en misma columna

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.