problemas con el uso de rangos

16/11/2004 - 10:11 por .·:m·a·r·l·a:·. | Informe spam
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

Preguntas similare

Leer las respuestas

#1 Anonimo
16/11/2004 - 15:46 | Informe spam
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


.

Respuesta Responder a este mensaje
#2 .·:m·a·r·l·a:·.
16/11/2004 - 17:52 | Informe spam
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


Respuesta Responder a este mensaje
#3 .·:m·a·r·l·a:·.
16/11/2004 - 17:53 | Informe spam
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


.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida