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. 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,
  5. Hola de nuevo puedes usarlo igual With Worksheets("Referencias").Range("A:C") .AutoFilter .AutoFilter 2, "Code61", xlOr, "Code43" End With
  6. Hola, pero ¿ dónde están los datos que quieres filtrar?, ¿y la macro asignada al botón de filtrar,?
  7. Hola, Debes de montar un fichero Excel con los datos y explicar que quieres que se automatice con las macros
  8. 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
  9. 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?
  10. Hola Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False
  11. Hola, usando Tabla dinámica lo tienes sencillo. Ejemplo Transponer datos.xlsx
  12. Hola, si no adjuntas los ficheros es difícil ayudarte.
  13. 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
  14. 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
  15. Te has adelantado, funciona que es lo importante salvo que jhon diga lo contrario
  16. Hola, Sube el fichero con los números para verificar que funciona
  17. Hola, Pulsa la flecha... En el código puedes cambiar el numero de Filas y Columnas del rango Medicos.xlsm
  18. 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
  19. 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
  20. hola, cambia esta linea en la macro If UCase(PI.Name) LIKE "%" & Numero & "%" Then por, If UCase(PI.Name) = Numero then
  21. 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
  22. 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