UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

neskat


Estimados amigos del foro :
Por favor ayudenme , si no hago esto pierdo el trabajo, necesito una macro que copie una columna selecciona y la pegue en la columna vacia siguiente a una columna con algun dato especifico

Me explico
selecciono la columna A y que el contenido se pegue en la columna vacia siguiente a una columna que tenga algun texto especifico , ejemplo : Selecciono la columna B y al ejecutar la macro busca la primera celda de alguna columna que diga "pegar despues de aqui" , si esta vacia la columna siguiente ,pega el contenido , si no , la siguiente y asi

Saludos Crying or Very sad

tyno


Hola neskat.
Te paso un archivo de ejemplo que quizás te sirva, llegado el caso tendrías que adaptar la macro a tu archivo. Saludos.
Archivos
prueba pasar datosl.xls
No tienes los permisos para descargar los archivos.
(28 KB)

3 no logre ver la macro para editarla el 25/09/13, 01:03 pm

neskat


Hola , gracias por responder, abri el archivo en excel 2010 y sale el boton pero no puedo ver la macro , ayudame please

Gracias

G2012


Gracias por el aporte
Saludos

La macro que me compartieron es esta

Private Sub CommandButton1_Click()
On Error Resume Next
Application.ScreenUpdating = False
Range("a4:a" & Range("a65536").End(xlUp).Row).Select
Selection.Copy
Cells(4, Range("iv4").End(xlToLeft).Column + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

tyno


La macro es la que menciona G2012, abres el editor de macros con alt+f11 en la Hoja1 y ahí debería aparecer el codigo, es decir ¿la macro te funciona en tu Excel? Cualquier cosa guarda el libro como Libro habilitado para macros.

6 me falta solo un detalle el 25/09/13, 03:46 pm

neskat


Estimados :
                Gracias por su desinteresada ayuda
Aqui va el archivo, necesito que se copie el contenido seleccionado de la columna en la primera columna vacia despues del texto "pegar despues de aqui" , la macro debe ser capaz de evaluar el texto y pegar en la primera columna vacia que encuentre despues del texto

Saludos
Archivos
copiar celdas a espacios vacios.xlsm
No tienes los permisos para descargar los archivos.
(18 KB)

Ganador


Copia este procedimiento, ubicate en la columna que tiene la informacion que quieres copiar y luego ejecuta el procedimiento 'cargues'

Sub cargues()
' Debes ubicarte en cualquier parte de la columna que tiene los datos, en tu ejemplo en las columnas a o b
' luego ejecutas este procedimiento cargues()
' Limites: en la columna 1 se debe encontra el texto sugerido y tambien los datos de cada columna.
b = Selection.Column ' te identifica la columna activa
For i = 1 To 255 ' Busco la columna siguiente al texto sugerido "pegar despues de aquí
    If Cells(1, i) = "pegar despues de aquí" Then
        i = i + 1 ' columna siguiente despues del texto
        Exit For
    End If
Next i
Range(Selection.End(xlUp), Selection.End(xlDown)).Copy ' selecciono y copio los datos
Cells(1, i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False ' pego los datos como valores en la columna siguiente al texto sugerido
Application.CutCopyMode = False ' desactivo el metodo de pegado
End Sub

Saludos, Espero te guste.
Archivos
Solucion_copiar celdas a espacios vacios.xlsm
es conforme a lo que quieres?
No tienes los permisos para descargar los archivos.
(22 KB)

8 eres un Crack el 25/09/13, 11:52 pm

neskat


Gracias .... es justo lo que necesitaba , eres un crack

Ganador


De verdad me alegro mucho haber aportado en tu trabajo. Saludos a todos desde Colombia.

10 solo detalles el 26/09/13, 12:29 am

neskat


Estimado .... tengo solos dos detalles , uno que copie todos los datos de la columna seleccionada, ya que si quedan espacios entre celdas no las copia y lo otro es que si ya copio en la columna siguiente al texto "pegar despues de aqui" , que copie en la siguiente vacia.

Si me puedes ayudar estare agradecido

11 Detalle segunda macro el 26/09/13, 10:16 pm

neskat


Estimado :
Logre solucionar el problema de mover una columna completa con un boton y dejarla despues de la frase "pegar despues de aqui".
Ahora hice otra macro con un boton que pesca el nombre de una columna seleccionada y la pega entre nombres en forma alfabetica . lo unico malo es que si copia carlos ,busca bien que es despues de bernanrdo , pero no agrega como una columna mas, si no que copia arriba de delia , ese es el problema .

Si me puedes ayudar te lo agradesco

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

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