Jump to content

isidrod

Members
  • Content Count

    254
  • Joined

  • Last visited

  • Days Won

    4

Reputation Activity

  1. Like
    isidrod reacted to Silvia in BUSQUEDA Y EXTRACCION CON 02 CRITERIOS   
    Hola a todos.
    Para que Gerson no se sienta mal, lo acompaño con otra y dos auxiliares.. ..
    (lo hice sobre la hoja del  PGJohn.. 
     
     
    ASIGNACION RECURSOS SQ.xlsx
  2. Thanks
    isidrod got a reaction from Alex_edm in Maxro para generar txt con campos separados por pipes |   
    @Alex_edm te dejo este a ver si te funciona
    https://excelsignum.com/2016/02/15/importar-archivos-txt-delimitados-por-caracteres/comment-page-1/
    https://excelsignum.com/2016/06/10/exportar-archivos-txt-delimitados-por-caracteres-desde-excel/
  3. Thanks
    isidrod got a reaction from Alex_edm in Maxro para generar txt con campos separados por pipes |   
    Sub Pasar_TXT() Application.ScreenUpdating = False Dim ruta As String Dim Directorio As FileDialog Dim nombre As String Dim NombreHoja As String NombreHoja = ActiveSheet.Name Set Directorio = Application.FileDialog(msoFileDialogFolderPicker) With Directorio .AllowMultiSelect = False .InitialFileName = ThisWorkbook.Path .Title = "Seleccione la Carpeta para Guardar el TXT" If .Show = 0 Then Exit Sub ruta = .SelectedItems(1) End With nombre = InputBox("Indique el nombre del archivo") If nombre = "" Then MsgBox "No has indicado el nombre del archivo, el proceso terminará" Exit Sub End If Open ruta & "\" & nombre & ".txt" For Output As #1 Worksheets(NombreHoja).Activate Range("A1").Select Do While ActiveCell.Offset(0, 1).Value <> "" Ubica = ActiveCell.Address Do While ActiveCell.Column < 19 If ActiveCell.Value <> "" Then Lista = Lista & "|" & ActiveCell.Value End If ActiveCell.Offset(0, 1).Select Loop Lista = Mid(Lista, 2, Len(Lista) - 1) Print #1, Lista Lista = "" Range(Ubica).Offset(1, 0).Select Loop Close #1 MsgBox "Se ha creado el archivo txt con nombre " & nombre Application.ScreenUpdating = True End Sub y este código te dejo  espero que te funcione no tengo su link pero ahí te lo dejo
  4. Like
    isidrod got a reaction from Silvia in Sumar o restar si es mayor o menor   
    @Silvia buenos días, tienes mucha  paciencia es bueno contar con personas como tu y como mucho a qui que aportan en este foro.
    saludos isidro
  5. Like
    isidrod got a reaction from Silvia in Sumar o restar si es mayor o menor   
    @Silvia buenos días, tienes mucha  paciencia es bueno contar con personas como tu y como mucho a qui que aportan en este foro.
    saludos isidro
  6. Like
    isidrod reacted to Silvia in Sumar o restar si es mayor o menor   
    hola
    sprit36
    Revísalo bien, porque no creo que sea.. yo solo intenté seguir un camino (hice cualquier cosa..) solo para llegar al resultado que esperabas.
     
    Te explico que es lo que hace la formula,  Como tu hablabas del valor de la Columna A mayor que..
    entonces hice lo siguiente:
    celda C2:
    1. calcula el valor máximo entre el rango A2:B2
    2. el valor máximo es 10 y lo que hace es que si el valor máximo (10), coincide con A2  ó  B2), entonces que sume
    y pues, como coincide con 10, lo suma.
    Celda C3
    1. calcula el valor máximo entre el rango A2:B3
    2. el valor máximo sigue siendo 10 y lo que hace es que si el valor máximo coincide con A3 ó con B3, entonces que sume, en caso contrario, que lo reste.  
    Como puedes observar, 10 no coincide con A3 ni con B3, entonces como no se cumple la condición, lo RESTA.
    y así, la formula seguirá calculando el valor máximo de todo el rango si utilizas la fila 4, entonces  el rango será desde A2 hasta B4 y verificará el valor máximo y lo comparará con A4 y con B4 y si no coincide, pues restará.
     
    _______________________________
    Si no fuera lo anterior y si no puedes explicar, danos mas ejemplos, como para tratar de entender que cosa es lo que quieres hacer..
     a mi me parece que te ha faltado explicar : 

  7. Like
    isidrod got a reaction from Gerson Pineda in eliminar repetidos   
    con PQ es mas rápido quitando duplicado sin tanto código  @Manuel_Mendoza , @Gerson Pineda @Leopoldo Blancas, @jhon fredy rodriguez
    saludos isidro
  8. Like
    isidrod reacted to Gerson Pineda in eliminar repetidos   
    Se puede hacer desde Power Query y es muy eficiente
     
    Saludos 
  9. Thanks
    isidrod got a reaction from temp01 in Generar TDinámica con Macro   
    te dejo este tabla dinamica pasos
    otro link  @TREBUR 
     
  10. Like
    isidrod reacted to johnmpl in Separar registros que reunen diferentes criterios   
    ¡Hola, a ambos!
    Dejo esta otra opción:
    Sub InsertaFilas() Dim C As Range, Rng As Range For Each C In Range("A8", Range("A" & Rows.Count).End(xlUp)) If C.Offset(-1) <> C Then If Rng Is Nothing Then Set Rng = C Else Set Rng = Union(Rng, C) End If End If Next C Rng.EntireRow.Insert End Sub ¡Bendiciones!
  11. Like
    isidrod reacted to Héctor Miguel in Metodo para cuenta corriente   
    no descargué tu archivo de ejemplo pero (creo que) te será de utilidad analizar lo propuesto a esta consulta:
    Hipervinculos
    saludos,
    hector.
  12. Like
    isidrod reacted to johnmpl in Sumar sin considerar las columnas ocultas   
    ¡Hola, a todos!
    Hay algunas cosas por comentar.
    1. Se puede evitar el recálculo con F9, agrupando las celdas en vez de ocultarlas.  Entonces, se pueden usar celdas auxiliares para realizar el cálculo... o, también
    2. Se puede utilizar una "coerción" de la función CELDA para que funcione matricialmente.  De igual forma, se agrupa en vez de ocultar celdas para evitar el F9.
    Ej Suma Col Ocultas.xlsx
    ¡Bendiciones!
  13. Like
    isidrod reacted to Antoni in Albun de imagenes   
    Aquí os dejo el Visor de Imágenes.
    Cada hoja es un álbum, en cada álbum se admite cualquier número de imágenes.
    Las imágenes pueden estar en cualquier carpeta/subcarpeta, basta con poner la ruta completa.
    Al abrir el adjunto, pulsar sobre la imagen de la cámara en la hoja Inicio, se abrirá un formulario, seleccionar un ÁLBUM y pasar el mouse por encima de las mini-imagenes para agrandarlas.
    Ahora estoy con otro formulario para crear los álbumes.
    Visor de imágenes
  14. Like
    isidrod reacted to Antoni in Albun de imagenes   
    No cerreis el tema, estoy trabajando en un visor de imágenes.
    Ya avisaré.
  15. Like
    isidrod reacted to Haplox in Insertar Filas y copiar cabecera   
    Te deji una solucion. Prueba y comenta
     
    Insertar Fila.xlsm
  16. Thanks
    isidrod reacted to Antoni in Eliminar formas y objetos automáticamente   
    Sub EliminarObjetosDesdeFila() For Each Objeto In ActiveSheet.Shapes If Objeto.TopLeftCell.Row > 5 Then Objeto.Delete 'Elimina objetos despues de la fila 5 Next End Sub  
  17. Like
    isidrod reacted to Héctor Miguel in Eliminar formas y objetos automáticamente   
    primero: deja esa hoja como activa y abre el editor de vba (atajo de teclado: Alt + F11)
    op1:
    - muestra la ventana de inmediato (atajo: Ctrl + G)
    - copia/pega (o escribe) la instrucción y pulsa {enter}
    op2:
    - agrega un módulo de código estándar (insertar > módulo)
    - copia/pega (o escribe) lo siguiente:
    sub eliminaObjetos() activesheet.drawingobjects.delete end sub - regresa a excel
    - pulsa Alt + F8
    - selecciona la macro anterior y la ejecutas
    saludos,
    hector.
  18. Like
    isidrod reacted to Gerson Pineda in Eliminar formas y objetos automáticamente   
    Algo por aqui
    https://ayudaexcel.com/foro/topic/40004-eliminar-excesivo-uso-de-memoria/?tab=comments#comment-226156
    y aqui
    https://ayudaexcel.com/foro/topic/40157-deshabilitar-uso-en-exceso-de-memoria/?tab=comments#comment-227058
     
    Saludos 
  19. Like
    isidrod reacted to Antoni in Eliminar formas y objetos automáticamente   
    Tu  hoja NOMINA tiene 3.547 objetos, no te extrañe pues, si tarda un poquito en seleccionarlos.
    Sub CantidadObjetos() MsgBox ActiveSheet.Shapes.Count End Sub Sub EliminarObjetos() ActiveSheet.Shapes.SelectAll Selection.Delete End Sub  
    Pues parece que si tenía que ver, pero quien iba a imaginar que tuvieras tal cantidad de objetos incrustados.
    En cualquier caso, si hubieras subido el archivo al inicio, nos hubieramos ahorrado un montón de tiempo.
  20. Like
    isidrod got a reaction from Damian Garza in BuscarV en todas las hojas   
    tejo un link a ver si te sirve @DAMIAN este es
    saludos isidro
  21. Like
    isidrod got a reaction from Damian Garza in BuscarV en todas las hojas   
    tejo un link a ver si te sirve @DAMIAN este es
    saludos isidro
  22. Thanks
    isidrod got a reaction from Silvia in Buscar datos según el nombre   
    ahí esta el archivo CarlosKurt
    PRUEBAmacros.xlsm
  23. Haha
    isidrod got a reaction from Silvia in Buscar datos según el nombre   
    con macros reduce el tiempo, tu formula en macros
    With Range("I11:I" & Range("H65536").End(xlUp).Row) .FormulaR1C1 = "=VLOOKUP(RC[-1],R3C1:R7C4,MATCH(R9C9,R2C1:R2C4,0),0)" .Value = .Value End With esto es lo que me enseñaron aquí en este foro pero silvia es experta en formulas
  24. Thanks
    isidrod got a reaction from Silvia in Buscar datos según el nombre   
    ahí esta el archivo CarlosKurt
    PRUEBAmacros.xlsm
  25. Haha
    isidrod got a reaction from Silvia in Buscar datos según el nombre   
    con macros reduce el tiempo, tu formula en macros
    With Range("I11:I" & Range("H65536").End(xlUp).Row) .FormulaR1C1 = "=VLOOKUP(RC[-1],R3C1:R7C4,MATCH(R9C9,R2C1:R2C4,0),0)" .Value = .Value End With esto es lo que me enseñaron aquí en este foro pero silvia es experta en formulas
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png