-
Content Count
800 -
Joined
-
Last visited
-
Days Won
8
Content Type
Profiles
Forums
Downloads
Everything posted by DiegoLG
-
Copiar y pegar datos de origen en una macro
DiegoLG replied to Benito Bartolomé's topic in Macros y programación VBA
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. -
Copiar y pegar datos de origen en una macro
DiegoLG replied to Benito Bartolomé's topic in Macros y programación VBA
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. -
NECESITO AYUDA CUANDO REGISTRO LOS DATOS SE CIERRA EL LIBRO
DiegoLG replied to jeaa's topic in Macros y programación VBA
@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.
-
ANSWERED DUDA SOBRE CUSTOM UI EDITOR PARA EXCEL 2019
DiegoLG replied to paikerr's topic in Excel General
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, -
COMBINAR CELDAS SEGÚN EL VALOR ASIGNADO
DiegoLG replied to ofol's topic in Macros y programación VBA
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 -
ANSWERED Sumar con criterio de bimestre y quincenas
DiegoLG replied to DiegoLG's topic in Excel General
Muchas gracias amigo, ya probé tu fórmula y funciona perfectamente, gracias a todos por el tiempo que me brindaron. Saludos, Tema solucionado. -
ANSWERED Sumar con criterio de bimestre y quincenas
DiegoLG replied to DiegoLG's topic in Excel General
Tienes razón silvia. gracias por la observación... 🙂 -
ANSWERED Sumar con criterio de bimestre y quincenas
DiegoLG replied to DiegoLG's topic in Excel General
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. -
ANSWERED Sumar con criterio de bimestre y quincenas
DiegoLG replied to DiegoLG's topic in Excel General
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
-
Utiliza formato condicional. Saludos, Diego.
-
ANSWERED Copiar datos de una hoja a otra si el valor es mayor a 0
DiegoLG replied to Jose BN's topic in Macros y programación VBA
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 -
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