Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » Macro

Excel - Macro

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Macro

Publicado por Dario (92 intervenciones) el 19/07/2014 06:42:55
Tengo en desde la columna A1 hasta la Columna A5 letras con el formato de Fuente color Rojo y desde la columna A6 hasta A10 letras con el formato de Fuente color Negro.

Necesito hacer una macro mediante la cual seleccione el rango de celda que contengan la Funete color ROJO ylas copie.

Ademas quisiera mediante una macro abrir un Block de Notas y pegar en el mismo lo que anteriormente fue copiado.

Gracias por su colaboración.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

Macro

Publicado por Juan Pablo (62 intervenciones) el 22/07/2014 22:53:40
te facilito el codigo, me tomo tres dias de arduo trabajo e investigacion
saludos
Juan Pablo


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub extraccion()
    Range("A1").Select
    Selection.CurrentRegion.Select
    ActiveWorkbook.Names.Add Name:="Pacori", RefersTo:=Worksheets(ActiveSheet.Name).Range(Selection.Address)
    Selection.AutoFilter
    ActiveSheet.Range("Pacori").AutoFilter Field:=2, Criteria1:=RGB(255, 0 _
        , 0), Operator:=xlFilterFontColor
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
        "C:\prueba_2014.txt" _
        , FileFormat:=xlUnicodeText, CreateBackup:=False
    ActiveWindow.Close
    Selection.AutoFilter
    Range("A1").Select
    Application.DisplayAlerts = True
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Macro

Publicado por Dario (92 intervenciones) el 23/07/2014 05:42:09
Muchisimas gracias. Me vino de 10.
Solo una cosita, me daba un error en el siguiente renglon:
ActiveSheet.Range("Pacori").AutoFilter Field:=2
Al final le cambie el N° 2 por el N° 1 o seq quedando de la siguiente manera:
ActiveSheet.Range("Pacori").AutoFilter Field:=1

Una cosa mas, en vez de ya tener predeterminado el nombre del archivo, que en el ejemplo es "prueba_2014", quisiera ver de que solo se predetermine la ruta en donde guardar el archivo y que el nombre dependa de una celda de la planilla, para que de este modo se pueda escribir en una celda el nombre del archivo con el que queremos que se guarde.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar