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

Ayuda con autofiltro

Ver el tema anterior Ver el tema siguiente Ir abajo

Ayuda con autofiltro

Mensaje por luisfp el Sáb Mayo 07, 2011 2:37 pm

Hola,

Me he pasado 2 días tratando de realizar una macro que me permita copiar algunos datos que requiero desdes una hoja a otra. Para ello, ingreso el valor de Folio que requiero y que me lo busque en la Hoja "CC", me lo encuentra, pero lo que no he logrado es poder seleccionar una celda de la fila filtrada y copiarlo a la Hoja "Rechazado" en la Fila 11 para competar el formato y despues ejecutar macro "Enviar Correo".

Agradecería me pudieran ayudar, ya que estoy parado...

Sub Copiar3()
Dim Nmr As String
Dim CC As String

On Error Resume Next

Dim Mensaje, Titulo

Mensaje = " Introduzca N°FOLIO " ' Establece el mensaje.
Titulo = "Control de Cambio VTR" ' Establece el título.
Nmr = InputBox(Mensaje, Titulo)
CC = "VTR" & Nmr
Application.ScreenUpdating = False
Sheets("Rechazado").Select
Range("A11:H11").Select
Selection.ClearContents
Sheets("CC").Select
'selecciono alguna celda de título para filtrar
Rows("2:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="=" & CC
'DUDA QUE DEBO AGREGAR PARA COPIAR LOS DATOS DE LA COLUMNA B DE LA FILA SELECIONADA
Selection.Copy
Sheets("Rechazado").Select
Range("A11").Select
Selection.Paste
'DUDA QUE DEBO AGREGAR PARA COPIAR LOS DATOS DE LA COLUMNA N DE LA FILA SELECIONADA EN LA HOJA "RECHAZADO EN LA CELDA (a11;B)
Application.CutCopyMode = False
Sheets("CC").AutoFilterMode = False
Sheets("Rechazado").Select
Range("A1").Select

End Sub



Muchas gracias

luisfp

Masculino Cantidad de envíos : 3
Edad : 44
Ciudad - Pais : Santiago - Chile
Version de Excel : Excel 2007
Fecha de inscripción : 06/05/2011

Volver arriba Ir abajo

Re: Ayuda con autofiltro

Mensaje por GalileoGali el Sáb Mayo 07, 2011 5:56 pm

Realmente he visto tu codigo y no entendo lo que quieres.
1)dices que Seleccionaras una celda y resulta que selccionas Rows(1:2)????
2)'DUDA QUE DEBO AGREGAR PARA COPIAR LOS DATOS DE LA COLUMNA B DE LA FILA SELECIONADA. Que es lo que esperas que aparezca copiado y de que hoja estas hablando, Acaso en la columna B de lo filtrado no deberia estar VTR000N???
Fila seleccionada, o resultado de filtros????

3) Utilizas Encabezados de doble Fila Inicio termino - etc (que "descomponen autofiltrso establecidos via seleccion"


Última edición por GalileoGali el Sáb Mayo 07, 2011 9:13 pm, editado 1 vez

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Ayuda con autofiltro

Mensaje por luisfp el Sáb Mayo 07, 2011 8:32 pm

Sorry. no pense que andaba tan perdido...

Lo que quiero realizar es:

Ingresando un valor, lo busque en la columna B de la Hoja "CC", cuando lo detecte, de dicha fila poder copiar algunas celdas que requiero para completar los campos de la Hoja "Rechazado" y posteriormente poder enviar la hoja "Rechazado por correo (como una especie de Informe).

Gracias

luisfp

Masculino Cantidad de envíos : 3
Edad : 44
Ciudad - Pais : Santiago - Chile
Version de Excel : Excel 2007
Fecha de inscripción : 06/05/2011

Volver arriba Ir abajo

Re: Ayuda con autofiltro

Mensaje por GalileoGali el Sáb Mayo 07, 2011 9:12 pm

y el archivo??????

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Ayuda con autofiltro

Mensaje por luisfp el Sáb Mayo 07, 2011 10:36 pm

Gracias Galileo, con tu ayuda me diste la pauta necesaria para hacer las correcciones y obtener lo que necesitaba. La Macro quedo así:

Sub Copiar3()
Dim Nmr As String
Dim CC As String

On Error Resume Next

Dim Mensaje, Titulo

Mensaje = " Introduzca N°FOLIO " ' Establece el mensaje.
Titulo = "Control de Cambios VTR" ' Establece el título.
Nmr = InputBox(Mensaje, Titulo)
CC = "VTR" & Nmr
Application.ScreenUpdating = False
Sheets("Rechazado").Select
Range("A11:J11").Select
Selection.ClearContents
Sheets("CC").Select
'selecciono alguna celda de título para filtrar
With [a1].CurrentRegion
ActiveSheet.AutoFilterMode = False
[1:1].Insert Shift:=xlDown
.Offset(-1).Resize(1 + .Rows.Count).AutoFilter Field:=2, Criteria1:="=" & CC
.Columns(2).SpecialCells(xlCellTypeVisible).Copy Sheets("Rechazado").[a12]
.Columns(14).SpecialCells(xlCellTypeVisible).Copy Sheets("Rechazado").[b12]
.Columns(16).SpecialCells(xlCellTypeVisible).Copy Sheets("Rechazado").[c12]
.Columns(17).SpecialCells(xlCellTypeVisible).Copy Sheets("Rechazado").[d12]
.Columns(18).SpecialCells(xlCellTypeVisible).Copy Sheets("Rechazado").[e12]
.Columns(19).SpecialCells(xlCellTypeVisible).Copy Sheets("Rechazado").[f12]
.Columns(15).SpecialCells(xlCellTypeVisible).Copy Sheets("Rechazado").[g12]
.Columns(6).SpecialCells(xlCellTypeVisible).Copy Sheets("Rechazado").[h12]
.Columns(25).SpecialCells(xlCellTypeVisible).Copy Sheets("Rechazado").[i12]
.Columns(30).SpecialCells(xlCellTypeVisible).Copy Sheets("Rechazado").[j12]
End With

ActiveSheet.AutoFilterMode = False
[1:1].Delete
Application.CutCopyMode = False
Sheets("Rechazado").Select
Range("A1").Select

Saludos,

luisfp

Masculino Cantidad de envíos : 3
Edad : 44
Ciudad - Pais : Santiago - Chile
Version de Excel : Excel 2007
Fecha de inscripción : 06/05/2011

Volver arriba Ir abajo

Re: Ayuda con autofiltro

Mensaje por GalileoGali el Dom Mayo 08, 2011 8:54 am

Me alegro de que lo hayas solucionado, No obstante, te cuento un poco cómo lo haría.

posic = Application.Match(CC,Sheets("CC").Range("A1").Currentregion.Columns(2),0)
despues con Cells(posic, "B") y Offset voy tomando los valores, sin necesidad de copiarllos simplemente igualando, las celdas de destino con las de origen
CeldaHojaRechazados.Value = celdaOrigenenCC.value

Sugerencia evita todo lo posible el manejo de Select en tus macros comen recursos de manera innecesaria

Objeto.Select
Selection.Propiedad o Selection.Metodo , casi siempre pueden eficientizarse sin pasar por la selection

Objeto.Propiedad ou Objeto.Metodo

La grabadora de macros como toma las sentencias en forma más aislada genera numerosas sentencias Select. Por ahora la depuracion nos toca a los humanos....

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Ayuda con autofiltro

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.