DiegoLG

Esa columna de serie, se mantiene en la misma columna? Por que no subes un archivo donde tenga esa columna y pega de forma manual como necesitas la información en la hoja W. Y si te puedo ayudar, con gusto vale; y si no, pues habrá alguien mas. Saludos amigo.

Revisando tu archivo, y haciendo comparación de las dos hojas, trae los mismos encabezados, no veo en que columna se encuentra lo que comentas (SERIE) ¿?. Pero te propongo algo, y si creas una hoja temporal, eliminas la columna que no te sirve y posteriormente pasar a la hoja W. Saludos cordiales, Diego.

@jeaa con F8, puedes identificar el error. Saludos,

Estimado! @96andres96, hay que manejar un poco la lógica: Si te diste cuenta, el nombre de cada hoja te concentra en la primera hoja columna A, Lo que yo haría, es: al momento de visualizar el nombre de cada hoja, primero elimino que hojas no necesito, y considero que con eso, queda. la verdad de tanto leer texto, me dio flojera jeje.. y si no es lo que necesitas, mejor has un ejemplo en donde obtienes la información y como debe de quedar, Saludos, Diego.

Estimado @96andres96, en resumen, lo que quieres es tener un menú donde te vaya mostrando las nuevas hojas: algo así se me ocurre: Private Sub ComboBox1_Change() Sheets(ComboBox1.Text).Select End Sub Private Sub UserForm_Initialize() fil = 1 For s = 1 To Sheets.Count If Sheets(s).Name <> "Menu" Then Hoja1.Range("A" & fil) = Sheets(s).Name fil = fil + 1 End If Next uf = Hoja1.Range("A" & Rows.Count).End(xlUp).Row For i = 1 To uf ComboBox1.AddItem Hoja1.Range("A" & i) Next Columns(1).Clear End Sub te adjunto el ejemplo y adaptalo en tu proye

Checa el archivo Saludos, Copia de PonerContraseñaBoton.xlsm

Estimados, gracias por la ayuda, ya solucioné mi proyecto , Saludos,

@Luis Antonio Torres Muchas gracias por el apoyo amigo, revisando y realizando pruebas, si tengo mas de 1 xml, solo me esta leyendo 1 xml y los otros xml no lo esta leyendo, En espera de tus comentarios. Saludos Amigo.

Buenos días amigos, un gusto saludarlos de nuevo, Espero alguien me puede dar una idea de como puedo realizar este pequeño proyecto! Tengo un libro donde lee un archivo xml. Dentro del archivo xml trae complemento, como a continuación se muestra: Esta información ya lee el código, sin embargo, solo he logrado dejar esta información en una sola celda, pero lo que necesito es dejar en diferentes celdas cada IdDocumento. Cabe mencionar que en cada .xml esta información es variable. Adjunto archivo de ejemplo y unos xml por si necesitan realizar pruebas.

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,

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

Muchas gracias amigo, ya probé tu fórmula y funciona perfectamente, gracias a todos por el tiempo que me brindaron. Saludos, Tema solucionado.

Tienes razón silvia. gracias por la observación... 🙂

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.

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.

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

Con una tabla dinámica solucionas tu reporte. Checa el archivo, Saludos, Copia de Agrupar registros.xlsx

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

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

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

Utiliza formato condicional. Saludos, Diego.

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

Ya no necesito la ayuda, ya logré realizar.. Doy por tema solucionado. Saludos. Diego

Ya no

Buena tarde a todos, sigo con este pendiente, ahorita agregue estos códigos: Para cargar los datos: Private Sub CommandButton1_Click(): On Error GoTo Único ListBox1.MultiSelect = fmMultiSelectMulti Dim celda As Range For Each celda In Hoja1.Range("G2", Hoja1.Range("G" & Rows.Count).End(xlUp)) ListBox1.Text = celda.Value Next celda Exit Sub Único: ListBox1.AddItem celda.Value Resume Next End Sub Para filtrar: Private Sub CommandButton2_Click() Dim lItem As Long Dim I As Integer I = 0 For lItem = 0 To ListBox1.ListCount If ListBox1.Selected(lItem) = True Then Hoja1.Range