prometheo63

Hola Ya encontré la solución, pero con las funciones BUSCARV o SUMAR.SI (indistintamente). Quizás fue muy rebuscado lo que pedía cuando en realidad a efectos prácticos era más sencilla y rápida la solución: en función de una columna concreta (por ejemplo, la A), con una serie de claves, alinear el resto de celdas de otras columnas (B, C, D, etc con iguales claves) que coincidieran con dicha columna A, pero únicamente los datos numéricos asociados a dichas claves. Saludos y gracias

EDITO: las cuatro columnas independientes con las claves alineadas y ordenadas las había introducido como prueba. Por tanto no hay que tenerlas en cuenta

Hola No logro hacer lo que dices. 1. Una vez que entro en la pestaña DATOS (Obtener y transformar) creo una nueva consulta y cargo el fichero. Lo único que me aparece es una hoja nueva con el fichero original (es decir sin alinear) y a su lado cuatro columnas independientes con las claves alineadas y ordenadas. En Editar no veo la manera de ordenar simétricamente todos los datos 2. A qué te refieres con colocar más filas de información. ¿Rellenar las celdas vacías con datos aunque sean inventados?. Si es así, las celdas vacías las rellené con ceros, pero no resultó tampoco. Tampoco entendí lo de click derecho actualizar (lo único que veo es un botón de Actualizar en la barra de herramientas) 3. El archivo adjunto modificado no me da ninguna pauta a seguir ya que viene con el resultado final 4. Nunca he utilizado la herramienta Obtener y transformar por lo que necesito unos pasos más concretos. Saludos

Hola Tengo un fichero con más de mil registros en varias columnas. Lo que quiero es que una serie de CÓDIGOS IDÉNTICOS que están ordenados de menor a mayor y van asociados con nombres y saldos, coincidan en la misma fila, es decir utilizando la referencia de los códigos hacerlos coincidentes en la misma fila, con sus respectivos nombres y saldos. No he encontrado una fórmula satisfactoria. Gracias Saludos CUENTA.xlsx

Muchas gracias por tu aporte. Me sirvió de mucha utilidad. Excelente. Saludos!

Muchas gracias. Mañana la pruebo en el curro y te cuento. Yo creo que va a funcionar Saludos

Hola Me gustaría saber si me podéis resolver este problema: Tengo un archivo (según anexo) de Excel con una hoja A donde quiero que consten datos vinculados de otras dos (B y C), pero no logro dar con una fórmula correcta aunque aparentemente parezca sencillo. Se trata de asignar el importe de una subvención a un titular en función del número de hijos que tiene cada titular (Hoja y el importe de la subvención que corresponde según el nº de hijos (Hoja C) Espero que no haya sido un trabalenguas Gracias ayuda excel 2.xls

Gran trabajo big...Me funcionó en casa con el ejemplo que te puse y en el trabajo me ha ido perfecto Muchísimas gracias! No sé que haría uno sin los genios de la programación Saludos!

Me estoy liando demasiado con el código que has puesto big...Voy a poner los pasos que he hecho para grabar la macro y subir un fichero que he hecho lo más parecido a lo que tengo en el trabajo... , aunque sé que no servirá de mucho, pero bueno.. MACRO: 1) En la hoja de excel con los datos (Columnas desde A hasta O) he creado una columna nueva a continuación de la M. En la celda N1 he introducido m=1 y en la celda N2 introduzco la fórmula =SI(I2=”x”;M2;N1). Se extiende la fórmula hasta la última fila 2) Creo una columna nueva a continuación de la N. Copio y pego valores de la N, eliminando la columna N a continuación 3) Creo una columna nueva después de la D, en la celda E1 pongo D=1 y en E2 la fórmula =SI(J2=”x”;D2;E1). Se extiende la fórmula hasta el final. 4) Se crea otra columna a continuación de E y se copian y pegan valores en la nueva, eliminando a continuación las columnas D y E. 5) Se ordena la hoja por la columna I, en esta misma columna se borran (lo hago manualmente) las fórmulas que están en las celdas en blanco (por ejemplo de la 1 a la 100) hasta la primera celda en que aparezca la “x” (desde la celda 101 hasta, por ejemplo, la celda 500) y a continuación se eliminan las filas que tengan la “x” seleccionando previamente la columna I y ejecutando el comando Buscar-Ir a Especial-Celdas con fórmulas - eliminar filas (quizás en este paso haya algo que no esté haciendo bien y sea preferible otra instrucción ya que el fallo parece que parte de la columna I) 6) Se eliminan las columnas J, I, E y B por este orden. Lo demás.....ya es sabido. Ejecuto la macro para otros ficheros, con filas distintas y aparece el error en tiempo de ejecución 1004 que ya he comentado más arriba. Gracias, si hay solución bien y si no... Prueba Excel.xls

Hola Big...no es posible sacar externamente ningún archivo (hablo de la empresa) ya que en el equipo hay restricciones para la salida de documentos. En cuanto intentas anexar algo para "fuera" aparece un aviso de seguridad impidiéndolo. Así que como no me invente un excel en mi casa...pero no servirá de nada...Intentaré probar lo que comenta Armando Gracias de todos modos

Bueno, lo de subir el archivo no es posible, así que si tenéis una explicación más teórica acorde con lo que he puesto al principio igual me podría valer para intentar algo. Resumiendo: distintos ficheros de Excel tienen diferentes números de filas y la macro que he creado (sobre un fichero base, por así decir) sólo tiene en cuenta hasta un límite determinado de filas. Si el fichero base tiene 100 filas parece que toma como referencia (por ejemplo) hasta 80, pero menos de ahí da error. Y, al contrario, si creo una macro con un fichero de 20 filas, y ejecuto esa macro en el siguiente que tiene 100 filas también da error...aunque de otro tipo (código distinto) No sé si me he explicado bien pero lo que quiero es que la Macro se ejecute exactamente igual para todos los ficheros, independientemente del número de filas que tengan. Si esto es posible o no es una de las cosas que quiero saber. ¿Es determinante que esté trabajando con ficheros con cientos de miles de filas? Armando: lo de eliminar el ScrollRow ¿te refieres a borrar líneas de ActiveWindow? Lo de Select no sé a qué te refieres..si es a Selection, pero veo que esa es una instrucción que ha de ejecutar la macro..

