Saltar al contenido

DiegoLG

Miembros
  • Contador de contenido

    731
  • Unido

  • Última visita

  • Days Won

    6

5Seguidores

Sobre DiegoLG

  • Rango
    DLG

Formas de contacto

Información de perfil

  • Sexo Hombre
  • Localización: México

Configuraciones

  • Campo que utilizas como separador de argumentos ,

Visitantes recientes del perfil

1748 visitas de perfil
  1. DiegoLG

    Quiero sus puntos de vista.

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

    Quiero sus puntos de vista.

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

    Ayuda con macro para cambiar duplicados

    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
  4. DiegoLG

    Quiero sus puntos de vista.

    Tiene toda la razón maestro @Antoni, pero ni modos decirle NO al cliente :) Como siempre, Mis respetos..
  5. 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
  6. 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,
  7. DiegoLG

    Quiero sus puntos de vista.

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

    Quiero sus puntos de vista.

    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,
  9. 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,
  10. DiegoLG

    COPIAR CELDAS SEGUN CONDICION ESTABLECIDA

    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
  11. DiegoLG

    Buscar valor y resaltar el valor encontrado

    Sin archivo no se puede hacer milagros. Saludos,
  12. DiegoLG

    Buscar valor y resaltar el valor encontrado

    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,
  13. DiegoLG

    Buscar valor y resaltar el valor encontrado

    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
  14. DiegoLG

    Buscar valor y resaltar el valor encontrado

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

    Buscar valor y resaltar el valor encontrado

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

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.