DiegoLG

Por su puesto que si los invito :) Gracias @Silvia Saludos,

Muchas gracias @Gerson Pineda seguiremos aprendiendo. Saludos...

Estimado @Pablo Santos, sinceramente no tuve tiempo de entender tu fórmula, por lo que entendí es prácticamente traducir en VBA. Perfecto, lo único que hice es con la ayuda de la grabadora y agregarle un poquito de arreglo para que funcione: Sub MACRO_() Application.ScreenUpdating = False uf = Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To uf Cells(i, 4) = "=IF(COUNTIF(R2C[-3]:RC[-3],RC[-3])=1,RC[-3],IF(COUNTIF(R2C[-3]:RC[-3],RC[-3])=2,IF(AND(VALUE(RIGHT(RC[-3],1)&LEFT(RC[-3],1))<=80,RIGHT(RC[-3],1)<>LEFT(RC[-3],1)),VALUE(RIGHT(RC[-3],1)&LEFT(RC[-3],1)),IF(AND(VALUE(RIGHT(RC[-3],1)*LEFT(RC[-3],1))<>0,RIGHT(RC[-3],1)<>LEFT(RC[-3],1)),VALUE(RIGHT(RC[-3],1)*LEFT(RC[-3],1)),VALUE(RIGHT(RC[-3],1)+LEFT(RC[-3],1)))),IF(COUNTI" & _ "F(R2C[-3]:RC[-3],RC[-3])=3,VALUE(RIGHT(RC[-3],1)+LEFT(RC[-3],1)),ABS(VALUE(RIGHT(RC[-3],1)-LEFT(RC[-3],1))))))" & _ "" Cells(i, 4) = Cells(i, 4) Next End Sub Espero haberte ayudado, Saludos, Copia de PROYECTO PARA DUPLICADOS.xlsm

Tiene toda la razón maestro @Antoni, pero ni modos decirle NO al cliente :) Como siempre, Mis respetos..

Checa el Archivo, y me comentas. Sub ELIMINA_() Application.ScreenUpdating = False Columns("L:L").Insert Ultimafila = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To Ultimafila Cells(i, 12) = Cells(i, 10) & Cells(i, 11) Next Range("L9").Select Do While Not IsEmpty(ActiveCell) x = WorksheetFunction.CountIf(Range("L:L"), ActiveCell) If x > 1 Then ActiveCell.EntireRow.Delete Else ActiveCell.Offset(12, 0).Select End If Loop Columns("L:L").Delete End Sub Saludos, ARCHIVO1.xlsm

Pega al final de tu proceso, se que hay varias formas pero es lo que se me ocurre ahorita. Duracion = Format(Duracion, "00:00") Nota: No realice ninguna prueba. Saludos,

Hay que tocar todas las puertas hasta encontrar el trabajo ideal, así que animo. Saludos,

Gracias amigo @Leopoldo Blancas, tienes toda la razón, hay cosas que a la fuerza amerita programar en otros lenguajes. Estoy de acuerdo contigo, la felicidad, mi idea y el aporte nadie me lo va quitar jamas Año sabático? cuando sea grande tomaré mi año sabático Mis respetos hermano, Saludos,

Estimados amigos: Un gusto saludarlos nuevamente en este foro. Les quiero compartir algo: hace como 4 años aproximadamente realice un proyecto y lo bautice como Control de Auditorías, es un programa hecha completamente en excel, actualmente la empresa maneja ese programa y gracias a ese proyecto me ayudo tanto en lo personal como en vida profesional. El proyecto realizado, también es gracias a ciertas personas expertos en VBA en este foro que ellos me dieron la idea o me apoyaron en ciertos códigos donde me dificultaba seguir con el proceso. Hoy 10/10/2018 este proyecto lo van a retomar para migrar en un sistema podríamos decir "NORMAL", es por eso que me gustaría saber ¿que opinan ustedes? Abro una botella de champagne para festejar que el proyecto realizado se va implementar? o por lo menos decir que en la empresa aporte una idea positiva? O entristecerme porque ya no se va utilizar mi programa? Muchas gracias y saludos,

Estimado @MIGUEL2594 Se me ocurre algo así: Sub PorCondicion() Application.ScreenUpdating = False For D = 3 To Range("A" & Rows.Count).End(xlUp).Row If Cells(D, "A") = Range("C2") Then UF = Hoja1.Cells(Rows.Count, "E").End(xlUp).Row Range("B" & D).Copy Hoja1.Cells(UF + 1, "E").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End If Next End Sub Copia de COPIAR CELDAS SEGUN CONDICION (1).xlsm

Sin archivo no se puede hacer milagros. Saludos,

Creo que es mejor que busques la manera de adjuntar tu archivo. No creo que tenga algo que ver con las líneas que te pase, ya que solamente es para desproteger y proteger hojas. Saludos,

Por eso es importante pegar este código al principio: Ejemplo en la hoja1 quiero desproteger y pego esta línea al principio: Hoja1.Unprotect "TU CONTRASEÑA" y despues si quieres que la hoja quede protegida de nuevo pega lo siguiente al final de tu código: Hoja1.protect "TU CONTRASEÑA" Intentalo de nuevo y me comentas. Saludos

En si en que linea te marca el error, Lo puedes verificar con F8

No se puede descargar tu archivo estimado @SALAVERRINO talvez tu archivo lo estas subiendo como solo lectura. Saludos,