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 puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

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

1RESUELTO NECESITO AYUDA CON UNA MACRO el 01/03/18, 01:52 am

AIDA


Buenos días, 

Ante todo agradecer anticipadamente la ayuda que podáis prestarme, pero soy bastante novata en este tema y estoy un poco desesperada de darle vueltas y no dar con la solución.
Os explico: tengo una macro hecha con 2 macros, debo pegar el resultado de una a continuación de la otra y ahí tengo el problema, no puedo pegarla en una fila determinada ya que la que pongo primero puede  aumentar el numero de filas.
Mi macro es la siguiente:
Sheets("GENERICA ").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    Selection.AutoFilter
    Application.Run "'MACRO.xlsm'!VTA"
    Sheets("IDA").Select
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TOTAL").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    Sheets("VTA").Select
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    Range(Selection, Selection.End(xlToLeft)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TOTAL").Select
    Range("A1").End(xlDowm).Row
    Selection.PasteSpecial Paste:=xlP
    Range("A1").SelectasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.AutoFilter
    ActiveWorkbook.Worksheets("TOTAL").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("TOTAL").AutoFilter.Sort.SortFields.Add Key:= _
        Range("I1:I30"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("TOTAL").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("I2").Select
End Sub

Lo que pongo destacado en verde es donde me dice que hay un error definido por la aplicación o el objeto.

Espero que podáis ayudarme, muchas gracias y un saludo.

AIDA

2RESUELTO Re: NECESITO AYUDA CON UNA MACRO el 01/03/18, 09:30 pm

Igtelo

avatar
Hola Aida.

El error se debe a que tú diste esa instrucción y no el grabador de macros.

Range("A1").End(xlDowm).Row Sólo obtiene el número de la última fila de la columna A, pero no lo utilizas, probablemente cambiando por:
Range("A1").End(xlDown).Offset(1).select te trabaje, tal vez.

Sino te funciona, sube tu archivo y nos indicas gráficamente: Tengo esto y quiero esto, te hacemos el código más corto.


Saludos
Ignacio Téllez

3RESUELTO Re: NECESITO AYUDA CON UNA MACRO el 02/03/18, 12:50 am

AIDA


Buenos días, muchas gracias por tu respuesta Ignacio,hoy mismo pruebo si funciona y te digo.
Un saludo

4RESUELTO NECESITO AYUDA CON UNA MACRO el 03/03/18, 02:03 pm

AIDA


Buenas tardes, finalmente no hubo suerte con el cambio que me sugeriste.
Para arreglarme a la espera de encontrar una solución hice unas pequeñas modificaciones en la tabla y aunque no es exactamente lo que tenía pensado,si se aproxima bastante y me resulta igualmente útil.
Muchas gracias por la ayuda. Un saludo

5RESUELTO Re: NECESITO AYUDA CON UNA MACRO el 04/03/18, 10:54 am

Igtelo

avatar
Hola Aida.

Ok, ya lo resolviste, para próximas consultas tilda el botón de resuelto, lee las normas.

Saludos
Ignacio Téllez

6RESUELTO NECESITO AYUDA CON UNA MACRO el 06/03/18, 08:54 am

AIDA


Buenas, tienes razón, aunque realmente no lo resolví....tomé otro camino.
Muchas gracias

Contenido patrocinado


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.