Selección de más de 100 celdas no continuas de una misma columna
Tengo problema (pues no se hacerlo) para seleccionar más de 100 celdas no continuas de la misma columna, es decir por ejemplo;
("D14:D19, D30:D38, D44:D48, D54:D73, D85:D86, D92:D94, D100, D106:D108, D114:D115, D121:D123, D129, D135:D137, D143:D145, D160:D162, D168:D169, D175:D179, D185:D190, D196:D204, D211:D212, D218:D219, D235, D241:D248, D254:D255, D261:D265, D272:D276, D282, D288:D296, D310:D313") . . . . Hasta D2650 utilizando Range... Me da error.
Debes haber superado el total de caracteres permitidos como argumentos.
Tendrás que separar por tramos, como en este ejemplo:
Sub selecciona()
'x Elsamatilde
Set rgo1 = Range("D1:D5,D8:D11")
Set rgo2 = Range("D15:D30, D50:D60")
Union(rgo1, rgo2).Select
End SubEmpieza separando en 2 tramos, si te da error separa en 3 y así hasta completar.
Otra opción es definir como variable la Union:
Set rgotot = Union(rgo1, rgo2)
rgotot.Select
