Saltar al contenido

isidrod

Miembros
  • Contador de contenido

    47
  • Unido

  • Última visita

Sobre isidrod

  • Rango
    Miembro

Formas de contacto

  • Web https://www.ayudaexcel.com/foro/profile.php?do=editprofile
  1. optimizar tiempo de macros

    me copia el mismo importe ten todas las hojas
  2. optimizar tiempo de macros

    gerson lo hice así en cada rango de formula boy insertado este codigo boy modificando el rango Set vrc3 = vlh.Range("D:D"): vr3 = vrc3.Address(, , , 1): v3 = "$AF31" "$AF31" aquí boy modificando es correcto eso o hay otra manera gracias saludos gerson
  3. optimizar tiempo de macros

    en este linea de codigo comiensa de la la fila 26 y no de la 31 With .Range("F31:AC32") .Formula = "=ABS(SUMIFS( " & vrs & " , " & vr1 & " , " & v1 & " , " _ & vr2 & " , " & v2 & " , " & vr3 & " , " & v3 & " , " & vr4 & " , " & v4 & " ))" .Value = .Value en este gracias saludos gerson
  4. optimizar tiempo de macros

    gerson buen día gracias de antemano pro tu apoyo retomemos este tema que no logro entender c0mo realizar el recorrido gracias saludos que este bien y dios bendice tu camino
  5. ACTUALIZAR LISTA DE PRECIO

    ahí esta de nuevo perdón por no entender lo que escribiste ACTUALIZAR PRECIO.xlsm
  6. optimizar tiempo de macros

    gerson gracias por tu apoyo pero asta el miércoles 18 de octubre vuelvo a entra a este foro por que me voy de vacaciones y mil gracias por tu ayuda del día de hoy
  7. ACTUALIZAR LISTA DE PRECIO

    ahi esta espero que te sirva ACTUALIZAR PRECIO.xlsm
  8. optimizar tiempo de macros

    gerson un favor primero solucionar los criterio que lo que no me corre esto es que me esta costando trabajo en esta linea Set vrc3 = vlh.Range("D:D"): vr3 = vrc3.Address(, , , 1): v3 = "$AF26" o que o tro detalle es gerson gracias saludos
  9. optimizar tiempo de macros

    este criterio estos son criterio de la tablasap Set vrsum = vlh.Range("F:F") Set vrc1 = vlh.Range("G:G") Set vrc2 = vlh.Range("B:B") Set vrc3 = vlh.Range("D:D") Set vrc4 = vlh.Range("C:C") y estos criterio son de las hojas de resultado o multiples hoja v1 = "F$9" v2 = "F$8" v3 = "$AF26" v4 = "$A$8" mi duda es en este que no cambia la celda o que corra hacia bajo en la como normalmente se hace la formula v3 = "$AF26" no enteder pero supongo que es la direccion vr3 = vrc3.Address es como lo entendí al correr la macros sin value gracias gerson
  10. optimizar tiempo de macros

    disculpa mi ignorancia gerson dios bendice tu camino por ayudar a los que carecemos de este tipo de conocimiento en la programación por existir personas como tu o usted que hacen posible este foro encontremos solución a las macros
  11. optimizar tiempo de macros

    me salen mas dudas gerson lo pense mucho para subir este tipo de actividad que realizo lo tengo las formulas puesto pero decidí ponerlos en macros porque pesan menos el archivo For Each vch In Hoja1.Range("A2", Hoja1.Range("A2").End(xlDown)) este recorrido de las hojas como realizo para los modulo de formula y obra For Each vch In Hoja1.Range("A2", Hoja1.Range("A2").End(xlDown)) y en esta rango surge mi duda de como realizo la sumas de acuerdo a tu programacion With Range("F45:ac45") .FormulaR1C1 = _ "=SUMIFS([TABLASAP.xlsx]TABLASAP!C6,[TABLASAP.xlsx]TABLASAP!C7,R9C,[TABLASAP.xlsx]TABLASAP!C2,R8C,[TABLASAP.xlsx]TABLASAP!C4,RC32,[TABLASAP.xlsx]TABLASAP!C3,R8C1)+R[5]C+R[141]C+R[144]C+R[147]C+R[152]C+R[155]C+R[158]C" .Value = .Value End With saludos gracias gerson
  12. optimizar tiempo de macros

    gracias gerson por tu tiempo dedicado a nuestros de talles con las macros. pero las macros que realice las grabe las formulas como a a qui que me dijo vladimir el detalle esta aqui Set vrc3 = vlh.Range("D:D"): vr3 = vrc3.Address(, , , 1): v3 = "$AF26" ya lo busque pero no le hallo debe tomar de la misma fila que esta el rango de celda la formula para tomar el criterio de la cuenta que esta en la columna &AF26 gracias saludos
  13. optimizar tiempo de macros

    gracias gerson por tu ayuda pero hay una pregunta el modulo de formulas toma de las tres hojas y a la vez suma también dentro de esa celdas como realizo el cambio aqui Set vl = Workbooks("TABLASAP.xlsx"): Set vlh = vl.Sheets("TABLASAP") y no hace la suma esta linea que es la que tiene importe en la hoja ADMONSF01VER With .Range("F31:AC32") .Formula = "=ABS(SUMIFS( " & vrs & " , " & vr1 & " , " & v1 & " , " _ & vr2 & " , " & v2 & " , " & vr3 & " , " & v3 & " , " & vr4 & " , " & v4 & " ))" .Value = .Value y esta es la que yo tengo que hace la suma y que tiene importe With Range("F31:ac32") .FormulaR1C1 = "=SUMIFS([TABLASAP.xlsx]TABLASAP!C6,[TABLASAP.xlsx]TABLASAP!C7,R9C,[TABLASAP.xlsx]TABLASAP!C2,R8C,[TABLASAP.xlsx]TABLASAP!C4,RC32,[TABLASAP.xlsx]TABLASAP!C3,R8C1)*-1" .Value = .Value End With si bajado el tiempo de proceso .4688 seg en core i5 y solo las hojas de admon todavía no lo corro en todo el libro solo en el que usted realizo gracias saludos
  14. optimizar tiempo de macros

    a qui lo subi de nuevo gerson gracias por tu interes https://onedrive.live.com/?id=5AAEBD13773A2C23!130&cid=5AAEBD13773A2C23
  15. optimizar tiempo de macros

    bueno ahí lo subí gracias gerson saludos isidro https://onedrive.live.com/?id=root&cid=5AAEBD13773A2C23
×