tag:blogger.com,1999:blog-4623278671508370136.post2573290950452123005..comments2023-08-01T13:39:53.991+02:00Comments on EXCEL FORO: Un blog de Excel: VBA: Copiar datos filtrados/visibles de una Tabla.Excelforo - Ismael Romerohttp://www.blogger.com/profile/17680553534095355222noreply@blogger.comBlogger20125tag:blogger.com,1999:blog-4623278671508370136.post-40884427711347622722019-07-03T08:49:59.551+02:002019-07-03T08:49:59.551+02:00como te decía, si tras aplicar esos filtros (con V...como te decía, si tras aplicar esos filtros (con VBA o manualmente) aplicas el código del post sobre los cuatro primeros, tendrás lo que necesitas...<br />Saludos cordialesExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-61272702903007246862019-07-02T16:47:05.023+02:002019-07-02T16:47:05.023+02:00Tengo distintos tipos de productos en una tabla en...Tengo distintos tipos de productos en una tabla en la primera columna y una cantidad de piezas en la segunda columna y en la tercera columna si el producto es nuevo o viejo.<br />Yo filtro con VBA de mayor a menor la segunda columna y luego un segundo filtro que sólo muestre los valores mayores a 0 y finalmente un tercer filtro en la tercer columna si quiero ver los nuevos o los viejos. <br />Lo que me resulta una lista de al menos 10 productos, y yo solo quiero los primeros 4 de dicha lista, almacenarlos en variables.Ulises Chiohttps://www.blogger.com/profile/09939994275322595747noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-3412653217365751682019-07-02T16:42:00.558+02:002019-07-02T16:42:00.558+02:00Este comentario ha sido eliminado por el autor.Ulises Chiohttps://www.blogger.com/profile/09939994275322595747noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-50489411966342386312019-06-29T10:46:56.184+02:002019-06-29T10:46:56.184+02:00Hola,
se me ocurre aplicar el filtro (top 4) y lee...Hola,<br />se me ocurre aplicar el filtro (top 4) y leer esos registros con el bucle comentado en este post, según se van leyendo ir asignandolos a las variables top1, top2, etc...<br /><br />¿Es eso lo que pretendes hacer?<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-37677245842700087722019-06-29T01:18:28.630+02:002019-06-29T01:18:28.630+02:00Hola, quiero leer los primeros 4 valores en la pri...Hola, quiero leer los primeros 4 valores en la primera columna de un tabla filtrada, pero por separado, ya que quiero escribir el valor en variables.<br />Es decir tengo top1, top2, top3 y top4. Y quiero que top1 = primer valor de la tabla filtrada y así sucesivamente, cómo puedo lograr eso?Ulises Chiohttps://www.blogger.com/profile/09939994275322595747noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-83612577285709257382018-10-28T18:54:18.424+01:002018-10-28T18:54:18.424+01:00Este comentario ha sido eliminado por el autor.fedehttps://www.blogger.com/profile/16221658941792154248noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-67918265868545146552018-10-28T10:12:30.303+01:002018-10-28T10:12:30.303+01:00Hola fede,
no tiene que ver directamente con que q...Hola fede,<br />no tiene que ver directamente con que quieras filtrar el noveno campo...<br />puede ser que tu tabla no se llame 'Table1' o que no reconozca la hoja..<br />Lo mejor que puedes hacer es grabar la acción con el asistente de macros y ver las diferencias.<br /><br />Par añadir un segundo filtro, efectivamente, añade una segunda línea:<br />Activesheet.ListObjects("Table1").Range.AutoFilter field:=10, Criteria1:="Ok"<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-59658185551921723342018-10-27T14:35:02.506+02:002018-10-27T14:35:02.506+02:00Hola Ismael,
estoy intentando aplicar tu articulo ...Hola Ismael,<br />estoy intentando aplicar tu articulo en un filtro pero me devulve el <b>error de ejecucion 9: "Subindice fuera de rango"</b> No entiendo a que se refiere¿Me puedes echar una mano? ¿Tiene algo que ver con el campo 9?<br /><br />Este es el codigo que utilizo:<br /><br />Sub filtro()<br />Worksheets(1).ListObjects("Table1").Range.AutoFilter field:=9, Criteria1:="Cubierta"<br />End Sub<br /><br />¿Y si quisiera aplicar el filtro sobre otro campo adicional?¿otro parametro Field o como?<br /><br />Muchas gracias,<br />Saludos<br />fedehttps://www.blogger.com/profile/16221658941792154248noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-23495168823667211762018-10-27T14:26:04.935+02:002018-10-27T14:26:04.935+02:00Este comentario ha sido eliminado por el autor.fedehttps://www.blogger.com/profile/16221658941792154248noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-19170395213969698392018-10-27T14:23:19.635+02:002018-10-27T14:23:19.635+02:00Este comentario ha sido eliminado por el autor.fedehttps://www.blogger.com/profile/16221658941792154248noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-33849034382856515772018-10-27T14:21:19.327+02:002018-10-27T14:21:19.327+02:00Este comentario ha sido eliminado por el autor.fedehttps://www.blogger.com/profile/16221658941792154248noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-69306749690324853042018-10-03T10:00:22.231+02:002018-10-03T10:00:22.231+02:00Hola Claudio
creo este post te dará una buena pist...Hola Claudio<br />creo este post te dará una buena pista de cómo lograrlo<br /><a href="https://excelforo.blogspot.com/2014/04/vba-select-case-para-distribuir-datos.html" rel="nofollow">https://excelforo.blogspot.com/2014/04/vba-select-case-para-distribuir-datos.html</a><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-38812441289020770842018-10-01T15:27:01.016+02:002018-10-01T15:27:01.016+02:00Buenos dias, Ismael
Traigo lo siguiente quiero alm...Buenos dias, Ismael<br />Traigo lo siguiente quiero almacena en otras 3 hojas los datos que ingreso en la celda a2 de una hoja si cumple una condicion.<br />Ejemplo si en la celda a1 dice 1 el dato que introduzca en la celda a2 se vaya a la hoja 2 y si dice 2 esedato se vaya a la hoja 3 y asi sucesivamente creando una base de datos. tengo el siguiente codigo que solo lo hace a una sola hoja.<br />gradezco tus valiosos cconsejos.<br /><br />Sub proceso()<br />Sheets("Hoja1").Select<br />Range("A1").Copy<br />Sheets("Hoja2").Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues<br />Application.CutCopyMode = False<br />End SubClaudiohttps://www.blogger.com/profile/09927494652453532881noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-77757912451328947352015-10-08T21:04:20.993+02:002015-10-08T21:04:20.993+02:00Hola Diego,
que la fecha venga de una fórmula o es...Hola Diego,<br />que la fecha venga de una fórmula o esté introducida sin más no influye (no debe) a la hora de trabajar sobre ella... la solución de trabajar con Clong suele ser suficiente.<br />Asegúrate que está bien escrita y que es una fecha en la celda (que no es un texto que parece fecha), quizá al venir de una fórmula anterior esté perdiendo esa propiedad...<br />La señal que no es problema de la programación es que cuando la escribes manualmente sí la reconoce.<br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-51711908785917522682015-10-08T16:28:36.296+02:002015-10-08T16:28:36.296+02:00Hola,
Gracias por la respuesta. En la celda AB12 t...Hola,<br />Gracias por la respuesta. En la celda AB12 tengo una fórmula que es un SI anidado, por lo que esa solución no me sirve.<br />Un saludoAnonymoushttps://www.blogger.com/profile/09344955057295817596noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-91363079375159107382015-10-07T20:11:57.017+02:002015-10-07T20:11:57.017+02:00Hola...
toma la variable directamente desde AB12 y...Hola...<br />toma la variable directamente desde AB12 y no de CU3<br />;-)<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-16864733975312548232015-10-06T01:44:53.461+02:002015-10-06T01:44:53.461+02:00Hola otra vez,
He comprobado una cosa:
En la celd...Hola otra vez,<br />He comprobado una cosa: <br />En la celda CU2 no tengo escrita la fecha, sino que tengo escrito =AB12 Esto es porque la fecha desde es variable. En este caso es cuando me salta el error.<br />Para que no sea así, tengo que escribir la fecha manualmente.<br />¿Cómo puedo resolverlo?<br /><br />Un saludoAnonymoushttps://www.blogger.com/profile/09344955057295817596noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-991606430709791982015-10-06T01:06:56.825+02:002015-10-06T01:06:56.825+02:00Hola Ismael,
Muchas gracias por tu respuesta.
Apli...Hola Ismael,<br />Muchas gracias por tu respuesta.<br />Apliqué el cambio que me propones, y la primera vez que ejecuté la macro me funcionó, pero al cambiar de fecha, me salta un error "13" en tiempo de ejecución: no coinciden los tipos.<br /><br />Te agradezco la ayuda.<br /><br />Un saludoAnonymoushttps://www.blogger.com/profile/09344955057295817596noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-73673304284023802332015-10-03T11:18:26.290+02:002015-10-03T11:18:26.290+02:00Hola Diego,
trabajar con fechas es siempre complic...Hola Diego,<br />trabajar con fechas es siempre complicado y tedioso... <br />Prueba cambiando esta parte<br />FechaDesde = CDate(Range("CU2").Value)<br />FechaHasta = CDate(Range("CU3").Value)<br />por esta<br />FechaDesde = CLng(Range("CU2").Value)<br />FechaHasta = CLng(Range("CU3").Value)<br /><br />quizá así sí te funcione...<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-41244437216672548212015-10-03T00:38:54.472+02:002015-10-03T00:38:54.472+02:00Buenas tardes.
En primer lugar enhorabuena por el...Buenas tardes.<br /><br />En primer lugar enhorabuena por el blog.<br />He intentado poner en práctica esta macro, pero me copia toda la tabla, no me aplica el filtro de las fechas.<br />No se que estoy haciendo mal, por lo que agradezco tu ayuda.<br />A continuación te indico lo que pongo exactamente: <br /><br />Sub RangoFecha()<br /><br /><br />Dim FechaDesde As Long, FechaHasta As Long<br /><br />FechaDesde = CDate(Range("CU2").Value)<br />FechaHasta = CDate(Range("CU3").Value)<br /><br /><br />ActiveSheet.ListObjects("Tabla13").Range.AutoFilter _<br /> Field:=1, Criteria1:=">=" & FechaDesde, Operator:=xlAnd, Criteria2:="<=" & FechaHasta<br /><br /><br />Dim rng As Range<br /><br /><br /><br />With ActiveSheet.ListObjects("Tabla13").DataBodyRange<br /><br /><br /> On Error Resume Next<br /> Set rng = .Resize(.Rows.Count, .Columns.Count).SpecialCells(xlCellTypeVisible)<br /> On Error GoTo 0<br />End With<br /> <br /> <br />If rng Is Nothing Then<br /><br /> MsgBox "Sin datos a copiar"<br />Else<br /><br /> MsgBox rng.Address<br /> rng.Copy Destination:=Range("CZ4")<br /> Application.CutCopyMode = False<br />End If<br /><br /><br />ActiveSheet.ListObjects("Tabla13").Range.AutoFilter Field:=1<br /><br />End Sub<br /><br /><br />Un saludoAnonymoushttps://www.blogger.com/profile/09344955057295817596noreply@blogger.com