............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Validar celda como lista con dos rangos

Ir abajo

Validar celda como lista con dos rangos

Mensaje por Roberto2010 el Jue Oct 04, 2012 12:06 am

Hola a todos ¿Cómo están? espero que bien
tengo dos Nombres y sus correspondientes formulas (Se refiera a):

Nombre 1: Plan
=DESREF(Plan!$C$1001;0;0;CONTARA(Plan!$C$1001:$C$1500);1)

Nombre 2: Concepto
=DESREF(Concepto!$Y$2;0;0;CONTARA(Concepto!$Y:$Y)-1;1)

Utilizo estos dos Nombres para validar dos celdas como lista.
Pero también necesito validar una tercer celda que me muestre ambos rangos como si fuera uno solo,
ejemplo: si en la primer celda se muestra en la lista desplegable el dato 'a', y en la segunda el dato 'b', necesito que en la tercer celda validada se muestre en la lista desplegable 'a' y 'b' también.
Espero explicarme bien, y desde ya muchas gracias por su ayuda.
avatar
Roberto2010

Masculino Cantidad de envíos : 76
Edad : 42
Ciudad - Pais : ARGENTINA
Version de Excel : 2003-2007
Fecha de inscripción : 03/09/2010

Volver arriba Ir abajo

Re: Validar celda como lista con dos rangos

Mensaje por Toldeman el Vie Oct 12, 2012 7:26 am

Hola.

Revisa el adjunto, hay una macro de evento para obtener la tercera lista.

Un saludo.
Archivos
1.xls No tienes los permisos para descargar los archivos.(43 KB) Descargado 20 veces

Toldeman
Moderador
Moderador

Masculino Cantidad de envíos : 65
Edad : 53
Ciudad - Pais : España
Version de Excel : 2007
Fecha de inscripción : 05/04/2009

Volver arriba Ir abajo

Re: Validar celda como lista con dos rangos

Mensaje por Roberto2010 el Sáb Oct 13, 2012 12:56 am

Estimado Toldeman, muchas gracias por ayudarme desinteresadamente, tu propuesta es ingeniosa y desde luego que se ajusta a mis necesidades, anda perfecto.
Con poco código lograste lo que quería, por otro lado te comento que nunca había visto la función intersect la cual entiendo que usas para verificar la existencia de datos en los rangos. Es así?
muchas gracias nuevamente
avatar
Roberto2010

Masculino Cantidad de envíos : 76
Edad : 42
Ciudad - Pais : ARGENTINA
Version de Excel : 2003-2007
Fecha de inscripción : 03/09/2010

Volver arriba Ir abajo

Re: Validar celda como lista con dos rangos

Mensaje por Toldeman el Sáb Oct 13, 2012 6:48 am

Hola.

Me alegro que mi propuesta se ajuste a lo que andabas buscando. También comentar que intersect no es una función es un método que devuelve un objeto range, si a este objeto lo comparamos si esta o no en esa intersección (interect) entonces el resultado es : true o false
Por lo que se sale del procedimiento o se ejecuta este.

Un saludo.

Toldeman
Moderador
Moderador

Masculino Cantidad de envíos : 65
Edad : 53
Ciudad - Pais : España
Version de Excel : 2007
Fecha de inscripción : 05/04/2009

Volver arriba Ir abajo

Re: Validar celda como lista con dos rangos

Mensaje por GalileoGali el Miér Oct 17, 2012 11:22 pm

Una variante

Código:
Sub mixturar()
Dim col As New Collection
Dim reCol() As Variant
Dim cel As Range, rango As Range
Dim i As Integer, j As Integer


On Error Resume Next
Set rango = Sheets(1).Range("Lista1")

For i = 2 To 2  'preparando posible mayor cantidad de rangos
  Set rango = Union(rango, Sheets(1).Range("Lista" & i))
Next i
    For Each cel In rango.Cells
        col.Add CStr(cel), CStr(cel)
    Next cel
ReDim reCol(0 To col.Count - 1)
    For i = 1 To col.Count
        reCol(i - 1) = col.Item(i)
    Next
Sheets(1).Range ("L2:L" & Rows.Count)
Sheets(1).Range("L2", "L" & col.Count + 1) = Application.Transpose(reCol)
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Validar celda como lista con dos rangos

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.