Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation since 09/11/2021 in Posts

  1. Hola pinoji, Tambien estoy aprendiendo y la ayuda que te dí, creeme lo aprendi aqui si tus primeras dudas ya se solucionaron, seria bueno que lo des por concluido y solucionado, y abras otro tema con tus otras consultas. eso ayuda a que otro foristas encuentren soluciones a sus casos y tambien ayuda a que otro foristas expertos nos puedan ayudar a resolver lo que necesitemos.. estamos en contacto
    3 points
  2. generador de datos aleatorios
    2 points
  3. Sergio

    QUE PASO EN EL FORO

    El inconveniente está solucionado desde hace unos días. Disculpa la molestia.
    2 points
  4. Sub CopiarMúltiple() Application.ScreenUpdating = False Range("C3:I7").Copy For x = 12 To 4998 Step 9 Range("C" & x).PasteSpecial xlPasteAll Next Application.CutCopyMode = False End Sub
    1 point
  5. Sub Concatenar() Dim fn As Long uFila = Range("H" & Cells.Rows.Count).End(xlUp).Row pFila = 1 For fila = pFila + 1 To uFila fn = Range("I" & fila) Range("O" & fila) = Range("H" & fila) & fn Next fila End Sub
    1 point
  6. Range("B2:B" & ActiveSheet.UsedRange.Rows.Count) = "DIGITAL"
    1 point
  7. ENE FEB MAR ABR MAY JUN JUL AGO SEP OCT NOV ANTEPE… PENULT… ULTIMO 23 43 253 46 437 47 4 564 3 45 564 3 45 28 48 5 258 51 442 52 9 569 8 50 569 8 50 33 53 10 263 56 447 57 14 574 13 55 574 13 55 38 58 15 268 61 452 62 19 579 18 60 579 18 60 formulas de la fila 3 Antepenultimo DESREF($A$1,FILA(A3)-FILA(A$1),CONTARA($A$1:$K$1)-3) Penultimo DESREF($A$1,FILA(A3)-FILA(A$1),CONTARA($A$1:$K$1)-2) Ultimo DESREF($A$1,FILA(A3)-FILA(A$1),CONTARA($A$1:$K$1)-1)
    1 point
  8. Yo sigo investigando y contestándome solo Al final lo saco ya veras!!!!!!!!! Al parecer, es complicado el copiado y pegado de celdas con formato condicional, pero he encontrado un truco chapucero pero efectivo y consigo lo que necesito. He añadido el siguiente código y funciona!!!! Sub CompararCeldas() Sheets("Resultado").Select Rows("1:1").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("B2").Select Sheets("Resultado").Range("B2").AutoFilter Field:=2, Criteria1:=RGB(255, _ 199, 206), Operator:=xlFilterCellColor Range(Selection, Selection.End(xlDown)).Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 10066431 .TintAndShade = 0 .PatternTintAndShade = 0 End With ActiveSheet.ShowAllData Columns("B:B").Select Selection.Copy Range("C1").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.AutoFilter Rows("1:1").Select Selection.Delete Shift:=xlUp Columns("A:B").Select Selection.Delete Shift:=xlToLeft Range("D8").Select Columns("A:A").EntireColumn.AutoFit End Sub Si lo termino mañana lo subo aquí mismo funcionando por si le puede ser de utilidad a alguien. Un saludo.
    1 point
  9. Yo no me preocuparía demasiado, es que además, para media docena de notas.....
    1 point
  10. En cuanto al funcionamiento, las he probado y ambas funcionan con texto y números Si aun no lo notas, mis 2 métodos, son dinámicos, es decir no importa la cantidad de filas y columnas a procesar, para unir las celdas, además que ignora automáticamente cualquier celda vacía Respecto a la aplicación que utilizo para mostrar una demo, se llama Licecap La función UNIRCADENAS la pude ver disponible en 2016, pero creo que MS por alguna razón la eliminó, solo esta en 365 y 2019 como posterior Saludos!
    1 point
  11. Hola juanmanuel85 . Puedes usar una pequeña tabla, ejemplo: 1 7500 2 5000 4 3500 7 2500 12 1500 Y luego una fórmula: =BUSCAR(F20;rangodehoras;rango de valor de horas) Saludos.
    1 point
  12. Hola, trate de solucionarlo, espero que sea lo que necesitas pero no puedo subir archivos, ojala lo puedas descargar https://drive.google.com/file/d/1IJ0GDb5bRNRoFbMmWhYN9oYVaSVD3lqF/view?usp=sharing
    1 point
  13. Hola a ambos Adjunto 2 alternativas con VBA Saludos Concatenar celdas VBA_GP.xlsm
    1 point
  14. JSDJSD

    Macro función Unircadenas

    Sube tu archivo, y pon un ejemplo
    1 point
  15. Hola, estas intentando insertar una imagen ".svg", la cual no es un formato soportado por excel, si usas png o jpg u otro formato soportado funcionaria bien, ahora si lo que vos estas buscando es realmente usar .svg vas a tener que depender de alguna libreria externa para convertirla, para ellos tendrías que descargarla al disco, realizar la conversión y luego leerla desde excel, En una de las actualizaciones de windows 10 ("Windows 10 Creators Update") es posible hacer una conversión mediante WIC, es todo un código muy complejo, otra opción podría ser mediante la librería de Cairo. pero ninguna opción es simple.
    1 point
  16. Te dejo una UDF, úsala como fórmula o en una macro. Function ConvertirFecha(ByVal Fecha) As Variant ConvertirFecha = CDate(Replace(Fecha, ".", "/")) End Function La celda debe tener formato fecha (dd/mm/aaaa)
    1 point
  17. Antoni

    Comparar dos hojas

    Hola a todos: Aquí os dejo un libro con dos formularios para comparar 2 hojas: Al abrir el libro, se presenta un menú con 2 opciones: 1ª Opción - ESCOGER HOJAS Al pulsar la flecha en rojo, se abrirá un formulario donde se pedirá la localización de las dos hojas a comparar. Se pueden compara hojas del mismo libro o de distinto libro. Al pulsar el botón "Comparar hojas", si todo está correcto, la hoja seleccionada como PRIMERA, se copiará en la hoja "Primera" de este libro, y la seleccionada en como SEGUNDA, se copiará a la hoja "Segunda". Se cierra el formulario, se activa la hoja "Primera", y se ejecuta el formulario COMPARAR HOJAS. Los libros utilizados para seleccionar las hojas, se utilizan solamente para copiar las hojas y una vez realizada la copia, se cierran y ya no vuelven a ser utilizados. 2ª Opción - COMPARAR HOJAS Al pulsar la flecha en rojo, se muestran las diferencias encontradas en la hoja Activa. Si la hoja activa es la hoja "Primera", se mostrarán las diferencias en esa misma hoja con respecto a la hoja "Segunda". Si la hoja activa es la hoja "Segunda", se mostrarán las diferencias en esa misma hoja con respecto a la hoja "Primera". Las diferencias, se muestran como comentarios en la celda. Se pueden buscar diferencias en datos y en formulas de forma independiente. Las diferencias, se muestran también en una lista ordenada por fila y columna, pulsando sobre el label de la cabecera de la lista, se invierte el orden columna/fila por fila/columna y viceversa. Pulsando sobre cualquier elemento de la lista, se seleccionará la celda con diferencias y se mostrará el comentario con el valor de la misma celda correspondiente a la otra hoja. Como siempre, se esperan comentarios y propuestas de mejora. Saludos. Antoni. DiferenciasEnHojas.zip
    1 point
  18. Antoni

    Comparar dos hojas

    Hola: La respuesta es si a ambas preguntas. Saludos.
    1 point
×
×
  • Create New...

Important Information

Privacy Policy