Jump to content

Favic

Members
  • Content Count

    60
  • Joined

  • Last visited

About Favic

  • Rank
    Advanced Member
  • Birthday 05/08/1985

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Hola @johnmpl Otra vez Pues que te digo estaba super contento por que la tabla estaba super y no generaba error ni nada. Pero cuando fui a colocarla al archivo original por el tipo de formato me dice que no se puede adjunte el tipo de formato al archivo para que se vea. Estoy pasando del archivo original a la macro Moviendo todas la hojas de una vez. No se si se puede hacer algo o que me aconsejas .https://drive.google.com/file/d/0B3y8qj08UdAUQV9CZkZpdFEtSGs/view?usp=sharing
  2. MUCHAS GRACIAS @johnmpl Doy por solucionado este tema Eres muy gentil.
  3. @johnmpl Subo nuevamente con la corrección del código y con datos en las columnas subsiguientes para probar la modificación Filtro Varias Hojas y Consolida informacion en 1 Sola 2.0.xlsm
  4. Hola @johnmpl Coloco el nuevo código y no me trae los demás datos de las columnas siguientes. Subo el archivo para que veas que me sigue trayendo lo de la primera macro Gracias por su colaboracion Filtro Varias Hojas y Consolida informacion en 1 Sola 2.0.xlsm
  5. Hola @johnmpl Muchas gracias estuvo muy bueno tu apunte pero como recortaste el código no tengo forma de enviar los datos hasta la columna "AE" es que necesito que traiga todos los valores yo se que en este momento no tienen datos pero en el archivo original todos están llenos. Me podrías ayuda para llevar a cabo este resultado
  6. Me falto informar que si quiero consultar en Minúsculas y esta en Mayúsculas tampoco me trae la información Agradezco su ayuda
  7. Hola Amigos del Foro Necesito su ayuda he conseguido una Macro que se acopla a mis necesidades tengo un archivo con mas de 60 hojas todas tienen el mismo formato y necesito hacer una búsqueda para que me traiga el resultado de cada hoja hasta ahí todo iba bien es mas me trae el resultado si este esta en formato "Texto". Pero la mayoría de los filtros que necesito traer estan en formato Números Ejem: " Referencia 917" esos datos no me los trae y NO tengo idea por que. Adjunto archivo Cita Cita Sub Buscador() Dim sNoBuscar As String Dim wHoja As Worksheet Dim sCodEBS As String Dim nSubCoincide As Double Dim nTotCoincide As Double Dim wHojaResumen As Worksheet Dim firstAddress Dim c As Range Dim nFilaCopia As Double Dim sDescripcion As String Dim sReferencia As String Dim rRangoBusca As Range Dim sBusca As String Dim bValido As Boolean Set wHojaResumen = Worksheets("Busqueda") wHojaResumen.Select nFilaCopia = wHojaResumen.Range("B" & Rows.Count).End(xlUp).Row wHojaResumen.Range("A9:AE" & nFilaCopia + 9).ClearContents wHojaResumen.Range("A9:AE" & nFilaCopia + 9).Borders.LineStyle = xlNone sNoBuscar = "Busqueda;" sDescripcion = Trim(wHojaResumen.Range("B2").Value) sReferencia = Trim(wHojaResumen.Range("B3").Value) nFilaCopia = 9 For Each wHoja In ActiveWorkbook.Sheets nSubCoincide = 0 If InStr(1, sNoBuscar, wHoja.Name) = 0 Then If sDescripcion <> "" Then nSubCoincide = Application.WorksheetFunction.CountIf(wHoja.Range("C:C"), "*" & Trim(sDescripcion) & "*") Set rRangoBusca = wHoja.Range("C:C") sBusca = sDescripcion ElseIf sReferencia <> "" Then nSubCoincide = Application.WorksheetFunction.CountIf(wHoja.Range("D:D"), "*" & Trim(sReferencia) & "*") Set rRangoBusca = wHoja.Range("D:D") sBusca = sReferencia ElseIf sEditorial <> "" Then End If If nSubCoincide > 0 Then With rRangoBusca Set c = .Find("*" & sBusca & "*", LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then firstAddress = c.Address Do bValido = True If sDescripcion <> "" Then If InStr(1, Trim(wHoja.Range("C" & c.Row)), Trim(sDescripcion)) = 0 Then bValido = False End If End If If sReferencia <> "" And bValido = True Then If InStr(1, Trim(wHoja.Range("D" & c.Row)), Trim(sReferencia)) = 0 Then bValido = False End If End If If bValido = True Then wHojaResumen.Range("A" & nFilaCopia).Value = "'" & wHoja.Range("A" & c.Row) wHojaResumen.Range("B" & nFilaCopia).Value = wHoja.Range("B" & c.Row) wHojaResumen.Range("C" & nFilaCopia).Value = wHoja.Range("C" & c.Row) wHojaResumen.Range("D" & nFilaCopia).Value = wHoja.Range("D" & c.Row) wHojaResumen.Range("E" & nFilaCopia).Value = wHoja.Range("E" & c.Row) wHojaResumen.Range("F" & nFilaCopia).Value = wHoja.Range("F" & c.Row) wHojaResumen.Range("G" & nFilaCopia).Value = wHoja.Range("G" & c.Row) wHojaResumen.Range("H" & nFilaCopia).Value = wHoja.Range("H" & c.Row) wHojaResumen.Range("I" & nFilaCopia).Value = wHoja.Range("I" & c.Row) wHojaResumen.Range("J" & nFilaCopia).Value = wHoja.Range("J" & c.Row) wHojaResumen.Range("K" & nFilaCopia).Value = wHoja.Range("K" & c.Row) nFilaCopia = nFilaCopia + 1 End If Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With End If End If Next nFilaCopia = wHojaResumen.Range("B" & Rows.Count).End(xlUp).Row If nFilaCopia > 8 Then wHojaResumen.Range("A9:AE" & nFilaCopia).Borders.LineStyle = xlContinuous End If End Sub Filtro Varias Hojas y Consolida informacion en 1 Sola.xlsm
  8. Alguien sabe o tiene alguna sugerencia al respecto. Gracias
  9. Hola a todos Tengo esta macro que me funciona bien el cual me trae las fotos del articulo que coloco en la columna "E". El problema es que cuando quiero compartir a otras personas esta tabla me toca entrar a cada computador y cambiar la ubicación de la misma y siempre hay que cambiarla cada 15 dias a mas de 20 personas. Por lo que necesito su ayuda para esto. O sugerencias al respecto Poss es un ejemplo me toca trabajar con 7.000 fotografías y el cuadro pesa más o menos unas 70 MB. Gracias Private Sub Worksheet_SelectionChange(ByVal Target As Range): On Error Resume Next If Target.Column = 5 And Target.Row > 1 And Target.Rows.Count = 1 Then foto = Target.Value Image1.Picture = LoadPicture("D:\CATALOGO IMAGENES COMPRIMIDAS\CONSOLIDADO FOTOS\NoImagen.jpg") Image2.Picture = LoadPicture("D:\CATALOGO IMAGENES COMPRIMIDAS\CONSOLIDADO FOTOS\NoImagen.jpg") Image1.Picture = LoadPicture("D:\CATALOGO IMAGENES COMPRIMIDAS\CONSOLIDADO FOTOS\" & foto & "(2).jpg") Image2.Picture = LoadPicture("D:\CATALOGO IMAGENES COMPRIMIDAS\CONSOLIDADO FOTOS\" & foto & "(3).jpg") Image2.Picture = LoadPicture("D:\CATALOGO IMAGENES COMPRIMIDAS\CONSOLIDADO FOTOS\" & foto & "(1).jpg") Image2.Picture = LoadPicture("D:\CATALOGO IMAGENES COMPRIMIDAS\CONSOLIDADO FOTOS\" & foto & ".jpg") Image2.Picture = LoadPicture("D:\CATALOGO IMAGENES COMPRIMIDAS\CONSOLIDADO FOTOS\" & foto & ".(1).jpg") End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("E7")) Is Nothing Then Dim hoja As Worksheet Dim td As PivotTable 'Recorrer todas las hojas del libro For Each hoja In ThisWorkbook.Worksheets 'Recorrer las tablas dinámicas de la hoja For Each td In hoja.PivotTables 'En base al campo Region de la tabla dinámica: With td.PivotFields("REFERENCIA") 'Limpiar todos los filtros .ClearAllFilters 'Filtrar por el valor de la celda F1 On Error Resume Next .CurrentPage = Range("E7").Value End With Next td Next End If End Sub https://drive.google.com/file/d/0B-LBPwxh74BFRHc0WlpkRWI4ck0/view?usp=sharing
  10. Hola Johan Si ere tan amable dejame ver tu archivo para analizarlo. Gracias de antemano
  11. Me sirve para otros archivos pero este en especifico tiene mas de 17 Personas entonces hacer 1 a 1 las hojas no me es conveniente necesito una Macro que según la contraseña me filtre por usuario e impida ver a los demás el contenido restante
  12. Es una Tabla dinámica y que cada coordinador pueda ver solo su filtro alguien me pueda ayudar
  13. Hola amigos Agradezco anticipadamente a quien me pueda ayudar o asesorar en este tema. Tengo un archivo que me toca enviarlo 1 vez a la semana a unas 10 personas de sus ventas y de sus clientes o tiendas a cargo. Necesito enviar un solo archivo que cuando lo abran les toque colocar un usuario y contraseña y que eso permita que solo puedan ver sobre el filtro de la tabla dinamica. Opcion Coordinador. para cada uno de los coordinadores y no puedan ver lo de los demás coordinadores. Gracias Usuarios Contraseñas INFO.xlsx
  14. Bien el problema es cuando en la columna A el valor es mayor a 36.900. ¡¡¡¡
  15. Envio nuevamente Lo que quiero que me traiga es el valor que se encuentre mas cerca de la columna A. Subo nuevamente el archivo. Redondear a Valores Especificos.rar
×
×
  • Create New...

Important Information

Privacy Policy