Jump to content

Luis Caballero

Members
  • Content Count

    98
  • Joined

  • Last visited

  • Days Won

    4

Everything posted by Luis Caballero

  1. Hola, si subes el archivo que tienes si te podremos ayudar, en caso contrario es dificil
  2. Hola, en realidad yo no usaba los valores de x, y sino la interpolación, no entiendo porque usas M5, en el fichero que adjuntas está vacio.
  3. Hola, adjunto archivo, creo haber entendido bien tu consulta. Para Interpolar .xlsx
  4. Usa Formato Condicional, o sube el fichero con los datos ..
  5. Hola, con cualquiera de los dos métodos, puedes hacer varios filtros usando el operador en la misma columna, y también puedes filtrar desde distintas columnas de la tabla. Saludos,
  6. Hola de nuevo puedes usarlo igual With Worksheets("Referencias").Range("A:C") .AutoFilter .AutoFilter 2, "Code61", xlOr, "Code43" End With
  7. Hola, pero ¿ dónde están los datos que quieres filtrar?, ¿y la macro asignada al botón de filtrar,?
  8. Hola, Debes de montar un fichero Excel con los datos y explicar que quieres que se automatice con las macros
  9. Hola, aplicando Filtros Automáticos Ejemplo_With.xlsm
  10. Hola, Con esta formulación funciona siempre y cuando estén siempre todos los datos, como puedes ver si falla alguno de ellos se produce un error. prueba (1).xlsx
  11. Hola, no entiendo bien, estoy viendo la hoja "nota pedido" y parece que trae los datos correctos del mes de Octubre. ¿dónde esta el error?
  12. Hola Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False
  13. Hola, usando Tabla dinámica lo tienes sencillo. Ejemplo Transponer datos.xlsx
  14. Hola, Puedes usar validación de Datos como en la forma de pago, cogiendo el nombre del producto de la hoja Catalogo BD - copia.xlsx
  15. Hola, como dice Haplox adivinos no somos pero intenta adaptarlo Sub Copiatodaslashojas() Dim hoja As Worksheet librodestino="Listado_de_Fondos" For Each hoja In Worksheets Sheets(hoja.Name).Copy After:=Workbooks(librodestino).Sheets(1) Next hoja End Sub
  16. Te has adelantado, funciona que es lo importante salvo que jhon diga lo contrario
  17. Hola, Sube el fichero con los números para verificar que funciona
  18. Hola, Pulsa la flecha... En el código puedes cambiar el numero de Filas y Columnas del rango Medicos.xlsm
  19. Hola, puedes ponerle que a partir de una fecha determinada no haga nada if now() > '2020/10'/25' Then exit sub else ' Tu macro end if
  20. Hola, si ejecutas la macro con el libro abierto Curdir(), te devuelve la ruta al directorio actual completo Fichero = ThisWorkbook.Name Ruta = CurDir() Completo = Ruta & "\" & Fichero
  21. hola, cambia esta linea en la macro If UCase(PI.Name) LIKE "%" & Numero & "%" Then por, If UCase(PI.Name) = Numero then
  22. Hola, en realidad puedes quitar esa linea, puesto que la ,macro ya se ejecuta en el excel. También puedes sustituir por : Dim fic As String fic = ThisWorkbook.Name Workbooks(fic).Activate
  23. Hola, a mi de hecho en cuanto escribo "ig" , ya me lo recoge la tabla, comprueba el fichero que has puesto en el foro.
×
×
  • Create New...

Important Information

Privacy Policy