Hola a todos Tengo un problema a la hora de grabar una macro. Tengo varios ficheros y para automatizar tareas he decidido hacer una macro tomando como referencia el primer fichero (por ejemplo A) para los subsiguientes (B, C, D, E...F...etc..). El problema es que cuando ejecuto la macro creada con A para otros ficheros que tienen bastantes menos filas, me da error en tiempo ejecución. Por ejemplo: la macro-base creada tiene un fichero de 730.000 filas, si lo ejecuto para B que tiene 150.000 filas me da error siempre en la fila 509.000, aprox. y no se ejecuta la macro. Lo curioso es que aparentemente funciona bien para ficheros de hasta 550 y pico miil filas...pero cuando hay menos de esta cantidad aparece error en la misma fila y con el mismo texto en todos los ficheros. Las instrucciones al grabar la macro A tienen fórmulas que las extiende, en el fichero B, hasta la última fila del fichero A (675.000) a pesar de que B sólo tiene 150.000 filas. Y ahí empiezan los problemas Mi pregunta es ¿se puede conseguir una macro o grabarla de algún modo que automatice tareas para otros ficheros independientemente del número de filas que contengan? Esta es el código de la macro con el error en rojo: Sub PASOCUATROBSHE() ' ' PASOCUATROBSHE Macro ' ' Columns("N:N").Select Selection.Insert Shift:=xlToRight Range("N1").Select ActiveCell.FormulaR1C1 = "=RC[-1]" Range("N2").Select ActiveCell.FormulaR1C1 = "=IF(RC[-5]=""x"",M2N1)" Range("N2").Select ActiveCell.FormulaR1C1 = "=IF(RC[-5]=""x"",RC[-1],R[-1]C)" Range("N2").Select Selection.Copy ActiveWindow.ScrollRow = 2913 ActiveWindow.ScrollRow = 4854 ActiveWindow.ScrollRow = 5825 ActiveWindow.ScrollRow = 8736 ActiveWindow.ScrollRow = 13590 ActiveWindow.ScrollRow = 19413 ActiveWindow.ScrollRow = 24266 ActiveWindow.ScrollRow = 29119 ActiveWindow.ScrollRow = 33002 ActiveWindow.ScrollRow = 38825 ActiveWindow.ScrollRow = 44649 ActiveWindow.ScrollRow = 50473 ActiveWindow.ScrollRow = 56296 ActiveWindow.ScrollRow = 62120 ActiveWindow.ScrollRow = 68914 ActiveWindow.ScrollRow = 75709 ActiveWindow.ScrollRow = 83474 ActiveWindow.ScrollRow = 90268 ActiveWindow.ScrollRow = 98033 ActiveWindow.ScrollRow = 104827 ActiveWindow.ScrollRow = 112592 ActiveWindow.ScrollRow = 120357 ActiveWindow.ScrollRow = 128122 ActiveWindow.ScrollRow = 134916 ActiveWindow.ScrollRow = 141710 ActiveWindow.ScrollRow = 149475 ActiveWindow.ScrollRow = 154328 ActiveWindow.ScrollRow = 163064 ActiveWindow.ScrollRow = 170828 ActiveWindow.ScrollRow = 180535 ActiveWindow.ScrollRow = 189270 ActiveWindow.ScrollRow = 197035 ActiveWindow.ScrollRow = 207712 ActiveWindow.ScrollRow = 216447 ActiveWindow.ScrollRow = 227124 ActiveWindow.ScrollRow = 235859 ActiveWindow.ScrollRow = 245565 ActiveWindow.ScrollRow = 254301 ActiveWindow.ScrollRow = 262066 ActiveWindow.ScrollRow = 270801 ActiveWindow.ScrollRow = 280507 ActiveWindow.ScrollRow = 288272 ActiveWindow.ScrollRow = 296037 ActiveWindow.ScrollRow = 302832 ActiveWindow.ScrollRow = 310596 ActiveWindow.ScrollRow = 316420 ActiveWindow.ScrollRow = 323214 ActiveWindow.ScrollRow = 328067 ActiveWindow.ScrollRow = 333891 ActiveWindow.ScrollRow = 337774 ActiveWindow.ScrollRow = 340685 ActiveWindow.ScrollRow = 342627 ActiveWindow.ScrollRow = 345538 ActiveWindow.ScrollRow = 348450 ActiveWindow.ScrollRow = 349421 ActiveWindow.ScrollRow = 351362 ActiveWindow.ScrollRow = 352333 ActiveWindow.ScrollRow = 353303 ActiveWindow.ScrollRow = 354274 ActiveWindow.ScrollRow = 355244 ActiveWindow.ScrollRow = 357186 ActiveWindow.ScrollRow = 358156 ActiveWindow.ScrollRow = 359127 ActiveWindow.ScrollRow = 361068 ActiveWindow.ScrollRow = 362039 ActiveWindow.ScrollRow = 363980 ActiveWindow.ScrollRow = 366892 ActiveWindow.ScrollRow = 368833 ActiveWindow.ScrollRow = 369804 ActiveWindow.ScrollRow = 371745 ActiveWindow.ScrollRow = 373686 ActiveWindow.ScrollRow = 374657 ActiveWindow.ScrollRow = 376598 ActiveWindow.ScrollRow = 378539 ActiveWindow.ScrollRow = 380480 ActiveWindow.ScrollRow = 384363 ActiveWindow.ScrollRow = 387275 ActiveWindow.ScrollRow = 390186 ActiveWindow.ScrollRow = 395040 ActiveWindow.ScrollRow = 398922 ActiveWindow.ScrollRow = 401834 ActiveWindow.ScrollRow = 405716 ActiveWindow.ScrollRow = 409599 ActiveWindow.ScrollRow = 412511 ActiveWindow.ScrollRow = 416393 ActiveWindow.ScrollRow = 419305 ActiveWindow.ScrollRow = 422217 ActiveWindow.ScrollRow = 426099 ActiveWindow.ScrollRow = 429011 ActiveWindow.ScrollRow = 431923 ActiveWindow.ScrollRow = 434835 ActiveWindow.ScrollRow = 438717 ActiveWindow.ScrollRow = 442599 ActiveWindow.ScrollRow = 445511 ActiveWindow.ScrollRow = 449394 ActiveWindow.ScrollRow = 452306 ActiveWindow.ScrollRow = 456188 ActiveWindow.ScrollRow = 462012 ActiveWindow.ScrollRow = 464923 ActiveWindow.ScrollRow = 469777 ActiveWindow.ScrollRow = 473659 ActiveWindow.ScrollRow = 477541 ActiveWindow.ScrollRow = 482394 ActiveWindow.ScrollRow = 487248 ActiveWindow.ScrollRow = 492101 ActiveWindow.ScrollRow = 498895 ActiveWindow.ScrollRow = 505689 ActiveWindow.ScrollRow = 511513 ActiveWindow.ScrollRow = 515395 ActiveWindow.ScrollRow = 522190 ActiveWindow.ScrollRow = 526072 ActiveWindow.ScrollRow = 532866 ActiveWindow.ScrollRow = 536749 ActiveWindow.ScrollRow = 541602 ActiveWindow.ScrollRow = 545484 ActiveWindow.ScrollRow = 551308 ActiveWindow.ScrollRow = 556161 ActiveWindow.ScrollRow = 562955 ActiveWindow.ScrollRow = 567808 ActiveWindow.ScrollRow = 574602 ActiveWindow.ScrollRow = 578485 ActiveWindow.ScrollRow = 584309 ActiveWindow.ScrollRow = 589162 ActiveWindow.ScrollRow = 594985 ActiveWindow.ScrollRow = 599838 ActiveWindow.ScrollRow = 605662 ActiveWindow.ScrollRow = 610515 ActiveWindow.ScrollRow = 616339 ActiveWindow.ScrollRow = 621192 ActiveWindow.ScrollRow = 627015 ActiveWindow.ScrollRow = 630898 ActiveWindow.ScrollRow = 634780 ActiveWindow.ScrollRow = 640604 ActiveWindow.ScrollRow = 646428 ActiveWindow.ScrollRow = 653222 ActiveWindow.ScrollRow = 659046 ActiveWindow.ScrollRow = 665840 ActiveWindow.ScrollRow = 671664 ActiveWindow.ScrollRow = 675546 ActiveWindow.SmallScroll Down:=12 Range("N2:N675579").Select ActiveSheet.Paste Columns("O:O").Select ActiveWindow.ScrollRow = 972 ActiveWindow.ScrollRow = 10678 ActiveWindow.ScrollRow = 16501 ActiveWindow.ScrollRow = 24266 ActiveWindow.ScrollRow = 27178 ActiveWindow.ScrollRow = 34943 ActiveWindow.ScrollRow = 43678 ActiveWindow.ScrollRow = 54355 ActiveWindow.ScrollRow = 64061 ActiveWindow.ScrollRow = 70856 ActiveWindow.ScrollRow = 77650 ActiveWindow.ScrollRow = 81532 ActiveWindow.ScrollRow = 85415 ActiveWindow.ScrollRow = 89297 ActiveWindow.ScrollRow = 96091 ActiveWindow.ScrollRow = 102886 ActiveWindow.ScrollRow = 108709 ActiveWindow.ScrollRow = 114533 ActiveWindow.ScrollRow = 121327 ActiveWindow.ScrollRow = 125210 ActiveWindow.ScrollRow = 127151 ActiveWindow.ScrollRow = 125210 ActiveWindow.ScrollRow = 115504 ActiveWindow.ScrollRow = 105798 ActiveWindow.ScrollRow = 96091 ActiveWindow.ScrollRow = 86385 ActiveWindow.ScrollRow = 77650 ActiveWindow.ScrollRow = 68914 ActiveWindow.ScrollRow = 64061 ActiveWindow.ScrollRow = 60179 ActiveWindow.ScrollRow = 57267 ActiveWindow.ScrollRow = 51443 ActiveWindow.ScrollRow = 49502 ActiveWindow.ScrollRow = 45620 ActiveWindow.ScrollRow = 41737 ActiveWindow.ScrollRow = 35914 ActiveWindow.ScrollRow = 30090 ActiveWindow.ScrollRow = 24266 ActiveWindow.ScrollRow = 17472 ActiveWindow.ScrollRow = 12619 ActiveWindow.ScrollRow = 10678 ActiveWindow.ScrollRow = 4854 ActiveWindow.ScrollRow = 1 Application.CutCopyMode = False Selection.Insert Shift:=xlToRight Columns("N:N").Select Selection.Copy Range("O1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Columns("N:N").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Columns("E:E").Select Selection.Insert Shift:=xlToRight Selection.ColumnWidth = 22.29 Range("E1").Select ActiveCell.FormulaR1C1 = "=RC[-1]" Range("E2").Select ActiveCell.FormulaR1C1 = "=IF(RC[5]=""x"",RC[-1],R[-1]C)" Range("E2").Select Selection.Copy ActiveWindow.ScrollRow = 4854 ActiveWindow.ScrollRow = 9707 ActiveWindow.ScrollRow = 15531 ActiveWindow.ScrollRow = 20384 ActiveWindow.ScrollRow = 24266 ActiveWindow.ScrollRow = 31061 ActiveWindow.ScrollRow = 36884 ActiveWindow.ScrollRow = 42708 ActiveWindow.ScrollRow = 48532 ActiveWindow.ScrollRow = 54355 ActiveWindow.ScrollRow = 59208 ActiveWindow.ScrollRow = 66003 ActiveWindow.ScrollRow = 74738 ActiveWindow.ScrollRow = 81532 ActiveWindow.ScrollRow = 88327 ActiveWindow.ScrollRow = 98033 ActiveWindow.ScrollRow = 105798 ActiveWindow.ScrollRow = 113562 ActiveWindow.ScrollRow = 121327 ActiveWindow.ScrollRow = 130063 ActiveWindow.ScrollRow = 138798 ActiveWindow.ScrollRow = 148504 ActiveWindow.ScrollRow = 159181 ActiveWindow.ScrollRow = 166946 ActiveWindow.ScrollRow = 175682 ActiveWindow.ScrollRow = 185388 ActiveWindow.ScrollRow = 193153 ActiveWindow.ScrollRow = 202859 ActiveWindow.ScrollRow = 211594 ActiveWindow.ScrollRow = 221300 ActiveWindow.ScrollRow = 231977 ActiveWindow.ScrollRow = 240712 ActiveWindow.ScrollRow = 253330 ActiveWindow.ScrollRow = 264978 ActiveWindow.ScrollRow = 276625 ActiveWindow.ScrollRow = 289243 ActiveWindow.ScrollRow = 303802 ActiveWindow.ScrollRow = 318361 ActiveWindow.ScrollRow = 330979 ActiveWindow.ScrollRow = 343597 ActiveWindow.ScrollRow = 356215 ActiveWindow.ScrollRow = 369804 ActiveWindow.ScrollRow = 381451 ActiveWindow.ScrollRow = 390186 ActiveWindow.ScrollRow = 402804 ActiveWindow.ScrollRow = 414452 ActiveWindow.ScrollRow = 428040 ActiveWindow.ScrollRow = 438717 ActiveWindow.ScrollRow = 452306 ActiveWindow.ScrollRow = 464923 ActiveWindow.ScrollRow = 476571 ActiveWindow.ScrollRow = 488218 ActiveWindow.ScrollRow = 499865 ActiveWindow.ScrollRow = 510542 ActiveWindow.ScrollRow = 518307 ActiveWindow.ScrollRow = 527043 ActiveWindow.ScrollRow = 535778 ActiveWindow.ScrollRow = 542572 ActiveWindow.ScrollRow = 551308 ActiveWindow.ScrollRow = 559073 ActiveWindow.ScrollRow = 568779 ActiveWindow.ScrollRow = 577514 ActiveWindow.ScrollRow = 585279 ActiveWindow.ScrollRow = 594985 ActiveWindow.ScrollRow = 600809 ActiveWindow.ScrollRow = 610515 ActiveWindow.ScrollRow = 618280 ActiveWindow.ScrollRow = 625074 ActiveWindow.ScrollRow = 630898 ActiveWindow.ScrollRow = 637692 ActiveWindow.ScrollRow = 644486 ActiveWindow.ScrollRow = 650310 ActiveWindow.ScrollRow = 657104 ActiveWindow.ScrollRow = 662928 ActiveWindow.ScrollRow = 665840 ActiveWindow.ScrollRow = 669722 ActiveWindow.ScrollRow = 672634 ActiveWindow.ScrollRow = 675546 ActiveWindow.SmallScroll Down:=9 Range("E2:E675579").Select ActiveSheet.Paste Columns("F:F").Select Application.CutCopyMode = False Selection.Insert Shift:=xlToRight Columns("E:E").Select Selection.Copy Range("F1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Columns("D:E").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Cells.Select ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Add Key:=Range( _ "I1:I675579"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("Hoja1").Sort .SetRange Range("A1:S675579") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("I5").Select Columns("I:I").ColumnWidth = 21 Range("I1").Select ActiveWindow.ScrollRow = 972 ActiveWindow.ScrollRow = 3883 ActiveWindow.ScrollRow = 5825 ActiveWindow.ScrollRow = 6795 ActiveWindow.ScrollRow = 8736 ActiveWindow.ScrollRow = 11648 ActiveWindow.ScrollRow = 12619 ActiveWindow.ScrollRow = 15531 ActiveWindow.ScrollRow = 17472 ActiveWindow.ScrollRow = 18443 ActiveWindow.ScrollRow = 20384 ActiveWindow.ScrollRow = 21354 ActiveWindow.ScrollRow = 23296 ActiveWindow.ScrollRow = 24266 ActiveWindow.ScrollRow = 25237 ActiveWindow.ScrollRow = 26207 ActiveWindow.ScrollRow = 27178 ActiveWindow.ScrollRow = 28149 ActiveWindow.ScrollRow = 30090 ActiveWindow.ScrollRow = 31061 ActiveWindow.ScrollRow = 32031 ActiveWindow.ScrollRow = 33002 ActiveWindow.ScrollRow = 34943 ActiveWindow.ScrollRow = 35914 ActiveWindow.ScrollRow = 37855 ActiveWindow.ScrollRow = 40767 ActiveWindow.ScrollRow = 41737 ActiveWindow.ScrollRow = 43678 ActiveWindow.ScrollRow = 45620 ActiveWindow.ScrollRow = 47561 ActiveWindow.ScrollRow = 49502 ActiveWindow.ScrollRow = 51443 ActiveWindow.ScrollRow = 53385 ActiveWindow.ScrollRow = 55326 ActiveWindow.ScrollRow = 58238 ActiveWindow.ScrollRow = 60179 ActiveWindow.ScrollRow = 63091 ActiveWindow.ScrollRow = 66003 ActiveWindow.ScrollRow = 69885 ActiveWindow.ScrollRow = 73767 ActiveWindow.ScrollRow = 77650 ActiveWindow.ScrollRow = 80562 ActiveWindow.ScrollRow = 84444 ActiveWindow.ScrollRow = 88327 ActiveWindow.ScrollRow = 91238 ActiveWindow.ScrollRow = 94150 ActiveWindow.ScrollRow = 97062 ActiveWindow.ScrollRow = 99974 ActiveWindow.ScrollRow = 101915 ActiveWindow.ScrollRow = 104827 ActiveWindow.ScrollRow = 107739 ActiveWindow.ScrollRow = 109680 ActiveWindow.ScrollRow = 112592 ActiveWindow.ScrollRow = 116474 ActiveWindow.ScrollRow = 120357 ActiveWindow.ScrollRow = 124239 ActiveWindow.ScrollRow = 128122 ActiveWindow.ScrollRow = 135886 ActiveWindow.ScrollRow = 142681 ActiveWindow.ScrollRow = 149475 ActiveWindow.ScrollRow = 157240 ActiveWindow.ScrollRow = 162093 ActiveWindow.ScrollRow = 168887 ActiveWindow.ScrollRow = 175682 ActiveWindow.ScrollRow = 183446 ActiveWindow.ScrollRow = 190241 ActiveWindow.ScrollRow = 196064 ActiveWindow.ScrollRow = 202859 ActiveWindow.ScrollRow = 208682 ActiveWindow.ScrollRow = 215477 ActiveWindow.ScrollRow = 222271 ActiveWindow.ScrollRow = 226153 ActiveWindow.ScrollRow = 231006 ActiveWindow.ScrollRow = 236830 ActiveWindow.ScrollRow = 240712 ActiveWindow.ScrollRow = 246536 ActiveWindow.ScrollRow = 250419 ActiveWindow.ScrollRow = 253330 ActiveWindow.ScrollRow = 258183 ActiveWindow.ScrollRow = 261095 ActiveWindow.ScrollRow = 264007 ActiveWindow.ScrollRow = 266919 ActiveWindow.ScrollRow = 268860 ActiveWindow.ScrollRow = 271772 ActiveWindow.ScrollRow = 272743 ActiveWindow.ScrollRow = 274684 ActiveWindow.ScrollRow = 277596 ActiveWindow.ScrollRow = 279537 ActiveWindow.ScrollRow = 282449 ActiveWindow.ScrollRow = 285361 ActiveWindow.ScrollRow = 288272 ActiveWindow.ScrollRow = 291184 ActiveWindow.ScrollRow = 295067 ActiveWindow.ScrollRow = 297978 ActiveWindow.ScrollRow = 300890 ActiveWindow.ScrollRow = 304773 ActiveWindow.ScrollRow = 308655 ActiveWindow.ScrollRow = 311567 ActiveWindow.ScrollRow = 314479 ActiveWindow.ScrollRow = 318361 ActiveWindow.ScrollRow = 321273 ActiveWindow.ScrollRow = 325156 ActiveWindow.ScrollRow = 329038 ActiveWindow.ScrollRow = 332920 ActiveWindow.ScrollRow = 336803 ActiveWindow.ScrollRow = 340685 ActiveWindow.ScrollRow = 345538 ActiveWindow.ScrollRow = 348450 ActiveWindow.ScrollRow = 351362 ActiveWindow.ScrollRow = 354274 ActiveWindow.ScrollRow = 358156 ActiveWindow.ScrollRow = 363009 ActiveWindow.ScrollRow = 366892 ActiveWindow.ScrollRow = 370774 ActiveWindow.ScrollRow = 375627 ActiveWindow.ScrollRow = 381451 ActiveWindow.ScrollRow = 386304 ActiveWindow.ScrollRow = 390186 ActiveWindow.ScrollRow = 394069 ActiveWindow.ScrollRow = 399893 ActiveWindow.ScrollRow = 404746 ActiveWindow.ScrollRow = 410569 ActiveWindow.ScrollRow = 414452 ActiveWindow.ScrollRow = 418334 ActiveWindow.ScrollRow = 421246 ActiveWindow.ScrollRow = 426099 ActiveWindow.ScrollRow = 429982 ActiveWindow.ScrollRow = 432893 ActiveWindow.ScrollRow = 435805 ActiveWindow.ScrollRow = 439688 ActiveWindow.ScrollRow = 443570 ActiveWindow.ScrollRow = 447453 ActiveWindow.ScrollRow = 453276 ActiveWindow.ScrollRow = 457159 ActiveWindow.ScrollRow = 461041 ActiveWindow.ScrollRow = 464923 ActiveWindow.ScrollRow = 470747 ActiveWindow.ScrollRow = 474630 ActiveWindow.ScrollRow = 478512 ActiveWindow.ScrollRow = 482394 ActiveWindow.ScrollRow = 488218 ActiveWindow.ScrollRow = 493071 ActiveWindow.ScrollRow = 496954 ActiveWindow.ScrollRow = 500836 ActiveWindow.ScrollRow = 505689 ActiveWindow.ScrollRow = 508601 ActiveWindow.ScrollRow = 513454 ActiveWindow.ScrollRow = 517336 ActiveWindow.ScrollRow = 521219 ActiveWindow.ScrollRow = 525101 ActiveWindow.ScrollRow = 528984 ActiveWindow.ScrollRow = 533837 ActiveWindow.ScrollRow = 538690 ActiveWindow.ScrollRow = 542572 ActiveWindow.ScrollRow = 546455 ActiveWindow.ScrollRow = 550337 ActiveWindow.ScrollRow = 553249 ActiveWindow.ScrollRow = 557132 ActiveWindow.ScrollRow = 561985 ActiveWindow.ScrollRow = 565867 ActiveWindow.ScrollRow = 569749 ActiveWindow.ScrollRow = 573632 ActiveWindow.ScrollRow = 578485 ActiveWindow.ScrollRow = 584309 ActiveWindow.ScrollRow = 588191 ActiveWindow.ScrollRow = 592073 ActiveWindow.ScrollRow = 597897 ActiveWindow.ScrollRow = 602750 ActiveWindow.ScrollRow = 608574 ActiveWindow.ScrollRow = 612456 ActiveWindow.ScrollRow = 617309 ActiveWindow.ScrollRow = 621192 ActiveWindow.ScrollRow = 625074 ActiveWindow.ScrollRow = 628957 ActiveWindow.ScrollRow = 633810 ActiveWindow.ScrollRow = 637692 ActiveWindow.ScrollRow = 641575 ActiveWindow.ScrollRow = 644486 ActiveWindow.ScrollRow = 648369 ActiveWindow.ScrollRow = 652251 ActiveWindow.ScrollRow = 655163 ActiveWindow.ScrollRow = 659046 ActiveWindow.ScrollRow = 661957 ActiveWindow.ScrollRow = 664869 ActiveWindow.ScrollRow = 667781 ActiveWindow.ScrollRow = 669722 ActiveWindow.ScrollRow = 671664 ActiveWindow.ScrollRow = 673605 ActiveWindow.ScrollRow = 675546 ActiveWindow.ScrollRow = 672634 ActiveWindow.ScrollRow = 669722 ActiveWindow.ScrollRow = 667781 ActiveWindow.ScrollRow = 664869 ActiveWindow.ScrollRow = 661957 ActiveWindow.ScrollRow = 658075 ActiveWindow.ScrollRow = 655163 ActiveWindow.ScrollRow = 652251 ActiveWindow.ScrollRow = 650310 ActiveWindow.ScrollRow = 647398 ActiveWindow.ScrollRow = 645457 ActiveWindow.ScrollRow = 642545 ActiveWindow.ScrollRow = 640604 ActiveWindow.ScrollRow = 638663 ActiveWindow.ScrollRow = 635751 ActiveWindow.ScrollRow = 634780 ActiveWindow.ScrollRow = 631869 ActiveWindow.ScrollRow = 628957 ActiveWindow.ScrollRow = 626045 ActiveWindow.ScrollRow = 623133 ActiveWindow.ScrollRow = 619251 ActiveWindow.ScrollRow = 614398 ActiveWindow.ScrollRow = 610515 ActiveWindow.ScrollRow = 607603 ActiveWindow.ScrollRow = 606633 ActiveWindow.ScrollRow = 605662 ActiveWindow.ScrollRow = 604691 ActiveWindow.ScrollRow = 602750 ActiveWindow.ScrollRow = 600809 ActiveWindow.ScrollRow = 599838 ActiveWindow.ScrollRow = 598868 ActiveWindow.ScrollRow = 597897 ActiveWindow.ScrollRow = 596927 ActiveWindow.ScrollRow = 595956 ActiveWindow.ScrollRow = 594985 ActiveWindow.ScrollRow = 593044 ActiveWindow.ScrollRow = 591103 ActiveWindow.ScrollRow = 588191 ActiveWindow.ScrollRow = 587220 ActiveWindow.ScrollRow = 586250 ActiveWindow.ScrollRow = 585279 ActiveWindow.ScrollRow = 584309 ActiveWindow.ScrollRow = 583338 ActiveWindow.ScrollRow = 582367 ActiveWindow.ScrollRow = 581397 ActiveWindow.ScrollRow = 579456 ActiveWindow.ScrollRow = 578485 ActiveWindow.ScrollRow = 577514 ActiveWindow.ScrollRow = 576544 ActiveWindow.ScrollRow = 574602 ActiveWindow.ScrollRow = 573632 ActiveWindow.ScrollRow = 571691 ActiveWindow.ScrollRow = 570720 ActiveWindow.ScrollRow = 569749 ActiveWindow.ScrollRow = 566838 ActiveWindow.ScrollRow = 565867 ActiveWindow.ScrollRow = 563926 ActiveWindow.ScrollRow = 562955 ActiveWindow.ScrollRow = 561985 ActiveWindow.ScrollRow = 561014 ActiveWindow.ScrollRow = 560043 ActiveWindow.ScrollRow = 558102 ActiveWindow.ScrollRow = 557132 ActiveWindow.ScrollRow = 556161 ActiveWindow.ScrollRow = 554220 ActiveWindow.ScrollRow = 552278 ActiveWindow.ScrollRow = 551308 ActiveWindow.ScrollRow = 550337 ActiveWindow.ScrollRow = 549367 ActiveWindow.ScrollRow = 548396 ActiveWindow.ScrollRow = 546455 ActiveWindow.ScrollRow = 543543 ActiveWindow.ScrollRow = 542572 ActiveWindow.ScrollRow = 540631 ActiveWindow.ScrollRow = 538690 ActiveWindow.ScrollRow = 535778 ActiveWindow.ScrollRow = 532866 ActiveWindow.ScrollRow = 530925 ActiveWindow.ScrollRow = 528013 ActiveWindow.ScrollRow = 526072 ActiveWindow.ScrollRow = 524131 ActiveWindow.ScrollRow = 521219 ActiveWindow.ScrollRow = 520248 ActiveWindow.ScrollRow = 517336 ActiveWindow.ScrollRow = 515395 ActiveWindow.ScrollRow = 513454 ActiveWindow.ScrollRow = 510542 ActiveWindow.ScrollRow = 508601 ActiveWindow.ScrollRow = 506660 ActiveWindow.ScrollRow = 505689 ActiveWindow.ScrollRow = 504719 ActiveWindow.ScrollRow = 502777 ActiveWindow.ScrollRow = 501807 ActiveWindow.ScrollRow = 500836 ActiveWindow.ScrollRow = 499865 ActiveWindow.ScrollRow = 497924 ActiveWindow.ScrollRow = 496954 ActiveWindow.ScrollRow = 495983 ActiveWindow.ScrollRow = 495012 ActiveWindow.ScrollRow = 495983 ActiveWindow.ScrollRow = 498895 ActiveWindow.ScrollRow = 499865 ActiveWindow.ScrollRow = 501807 ActiveWindow.ScrollRow = 502777 ActiveWindow.ScrollRow = 501807 ActiveWindow.ScrollRow = 502777 ActiveWindow.ScrollRow = 504719 ActiveWindow.ScrollRow = 505689 ActiveWindow.ScrollRow = 506660 ActiveWindow.ScrollRow = 508601 ActiveWindow.ScrollRow = 509572 ActiveWindow.ScrollRow = 510542 ActiveWindow.ScrollRow = 511513 ActiveWindow.SmallScroll Down:=-105 ActiveWindow.ScrollRow = 511513 ActiveWindow.ScrollRow = 510542 ActiveWindow.ScrollRow = 509572 ActiveWindow.ScrollRow = 508601 ActiveWindow.LargeScroll Down:=31 ActiveWindow.SmallScroll Down:=-5 Range("I509658").Select ActiveWindow.ScrollRow = 509572 ActiveWindow.ScrollRow = 508601 ActiveWindow.ScrollRow = 506660 ActiveWindow.ScrollRow = 503748 ActiveWindow.ScrollRow = 501807 ActiveWindow.ScrollRow = 498895 ActiveWindow.ScrollRow = 495012 ActiveWindow.ScrollRow = 491130 ActiveWindow.ScrollRow = 485306 ActiveWindow.ScrollRow = 481424 ActiveWindow.ScrollRow = 477541 ActiveWindow.ScrollRow = 473659 ActiveWindow.ScrollRow = 470747 ActiveWindow.ScrollRow = 467835 ActiveWindow.ScrollRow = 463953 ActiveWindow.ScrollRow = 460070 ActiveWindow.ScrollRow = 456188 ActiveWindow.ScrollRow = 452306 ActiveWindow.ScrollRow = 446482 ActiveWindow.ScrollRow = 442599 ActiveWindow.ScrollRow = 436776 ActiveWindow.ScrollRow = 431923 ActiveWindow.ScrollRow = 426099 ActiveWindow.ScrollRow = 419305 ActiveWindow.ScrollRow = 414452 ActiveWindow.ScrollRow = 408628 ActiveWindow.ScrollRow = 404746 ActiveWindow.ScrollRow = 398922 ActiveWindow.ScrollRow = 396010 ActiveWindow.ScrollRow = 392128 ActiveWindow.ScrollRow = 387275 ActiveWindow.ScrollRow = 384363 ActiveWindow.ScrollRow = 380480 ActiveWindow.ScrollRow = 377569 ActiveWindow.ScrollRow = 373686 ActiveWindow.ScrollRow = 369804 ActiveWindow.ScrollRow = 366892 ActiveWindow.ScrollRow = 362039 ActiveWindow.ScrollRow = 358156 ActiveWindow.ScrollRow = 352333 ActiveWindow.ScrollRow = 348450 ActiveWindow.ScrollRow = 343597 ActiveWindow.ScrollRow = 338744 ActiveWindow.ScrollRow = 333891 ActiveWindow.ScrollRow = 330009 ActiveWindow.ScrollRow = 325156 ActiveWindow.ScrollRow = 318361 ActiveWindow.ScrollRow = 310596 ActiveWindow.ScrollRow = 303802 ActiveWindow.ScrollRow = 296037 ActiveWindow.ScrollRow = 288272 ActiveWindow.ScrollRow = 279537 ActiveWindow.ScrollRow = 269831 ActiveWindow.ScrollRow = 261095 ActiveWindow.ScrollRow = 253330 ActiveWindow.ScrollRow = 246536 ActiveWindow.ScrollRow = 239742 ActiveWindow.ScrollRow = 231977 ActiveWindow.ScrollRow = 226153 ActiveWindow.ScrollRow = 218388 ActiveWindow.ScrollRow = 209653 ActiveWindow.ScrollRow = 201888 ActiveWindow.ScrollRow = 194123 ActiveWindow.ScrollRow = 186358 ActiveWindow.ScrollRow = 178593 ActiveWindow.ScrollRow = 170828 ActiveWindow.ScrollRow = 165005 ActiveWindow.ScrollRow = 158211 ActiveWindow.ScrollRow = 152387 ActiveWindow.ScrollRow = 148504 ActiveWindow.ScrollRow = 143651 ActiveWindow.ScrollRow = 137828 ActiveWindow.ScrollRow = 132975 ActiveWindow.ScrollRow = 128122 ActiveWindow.ScrollRow = 124239 ActiveWindow.ScrollRow = 119386 ActiveWindow.ScrollRow = 113562 ActiveWindow.ScrollRow = 107739 ActiveWindow.ScrollRow = 101915 ActiveWindow.ScrollRow = 97062 ActiveWindow.ScrollRow = 91238 ActiveWindow.ScrollRow = 85415 ActiveWindow.ScrollRow = 79591 ActiveWindow.ScrollRow = 75709 ActiveWindow.ScrollRow = 71826 ActiveWindow.ScrollRow = 67944 ActiveWindow.ScrollRow = 64061 ActiveWindow.ScrollRow = 59208 ActiveWindow.ScrollRow = 55326 ActiveWindow.ScrollRow = 50473 ActiveWindow.ScrollRow = 46590 ActiveWindow.ScrollRow = 40767 ActiveWindow.ScrollRow = 35914 ActiveWindow.ScrollRow = 32031 ActiveWindow.ScrollRow = 28149 ActiveWindow.ScrollRow = 25237 ActiveWindow.ScrollRow = 22325 ActiveWindow.ScrollRow = 19413 ActiveWindow.ScrollRow = 17472 ActiveWindow.ScrollRow = 14560 ActiveWindow.ScrollRow = 13590 ActiveWindow.ScrollRow = 11648 ActiveWindow.ScrollRow = 9707 ActiveWindow.ScrollRow = 8736 ActiveWindow.ScrollRow = 5825 ActiveWindow.ScrollRow = 4854 ActiveWindow.ScrollRow = 2913 ActiveWindow.ScrollRow = 972 ActiveWindow.ScrollRow = 1 Range("I1:I509658").Select Range("I509658").Activate Selection.ClearContents Columns("I:I").Select Range("I509641").Activate [COLOR=#ff0000] [B] Selection.SpecialCells(xlCellTypeFormulas, 23).Select[/B][/COLOR] Selection.EntireRow.Delete Range("I509653").Select ActiveWindow.ScrollRow = 509570 ActiveWindow.ScrollRow = 507629 ActiveWindow.ScrollRow = 505688 ActiveWindow.ScrollRow = 504717 ActiveWindow.ScrollRow = 502776 ActiveWindow.ScrollRow = 500835 ActiveWindow.ScrollRow = 498893 ActiveWindow.ScrollRow = 495982 ActiveWindow.ScrollRow = 494040 ActiveWindow.ScrollRow = 491129 ActiveWindow.ScrollRow = 488217 ActiveWindow.ScrollRow = 487246 ActiveWindow.ScrollRow = 485305 ActiveWindow.ScrollRow = 484334 ActiveWindow.ScrollRow = 483364 ActiveWindow.ScrollRow = 482393 ActiveWindow.ScrollRow = 481422 ActiveWindow.ScrollRow = 480452 ActiveWindow.ScrollRow = 479481 ActiveWindow.ScrollRow = 478511 ActiveWindow.ScrollRow = 477540 ActiveWindow.ScrollRow = 476569 ActiveWindow.ScrollRow = 475599 ActiveWindow.ScrollRow = 474628 ActiveWindow.ScrollRow = 473658 ActiveWindow.ScrollRow = 471716 ActiveWindow.ScrollRow = 470746 ActiveWindow.ScrollRow = 468805 ActiveWindow.ScrollRow = 467834 ActiveWindow.ScrollRow = 466863 ActiveWindow.ScrollRow = 463952 ActiveWindow.ScrollRow = 462010 ActiveWindow.ScrollRow = 458128 ActiveWindow.ScrollRow = 456187 ActiveWindow.ScrollRow = 452304 ActiveWindow.ScrollRow = 449392 ActiveWindow.ScrollRow = 446481 ActiveWindow.ScrollRow = 443569 ActiveWindow.ScrollRow = 440657 ActiveWindow.ScrollRow = 436774 ActiveWindow.ScrollRow = 432892 ActiveWindow.ScrollRow = 429010 ActiveWindow.ScrollRow = 425127 ActiveWindow.ScrollRow = 420274 ActiveWindow.ScrollRow = 416392 ActiveWindow.ScrollRow = 410568 ActiveWindow.ScrollRow = 406686 ActiveWindow.ScrollRow = 400862 ActiveWindow.ScrollRow = 395038 ActiveWindow.ScrollRow = 390185 ActiveWindow.ScrollRow = 384362 ActiveWindow.ScrollRow = 378538 ActiveWindow.ScrollRow = 373685 ActiveWindow.ScrollRow = 369803 ActiveWindow.ScrollRow = 365920 ActiveWindow.ScrollRow = 361067 ActiveWindow.ScrollRow = 358155 ActiveWindow.ScrollRow = 355243 ActiveWindow.ScrollRow = 352332 ActiveWindow.ScrollRow = 348449 ActiveWindow.ScrollRow = 345537 ActiveWindow.ScrollRow = 342626 ActiveWindow.ScrollRow = 339714 ActiveWindow.ScrollRow = 336802 ActiveWindow.ScrollRow = 333890 ActiveWindow.ScrollRow = 330978 ActiveWindow.ScrollRow = 328066 ActiveWindow.ScrollRow = 325155 ActiveWindow.ScrollRow = 322243 ActiveWindow.ScrollRow = 319331 ActiveWindow.ScrollRow = 315449 ActiveWindow.ScrollRow = 312537 ActiveWindow.ScrollRow = 309625 ActiveWindow.ScrollRow = 305742 ActiveWindow.ScrollRow = 301860 ActiveWindow.ScrollRow = 297978 ActiveWindow.ScrollRow = 292154 ActiveWindow.ScrollRow = 289242 ActiveWindow.ScrollRow = 285360 ActiveWindow.ScrollRow = 282448 ActiveWindow.ScrollRow = 278565 ActiveWindow.ScrollRow = 274683 ActiveWindow.ScrollRow = 270801 ActiveWindow.ScrollRow = 267889 ActiveWindow.ScrollRow = 264977 ActiveWindow.ScrollRow = 263036 ActiveWindow.ScrollRow = 261094 ActiveWindow.ScrollRow = 258183 ActiveWindow.ScrollRow = 256241 ActiveWindow.ScrollRow = 254300 ActiveWindow.ScrollRow = 252359 ActiveWindow.ScrollRow = 249447 ActiveWindow.ScrollRow = 246535 ActiveWindow.ScrollRow = 244594 ActiveWindow.ScrollRow = 242653 ActiveWindow.ScrollRow = 239741 ActiveWindow.ScrollRow = 238771 ActiveWindow.ScrollRow = 236829 ActiveWindow.ScrollRow = 234888 ActiveWindow.ScrollRow = 232947 ActiveWindow.ScrollRow = 231976 ActiveWindow.ScrollRow = 231006 ActiveWindow.ScrollRow = 229064 ActiveWindow.ScrollRow = 228094 ActiveWindow.ScrollRow = 226153 ActiveWindow.ScrollRow = 224211 ActiveWindow.ScrollRow = 222270 ActiveWindow.ScrollRow = 219358 ActiveWindow.ScrollRow = 216447 ActiveWindow.ScrollRow = 215476 ActiveWindow.ScrollRow = 212564 ActiveWindow.ScrollRow = 209652 ActiveWindow.ScrollRow = 207711 ActiveWindow.ScrollRow = 205770 ActiveWindow.ScrollRow = 203829 ActiveWindow.ScrollRow = 201887 ActiveWindow.ScrollRow = 199946 ActiveWindow.ScrollRow = 198005 ActiveWindow.ScrollRow = 194123 ActiveWindow.ScrollRow = 191211 ActiveWindow.ScrollRow = 188299 ActiveWindow.ScrollRow = 185387 ActiveWindow.ScrollRow = 183446 ActiveWindow.ScrollRow = 180534 ActiveWindow.ScrollRow = 177622 ActiveWindow.ScrollRow = 174710 ActiveWindow.ScrollRow = 171799 ActiveWindow.ScrollRow = 168887 ActiveWindow.ScrollRow = 166946 ActiveWindow.ScrollRow = 165004 ActiveWindow.ScrollRow = 163063 ActiveWindow.ScrollRow = 161122 ActiveWindow.ScrollRow = 159181 ActiveWindow.ScrollRow = 157239 ActiveWindow.ScrollRow = 154328 ActiveWindow.ScrollRow = 152386 ActiveWindow.ScrollRow = 150445 ActiveWindow.ScrollRow = 148504 ActiveWindow.ScrollRow = 146563 ActiveWindow.ScrollRow = 143651 ActiveWindow.ScrollRow = 141710 ActiveWindow.ScrollRow = 140739 ActiveWindow.ScrollRow = 138798 ActiveWindow.ScrollRow = 137827 ActiveWindow.ScrollRow = 136857 ActiveWindow.ScrollRow = 134915 ActiveWindow.ScrollRow = 132974 ActiveWindow.ScrollRow = 132004 ActiveWindow.ScrollRow = 129092 ActiveWindow.ScrollRow = 128121 ActiveWindow.ScrollRow = 127151 ActiveWindow.ScrollRow = 125209 ActiveWindow.ScrollRow = 123268 ActiveWindow.ScrollRow = 122298 ActiveWindow.ScrollRow = 120356 ActiveWindow.ScrollRow = 119386 ActiveWindow.ScrollRow = 116474 ActiveWindow.ScrollRow = 115503 ActiveWindow.ScrollRow = 114533 ActiveWindow.ScrollRow = 113562 ActiveWindow.ScrollRow = 112592 ActiveWindow.ScrollRow = 111621 ActiveWindow.ScrollRow = 109680 ActiveWindow.ScrollRow = 107738 ActiveWindow.ScrollRow = 106768 ActiveWindow.ScrollRow = 104827 ActiveWindow.ScrollRow = 102885 ActiveWindow.ScrollRow = 101915 ActiveWindow.ScrollRow = 100944 ActiveWindow.ScrollRow = 99003 ActiveWindow.ScrollRow = 97062 ActiveWindow.ScrollRow = 96091 ActiveWindow.ScrollRow = 94150 ActiveWindow.ScrollRow = 93179 ActiveWindow.ScrollRow = 91238 ActiveWindow.ScrollRow = 90268 ActiveWindow.ScrollRow = 89297 ActiveWindow.ScrollRow = 87356 ActiveWindow.ScrollRow = 85414 ActiveWindow.ScrollRow = 83473 ActiveWindow.ScrollRow = 81532 ActiveWindow.ScrollRow = 79591 ActiveWindow.ScrollRow = 77650 ActiveWindow.ScrollRow = 75708 ActiveWindow.ScrollRow = 74738 ActiveWindow.ScrollRow = 73767 ActiveWindow.ScrollRow = 71826 ActiveWindow.ScrollRow = 69885 ActiveWindow.ScrollRow = 68914 ActiveWindow.ScrollRow = 67944 ActiveWindow.ScrollRow = 66973 ActiveWindow.ScrollRow = 65032 ActiveWindow.ScrollRow = 64061 ActiveWindow.ScrollRow = 62120 ActiveWindow.ScrollRow = 61149 ActiveWindow.ScrollRow = 58237 ActiveWindow.ScrollRow = 56296 ActiveWindow.ScrollRow = 54355 ActiveWindow.ScrollRow = 53384 ActiveWindow.ScrollRow = 51443 ActiveWindow.ScrollRow = 50473 ActiveWindow.ScrollRow = 49502 ActiveWindow.ScrollRow = 48531 ActiveWindow.ScrollRow = 46590 ActiveWindow.ScrollRow = 45620 ActiveWindow.ScrollRow = 43678 ActiveWindow.ScrollRow = 41737 ActiveWindow.ScrollRow = 39796 ActiveWindow.ScrollRow = 37855 ActiveWindow.ScrollRow = 34943 ActiveWindow.ScrollRow = 32031 ActiveWindow.ScrollRow = 30090 ActiveWindow.ScrollRow = 27178 ActiveWindow.ScrollRow = 26207 ActiveWindow.ScrollRow = 23296 ActiveWindow.ScrollRow = 20384 ActiveWindow.ScrollRow = 17472 ActiveWindow.ScrollRow = 14560 ActiveWindow.ScrollRow = 12619 ActiveWindow.ScrollRow = 10678 ActiveWindow.ScrollRow = 8736 ActiveWindow.ScrollRow = 5825 ActiveWindow.ScrollRow = 3883 ActiveWindow.ScrollRow = 972 ActiveWindow.ScrollRow = 1 Columns("J:J").Select Selection.Delete Shift:=xlToLeft Columns("I:I").Select Selection.Delete Shift:=xlToLeft Columns("E:E").Select Selection.Delete Shift:=xlToLeft Columns("B:B").Select Selection.Delete Shift:=xlToLeft Range("C6").Select End Sub [/CODE] Gracias

Fenomenal Armando! Me ha funcionado perfectamente! Mil gracias! Saludos

Hola Germán. Intenteré subir por la tarde ese fichero que va a ser con los datos que he puesto aquí. Smplificando: si A1 = a un número con estas características: 000106 1138042156, B1 debería ser x, en caso contrario la celda debería quedar en blanco. El problema que veo es que es un número con un formato muy definido (espacio en blanco entre el sexto y séptimo dígito), pero hay que respetar la integridad del mismo, es decir, los dieciséis dígitos más el espacio en blanco. Saludos prometheo

Hola, necesito una fórmula de Excel que me devuelva un valor determinado. El problema es el siguiente: En una columna (por ejemplo A) tengo datos similares a estos: 1. 2000 KEOP, S.L. 2. 2000 SEOM, S.L. 3. 31 de Juliol, S.L. 4. LOPEZ LOPEZ S.A. 5. 010108 9801730268 6. 010108 9801730269 7. 100106 1138042156 Lo que quiero es una fórmula que me devuelva "x", en una columna adyacente para los datos que están en las celdas 5, 6 y 7 y para el resto que no aparezca nada. He intentado utilizar el SI, con varias condiciones, pero siempre aparecen todas con los mismos valores que las anteriores (ó "x" o celdas vacías). No sé si es debido al formato o qué. Los números vienen tal cual con un espacio a partir del sexto dígito. Hay más de medio millón de celdas con esas características. Muchas gracias