Jump to content

Frank2021

Members
  • Posts

    83
  • Joined

  • Last visited

  • Days Won

    13
  • Country

    Spain

Frank2021 last won the day on January 13

Frank2021 had the most liked content!

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

Frank2021's Achievements

  1. Hola, Te envío mi solución Saludos Ejemplo_Unir_Colores.xlsm
  2. Hola, comprueba el adjunto Saludos Archivo duda v2.xlsx
  3. Hola, tendría que probar lo siguiente: Personalizar la cinta de opciones, pero no teniendo seleccionada ninguna opción personalizada, pero sí las de Excel. Es decir, quitar el check a INSERTAR GON (personalizada) y otras personalizadas si hay más que tenga el check y no se vea en el vídeo. Y seleccionar las de Excel, por ejemplo, Insertar, Datos, Dibujar... y ver si aparecen. En caso de que sí aparezcan, significa que las personalizadas, por ejemplo, INSERT GON (personalizadas), están interfiriendo en las solapas de Excel. Y es porque posiblemente el código XML del ribbon, INSERT GON (personalizadas), está diseñado para resetear todas las solapas, es decir, tiene puesta a "true" la opción "startFromScratch" How to Build a Custom Ribbon in Excel | by Andrew Moss | CodeX | Medium Saludos
  4. Hola, ahora ya compila, aunque no he mirado si hace lo que necesitas Saludos Sub EliminarKDRS() Dim Celda As Range Dim x As Long Dim ultimaFilaKDRS As Long Dim i As Integer Dim lrow As Long Dim r As Integer Dim y As Integer Dim z As Integer Dim DataRng As Range Dim rng1 As Range Application.ScreenUpdating = False Sheets("Cancellation").Range("A2:A10000").EntireRow.Delete Sheets("PWL").Range("A2:A3").EntireRow.Delete Sheets("PWL").Range("J1:R1").EntireColumn.Delete Sheets("PWL").Range("J:J").NumberFormat = " dd/mm/yyyy" Sheets("PWL").Range("J1") = "BR" Sheets("PWL").Range("J1").Font.Bold = True Sheets("PWL").Range("J1").Interior.ColorIndex = 15 Set Br = Sheets("BR") With Br For i = 5 To Range("C" & Rows.Count).End(xlUp).row Cells(i, 17).Value = Right(Cells(i, 3).Value, 3) If Len(Br.Cells(i, 2)) > 0 And Len(Br.Cells(i, 17)) > 0 Then Br.Cells(i, 1).Value = Br.Cells(i, 2).Value & Br.Cells(i, 17).Value End If Range("R5").FormulaR1C1 = "IF=(RC[-1]=""ECE"",""EC"",IF(RC[-1]=""CHN"",""CN"",IF(RC[-1]=""USA"",""US"","""")))" Range("R5").Select Selection.AutoFill Destination:=Range("R5:R117") Next i End With Set TDMD = Sheets("TDMD") With TMD Set rng1 = Range("A1").CurrentRegion rng1.RemoveDuplicates Columns:=1, Header:=xlYes For y = 2 To Range("A" & Rows.Count).End(xlUp).row If TDMD.Cells(y, 1).Value = "" Then Rows(y).Delete End If Next y End With Set PWL = Sheets("PWL") With PWL For z = 1 To Range("A" & Rows.Count).End(xlUp).row Range("J" & z) = "" Set Celda = Sheets("TDMD").Columns("A").Find(Range("A" & z), , , xlWhole) If Not Celda Is Nothing Then Range("J" & z) = Celda.Offset(0, 6) Next z lr = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).row Range("K2").FormulaR1C1 = "=CONCATENATE(RC[-1],IFERROR(VLOOKUP(LEFT(RC[-4],2),PAISES,2,0),""""))" Range("K2").AutoFill Range("K2:K" & lr) End With End Sub
  5. Hola, falta cerrar el If con un End if. Así: If Len(Br.Cells(i, 2)) > 0 And Len(Br.Cells(i, 17)) > 0 Then Br.Cells(i, 1).Value = Br.Cells(i, 2).Value & Br.Cells(i, 17).Value End if Saludos
  6. Hola, Te envío mi propuesta Saludos LibroFacturas.xlsx
  7. Hola, La lista de fechas a excluir debe ser un rango continuo de fechas. No unas fechas, con texto intercalado por medio. Te envío la solución Saludos ContarDias v2.xlsx
  8. Hola, gracias por el vídeo, pero sale en vertical, casi me caigo de la silla pa verlo, ja (es broma) Te digo paso a paso: 1. Descargas el fichero "Cambiar Caracteres Panaderias.xlsm", está más arriaba en otro post, pero también te lo adjunto en este mensaje. 2. Lo abres y habilitas macros si lo te lo pide. 3. Pegas los nombres en la columna C y ya te salen cambiados en la columna D. La columna D ya contiene la fórmula necesaria. Ésta sólo funciona en este archivo, pues es una fórmula específica que he construido para este fin y sólo está disponible en este archivo Saludos Cambiar Caracteres Panaderias.xlsm
  9. Hola, ¿Puede subir todo el fichero con las 1400 referencias e intentamos hallar una solución? Saludos
  10. Hola, sólo tienes que ponerte en la celda D2 para ver la función que se usó. Lo que quería decir, es que la funicón no es de Excel, sino una macro que lleva ese archivo, pero que se ejecuta usandola como una función normal de Excel Saludos
  11. Hola, Se hace con una macro que la he combertido en función para que la puedas usar como una función más de Excel Te paso el archivo. Cuando lo abras tienes que habilitar las macros. Cambiar Caracteres Panaderias.xlsm Saludos
  12. Hola, Te envío mi propuesta Saludos PANADERIAS v2.xlsx
  13. Hola, busca ejemplos en Internet de cómo utilizar la función "Application.OnTime" de VBA en Excel para la ejecución de una macro cada X segundos. Saludos
×
×
  • Create New...

Important Information

Privacy Policy