if y then

[nberroeta]

como puedo = un comando, tengo demaciados if con muchos comandos y me gustaria declarar al principio del porograma y no tener que en cada if declarar cada comando

en este momento los if tiene esta estructura
====================================================
If ActiveSheet.Range("a1").Value = ActiveSheet.Range("a2").Value Then

ActiveSheet.Range("D6:i6").Interior.Color = RGB(0, 0, 255)
ActiveSheet.Range("D7:i7").Interior.Color = RGB(0, 0, 255)
ActiveSheet.Range("D11:i11").Interior.Color = RGB(0, 0, 255)


=====================================================
y me gustaria tenerlo como aparece acontinuacion
=====================================================

a=ActiveSheet.Range("D6:i6").Interior.Color = RGB(0, 0, 255)
b=ActiveSheet.Range("D7:i7").Interior.Color = RGB(0, 0, 255)
c=ActiveSheet.Range("D11:i11").Interior.Color = RGB(0, 0, 255)

If ActiveSheet.Range("a1").Value = ActiveSheet.Range("a2").Value Then
a
b
c
end if
===================================================
saludos
<!-- / message -->

 

[yytsunamiyy]

puedes hacerlo con un sub como:

If ActiveSheet.Range("a1").Value = ActiveSheet.Range("a2").Value Then
    Call Color
end if

...

sub Color()

    ActiveSheet.Range("D6:i6").Interior.Color = RGB(0, 0, 255)
    ActiveSheet.Range("D7:i7").Interior.Color = RGB(0, 0, 255)
    ActiveSheet.Range("D11:i11").Interior.Color = RGB(0, 0, 255)

end sub

 

[nberroeta]

si pero estoy agrupando y en cada if la configuracion es diferente no existen solo a b c son alrededor de 40 comandos por eso quiero = y despues llamar

Saludos

 

[yytsunamiyy]

Podria ser mas facil si estas usando "Conditional Formating"...

Quiza no entiendo lo que quieres hacer. Lo que describes no es posible. Lo que pordias hacer es algo como eso:

If ActiveSheet.Range("a1").Value = ActiveSheet.Range("a2").Value Then
    Call Color(Range("D6:I6"), Range("D7:i7"),Range("D11:i11"))
end if

If ActiveSheet.Range("B1").Value = ActiveSheet.Range("B2").Value Then
    Call Color(Range("E6:J6"), Range("E7:J7"),Range("E11:J11"))
end if
...

sub Color(Rng1 as range, Rng2 as range, Rng3 as Range )

    ActiveSheet.Range(Rng1).Interior.Color = RGB(0, 0, 255)
    ActiveSheet.Range(Rng2).Interior.Color = RGB(0, 0, 255)
    ActiveSheet.Range(Rng3).Interior.Color = RGB(0, 0, 255)

end sub

 

[nberroeta]

lo que quiero hacer es

if a1=a2 then
a
b
c
end if
 
if a1=a2 then
c
d
e
end if 
 
if a1=a2 then
a
d
e
end if 
 
if A1= a2 then 
 
d
a
c
..............................................

entonces para no derme el trabajo de escribir una por una los comando prefiero resumir en letras " es solo un ejemplo lo que mostre pq en realidad es mas muchisimo pas pega que esto"

saludos

 

[yytsunamiyy]

Bueno, hace lo como el siguiente:

If A1 = A2 then
    Call a
    Call b
    Call c
end if

if A1=A2 then
    call c
    call d
    call e
end if

if A1=A2 then
    call a
    call d
    call e
end if

if A1= A2 then
    call d
    call a
    call c
end if
'---------------------------------------
sub a()
    ActiveSheet.Range("D6:i6").Interior.Color = RGB(0, 0, 255)
end sub

sub b()
    ActiveSheet.Range("D7:i7").Interior.Color = RGB(0, 0, 255)
end sub

sub c()
    ActiveSheet.Range("D11:i11").Interior.Color = RGB(0, 0, 255)
end sub

sub d()
    'hacer algo
end sub

sub e()
    'hacer algo
end sub

 

[Greg Truby]

Como tsumami ya ha indicado, una manera de hacer lo que usted describe es nombrar subrutinas y llamarlas. Además, él tiene razón sobre el uso de formateo condicional. Si el objectivo suyo es colorear las celdas según ciertos valores o condiciones, y habrán tres o menos condiciones (para Excel 2003 y abajo), entonces es probable que formateo condicional brindaría una solución superior.

Acerca del ejemplo provisto, es un ejemplo un poco confuso para uno. Uno podría condenserla para que fuera:

if a1=a2 then
   a
   b
   c
   c
   d
   e
   a
   d
   e
   d
   a
   c   
end if

Pero llamadas repetitivas a las mismas rutinas, por lo menos en la mayoría de los casos no tendría much sentido. Mientras, sí, hay casos que implementen una lógica cíclica, pero dudo de sea el caso aquí.