Excel - Duda sobre concatenacion

Buenas tardes,

Estoy teniendo varios problemas con un asunto que paso a explicarles:

Verán, yo tengo una hoja con nombres, escritos uno en cada celda, y van bajando por filas, tipo:

Celda(1,1) Pepe
Celda(2,1) Pepa
..

Hago que me compruebe lo escrito hasta que esté vacio, tipo así:

While Cells(1,1).Value <> ""
Palabra= Cells(contar, 1).Value
Contar=contar+1
MsgBox(Palabra)
Wend

Vale, así compruebo que me reconoce todas las palabras.

El caso es que después tengo otra hoja, con estas mismas palabras pero están distribuidas en cada celda una letra (tipo crucigrama).

ejemplo:

Celda(1,2) P Celda(1,3)E Celda(1,4)P Celda(1,5)E

Yo lo que desearia , es poder comparar mi variable Palabra con la misma palabra escrita de esta forma, necesitaria hacer que me reconociera la composicion.. para poder luego comprobar si es correcta.

Gracias

Puede que me esté haciendo un lio, pero he probado esto,


O sea el problema que tengo es en el bucle For, que segun lo que creo me deberia hacer en este caso, si el len me devuelve 4, pues desde i=0 hasta 4. Pero parece como que me va acumulando este valor, y al final me da la misma palabra repetida muchas veces..

Hay alguna manera de hacer que no acumule esto?, u otra manera?

Gracias

Muy buenas.

Si te he entendido, la siguiente macro te podría servir:
Sub m()
fila = Sheets("Hoja1").Range("A1").End(xlDown).Row
For l = 1 To fila
comprobacion = Worksheets("Hoja1").Cells(l, 1).Value 'Aqui leeria la palabra que tengo en 1 celda.
Paraula1 = Len(comprobacion) 'Aqui le digo que me devuelva el numero de caracteres
PARAULA = ""
For i = 1 To Paraula1
PARAULA = PARAULA & Worksheets("Hoja2").Cells(l, 1 + i).Value
Next
PARAULA = Application.WorksheetFunction.Proper(PARAULA)
If comprobacion = PARAULA Then
MsgBox ("la palabra " & comprobacion & " es correcta")
Else
MsgBox ("la palabra " & comprobacion & " no coincide con " & PARAULA)
End If
Next
End Sub

Te adjunto el fichero que recoge esa macro.

Un saludo. Juanjo.

• CRUCIGRAMA.rar(8,9 KB)

Gracias, aunque me sigue dando el mismo problema.

En su caso sale perfecto, ya que las palabras que están en la hoja 2, van bajando por filas consecutivamente, pero en mi caso , donde se encuentran esas palabras, están dispersas.

Por ejemplo, la primera palabra, está desde la celda(11,7) hasta la (11,11)
La segunda esta en la celda (13,5) hasta la (13,9)..

Entonces lo que me hace es que la primera la coje bien, pero el resto, comienza a cojerme otras letras..

Muy buenas.

Si la información de donde empiezan las palabras está puesta en algún sitio, se podría reformar la macro. Si no está puesta en ningún, solo se puede hacer que la macro te pregunte la ubicación de la solución.

Un saludo. Juanjo.

Exacto, la situacion de las palabras que debe comprobar estan ubicadas en distintos lugares, tanto horizontal como vertical (es un crucigrama).