Copiar columna sumandole una cantidad

20/01/2006 - 13:11 por Sonia | Informe spam
Hola!!

Mediante una macro quiero copiar una columna en otra, esto ya lo he
conseguido pero lo que ahora quiero es que los datos de la nueva columna sea
el valor de la inicial mas uno. Como puedo hacerlo??
Gracias.
 

Leer las respuestas

#1 KL
20/01/2006 - 13:42 | Informe spam
Hola Sonia

A ver que tal este codigo que copia los datos incrementados por 1 de la columna [A] (empezando desde la fila 2 por si hay
encabezados) a la columna [B] .

Sub Test()
Dim rng As Range
With ActiveSheet
Set rng = .Range(.Cells(2, "A"), _
.Cells(.Rows.Count, "A").End(xlUp)).Offset(, 1)
End With
With rng
.Value = 1
.Offset(, -1).Copy
.PasteSpecial xlFormulas, xlAdd
End With
Application.CutCopyMode = False
End Sub

Saludos,
KL



"Sonia" wrote in message news:
Hola!!

Mediante una macro quiero copiar una columna en otra, esto ya lo he conseguido pero lo que ahora quiero es que los datos de la
nueva columna sea el valor de la inicial mas uno. Como puedo hacerlo??
Gracias.

Preguntas similares