Dante Amor

Aquí un par de ejemplos donde mi respuesta fue la correcta, y tú recibiste valoración sin aportar: Macro para incrementar numero y guardar como PDF Como Sumar Fechas más Días en Userform Y existen más ejemplos como los anteriores. En esos casos no...

Te anexo la macro para copiar los datos: Sub CopiarDatos() Dim sh1 As Worksheet, sh2 As Worksheet Dim f As Range Dim i As Long Dim cont As String ' Set sh1 = Sheets("FORMATO") Set sh2 = Sheets("RESUMEN") cont = sh1.Range("D21").Value If cont = ""...

Señora, siempre la he tratado con todo respeto, pero ya me cansaron sus groserías y sus constantes comentarios irrespetuosos hacia mi persona. Yo no soy el que andaba presumiendo su posición en este foro, por si ya se le olvidó, aquí se lo recuerdo:...

Utiliza la siguiente fórmula =SUMAPRODUCTO((Hoja2!H2:BG20)*(Hoja2!H1:BG1>=Hoja1!A4)*(Hoja2!H1:BG1<=Hoja1!B4)*((Hoja2!BH2:BH20=Hoja1!AA5)+(Hoja2!BH2:BH20=Hoja1!AA6))) Si la fórmula va en la misma Hoja1, entonces puede ser así:...

Para saber qué estás copiando y en dónde pegas, necesito hacer pruebas. Te ayudo a simplificar la macro y a resolver el problema que tienes, pero necesito hacer pruebas con tu archivo. Sube tu archivo en google drive, comparte el archivo para...

Dame oportunidad de revisar el archivo y regreso aquí con la respuesta.

Puedes utilizar las áreas de un rango para pasar todo el rango de celdas, en lugar de hacerlo por celda. Si en lugar de copiar y pegar, pasas los valores, el proceso será más rápido. Revisa esta opción: Sub MetodoAbrirLibro_2() Dim wbOr As Workbook,...

Efectivamente pueden existir varios factores por los cuales un sistema puede fallar. Desde luego las instituciones procuran mantener sus sistemas siempre activos para brindar el mejor servicio, de lo contrario, la consecuencia puede ser perder...

Prueba lo siguiente: Calcula la siguiente fila disponible de la columna A Sub CopiaTabla() Dim i As Worksheet Dim r As Worksheet Dim pt As PivotTable Dim rng As Range Dim lr As Long ' Set i = Worksheets("Ordenar") Set r = Worksheets("Formato...

Prueba así: =D22 * E19 - SI(D19<0,D19*-1,D19) * E22