Seleccionar Celdas

03/02/2006 - 13:42 por Manuel | Informe spam

Hola Grupo, En mi hoja de exel, tengo una columna con datos numericos, que
corresponden a un extracto bancario,
Lo que quiero hacer es poder puntear las cantidades y que me valla sumando
en una celda que yo elija la suma de las cantidades
punteadas o en mi caso las que no he punteado.

Ahora como no se me ocurre otra cosa lo que hago es la que seleciono la
pinto de rojo asi se cuales son las que he punteado,
y para sumarlas tengo que ir selecionando una a una las que no estan en
rojo, es un poco engorroso.

Tambien quisiera saber si existe alguna manera de buscar y selecionar las
cantidades mas ligero de como lo hago ahora que
es buzcandola y pintandola de rojo.

Muchas Gracias.

Siga el debate

7 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 KL

03/02/2006 - 17:48 | Informe spam

Pues alla vamos - abrochate el cinturon :-)

Suponiendo que...
- la columna en la que vas a pinchar es la [B]
- la senal que vamos a dejar es una "x"
- al volver a pinchar sobre una "x" deberia desaparecer
- no habra ningun dato mas en la columna [B]

Prueba hacer lo siguiente:

1) Haz clic-derecho sobre el nombre de la hoja en cuestion (en una de las pestanas de la parte de abajo de la ventana de Excel).
2) Elige la opcion Ver Codigo para abrir el editor VBA.
3) Una vez en el Editor VBA, en la ventana mas grande a la derecha pega el codigo que te pongo a continuacion:

'--
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range, c As Range
On Error Resume Next
Set rng = Intersect(Target, [B:B], Me.UsedRange.EntireRow)
On Error GoTo 0
If rng Is Nothing Then Exit Sub
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
For Each c In rng
If c = "x" Then c = "" Else c = "x"
Next c
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub
'--

4) Ahora pulsa Alt+F11 para volver a la hoja.
5) Prueba hacer clic o seleccionar rangos en la columna [B]

Saludos,
KL

"Manuel" wrote in message news:rfLEf.243083$

SI.
"KL" escribio en el mensaje
news:

> Hay alguna manera para ir mas rapido de que al pinchar con el raton en

la

> celda pinte una X.

Macros! Quieres probar?

Saludos,
KL

Responder a este mensaje

#7 Manuel

03/02/2006 - 18:27 | Informe spam

Eureka funciona de maravilla, eres un mounstruo.

Muchas Gracias.

"KL" escribio en el mensaje
news:

Pues alla vamos - abrochate el cinturon :-)

Suponiendo que...
- la columna en la que vas a pinchar es la [B]
- la senal que vamos a dejar es una "x"
- al volver a pinchar sobre una "x" deberia desaparecer
- no habra ningun dato mas en la columna [B]

Prueba hacer lo siguiente:

1) Haz clic-derecho sobre el nombre de la hoja en cuestion (en una de las

pestanas de la parte de abajo de la ventana de Excel).

2) Elige la opcion Ver Codigo para abrir el editor VBA.
3) Una vez en el Editor VBA, en la ventana mas grande a la derecha pega el

codigo que te pongo a continuacion:

'--
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range, c As Range
On Error Resume Next
Set rng = Intersect(Target, [B:B], Me.UsedRange.EntireRow)
On Error GoTo 0
If rng Is Nothing Then Exit Sub
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
For Each c In rng
If c = "x" Then c = "" Else c = "x"
Next c
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub
'--

4) Ahora pulsa Alt+F11 para volver a la hoja.
5) Prueba hacer clic o seleccionar rangos en la columna [B]

Saludos,
KL

"Manuel" wrote in message