problemas con el uso de rangos

Supongo que querrás hacerlo mediante código.
Si generas una macro automática lo tienes:

Range("C5:D8").Select
ActiveCell.Replace What:="45", Replacement:="10",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False,
SearchFormat:=False, _
ReplaceFormat:=False
Selection.Find(What:="45", After:=ActiveCell,
LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

hola a todos:

mi pregunta muy simple pero me trae de cabeza

intento buscar un texto en un rango de celdas y si este

existe cambiarlo por

otro, esto lo realizo en una funcion que me da el rango de

las celdas

actualizadas, tal que :


Sub SAPBEXonRefresh(queryID As String, resultArea As Range)

'bla = Range(resultArea).Replace("Not assigned", "", xlWhole)
' - Run-time error '1004' :
' - Method 'Range' of object '_Global' failed
' - (Continue) End Debug Help

bla = Range(Cells(resultArea.Row, resultArea.Column),

Cells(resultArea.Row +

resultArea.Rows.Count - 1, resultArea.Column +

resultArea.Columns.Count -

1)).Replace("Not assigned", "", xlWhole)

End Sub


el caso es que la primera opcion , uso direto del rango,

me da el error

descrito, pero la segunda, donde destripo el rango para

obtener celdas de

comienzo y de final funciona perfectamente


que es lo que hago mal ??, por que no funciona la primera

opcion ??

gracias por adelantado


.

creo que no me he explicado:

mi duda es por que la primera instruccion no funciona y la segunda si

bla = Range(resultArea).Replace("Not assigned", "", xlWhole)

no funciona, pero:

bla = Range(Cells(resultArea.Row, resultArea.Column), Cells(resultArea.Row +
resultArea.Rows.Count - 1, resultArea.Column + resultArea.Columns.Count -
1)).Replace("Not assigned", "", xlWhole)


donde resultArea es una varible tipo rango, (en la segunda instruccion lo
que hago es sacar los limites del rango uno a uno




".·:m·a·r·l·a:·." wrote in message
news:

hola a todos:

mi pregunta muy simple pero me trae de cabeza

intento buscar un texto en un rango de celdas y si este existe cambiarlo

por

otro, esto lo realizo en una funcion que me da el rango de las celdas
actualizadas, tal que :


Sub SAPBEXonRefresh(queryID As String, resultArea As Range)

'bla = Range(resultArea).Replace("Not assigned", "", xlWhole)
' - Run-time error '1004' :
' - Method 'Range' of object '_Global' failed
' - (Continue) End Debug Help

bla = Range(Cells(resultArea.Row, resultArea.Column), Cells(resultArea.Row

+

resultArea.Rows.Count - 1, resultArea.Column + resultArea.Columns.Count -
1)).Replace("Not assigned", "", xlWhole)

End Sub


el caso es que la primera opcion , uso direto del rango, me da el error
descrito, pero la segunda, donde destripo el rango para obtener celdas de
comienzo y de final funciona perfectamente


que es lo que hago mal ??, por que no funciona la primera opcion ??


gracias por adelantado

creo que no me he explicado:

mi duda es por que la primera instruccion no funciona y la segunda si

bla = Range(resultArea).Replace("Not assigned", "", xlWhole)

no funciona, pero:

bla = Range(Cells(resultArea.Row, resultArea.Column), Cells(resultArea.Row +
resultArea.Rows.Count - 1, resultArea.Column + resultArea.Columns.Count -
1)).Replace("Not assigned", "", xlWhole)


donde resultArea es una varible tipo rango, (en la segunda instruccion lo
que hago es sacar los limites del rango uno a uno


wrote in message
news:686701c4cbeb$00a1e6e0$
Supongo que querrás hacerlo mediante código.
Si generas una macro automática lo tienes:

Range("C5:D8").Select
ActiveCell.Replace What:="45", Replacement:="10",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False,
SearchFormat:=False, _
ReplaceFormat:=False
Selection.Find(What:="45", After:=ActiveCell,
LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

hola a todos:

mi pregunta muy simple pero me trae de cabeza

intento buscar un texto en un rango de celdas y si este

existe cambiarlo por

otro, esto lo realizo en una funcion que me da el rango de

las celdas

actualizadas, tal que :


Sub SAPBEXonRefresh(queryID As String, resultArea As Range)

'bla = Range(resultArea).Replace("Not assigned", "", xlWhole)
' - Run-time error '1004' :
' - Method 'Range' of object '_Global' failed
' - (Continue) End Debug Help

bla = Range(Cells(resultArea.Row, resultArea.Column),

Cells(resultArea.Row +

resultArea.Rows.Count - 1, resultArea.Column +

resultArea.Columns.Count -

1)).Replace("Not assigned", "", xlWhole)

End Sub


el caso es que la primera opcion , uso direto del rango,

me da el error

descrito, pero la segunda, donde destripo el rango para

obtener celdas de

comienzo y de final funciona perfectamente


que es lo que hago mal ??, por que no funciona la primera

opcion ??

gracias por adelantado


.