Pepito=Pepito +1

Siguiendo tu criterio:

Sub nn()
Dim pepito As Range
Set pepito = [a1]
pepito = pepito + 1
End Sub

Abraham

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

Solo por curiosidad, ¿has probado ...

Hoja1.range(cells(1,1), cells(1,6))=Hoja1.range(cells(1,1), cells(1,6)) + 1

... a ver que pasa?

SALUDOS.
Julián-Valencia-España
http://ijulian.iespana.es/


"Desastres" escribió en el mensaje
news:e8$

Buenas tardes.

Normalmente Excel escucha cuando le dices algo así como:
Hoja1.cells(1,1)=Hoja1.cells(1,1) + 1 (contador sencillo)

En la ayuda dicen:
"El valor de un rango combinado es el valor especificado para la celda en
la esquina superior
izquierda del rango."

Si al rango le doy nombre, "Pepito"
Dim Pepito as Range
Set Pepito = Hoja1.range(cells(1,1), cells(1,6))
Pepito.merge

¿Porque no puedo decir Pepito = Pepito + 1 ?
o ¿Como decir Pepito = Pepito + 1 ?


Saludos
Des

Hummm, despues de analizar mejor lo que quisiste decir:

Sub iii()
Dim Pepito As Range
Set Pepito = Hoja2.Range(Cells(1, 1), Cells(1, 6))
Pepito.Merge
Set Pepito = Nothing
Set Pepito = [a1]
Pepito = Pepito + 1
Set Pepito = Nothing
End Sub

Tiienes que "vaciar" la variable antes de intentar la suma. Porque?
Pues:

- El primer pepito tiene un rango como valor (Hoja2.Range(Cells(1,
1), Cells(1, 6))), como bien has colocado, la celda combinada,
"adopta" la direccion de la que esta mas a la izquierda y mas arriba,
en este caso A1, pero, ATENCION, la celda adopto la nueva direccion,
NO LA VARIABLE PEPITO, esta, hasta que le asignes un nuevo valor,
sigue siendo un rango.

abraham

hola, Des !

Normalmente Excel escucha cuando le dices algo asi como:
Hoja1.cells(1,1)=Hoja1.cells(1,1) + 1 (contador sencillo)
En la ayuda dicen:
"El valor de un rango combinado es el valor especificado para la celda en la esquina superior izquierda del rango."
Si al rango le doy nombre, "Pepito"
Dim Pepito as Range
Set Pepito = Hoja1.range(cells(1,1), cells(1,6))
Pepito.merge
Porque no puedo decir Pepito = Pepito + 1 ?
o Como decir Pepito = Pepito + 1 ?

1) [hasta donde recuerdo]... "Pepito" nunca se ha *distinguido* por *hacer* [precisamente] lo que le *solicitan*
[quizas necesites darle un nombre mas... *obediente* a tus rangos] :))

2) las celdas y rangos *combinados*, si recuerdas una conversacion de alla por marzo, te comentaba que son...
" [algo asi como 'una astilla...' que no te deja permanecer 'comodamente sentado'] :D "

3) *bromas aparte*... lo que dice la ayuda es cierto...
"El valor de un rango combinado es el valor especificado para la celda en la esquina superior izquierda del rango."
de hecho, si en la interfase de usuario *haces referencia* al rango que combinaste en las lineas de codigo de tu ejemplo...
*veras* que la referencia queda *apuntando* [exclusivamente] a la celda 'A1' [es decir]...

4) para *administrar* por codigo la referencia a un rango combinado [como el contador que necesitas incrementar]
es necesario *apuntar* [exclusivamente] a la primer celda del rango combinado [o sea, algo +/- como lo siguiente]:

Sub Desastres_y_Pepito()
Dim Pepito As Range
Set Pepito = Hoja1.Range(Cells(1, 1), Cells(1, 6))
Pepito.Merge
Pepito.Cells(1) = Pepito.Cells(1) + 1
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hola Abraham.

No trabajo con la notación [a1], pero creo recordar haber leído que para ello tienes que estar en la
hoja2.

Como no estoy en ella, primero o tengo que desplazarme o seleccionar la hoja

Hoja2.select , o application goto reference:=Hoja2.Cells(1,1)

Si como apuntas, luego puedo dirigirme al rango combinado dirigiéndome o "apuntando" solo a la
primera celda, se me ocurre alguna pequeña variación, que acortaría instrucciones. Corrígeme si
estoy equivocado.



Sub iii()
Dim Pepito As Range
Hoja2.Range(Cells(1, 1), Cells(1, 6)).Merge

Set Pepito Hoja2[A1]

Pepito =Pepito +1
Set Pepito = Nothing
End Sub

¿Sería correcto?Corrígeme la sintaxis del sub si está mal, por favor.

Saludos

Des





"Abraham" escribió en el mensaje
news:

Hummm, despues de analizar mejor lo que quisiste decir:

Sub iii()
Dim Pepito As Range
Set Pepito = Hoja2.Range(Cells(1, 1), Cells(1, 6))
Pepito.Merge
Set Pepito = Nothing
Set Pepito = [a1]
Pepito = Pepito + 1
Set Pepito = Nothing
End Sub

Tiienes que "vaciar" la variable antes de intentar la suma. Porque?
Pues:

- El primer pepito tiene un rango como valor (Hoja2.Range(Cells(1,
1), Cells(1, 6))), como bien has colocado, la celda combinada,
"adopta" la direccion de la que esta mas a la izquierda y mas arriba,
en este caso A1, pero, ATENCION, la celda adopto la nueva direccion,
NO LA VARIABLE PEPITO, esta, hasta que le asignes un nuevo valor,
sigue siendo un rango.

abraham