1. AyudaExcel utiliza cookies. Si continuas utilizando AyudaExcel, estás aceptando la utilización de nuestras cookies. Más información.
  2. ¡Bienvenid@ a AyudaExcel! El foro más visitado sobre Excel en habla hispana.

    Si esta es tu primera visita, asegúrate de revisar los temas de la sección Utilización y Funcionamiento para familiarizarte con las funciones del foro. Si deseas publicar mensajes, será necesario que te Registres para que puedas dejar respuestas y crear tus propios mensajes, recuerda que es gratuito.

[Solucionado] Seleccionar fila siguiente

Tema publicado en 'Macros y programación VBA' iniciado por frurick, 19 Feb 2011.

Estado del tema:
Cerrado para nuevas respuestas
  1. frurick

    frurick Nuevo Usuario

    Registrado:
    19 Feb 2011
    Mensajes:
    3
    Me Gusta recibidos:
    0
    Buen día, soy nuevo en este foro y la verdad esta muy bueno. Me ha ayudado mucho, pero me topo con un pequeño detalle.
    Tengo varios archivos con macros, en todos copio datos de una fila y los traspongo y pego como valores en otra hoja, pero al finalizar la macro se queda en la columna pegada. Y quisiera que se quedara en la siguiente columna. Espero puedan ayudarme. Anexo al imagen para mayor referencia.
    Asi queda mi secuencia:

    Sub Macro4()
    Range("B5:I5").Select
    Selection.Copy
    Sheets("Hoja2").Select
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=True
    Range("C2").Select
    End Sub

    Gracias de Antemano. Agrego ejemplo de la macro anterior: Macro duda.jpg
  2. Gerson Pineda

    Gerson Pineda Moderador Staff AyudaExcel

    Registrado:
    30 Mar 2009
    Mensajes:
    6.521
    Me Gusta recibidos:
    476
    Género:
    Masculino
    Re: Ayuda con Macros - Seleccionar fila siguiente

    Hola frurick
    Antes que todo leete las normas, porque debes adjuntar un archivo y asi trabajar sobre el mismo

    Prueba con este codigo y comentas

    PHP:
    Sub copiardatosaotrahoja()

    Application.ScreenUpdating False

    uc 
    Hoja2.Cells(Columns.Count).End(xlToLeft).Column
    With Range
    ("B5:I5").Copy
        Sheets
    ("Hoja2").Select
        Cells
    (2uc 1).PasteSpecial Paste:=xlPasteValuesTranspose:=True
        SendKeys 
    "{ESC}"
        
    Cells(2uc 2).Select
    End With

    Application
    .ScreenUpdating True

    End Sub
    Saludos desde Honduras
  3. frurick

    frurick Nuevo Usuario

    Registrado:
    19 Feb 2011
    Mensajes:
    3
    Me Gusta recibidos:
    0
    Re: Ayuda con Macros - Seleccionar fila siguiente

    Mil gracias, y disculpas por no leer las normas. Pero la macro no me deja hacer lo deseado. Si la vuelvo a correr con datos nuevos en la Hoja 1, estos solo se sustituyen en la misma columna de la Hoja 2, y lo que requiero es que si mis datos de Hoja 1 cambian los pueda pegar en la fila siguiente y asi sucesivamente.

    Me explicare mejor, en una hoja de excel corro un programa que me da los valores de 1 dia cada 2 horas, yo lo que hago es promediarlos, de la fila de promedios mediante macro la copio y la pego como valores y traspongo en la hoja 2 del dia 1 pero tengo que ir a la hoja 2 y posicionarme en la columna siguiente para que al correr un nuevo dìa no me pege los valores en dìa 1 sino en dìa 2 y asi todo el mes. Mil disculpas por no anexar el archivo pero es informacion del trabajo que no me dejan sacar, pero anexo el excel que estoy usando para probar las macros que pueda usar en ese archivo.
    Saludos y mil gracias.

    Adjuntos:

  4. tuve

    tuve Incondicional de Ayuda Excel

    Registrado:
    3 Dic 2009
    Mensajes:
    915
    Me Gusta recibidos:
    184
    Re: Ayuda con Macros - Seleccionar fila siguiente

    Continuando la idea de Gerson, prueba esto:

    CÓDIGO:
    Sub CopiarOtraHoja()
        Dim uc As Integer
        
        Application.ScreenUpdating = False
        
        With Sheets("Hoja2")
            uc = .Cells(2, Columns.Count).End(xlToLeft).Column
            Sheets("Hoja1").Range("B5:I5").Copy
            .Cells(2, uc + 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
            Application.CutCopyMode = False
            .Activate
            .Cells(2, uc + 2).Select
        End With
        
        Application.ScreenUpdating = True
    End Sub
    A frurick le gusta esto.
  5. Gerson Pineda

    Gerson Pineda Moderador Staff AyudaExcel

    Registrado:
    30 Mar 2009
    Mensajes:
    6.521
    Me Gusta recibidos:
    476
    Género:
    Masculino
    Re: Ayuda con Macros - Seleccionar fila siguiente

    Revisa el adjunto

    Y comentas

    Edito: tenia en edicion el tema, pero me tocaba cenar en familia:) y pues gracias "tuve"

    Saludos desde Honduras

    Adjuntos:

    Última edición: 20 Feb 2011
    A frurick le gusta esto.
  6. frurick

    frurick Nuevo Usuario

    Registrado:
    19 Feb 2011
    Mensajes:
    3
    Me Gusta recibidos:
    0
    Re: Seleccionar fila siguiente

    Excelente, las 2 jalan muy bien. Les agradezco mucho, ahora ver como adaptarla a mi macro del trabajo, espero no tener problemas (no soy muy experto en Macros o programación, jaja).
    Mil gracias a ambos "tuve" y "Gerson".
  7. Gerson Pineda

    Gerson Pineda Moderador Staff AyudaExcel

    Registrado:
    30 Mar 2009
    Mensajes:
    6.521
    Me Gusta recibidos:
    476
    Género:
    Masculino
    Re: Seleccionar fila siguiente

    Que bueno y solo aclarar que no es necesario esta instruccion: Cells(2, uc + 2).Select puesto que la macro de antemano busca la ultima columna ocupada (uc = Cells(2, Columns.Count).End(xlToLeft).Column) y pega los valores en la siguiente

    Saludos
Estado del tema:
Cerrado para nuevas respuestas

Compartir esta página