Detalle de una Macro (de Héctor Miguel).

Hola Feli Pe,

1) La funcion que expones es totalmente independiente del arreglo de tu hoja y por tanto ningun cambio que realices en la hoja la
puede afectar.
2) Convendria expliques con mas detalles que quiere decir (como se manifiesta) el "...en estos tres campos que he incrementado no me
funciona...".
3) Que yo sepa el "...borrar el modulo y volverlo a incorporar en la hoja..." no puede resolver nada.
4) Sospecho una de tres:
- introduces mal los parametros. p.ej. los rangos Clientes y Claves no son de la misma longitud, no son de una columna o no empiezan
en la misma fila
- que el rango Claves no contiene la Clave buscada aunque parezca que si, p.ej. un espacio extra que no se ve a primera vista en
alguna de las celdas o cosas por el estilo.
- usas incorrectamente las referencias relativas y/o absolutas de los rangos

Comentas detalles adicionales.

Saludos,
KL

"Feli Pe" wrote in message news:%

Hola
Tengo esta Macro que expongo, que en su día me pasó Héctor Miguel, y que funcionaba estupendamente. Ahora he tenido que ampliar
campos para nuevos productos y en estos tres campos que he incrementado no me funciona. Quizá sólo con borrrar el módulo y
volverlo a incorporar en la hoja en la que he aumentado los 3 campos, se solucione, pero no me atrevo porque no recuerdo como hay
que ingresar una macro en la hoja.
Agradecería cualquier ayuda para solucionar este problema.

El código que figura en la hoja es:

Function TomarClientes(Clientes As Range, Claves As Range, Clave) As String
Dim Celda As Range, Fila As Long: TomarClientes = "": Fila = 1
For Each Celda In Claves
If Celda = Clave Then
If TomarClientes <> "" Then TomarClientes = TomarClientes & ", "
TomarClientes = TomarClientes & Clientes.Cells(Fila)
End If: Fila = Fila + 1
Next
End Function

Como siempre KL tienes razon, pero si no me contestas no sabria de que era.
Asi he revisado y efectivamente usaba incorrectamente las referencias.
Gracias por tu tiempo y consejos.
Salu2
"KL" escribio en el mensaje
news:

Hola Feli Pe,

1) La funcion que expones es totalmente independiente del arreglo de tu
hoja y por tanto ningun cambio que realices en la hoja la puede afectar.
2) Convendria expliques con mas detalles que quiere decir (como se
manifiesta) el "...en estos tres campos que he incrementado no me
funciona...".
3) Que yo sepa el "...borrar el modulo y volverlo a incorporar en la
hoja..." no puede resolver nada.
4) Sospecho una de tres:
- introduces mal los parametros. p.ej. los rangos Clientes y Claves no son
de la misma longitud, no son de una columna o no empiezan en la misma fila
- que el rango Claves no contiene la Clave buscada aunque parezca que si,
p.ej. un espacio extra que no se ve a primera vista en alguna de las
celdas o cosas por el estilo.
- usas incorrectamente las referencias relativas y/o absolutas de los
rangos

Comentas detalles adicionales.

Saludos,
KL

"Feli Pe" wrote in message
news:%

Hola
Tengo esta Macro que expongo, que en su día me pasó Héctor Miguel, y que
funcionaba estupendamente. Ahora he tenido que ampliar campos para nuevos
productos y en estos tres campos que he incrementado no me funciona.
Quizá sólo con borrrar el módulo y volverlo a incorporar en la hoja en la
que he aumentado los 3 campos, se solucione, pero no me atrevo porque no
recuerdo como hay que ingresar una macro en la hoja.
Agradecería cualquier ayuda para solucionar este problema.

El código que figura en la hoja es:

Function TomarClientes(Clientes As Range, Claves As Range, Clave) As
String
Dim Celda As Range, Fila As Long: TomarClientes = "": Fila = 1
For Each Celda In Claves
If Celda = Clave Then
If TomarClientes <> "" Then TomarClientes = TomarClientes & ", "
TomarClientes = TomarClientes & Clientes.Cells(Fila)
End If: Fila = Fila + 1
Next
End Function