Jump to content

DiegoLG

Members
  • Content Count

    800
  • Joined

  • Last visited

  • Days Won

    8

Reputation Activity

  1. Thanks
    DiegoLG got a reaction from Benito Bartolomé in Copiar y pegar datos de origen en una macro   
    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.
  2. Thanks
    DiegoLG got a reaction from Benito Bartolomé in Copiar y pegar datos de origen en una macro   
    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.
  3. Like
    DiegoLG got a reaction from jeaa in NECESITO AYUDA CUANDO REGISTRO LOS DATOS SE CIERRA EL LIBRO   
    @jeaa con F8, puedes identificar el error.
    Saludos,
  4. Thanks
    DiegoLG got a reaction from 96andres96 in Lista desplegable de hojas   
    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 proyecto,
     
    Saludos,
    Libro1.xlsm
  5. Like
    DiegoLG got a reaction from ramonvar in CONTRASEÑA AL EJECUTAR UN BOTON   
    Checa el archivo
     
    Saludos,
    Copia de PonerContraseñaBoton.xlsm
  6. Like
    DiegoLG got a reaction from ramonvar in CONTRASEÑA AL EJECUTAR UN BOTON   
    Checa el archivo
     
    Saludos,
    Copia de PonerContraseñaBoton.xlsm
  7. Like
    DiegoLG got a reaction from Silvia in DUDA SOBRE CUSTOM UI EDITOR PARA EXCEL 2019   
    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,
  8. Like
    DiegoLG reacted to Sergio in DUDA SOBRE CUSTOM UI EDITOR PARA EXCEL 2019   
    @diegolg, sobre la cinta de opciones existe documentación incluso cursos completos en Youtube. Yo estoy buscando (todavía sin éxito), referencias para modificar el backstage.
  9. Like
    DiegoLG got a reaction from Silvia in DUDA SOBRE CUSTOM UI EDITOR PARA EXCEL 2019   
    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,
  10. Like
    DiegoLG got a reaction from Silvia in Sumar con criterio de bimestre y quincenas   
    Muchas gracias amigo, ya probé tu fórmula y funciona perfectamente,
    gracias a todos por el tiempo que me brindaron.
    Saludos,
    Tema solucionado.
  11. Thanks
    DiegoLG reacted to John Jairo V in Sumar con criterio de bimestre y quincenas   
    ¡Hola a todos!
    Revisa el adjunto.  ¡Bendiciones!
    Libro1 (7).xlsx
  12. Like
    DiegoLG got a reaction from Silvia in Sumar con criterio de bimestre y quincenas   
    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.
  13. Thanks
    DiegoLG reacted to Silvia in Sumar con criterio de bimestre y quincenas   
    hola Diego (y Luis Caballero)
    adjunto otra posible solución
    Saludos,
    Silvia
     
    sq.xlsx
  14. Thanks
    DiegoLG reacted to Luis Caballero in Sumar con criterio de bimestre y quincenas   
    Hola, mira si esto te sirve
    Libro1.xlsx
  15. Like
    DiegoLG got a reaction from Excel_Táctico in Calculo Amortizacion   
    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
  16. Like
    DiegoLG got a reaction from Excel_Táctico in Calculo Amortizacion   
    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
  17. Like
    DiegoLG got a reaction from Excel_Táctico in Calculo Amortizacion   
    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
  18. Like
    DiegoLG got a reaction from Jose BN in Contar datos unicos de un listbox sin duplicados y dejarlo en un textbox   
    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
  19. ¡Excelente!
    DiegoLG got a reaction from Jose BN in Contar datos unicos de un listbox sin duplicados y dejarlo en un textbox   
    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
  20. Thanks
    DiegoLG got a reaction from Silvia in Color de la letra según valor   
    Utiliza formato condicional.
    Saludos,
     
    Diego.
  21. Like
    DiegoLG got a reaction from Jose BN in Copiar datos de una hoja a otra si el valor es mayor a 0   
    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
  22. Like
    DiegoLG got a reaction from Jose BN in Copiar datos de una hoja a otra si el valor es mayor a 0   
    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
  23. ¡Excelente!
    DiegoLG got a reaction from Visor in Filtrar informacion!!!   
    Te dejo otra propuesta,
    Sub FILTRAR() Application.ScreenUpdating = False Hoja1.Range("C1:C500").AutoFilter Field:=1, Criteria1:=Hoja2.Range("B2") Hoja2.Range("C1:F500").Clear: Hoja1.Range("C1:F500").Copy Destination:=Hoja2.Cells(1, 3) If Hoja2.Range("C2") = "" Then Hoja2.Range("C1:F500").Clear: MsgBox "DATO NO ENCONTRADO", vbCritical For Each Hoja In Sheets If Hoja.AutoFilterMode Then Hoja.AutoFilterMode = 0 Next End Sub Saludos Cordiales
    Copia de FILTRO.xlsm
  24. ¡Excelente!
    DiegoLG reacted to Antoni in copiar datos de cuadros de texto a una celda   
    Prueba esta macro:
    Sub TextboxCelda() Application.ScreenUpdating = False For Each obj In ActiveSheet.OLEObjects If obj.OLEType = xlOLEControl Then ActiveSheet.Shapes(obj.Name).TopLeftCell = obj.Object.Value obj.Delete End If Next End Sub  
  25. ¡Excelente!
    DiegoLG got a reaction from Marcos14 in Cambiar color de TextBox   
    Te paso un ejemplo,
    Espero haberte ayudado,
    y si no es lo que estas buscando, sería interesante que adjuntes tu archivo.
    Diego.
    Libro4.xlsm
×
×
  • Create New...

Important Information

Privacy Policy