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