borrar contenido de un rango especifico

Lo que haces, además de estar mal, no tiene mucho sentido.
Tienes que recorrer las CELDAS del rango, pero es absurdo
recorrer todas las celdas si sabes cuál es la que tienes
que tratar.

Crea la macro con la grabadora de macros y mira el código
que te genera.

Estoy usando For Each, y cuando llega al rango que

necesito borrar no lo

consigo, con este código, alguna idea?
Dim R as Range
For Each R In Worksheets("estadistica").Range("A2:A500")
If R Is Range("A201") Then R.ClearContents
Next


.

Hola Fabian,

Mejor usa la siguiente instruccion:
Worksheets("Estadistica").Range("A201").Value=""

Saludos,

Henry

Estoy usando For Each, y cuando llega al rango que

necesito borrar no lo

consigo, con este código, alguna idea?
Dim R as Range
For Each R In Worksheets("estadistica").Range("A2:A500")
If R Is Range("A201") Then R.ClearContents
Next


.

Agradezco tu tiempo y voluntad, pero necesito que sea cuando recorre celda
por celda. Gracias.

escribió en el mensaje
news:229c101c45e0e$006b4680$
Lo que haces, además de estar mal, no tiene mucho sentido.
Tienes que recorrer las CELDAS del rango, pero es absurdo
recorrer todas las celdas si sabes cuál es la que tienes
que tratar.

Crea la macro con la grabadora de macros y mira el código
que te genera.

Estoy usando For Each, y cuando llega al rango que

necesito borrar no lo

consigo, con este código, alguna idea?
Dim R as Range
For Each R In Worksheets("estadistica").Range("A2:A500")
If R Is Range("A201") Then R.ClearContents
Next


.

Dim R As Range
For Each R In Worksheets("estadistica").Range("A2:A500")
'lo que quieras hacer.
If R.Address = "$A$201" Then R.ClearContents
Next

Pero no tiene sentido hacerlo así, mejor sería:

Dim R As Range
For Each R In Worksheets("estadistica").Range("A2:A500")
'lo que quieras hacer.
Next
Worksheets("Estadistica").Range("A201").ClearContents

José Luis
Guns And Roses

"Fabian" escribió en el mensaje
news:

Agradezco tu tiempo y voluntad, pero necesito que sea cuando recorre celda
por celda. Gracias.

escribió en el mensaje
news:229c101c45e0e$006b4680$
Lo que haces, además de estar mal, no tiene mucho sentido.
Tienes que recorrer las CELDAS del rango, pero es absurdo
recorrer todas las celdas si sabes cuál es la que tienes
que tratar.

Crea la macro con la grabadora de macros y mira el código
que te genera.



>Estoy usando For Each, y cuando llega al rango que
necesito borrar no lo
>consigo, con este código, alguna idea?
>Dim R as Range
>For Each R In Worksheets("estadistica").Range("A2:A500")
> If R Is Range("A201") Then R.ClearContents
>Next
>
>
>.
>

GRACIAS. Funciona perfecto, es lo que necesitaba!
Había probado con R.Address = Range("A1"),? Por supuesto me daba error,
gracias otra vez
Fabian
"JoseLuisArg" <ForosYListas(arroba)jlf.com.ar> escribió en el mensaje
news:

Dim R As Range
For Each R In Worksheets("estadistica").Range("A2:A500")
'lo que quieras hacer.
If R.Address = "$A$201" Then R.ClearContents
Next

Pero no tiene sentido hacerlo así, mejor sería:

Dim R As Range
For Each R In Worksheets("estadistica").Range("A2:A500")
'lo que quieras hacer.
Next
Worksheets("Estadistica").Range("A201").ClearContents

José Luis
Guns And Roses

"Fabian" escribió en el mensaje
news:
> Agradezco tu tiempo y voluntad, pero necesito que sea cuando recorre

celda

> por celda. Gracias.
>
> escribió en el mensaje
> news:229c101c45e0e$006b4680$
> Lo que haces, además de estar mal, no tiene mucho sentido.
> Tienes que recorrer las CELDAS del rango, pero es absurdo
> recorrer todas las celdas si sabes cuál es la que tienes
> que tratar.
>
> Crea la macro con la grabadora de macros y mira el código
> que te genera.
>
>
>
> >Estoy usando For Each, y cuando llega al rango que
> necesito borrar no lo
> >consigo, con este código, alguna idea?
> >Dim R as Range
> >For Each R In Worksheets("estadistica").Range("A2:A500")
> > If R Is Range("A201") Then R.ClearContents
> >Next
> >
> >
> >.
> >
>
>