Metodo UNION

[galileogali]

La definicion que da la ayuda de VBA, dice que los argumentos tienen que ser al menos dos objetos Range.
Yo pregunto: ¿ Pueden ser UNIDOS con este Metodo dos Rangos que pertenezcan a diferentes Hojas?


Mi pregunta estriba en que no encuentro forma de evitar error al querer
set objrng = UNION(Worksheets(k).Range("a1:r8"),worksheets(m).Range("a1:r8")) con k<>m

¿Existe alguna forma que NO sea recorriendo con un FOR EACH -NEXT o un FOR-NEXT que recorra todas las hojas del Workbook, de Usar el METODO FIND sobre todo el Libro?

GALI

 

[Greg Truby]

Hola Gali,

De lo que me doy cuenta, la respuesta a su pregunta es «no»; c/u de estas tres rutinas fracasa:

Sub TryUnion()
    Dim r1 As Range, r2 As Range, ru As Range
    
    Set r1 = Sheet1.Range("B1:C4")
    Set r2 = Sheet2.Range("E1:F4")
    Set ru = Union(r1, r2)
    ru.Interior.ColorIndex = 24
End Sub

Sub TryNamedRanges()
    Dim ru As Range
       
    Set ru = Union([test1], [test2])
    ru.Interior.ColorIndex = 24
End Sub

Sub TryDirectAssignment()
    Dim ru1 As Range, ru2 As Range
       
    Set ru1 = Range("Sheet1!B1:C4,Sheet1!E1:F4")
    ru1.Interior.ColorIndex = 24
    
    Set r2 = Range("Sheet1!B1:C4,Sheet2!E1:F4")
    ru2.Interior.ColorIndex = 18
End Sub

Atte,

 

[galileogali]

Gracias Greg.
Siempre. metodológicamente, resulta más difícil probar, demostrar o concluir un "NO" que un SI, el segundo puede probarse con encontrar algunos casos que funciones, en cambio probar que algo NO....
eN ESOS CASOS SIEMPRE RECURRO A LA OPINION DE ALGUIEN autorizado PARA EXPRESAR UN JUCIO DEFINITORIO.
Nuevamente Gracias.

 

[Greg Truby]

¿¡«Autorizado»!? ¿¡Yo!? No'mbres... eso de "MrExcel MVP" fue algo que me regalaron por ser tan guapo. Hablando en serio... eso de «MVP» es un honor aquí; pero no hay un vínculo entre «MVP» aquí y «MVP» dado por Microsoft. Es cierto que algunos de los MVP's de aquí, sí son MVP de Microsoft. Pero para ser MVP aquí no hay que tomar un exámen o algo más; es decir que no es una certificación formal ni nada así.

 

[galileogali]

Excelente FORMULA!!!!!!!


If Intersect("MrExcel Message Board Forum","Handsome Excel God") = True then MrExcelBoardRank = "MrExcel MVP"

POR QUE NO TAMBIEN:

set MostValuablePerson = Intersect("MrExcelMVP","GenerousGuys","QuestOthLangForum")

IF Not MostValuablePerson is Nothing then MostValuablePerson.value = "GregTruby"

END MADNESS