Macro. Posición relativa

08/09/2005 - 22:51 por FeCel | Informe spam
Necesito crear una macro que haga lo siguiente:
1.- Insertar una celda en la posición del cursor, desplazando a la derecha
el resto de la fila;
2.- En la celda insertada, concatenar el contenido de la celda que está en
la misma fila, en la columna de la derecha, con el contenido de la celda que
esta en la misma fila, y dos columnas hacia la derecha. Ejemplo: si
inicialmente estaba en la posición B20, con el paso 1 anterior se insertó una
celda en blanco en esa posición. En B20 debe quedar C20 concatenado con D20.
3.- Luego transformar a valor el nuevo contenido de B20.
4.- Eliminar las celdas de las dos columnas hacia la derecha, desplazando el
resto hacia la izquierda. En el ejemplo, eliminar las celdas C20 y D20,
desplazando el resto a la izquierda.
Es necesario que las direcciones sean "relativas" pues la operación de
"juntar" dos celdas la necesito hacer en cualquier parte de la hoja.
Muchísimas gracias de antemano al que me pueda ayudar.
FeCel
 

Leer las respuestas

#1 FeCel
08/09/2005 - 23:21 | Informe spam
Parte de la macro es la siguiente:

Selection.Insert Shift:=xlToRight
ActiveCell.FormulaR1C1 = "=+RC[1]&"" ""&RC[2]"
ActiveCell.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
****Como desplazar una posición a la derecha de la posición actual del
cursor***
Selection.Delete Shift:=xlToLeft
Selection.Delete Shift:=xlToLeft

La línea en **** no se como se programa.
Gracias.
Atte
FeCel

Preguntas similares