Jump to content

DiegoLG

Members
  • Content Count

    790
  • Joined

  • Last visited

  • Days Won

    8

DiegoLG last won the day on June 15 2019

DiegoLG had the most liked content!

3 Followers

About DiegoLG

  • Rank
    DLG
  • Birthday 08/31/1990

Contact Methods

  • Website URL
    https://es-la.facebook.com/solucionesmsexcelvba/
  • Skype
    solucionesmsexcelvba@gmail.com

Profile information

  • Gender
    Hombre
  • Localización:
    México

Converted

  • Campos
    ,
  • Mi versión de Excel:
    2

Recent Profile Visitors

2,977 profile views
  1. Apenas empece a utilizar el UI Editor, la verdad no es muy complicado. lo trabaje en office 2013 y 2019, y no he tenido ningún problema. Saludos,
  2. Estimad@ @ofol Lo que no se si la columna K:L debe de cumplir exactamente las dos columnas. valida con este código: Sub combinar() For i = 8 To Hoja2.Cells(Rows.Count, "C").End(xlUp).Row If Hoja2.Cells(i, 3) = Hoja2.Range("K13") Or Hoja2.Cells(i, 3) = Hoja2.Range("L13") Then Hoja2.Range(Cells(i, 4), Cells(i, 7)).Merge If Hoja2.Cells(i, 3) = Hoja2.Range("K14") Or Hoja2.Cells(i, 3) = Hoja2.Range("L14") Then Hoja2.Range(Cells(i, 4), Cells(i, 7)).Merge If Hoja2.Cells(i, 3) = Hoja2.Range("K15") Or Hoja2.Cells(i, 3) = Hoja2.Range("L15") Then Hoja2.Range(Cells(i, 4), Cells(i, 7)).Merge
  3. Muchas gracias amigo, ya probé tu fórmula y funciona perfectamente, gracias a todos por el tiempo que me brindaron. Saludos, Tema solucionado.
  4. Tienes razón silvia. gracias por la observación... 🙂
  5. Ahora siii, ya valide el archivos, ambas respuestas es correcta, Me funcionó al 100 % agradezco el apoyo @Luis Caballero y @Silvia , la verdad, de plano me bloquee y no hallaba una forma hacer.. muchas gracias, Doy por tema solucionado. Saludos.
  6. Muchas gracias por la respuesta, una disculpa, desde el sábado no he podido checar el mensaje, mas tarde valido, y les cuento, Saludos y excelente día.
  7. Hola amigos, Estoy intentando realizar una suma de un grupo de datos, sin embargo, no logro lo que yo quiero, Tengo una columna de fechas en donde necesito partir en quincenal un MES y luego identificar que bimestre corresponde. Adjunto un ejemplo como necesito la información, Quedo en espera de sus comentarios. Saludos, Libro1.xlsx
  8. Con una tabla dinámica solucionas tu reporte. Checa el archivo, Saludos, Copia de Agrupar registros.xlsx
  9. Checa el archivo, =SUMAR.SI.CONJUNTO(F3:Q3,$F$2:$Q$2,"<="&$C$1)+SUMAR.SI.CONJUNTO(S3:AD3,$S$2:$AD$2,"<="&$C$1)+SUMAR.SI.CONJUNTO(AF3:AQ3,$AF$2:$AQ$2,"<="&$C$1) Saludos, Diego. Copia de Prueba.xlsx
  10. No analizaste lo que hace el código verdad? Solo es cambiar la columna: Hoja3.Activate Range([H1], [H1].End(xlDown)).AdvancedFilter xlFilterCopy, , [J1], True: TextBox1 = WorksheetFunction.Subtotal(103, Columns("J")) - 1: Columns("J").Clear Hoja1.Activate Checa nuevamente el archivo, Saludos, Diego. Copia de PRUEBA pRUEBA.xlsm
  11. De este código: Reemplaza con este: Hoja3.Activate Range([a1], [a1].End(xlDown)).AdvancedFilter xlFilterCopy, , [J1], True: TextBox1 = WorksheetFunction.Subtotal(103, Columns("J")) - 1: Columns("J").Clear Hoja1.Activate Saludos, Diego... Copia de PRUEBA pRUEBA.xlsm
  12. Utiliza formato condicional. Saludos, Diego.
  13. Checa el archivo: Sub Copia() Application.ScreenUpdating = False Dim Uf As String Dim Ul As Long Ul = Hoja2.Range("G" & Rows.Count).End(xlUp).Row + 2 Uf = Hoja1.Range("G" & Rows.Count).End(xlUp).Row Hoja1.Range("A2:N" & Uf).AutoFilter Field:=7, Criteria1:=">0" Hoja1.Range("A3:N10000").SpecialCells(xlCellTypeVisible).Copy Destination:=Hoja2.Cells(Ul, 1) Hoja1.Range("A3:N" & Uf).EntireRow.Delete Hoja1.Range("A2:N" & Uf).AutoFilter Application.ScreenUpdating = True End Sub Copia de Consulta copiado.xlsm
  14. Ya no necesito la ayuda, ya logré realizar.. Doy por tema solucionado. Saludos. Diego
×
×
  • Create New...

Important Information

Privacy Policy